pike.git/ lib/ master.pike.in

1999-10-09

1999-10-09 23:29:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• e37a3eed8b20aa9c5b46435cce751cbeb3fbafe7 (33 lines) (+18/-15) ^{[ Show | Annotate ]}
  Branch: 7.9

some fixes for auto_bignum stuff

Rev: lib/master.pike.in:1.59
Rev: src/bignum.c:1.2
Rev: src/bignum.h:1.3
Rev: src/builtin_functions.c:1.184
Rev: src/language.yacc:1.125
Rev: src/main.c:1.77
Rev: src/operators.c:1.62
Rev: src/program.c:1.158

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.    *
443:    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));   }   
782:          - #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]);
999:      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;   }   
1212:    {    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))