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.379 2005/11/09 16:26:22 grubba Exp $ + // $Id: master.pike.in,v 1.380 2005/11/14 19:56:18 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:    }    return rev_programs[prog];   }      program objects_reverse_lookup (object obj)   //! Returns the program for @[obj] in @[objects], if it got any.   {    if (sizeof (rev_objects) < sizeof (objects)) {    foreach (objects; program prog; object|NoValue obj)    if (obj == no_value) -  m_delete (objects, obj); +  m_delete (rev_objects, obj);    else    rev_objects[obj] = prog;    }    return rev_objects[obj];   }      string fc_reverse_lookup (object obj)   //! Returns the path for @[obj] in @[fc], if it got any.   {    if (sizeof (rev_fc) < sizeof (fc)) {