pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.58 1999/10/06 14:26:30 grubba Exp $ + /* $Id: master.pike.in,v 1.59 1999/10/09 23:28:39 hubbe 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:436:    } 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);    + #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"); + #endif +     random_seed(time() + (getpid() * 0x11111111));   }      /*    * This function is called whenever a inherit is called for.    * It is supposed to return the program to inherit.    * The first argument is the argument given to inherit, and the second    * is the file name of the program currently compiling. Note that the    * file name can be changed with #line, or set by compile_string, so    * it can not be 100% trusted to be a filename.
pike.git/lib/master.pike.in:775:    a="="+a;    }    environment[a]=b;    }else{    werror("Broken environment var %s\n",a);    }    }          - #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"); - #endif -  -  +    #ifndef NOT_INSTALLED    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]);   #endif
pike.git/lib/master.pike.in:992:      mixed inhibit_compile_errors;      void set_inhibit_compile_errors(mixed f)   {    inhibit_compile_errors=f;   }      string trim_file_name(string s)   { +  if(getenv("LONG_PIKE_ERRORS")) return s;    if(getenv("SHORT_PIKE_ERRORS")) return BASENAME(s); -  +  string cwd=getcwd(); +  if(s[..sizeof(cwd)-1]==cwd) return s[sizeof(cwd)..];    return s;   }      /*    * This function is called whenever a compiling error occurs,    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.    */   void compile_error(string file,int line,string err)
pike.git/lib/master.pike.in:1205:   }      string describe_program(program p)   {    string s;    if(!p) return 0;    if(s=search(programs,p))    {    if(sscanf(reverse(s),"%s.%s",string ext,string rest) && ext=="domp")    return EXPLODE_PATH(reverse(rest))[-1]; -  return s; +  return trim_file_name(s);    }       if(functionp(p))    if(mixed tmp=function_object(p))    if(s=describe_program(object_program(tmp)))    return s+"."+function_name(p);       if(s=_static_modules.Builtin()->program_defined(p))    return EXPLODE_PATH(s)[-1];