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.293 2003/08/18 13:30:59 tomas Exp $ + // $Id: master.pike.in,v 1.294 2003/08/19 10:49:57 nilsson 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:43:   //! 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_findprog().   #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;    + #ifdef __NT__ + #define PATH_SEPARATOR ";" + #else + #define PATH_SEPARATOR ":" + #endif +    //! @decl constant out_of_date_warning = 1   //! Should Pike complain about out of date compiled files.   //! 1 means yes and 0 means no. Controlled by the OUT_OF_DATE_WARNING   //! define.      //! If not zero compilation warnings will be written out on stderr.   int want_warnings = PIKE_WARNINGS;      //!   int compat_major=-1;
pike.git/lib/master.pike.in:111:    throw( ({ f, b[..sizeof(b)-2] }) );   }      // FIXME: Should the pikeroot-things be private?   #ifdef PIKE_FAKEROOT   object o;   string fakeroot(string s)   {    string tmp1=combine_path_with_cwd(s);   #ifdef PIKE_FAKEROOT_OMIT -  foreach(PIKE_FAKEROOT_OMIT/":", string x) +  foreach(PIKE_FAKEROOT_OMIT/PATH_SEPARATOR, string x)    if(glob(x,tmp1))    return s;   #endif    return PIKE_FAKEROOT+tmp1;   }   #else   #define fakeroot(X) X   #endif // PIKE_FAKEROOT      #ifdef PIKE_MODULE_RELOC
pike.git/lib/master.pike.in:1895:    else    werror("Broken environment var %s\n",a);       void _error(string a, mixed ... b) {    werror(a, @b);    exit(1);    };      #ifndef NOT_INSTALLED    { -  array parts = (getenv("PIKE_INCLUDE_PATH")||"")/":"-({""}); +  array parts = (getenv("PIKE_INCLUDE_PATH")||"")/PATH_SEPARATOR-({""});    int i = sizeof(parts);    while(i) add_include_path(parts[--i]);    -  parts = (getenv("PIKE_PROGRAM_PATH")||"")/":"-({""}); +  parts = (getenv("PIKE_PROGRAM_PATH")||"")/PATH_SEPARATOR-({""});    i = sizeof(parts);    while(i) add_program_path(parts[--i]);    -  parts = (getenv("PIKE_MODULE_PATH")||"")/":"-({""}); +  parts = (getenv("PIKE_MODULE_PATH")||"")/PATH_SEPARATOR-({""});    i = sizeof(parts);    while(i) add_module_path(parts[--i]);    }   #endif       // Some configure scripts depends on this format.    string format_paths() {    return ("master.pike...: " + (_master_file_name || __FILE__) + "\n"    "Module path...: " + pike_module_path*"\n"    " " + "\n"