pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.193 2002/03/08 04:24:49 mast Exp $ +  * $Id: master.pike.in,v 1.194 2002/03/10 02:53:12 mast Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD      // Used by describe_backtrace() et al.   #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0)   #undef BT_MAX_STRING_LEN   #define BT_MAX_STRING_LEN 200   #endif /* !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0) */   constant bt_max_string_len = BT_MAX_STRING_LEN;      //! @decl constant bt_max_string_len = 200 - //! This constant contains the maximum number of lines a backtrace may - //! contain. Defaults to 200 if no BT_MAX_STRING_LEN define has been + //! This constant contains the maximum length of a function entry in a + //! backtrace. Defaults to 200 if no BT_MAX_STRING_LEN define has been   //! given.      // Enables the out of date warning in low_find_prog().   #ifndef OUT_OF_DATE_WARNING   #define OUT_OF_DATE_WARNING 1   #endif /* OUT_OF_DATE_WARNING */   constant out_of_date_warning = OUT_OF_DATE_WARNING;      //! @decl constant out_of_date_warning = 1   //! Should Pike complain about out of date compiled files.
pike.git/lib/master.pike.in:409:   #endif   }      mapping (string:program) programs=(["/master":object_program(this_object())]);      #define capitalize(X) (upper_case((X)[..0])+(X)[1..])      array(string) query_precompiled_names(string fname)   {    // Filenames of potential precompiled files in priority order. + #ifdef PRECOMPILED_SEARCH_MORE +  // Search for precompiled files in all module directories, not just +  // in the one where the source file is. This is useful when running +  // pike directly from the build directory. +  fname = fakeroot (fname); +  // FIXME: Not sure if this works correctly with the fakeroot and +  // module relocation stuff. +  foreach (pike_module_path, string path) +  if (has_prefix (fname, path)) +  return map (pike_module_path, `+, "/", fname[sizeof (path)..], ".o"); + #endif    return ({ fname + ".o" });   }      #if constant(_static_modules.Builtin.mutex)   #define THREADED   object compilation_mutex = _static_modules.Builtin()->mutex();   #endif      static program low_findprog(string pname,    string ext,