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.397 2007/06/13 15:14:27 mbaehr Exp $ + // $Id: master.pike.in,v 1.398 2007/06/19 13:43:18 mbaehr 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:812:    {    prog = function_program(obj);    child = ((describe_function(obj)||"")/"->")[-1];    }    if (objectp(obj))    {    if (obj->is_resolv_joinnode)    obj = obj->joined_modules[0]; // FIXME: check for multiples    if (obj->is_resolv_dirnode)    prog = object_program(obj->module); +  else +  prog = object_program(obj);    }       -  if (!documentation[prog] && doc_extractor) +  if (prog && !documentation[prog] && doc_extractor)    {    string source; -  if (!source_cache || !source_cache[prog]) -  source = master_read_file(Builtin()->program_defined(prog)); -  else +  if (source_cache && source_cache[prog])    source = source_cache[prog]; -  +  else +  source = master_read_file(Builtin()->program_defined(prog)); +     if (source)    {    catch    {    documentation[prog] = doc_extractor(source, sprintf("%O", prog));    };    //FIXME: handle this error somehow    }    }