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.306 2003/10/08 19:59:02 mast Exp $ + // $Id: master.pike.in,v 1.307 2003/10/30 17:24:35 bill 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:973:      #if "¤lib_prefix¤"[0]!='¤'    // add path for architecture-dependant files    add_include_path("¤lib_prefix¤/include");    add_module_path("¤lib_prefix¤/modules");   #endif      #if "¤include_prefix¤"[0]!='¤'    include_prefix = "¤include_prefix¤";   #endif +  system_module_path=pike_module_path;   }         //! This function is called whenever a inherit is called for.   //! It is supposed to return the program to inherit.   //! The first argument is the argument given to inherit, and the second   //! is the file name of the program currently compiling. Note that the   //! file name can be changed with #line, or set by compile_string, so   //! it can not be 100% trusted to be a filename.   //! previous_object(), can be virtually anything in this function, as it
pike.git/lib/master.pike.in:1716:      //!   class CompatResolver   {    //! Actual resolver    joinnode root_module = joinnode(({predef::_static_modules}));       //! Lookup from handler module to corresponding root_module.    mapping(object:joinnode) handler_root_modules = ([]);    +  array(string) system_module_path=({}); +  +  //! The complete module search path    array(string) pike_module_path=({}); -  +  +  //! The complete include search path    array(string) pike_include_path=({}); -  +  +  //! The complete program search path    array(string) pike_program_path=({}); -  +     mapping(string:string) predefines = ([]);    string ver;       //! If we fail to resolv, try the fallback.    //!    //! Typical configuration:    //! @pre{0.6->7.0->7.2->7.4->master@}    CompatResolver fallback_resolver;       //! The CompatResolver is initialized with a value that can be
pike.git/lib/master.pike.in:2092:    putenv(a, b);    }    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")||"")/PATH_SEPARATOR-({""});    int i = sizeof(parts);    while(i) add_include_path(parts[--i]);       parts = (getenv("PIKE_PROGRAM_PATH")||"")/PATH_SEPARATOR-({""});    i = sizeof(parts);    while(i) add_program_path(parts[--i]);