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.462 2009/06/04 11:14:38 per Exp $ + // $Id: master.pike.in,v 1.463 2009/06/10 16:11:15 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types      //! @appears predef::MasterObject   //!   //! Master control program for Pike.   //!   //! @seealso   //! @[predef::master()], @[predef::replace_master()]
pike.git/lib/master.pike.in:167:    extern array(string) pike_program_path;   #ifdef GETCWD_CACHE    extern string current_path;    int cd(string s);    string getcwd();   #endif    string combine_path_with_cwd(string path);   #ifdef FILE_STAT_CACHE    extern int invalidate_time;    extern mapping(string:multiset(string)) dir_cache; + #endif    local array(mixed) master_file_stat(string x)    {    Stat st = global::master_file_stat(x);    return st && (array)st;    } - #endif +        //! @decl 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
pike.git/lib/master.pike.in:663:   //! @[get_compat_master()], @[master()], @[predef::MasterObject]   protected class Pike_7_2_master   {    inherit Pike_7_0_master;   #ifdef PIKE_MODULE_RELOC    string relocate_module(string s);    string unrelocate_module(string s);   #endif    extern int compat_major;    extern int compat_minor; - #ifdef FILE_STAT_CACHE +     Stat master_file_stat(string x); - #endif +     object low_cast_to_object(string oname, string current_file,    object|void current_handler);    object findmodule(string fullname, object|void handler);    extern multiset no_resolv;    extern string ver;    mapping get_default_module();    local protected object Pike_7_2_compat_handler;    local mixed resolv(string identifier, string|void current_file)    {    if (!Pike_7_2_compat_handler) {
pike.git/lib/master.pike.in:1157:    }      #ifdef __NT__    file = lower_case(file);   #endif    if(d && !d[file]) return 0;       return predef::file_stat(x);   }   #else - #define master_file_stat file_stat - #define master_get_dir get_dir + constant master_file_stat = predef::file_stat; + constant master_get_dir = predef::get_dir;   #endif // FILE_STAT_CACHE         protected mapping(string:string) environment;      #ifdef __NT__   protected void set_lc_env (mapping(string:string) env)   {    environment = ([]);    foreach (env; string var; string val)