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.369 2004/12/26 11:54:03 per Exp $ + // $Id: master.pike.in,v 1.370 2004/12/27 15:49:09 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif   
pike.git/lib/master.pike.in:113:   #endif      void resolv_debug (string fmt, mixed... args)   {    string pad = " " * GET_RESOLV_MSG_DEPTH;    if (sizeof (args)) fmt = sprintf (fmt, @args);    if (fmt[-1] == '\n')    fmt = pad + replace (fmt[..<1], "\n", "\n" + pad) + "\n";    else    fmt = pad + replace (fmt, "\n", "\n" + pad); +  if (!werror) werror = Files()->_stderr->write;    werror (fmt);   }      #else // !RESOLV_DEBUG   #define INC_RESOLV_MSG_DEPTH() 0   #define DEC_RESOLV_MSG_DEPTH() 0   #define resolv_debug(X...) do {} while (0)   #endif // !RESOLV_DEBUG      //! @appears error
pike.git/lib/master.pike.in:388:   }      #ifdef FILE_STAT_CACHE      #define FILE_STAT_CACHE_TIME 20      int invalidate_time;   mapping(string:multiset(string)) dir_cache = ([]);       - array(string) master_get_dir( string x ) + array(string) master_get_dir(string|void x)   { -  return get_dir( x ); +  return get_dir(x);   }      Stat master_file_stat(string x)   {    string dir = combine_path_with_cwd(x);    string file = BASENAME(dir);    dir = dirname(dir);       if(time() > invalidate_time)    {
pike.git/lib/master.pike.in:2186:       if (current_file && !stringp(current_file)) {    error( "resolv(%O, %O, %O): current_file is not a string!\n",    identifier, current_file, current_handler,    backtrace() );    }       array(string) tmp=identifier/".";    mixed ret = resolv_base(tmp[0], current_file, current_handler);    foreach(tmp[1..],string index) { +  resolv_debug("indexing %O with %O...\n", +  ret, index); +  resolv_debug("indices(Gmp): %O\n", indices(ret));    if (zero_type(ret)) break;    ret = ret[index];    }    DEC_RESOLV_MSG_DEPTH();   #ifdef RESOLV_DEBUG    if (zero_type (ret))    resolv_debug("resolv(%O, %O) => not found\n",identifier, current_file);    else    resolv_debug("resolv(%O, %O) => found %O\n",identifier, current_file, ret);   #endif /* RESOLV_DEBUG */