pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.27 1998/05/11 23:25:21 mast Exp $ + /* $Id: master.pike.in,v 1.28 1998/05/13 07:36:56 hubbe 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:549:    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;    + #ifdef __NT__ +  function rget=lambda(string ent) { +  return +  RegGetValue(HKEY_CURRENT_USER,"SOFTWARE\\Idonex\\Pike\\0.6",ent) || +  RegGetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Idonex\\Pike\\0.6",ent) ; +  }; +  string tmp=rget("share_prefix");    // add path for architecture-shared files -  +  add_include_path(tmp+"/include"); +  add_module_path(tmp+"/modules"); +  +  string tmp=rget("lib_prefix"); +  // add path for architecture-dependant files +  add_include_path(tmp+"/include"); +  add_module_path(tmp+"/modules"); + #else +  // 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"); -  + #endif       q=(getenv("PIKE_INCLUDE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_include_path(q[i]);       q=(getenv("PIKE_PROGRAM_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_program_path(q[i]);       q=(getenv("PIKE_MODULE_PATH")||"")/":"-({""});    for(i=sizeof(q)-1;i>=0;i--) add_module_path(q[i]);   
pike.git/lib/master.pike.in:728:    if(debug) _debug(debug);   #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); -  predef::trace(0); +     if(i >=0) exit(i);   }      mixed inhibit_compile_errors;      void set_inhibit_compile_errors(mixed f)   {    inhibit_compile_errors=f;   }