pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.275 2003/05/03 15:27:24 grubba Exp $ + // $Id: master.pike.in,v 1.276 2003/05/07 10:49:23 grubba Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "¤/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:60:      //!   int compat_major=-1;      //!   int compat_minor=-1;         // --- Functions begin here.    - #define Stat _static_modules.files.Stat + #define Stat _static_modules.___files.Stat   #define capitalize(X) (upper_case((X)[..0])+(X)[1..]) - #define write(X ...) _static_modules.files()->_stdout->write(X) + #define write(X ...) _static_modules.___files()->_stdout->write(X)      #ifdef RESOLV_DEBUG      #if constant (thread_local)   static object resolv_msg_depth = thread_local();   #define GET_RESOLV_MSG_DEPTH (resolv_msg_depth->get())   #define INC_RESOLV_MSG_DEPTH() (resolv_msg_depth->set (resolv_msg_depth->get() + 1))   #define DEC_RESOLV_MSG_DEPTH() (resolv_msg_depth->set (resolv_msg_depth->get() - 1))   #else   static int resolv_msg_depth;
pike.git/lib/master.pike.in:282:    return compile(cpp(source, filename||"-", 1, handler,    compat_major, compat_minor),    handler,    compat_major,    compat_minor);   }      //!   string master_read_file(string file)   { -  object o=_static_modules.files()->Fd(); +  object o=_static_modules.___files()->Fd();    if( ([function(string, string : int)]o->open)(fakeroot(file),"r") )    return ([function(void : string)]o->read)();    return 0;   }      #ifdef GETCWD_CACHE   static string current_path;   int cd(string s)   {    current_path=0;
pike.git/lib/master.pike.in:866:   {    object o = this_object();       foreach(master_efuns, string e)    if (o[e])    add_constant(e, o[e]);    else    error("Function %O is missing from master.pike.\n", e);       add_constant("strlen", sizeof); -  add_constant("write", _static_modules.files()->_stdout->write); +  add_constant("write", _static_modules.___files()->_stdout->write);      #define CO(X) add_constant(#X,_static_modules.Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);    CO(find_call_out);    CO(remove_call_out);    CO(call_out_info);      #if "¤share_prefix¤"[0]!='¤'    // add path for architecture-dependant files
pike.git/lib/master.pike.in:2799:   {    int e;    string ret = "";    int backtrace_len=((int)getenv("PIKE_BACKTRACE_LEN")) || bt_max_string_len;       if(!linewidth)    {    linewidth=99999;    catch    { -  linewidth=[int]_static_modules.files()->_stdin->tcgetattr()->columns; +  linewidth=[int]_static_modules.___files()->_stdin->tcgetattr()->columns;    };    if(linewidth<10) linewidth=99999;    }       if((arrayp(trace) && sizeof([array]trace)==2 && stringp(([array]trace)[0]))||    (objectp(trace) && ([object]trace)->is_generic_error))    {    if (catch {    ret = ([array(string)]trace)[0];    if(!stringp(ret))