pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.24 1998/04/29 16:00:57 grubba Exp $ + /* $Id: master.pike.in,v 1.25 1998/04/30 15:29:49 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:525:    }       if(ret)    {    if(mixed tmp=ret->_module_value) ret=tmp;    return ret;    }    return UNDEFINED;   }    + // These are useful if you want to start other Pike processes + // with the same options as this one was started with. + string _pike_file_name;   string _master_file_name;      /* This function is called when all the driver is done with all setup    * of modules, efuns, tables etc. etc. and is ready to start executing    * _real_ programs. It receives the arguments not meant for the driver    * and an array containing the environment variables on the same form as    * a C program receives them.    */   void _main(string *orig_argv, string *env)   {    string *argv=copy_value(orig_argv);    int i,debug,trace;    object script;    object tmp;    string a,b;    mixed *q;    -  +  _pike_file_name = orig_argv[0]; +     foreach(env,a) if(sscanf(a,"%s=%s",a,b)) environment[a]=b;       // add path for architecture-shared files    add_include_path("¤share_prefix¤/include");    add_module_path("¤share_prefix¤/modules");       // add path for architecture-dependant files    add_include_path("¤lib_prefix¤/include");    add_module_path("¤lib_prefix¤/modules");