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.242 2002/12/29 22:30:24 nilsson Exp $ + // $Id: master.pike.in,v 1.243 2002/12/30 15:06:50 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:257:   //!   string master_read_file(string file)   {    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 - string current_path; + static string current_path;   int cd(string s)   {    current_path=0;    return predef::cd(s);   }      string getcwd()   {    return current_path || (current_path=predef::getcwd());   }
pike.git/lib/master.pike.in:320:    file = lower_case(file);   #endif    if(d && !d[file]) return 0;       return predef::file_stat(x);   }   #else   #define master_file_stat file_stat   #endif // FILE_STAT_CACHE    - mapping (string:array(string)) environment=([]); + //! Mapping containing the environment variables. + //! + //! The mapping currently has the following structure: + //! @mapping + //! @member array(string) index + //! Note that the index is @[lower_case()]'d on NT. + //! @array + //! @elem string varname + //! Variable name with case intact. + //! @elem string value + //! Variable value. + //! @endarray + //! @endmapping + //! + //! @note + //! This mapping should not be accessed directly; use @[getenv()] + //! and @[putenv()] instead. + //! + //! @note + //! This mapping is not compatible with @[Process.create_process()]; + //! use the mapping returned from calling @[getenv()] without arguments + //! instead. + mapping(string:array(string)) environment=([]);         //! @decl string getenv(string varname)   //! @decl mapping(string:string) getenv()   //! @appears getenv   //!   //! When called with no arguments, a mapping with all current environment   //! variables will be returned.   //!   //! If the @[varname] argument has been given, the value of the environment
pike.git/lib/master.pike.in:433:   //! adviced to use @[System.normalize_path] instead.   string normalize_path( string path )   {   #ifndef __NT__    return path;   #else    return replace(path,"\\","/");   #endif   }    - mapping (string:program) programs=(["/master":object_program(this_object())]); + //! Mapping containing the cache of currently compiled files. + //! + //! This mapping currently has the following structure: + //! @mapping + //! @member program filename + //! @endmapping + //! + //! @note + //! As a special case the current master program is available + //! under the name @tt{"/master"@}. + mapping(string:program) programs=(["/master":object_program(this_object())]);      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