pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.9 1998/04/16 02:13:09 hubbe Exp $ + /* $Id: master.pike.in,v 1.10 1998/04/17 21:29:11 mirar 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:501:    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); -  pike_library_path = combine_path_with_cwd(q[0..sizeof(q)-2] * "/"); +     -  +  // add path for architecture-shared files +  add_include_path("¤data_prefix¤/pike/include"); +  add_module_path("¤data_prefix¤/pike/modules"); +  +  // add path for architecture-dependant files +  add_include_path("¤lib_prefix¤/include"); +  add_module_path("¤lib_prefix¤/modules"); +  +  // add path for wherever the master is now    add_include_path(pike_library_path+"/include");    add_module_path(pike_library_path+"/modules");    -  a = replace(pike_library_path+"/", "/lib/", "/share/"); -  if (a != pike_library_path+"/") { -  array st; -  if ((st = file_stat(a)) && (sizeof(st)) && (st[1] == -2)) { -  add_include_path(a+"/include"); -  add_module_path(a+"/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());       _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]);