pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:281:       int is_absolute_path(string p);    array(string) explode_path(string p);    string dirname(string x);    string basename(string x);    object low_cast_to_object(string oname, string current_file);    extern int want_warnings;    program compile_string(string data, void|string name);    program compile_file(string file);    - #if constant(_static_modules.Builtin.mutex) -  extern object compilation_mutex; - #endif -  +     constant master_efuns = ({});    class joinnode {};    extern mapping(string:mixed) fc;    extern string _pike_file_name;    void compile_warning(string file,int line,string err);    string read_include(string f);       class Codec {};       constant bt_max_string_len = 1;
pike.git/lib/master.pike.in:1202:    if (handler?->compile_warning)    handler->compile_warning (file, 0, msg);    else if (master()->compile_warning)    master()->compile_warning (file, 0, msg);    else    compile_warning (file, 0, msg);   }      #if constant(_static_modules.Builtin.mutex)   #define THREADED - _static_modules.Builtin.mutex compilation_mutex = Builtin.mutex(); +    #endif      #ifdef __NT__   #define FIX_CASE(X) lower_case(X)   #else   #define FIX_CASE(X) (X)   #endif /* __NT__ */      protected string base_from_filename(string fname)   {
pike.git/lib/master.pike.in:1366:    object|void handler,    void|int mkobj)   {    program ret;    Stat s;    string fname=pname+ext;       resolv_debug("low_findprog(%O, %O, %O, %O)\n",    pname, ext, handler, mkobj);    - #ifdef THREADED -  object key; -  // The catch is needed, since we might be called in a context when -  // threads are disabled. (compile() disables threads). -  mixed err = catch { -  key=compilation_mutex->lock(2); -  }; -  if (err && !has_suffix (err[0], "when threads are disabled!")) -  throw (err); - #endif -  +    #ifdef PIKE_MODULE_RELOC    fname = unrelocate_module(fname);   #endif      #ifdef __NT__    // Ugly kluge to work better with cygwin32 "/X:/" paths.    if(getenv("OSTYPE")=="cygwin32")    {    string tmp=fname[..1];    if((tmp=="//" || tmp=="\\\\") && (fname[3]=='/' || fname[3]=='\\'))