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.405 2007/11/15 16:26:47 mast Exp $ + // $Id: master.pike.in,v 1.406 2007/12/27 22:12:36 nilsson 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:636:    foreach (programs; string path; program|NoValue prog)    if (prog == no_value)    m_delete (programs, path);    else    rev_programs[prog] = path;    }    return rev_programs[prog];   }      program objects_reverse_lookup (object obj) - //! Returns the program for @[obj] in @[objects], if it got any. + //! Returns the program for @[obj], if known to the master.   {    if (sizeof (rev_objects) < sizeof (objects)) {    foreach (objects; program prog; object|NoValue obj)    if (obj == no_value)    m_delete (rev_objects, obj);    else    rev_objects[obj] = prog;    }    return rev_objects[obj];   }