pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed as GPL (General Public License)   // See the files COPYING and DISCLAIMER for more information.   // - // $Id: master.pike.in,v 1.198 2002/05/15 14:50:42 grubba Exp $ + // $Id: master.pike.in,v 1.199 2002/05/22 10:00:09 nilsson Exp $      #pike __REAL_VERSION__      // --- Some configurable parameters      #define PIKE_AUTORELOAD   #define GETCWD_CACHE   #define FILE_STAT_CACHE      // This define is search and replaced by bin/install.pike.
pike.git/lib/master.pike.in:54:      //!   int compat_major=-1;      //!   int compat_minor=-1;         // --- Functions begin here.    - #define error(X) throw( ({ (X), backtrace()/*[0..sizeof(backtrace())-2]*/ }) ) +    #define Stat _static_modules.files.Stat   #define capitalize(X) (upper_case((X)[..0])+(X)[1..])    -  + //! @appears error + //! Identical to @tt{throw( ({ sprintf(f, @args), backtrace() }) )@}. + void error(string f, mixed ... args) { +  array(array) b = backtrace(); +  if (sizeof(args)) f = sprintf(f, @args); +  throw( ({ f, b[..sizeof(b)-2] }) ); + } +    // FIXME: Should the pikeroot-things be private?   #ifdef PIKE_FAKEROOT   object o;   string fakeroot(string s)   {    string tmp1=combine_path_with_cwd(s);   #ifdef PIKE_FAKEROOT_OMIT    foreach(PIKE_FAKEROOT_OMIT/":", string x)    if(glob(x,tmp1))    return s;
pike.git/lib/master.pike.in:714:   //! @seealso   //! @[destruct()], @[compile_string()], @[compile_file()]   //!   object new(string|program prog, mixed ... args)   {    if(stringp(prog))    {    if(program p=cast_to_program(prog,backtrace()[-2][0]))    return p(@args);    else -  error(sprintf("new: failed to find program %s.\n",prog)); +  error("Failed to find program %s.\n", prog);    }    return prog(@args);   }      //! @decl object clone(string|program prog, mixed ... args)   //! @appears clone   //!   //! @seealso   //! @[new()]      function clone = new;      /* This array contains the names of the functions    * that a replacing master-object may want to override.    */   constant master_efuns = ({ -  +  "error",    "basename",    "dirname",    "is_absolute_path",    "explode_path",       "compile_string",    "compile_file",    "add_include_path",    "remove_include_path",    "add_module_path",