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.450 2008/06/29 12:33:23 agehall Exp $ + // $Id: master.pike.in,v 1.451 2008/08/14 13:14:10 mast 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:674:      //! Namespaces for compat masters.   //!   //! This inherit is used to provide compatibility namespaces   //! for @[get_compat_master()].   //!   //! @seealso   //! @[get_compat_master()]   protected inherit Pike_7_6_master;    - class CompatAllConstants (mapping(string:mixed) compat_overrides) - // Wrapper for the mapping returned by all_constants in compat mode. - { -  protected mixed `[] (string sym) -  { -  mixed val = compat_overrides[sym]; -  if (zero_type (val)) val = predef::all_constants()[sym]; -  return val; -  } -  protected mixed `-> (string sym) -  {return `[] (sym);} -  -  protected mixed `[]= (string sym, mixed val) -  {return predef::all_constants()[sym]= val;} -  protected mixed `->= (string sym, mixed val) -  {return `[]= (sym, val);} -  -  protected array(string) _indices() -  {return indices (predef::all_constants() | compat_overrides);} -  protected array(mixed) _values() -  {return values (predef::all_constants() | compat_overrides);} -  -  protected mapping `+ (mapping other) -  {return (predef::all_constants() | compat_overrides) + other;} -  protected mapping ``+ (mapping other) -  {return other + (predef::all_constants() | compat_overrides);} -  protected mapping `| (mapping other) -  {return (predef::all_constants() | compat_overrides) | other;} -  protected mapping ``| (mapping other) -  {return other | (predef::all_constants() | compat_overrides);} - } -  +    //! @appears error   //! Throws an error. A more readable version of the code   //! @expr{throw( ({ sprintf(f, @@args), backtrace() }) )@}.   void error(string f, mixed ... args) {    if (sizeof(args)) f = sprintf(f, @args);    throw( ({ f, backtrace()[..<1] }) );   }      // FIXME: Should the pikeroot-things be private?   #ifdef PIKE_FAKEROOT
pike.git/lib/master.pike.in:1718:    if (objectp (o)) {    m_delete(rev_objects, o);    }       foreach (fc; string name; mixed mod)    if (objectp(mod) && object_program(mod) == p)    if (m_delete (rev_fc, mod))    m_delete (fc, name);    else    fc[name] = no_value; +  +  // FIXME: Delete from caches in dirnodes and joinnodes.   }      protected program findprog(string pname,    string ext,    object|void handler,    void|int mkobj)   {    switch(ext)    {    case ".pike":
pike.git/lib/master.pike.in:2604:       array(object) _encode()    {    return joined_modules;    }       void _decode (array(object) joined_modules)    {    this_program::joined_modules = joined_modules;    } - }; + }      joinnode handle_import(string path, string|void current_file,    object|void current_handler)   {   #ifdef __amigaos__    if(path == ".")    path = "";   #endif    if(current_file)    {
pike.git/lib/master.pike.in:4815:    ENC_MSG("Got nonstring index %O for %O in %O.\n", id[0], child, parent);    return UNDEFINED;    }    error ("Got nonstring index %O for %O in %O.\n", id[0], child, parent);    }       return id;    }       protected string|array compare_resolved (string name, mixed what, -  mixed resolved, array(object) module_object) +  mixed resolved, +  array(object) module_object)    {    array append;       compare: {    if (resolved == what) {    ENC_MSG (" compare_resolved: %O is %O\n", what, resolved);    /* No need for anything advanced. resolv() does the job. */    return "r" + name;    }