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.457 2008/09/14 11:18:30 grubba Exp $ + // $Id: master.pike.in,v 1.458 2008/09/14 12:19:36 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   
pike.git/lib/master.pike.in:725:   //! This interface is used for compatibility with   //! Pike 7.3 and 7.4.   //!   //! @deprecated predef::MasterObject   //!   //! @seealso   //! @[get_compat_master()], @[master()], @[predef::MasterObject]   protected class Pike_7_4_master   {    inherit Pike_7_2_master; -  local protected object Pike_7_4_compat_handler; +    #ifdef RESOLV_DEBUG    void resolv_debug (sprintf_format fmt, sprintf_args... args);   #endif    void error(sprintf_format f, sprintf_args ... args); -  + #ifdef GETCWD_CACHE +  protected extern string current_path; + #endif    constant no_value = (<>);    constant NoValue = typeof (no_value);    string programs_reverse_lookup (program prog);    program objects_reverse_lookup (object obj);    string fc_reverse_lookup (object obj);    // Hide clone() and new().    private local __deprecated__ object new(mixed prog, mixed ... args){}    private local __deprecated__(function) clone = new;    void unregister(program p);    program low_cast_to_program(string pname,    string current_file,    object|void handler,    void|int mkobj);    extern string include_prefix; -  +  extern mapping(string:string) predefines; +  extern CompatResolver parent_resolver;    void add_predefine (string name, string value);    void remove_predefine (string name);    mapping get_predefines();   #if constant(thread_create)    object backend_thread();   #endif    function(string:string) set_trim_file_name_callback(function(string:string) s);    int compile_exception (array|object trace);    string program_path_to_name ( string path,    void|string module_prefix,    void|string module_suffix,    void|string object_suffix );    string describe_module(object|program mod, array(object)|void ret_obj);    string describe_program(program|function p);    class Encoder {};    class Decoder {}; -  +  extern mapping(string:Codec) codecs; +  Codec get_codec(string|void fname, int|void mkobj); +  +  // The following come from the inherit of Codec. */ +  // Codec::Encoder: +  extern mixed encoded; +  string|array nameof (mixed what, void|array(object) module_object); +  mixed encode_object(object x); +  // Codec::Decoder: +  extern string fname; +  extern int mkobj; +  object __register_new_program(program p); +  object objectof (string|array what); +  function functionof (string|array what); +  program programof (string|array what); +  void decode_object(object o, mixed data); +     string _sprintf(int t); -  +  local protected object Pike_7_4_compat_handler;    local mixed resolv(string identifier, string|void current_file)    {    if (!Pike_7_4_compat_handler) {    Pike_7_4_compat_handler = global::get_compilation_handler(7, 4);    }    return Pike_7_4_compat_handler->resolv(identifier, current_file);    }    object get_compat_master(int major, int minor)    {    if ((major < 7) || ((major == 7) && (minor < 3)))    return Pike_7_2_master::get_compat_master(major, minor);    // 7.3 & 7.4    if ((major == 7) && (minor < 5))    return this_program::this;    return get_compat_master(major, minor);    } -  +  +  /* No missing symbols. */   }      //! Pike 7.6 master compatibility interface.   //!   //! Most of the interface is implemented via mixin,   //! or overloading by more recent masters.   //!   //! This interface is used for compatibility with   //! Pike 7.5 and 7.6.   //!