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.460 2008/10/12 21:55:33 mast Exp $ + // $Id: master.pike.in,v 1.461 2009/03/05 11:44:17 grubba Exp $      #pike __REAL_VERSION__   //#pragma strict_types    - // Some programs destroys character pairs beginning with the currency - // symbol when running in chinese locale. - #if "¤/" != "\244/" - #error "master.pike.in is corrupted." - #endif -  +    //! @appears predef::MasterObject   //!   //! Master control program for Pike.   //!   //! @seealso   //! @[predef::master()], @[predef::replace_master()]      // --- Some configurable parameters      #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:156:   //! @deprecated predef::MasterObject   //!   //! @seealso   //! @[get_compat_master()], @[master()], @[predef::MasterObject]   protected class Pike_0_5_master   {    string describe_backtrace(array(mixed) trace);    object low_cast_to_object(string oname, string current_file);    extern array(string) pike_include_path;    string pike_library_path = - #if "¤lib_prefix¤"[0]!='¤' -  "¤lib_prefix¤" + #if "#lib_prefix#"[0]!='#' +  "#lib_prefix#"   #else    __DIR__   #endif    ;    extern array(string) pike_module_path;    extern array(string) pike_program_path;   #ifdef GETCWD_CACHE    extern string current_path;    int cd(string s);    string getcwd();
pike.git/lib/master.pike.in:2082:    add_constant("get_dir", master_get_dir );    add_constant("file_stat", lambda( string f, int|void d ) { return file_stat(f,d);} );      #define CO(X) add_constant(#X,Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);    CO(find_call_out);    CO(remove_call_out);    CO(call_out_info);    - #if "¤share_prefix¤"[0]!='¤' + #if "#share_prefix#"[0]!='#'    // add path for architecture-independant files -  add_include_path("¤share_prefix¤/include"); -  add_module_path("¤share_prefix¤/modules"); +  add_include_path("#share_prefix#/include"); +  add_module_path("#share_prefix#/modules");   #endif    - #if "¤lib_prefix¤"[0]!='¤' + #if "#lib_prefix#"[0]!='#'    // add path for architecture-dependant files -  add_include_path("¤lib_prefix¤/include"); -  add_module_path("¤lib_prefix¤/modules"); +  add_include_path("#lib_prefix#/include"); +  add_module_path("#lib_prefix#/modules");   #endif    - #if "¤cflags¤ "[0]!='¤' -  cflags = "¤cflags¤"; + #if "#cflags# "[0]!='#' +  cflags = "#cflags#";   #endif    - #if "¤ldflags¤ "[0]!='¤' -  ldflags = "¤ldflags¤"; + #if "#ldflags# "[0]!='#' +  ldflags = "#ldflags#";   #endif    - #if "¤include_prefix¤"[0]!='¤' -  include_prefix = "¤include_prefix¤"; + #if "#include_prefix#"[0]!='#' +  include_prefix = "#include_prefix#";    cflags = (cflags || "") + " -I" + dirname(include_prefix);   #endif    - #if "¤doc_prefix¤"[0]!='¤' -  doc_prefix = "¤doc_prefix¤"; + #if "#doc_prefix#"[0]!='#' +  doc_prefix = "#doc_prefix#";   #endif      #if constant(__embedded_resource_directory)    // for use with embedded interpreters    // add path for architecture-dependant files    add_include_path(__embedded_resource_directory + "/lib/include");    add_module_path(__embedded_resource_directory + "/lib/modules");    add_module_path(__embedded_resource_directory + "/" + replace(uname()->machine, " ", "_") + "/modules");      #endif
pike.git/lib/master.pike.in:5592:    return 0;    }       CompatResolver ret;       if(!zero_type(ret=compat_handler_cache[v])) return ret;       array(string) files;    array(Version) available=({});    - #if "¤share_prefix¤"[0]!='¤' -  if (!(files = master_get_dir("¤share_prefix¤"))) { + #if "#share_prefix#"[0]!='#' +  if (!(files = master_get_dir("#share_prefix#"))) {    werror ("Error listing directory %O: %s\n", -  "¤share_prefix¤", strerror (errno())); +  "#share_prefix#", strerror (errno()));    files = ({});    }    foreach(files, string ver)    {    if(sscanf(ver,"%d.%d",int maj, int min))    {    Version x=Version(maj, min) ;    if(x >= v)    available|=({ x });    }    }   #endif    - #if "¤lib_prefix¤"[0]!='¤' -  if (!(files = master_get_dir("¤lib_prefix¤"))) { + #if "#lib_prefix#"[0]!='#' +  if (!(files = master_get_dir("#lib_prefix#"))) {    werror ("Error listing directory %O: %s\n", -  "¤lib_prefix¤", strerror (errno())); +  "#lib_prefix#", strerror (errno()));    files = ({});    }    foreach(files, string ver)    {    if(sscanf(ver,"%d.%d",int maj, int min))    {    Version x=Version(maj, min) ;    if(x >= v)    available|=({ x });    }
pike.git/lib/master.pike.in:5663:    if (!compat_handler) {    // Create a new compat handler, that    // falls back to the successor version.    if (tmp <= Version(0, 6)) {    compat_handler = Pike06Resolver(tmp, ret);    } else {    compat_handler = CompatResolver(tmp, ret);    }       string base; - #if "¤lib_prefix¤"[0]!='¤' -  base=combine_path("¤lib_prefix¤",sprintf("%s",tmp)); + #if "#lib_prefix#"[0]!='#' +  base=combine_path("#lib_prefix#",sprintf("%s",tmp));    compat_handler->add_module_path(combine_path(base,"modules"));    compat_handler->add_include_path(combine_path(base,"include"));   #endif    - #if "¤share_prefix¤"[0]!='¤' -  base=combine_path("¤share_prefix¤",sprintf("%s",tmp)); + #if "#share_prefix#"[0]!='#' +  base=combine_path("#share_prefix#",sprintf("%s",tmp));    compat_handler->add_module_path(combine_path(base,"modules"));    compat_handler->add_include_path(combine_path(base,"include"));   #endif       // Kludge to avoid(?) recursive compilation problems. It was    // observed with a pike program containing    //    // #if constant (__builtin.security)    // #endif    //