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.357 2004/07/14 11:01:48 grubba Exp $ + // $Id: master.pike.in,v 1.358 2004/07/14 12:53:55 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:1154:   object low_cast_to_object(string oname, string current_file,    object|void current_handler)   {    program p;    object o;       p = low_cast_to_program(oname, current_file, current_handler, 1);    if(!p) return 0;    // NB: p might be a function in a fake_object...    if(!objectp (o=objects[p])) o=objects[p]=p(); -  if (has_suffix(oname, "Identifiers.pmod")) { -  werror(sprintf("short_name_ids:%O\n", o["short_name_ids"])); -  } +     return o;   }      //! This function is called when the drivers wants to cast a string   //! to an object because of an implict or explicit cast. This function   //! may also receive more arguments in the future.   object cast_to_object(string oname, string current_file,    object|void current_handler)   {    resolv_debug ("cast_to_object(%O, %O)\n", oname, current_file);