pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.11 1998/04/17 21:48:36 mirar Exp $ + /* $Id: master.pike.in,v 1.12 1998/04/18 06:28:09 hubbe Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      int is_absolute_path(string p)   {   #ifdef __NT__    p=replace(p,"\\","/");
pike.git/lib/master.pike.in:499:    object tmp;    string a,b;    mixed *q;       foreach(env,a) if(sscanf(a,"%s=%s",a,b)) environment[a]=b;    add_constant("getenv",getenv);    add_constant("putenv",putenv);       add_constant("write",_static_modules.files()->_stdout->write);    -  _master_file_name=backtrace()[-1][0]; -  q=explode_path(_master_file_name); +        // add path for architecture-shared files -  add_include_path("¤data_prefix¤/include"); -  add_module_path("¤data_prefix¤/modules"); +  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");    -  +  _master_file_name=backtrace()[-1][0]; + #if 0 +  q=explode_path(_master_file_name);    // add path for wherever the master is now    add_include_path(pike_library_path+"/include");    add_module_path(pike_library_path+"/modules");       pike_library_path = combine_path_with_cwd(q[0..sizeof(q)-2] * "/");       add_include_path(pike_library_path+"/include");    add_module_path(pike_library_path+"/modules");       add_program_path(getcwd());    add_module_path(getcwd()); -  + #endif       _master_file_name=combine_path(getcwd(), _master_file_name);       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")||"")/":"-({""});