pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.145 2001/02/24 02:37:01 hubbe Exp $ +  * $Id: master.pike.in,v 1.146 2001/03/12 10:51:27 hubbe Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:616:    } else {    throw(({ sprintf("Function %O is missing from master.pike.\n", e),    backtrace() }));    }    }       add_constant("strlen", sizeof);    add_constant("UNDEFINED", UNDEFINED);    add_constant("write", _static_modules.files()->_stdout->write);    + #define CO(X) add_constant(#X,_static_modules.Builtin.__backend->X) +  CO(call_out); +  CO(_do_call_outs); +  CO(find_call_out); +  CO(remove_call_out); +  CO(call_out_info); +    #if "¤share_prefix¤"[0]!='¤'    // add path for architecture-dependant files    add_include_path("¤share_prefix¤/include");    add_module_path("¤share_prefix¤/modules");   #endif      #if "¤lib_prefix¤"[0]!='¤'    // add path for architecture-dependant files    add_include_path("¤lib_prefix¤/include");    add_module_path("¤lib_prefix¤/modules");
pike.git/lib/master.pike.in:1531:    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; +  +  while(1) +  { +  mixed err=catch +  { +  while(1) +  _static_modules.Builtin.__backend(3600.0); +  }; +  master()->handle_error(err);    } -  + }      #if constant(thread_local)   object inhibit_compile_errors = thread_local();      void set_inhibit_compile_errors(mixed f)   {    inhibit_compile_errors->set(f);   }      mixed get_inhibit_compile_errors()