pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.120 2000/05/24 01:21:33 hubbe Exp $ +  * $Id: master.pike.in,v 1.121 2000/06/04 18:23:10 kinkie Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:903:    foreach(tmp[1..],string index) ret=ret[index];    resolv_cache[id] = zero_type (ret) ? ZERO_TYPE : ret;    return ret;   }      // 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;    + //flag. Gets set to 1 if we're in async-mode (script->main() returned <0) + private int _async=0; +  + int asyncp() { +  return _async; + } +    /* 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(array(string) orig_argv, array(string) env)   {    array(string) argv=copy_value(orig_argv);    int i,debug,trace;
pike.git/lib/master.pike.in:1146:   #endif    if(!script->main)    {    werror("Error: "+argv[0]+" has no main().\n");    exit(1);    }       if(trace) predef::trace(trace);    i=script->main(sizeof(argv),argv,env);    if(i >=0) exit(i); +  _async=1;   }      #if constant(thread_local)   object inhibit_compile_errors = thread_local();      void set_inhibit_compile_errors(mixed f)   {    inhibit_compile_errors->set(f);   }