pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1: - /* $Id: master.pike.in,v 1.38 1999/04/09 04:53:34 hubbe Exp $ + /* $Id: master.pike.in,v 1.39 1999/06/30 20:30:34 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)
pike.git/lib/master.pike.in:62:   #define error(X) throw( ({ (X), backtrace()[0..sizeof(backtrace())-2] }) )      string describe_backtrace(mixed *trace);   object low_cast_to_object(string oname, string current_file);      string *pike_include_path=({});   string *pike_module_path=({});   string *pike_program_path=({});   int want_warnings;    + #if constant(thread_create) + object compiler_lock = _static_modules.Builtin.mutex(); + #endif /* constant(thread_create) */ +    program compile_string(string data, void|string name)   { -  + #if constant(thread_create) +  mixed key; +  catch { key = compiler_lock->lock(); }; + #endif /* constant(thread_create) */    return compile(cpp(data,name||"-"));   }      program compile_file(string file)   { -  + #if constant(thread_create) +  mixed key; +  catch { key = compiler_lock->lock(); }; + #endif /* constant(thread_create) */    return compile(cpp(_static_modules.files()->Fd(file,"r")->read(),file));   }         #ifdef GETCWD_CACHE   string current_path;   int cd(string s)   {    current_path=0;    return predef::cd(s);