pike.git/ lib/ master.pike.in

2007-06-12

2007-06-12 14:29:14 by Martin Bähr <mbaehr@email.archlab.tuwien.ac.at>

• 6f46aaed89db52a52753a35432bdb379082f6ca4 (24 lines) (+17/-7) ^{[ Show | Annotate ]}
  Branch: 7.9

cache_source for docs in compile_string and compile_file
don't cache sourceif filename is enough

fix display of doc output
better key-bindings for doc display

Rev: lib/master.pike.in:1.394
Rev: lib/modules/Tools.pmod/Hilfe.pmod:1.139

6:   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.393 2007/06/11 14:24:57 mbaehr Exp $ + // $Id: master.pike.in,v 1.394 2007/06/12 14:29:14 mbaehr Exp $      #pike __REAL_VERSION__   //#pragma strict_types
352:    void|object o,    void|int _show_if_constant_errors)   { -  return compile(cpp(source, filename||"-", 1, handler, +  program ret = compile(cpp(source, filename||"-", 1, handler,    compat_major, compat_minor,    (zero_type(_show_if_constant_errors)?    show_if_constant_errors:
362:    compat_minor,    p,    o); +  cache_source(ret, filename, source); +  return ret;   }      //!
508:    void|object o)   {    AUTORELOAD_CHECK_FILE(filename); -  return compile(cpp(master_read_file(filename), +  program ret = compile(cpp(master_read_file(filename),    filename,    1,    handler,
519:    compat_minor,    p,    o); +  cache_source(ret, filename); +  return ret;   }      
758:   //! extraction of documentation   static void cache_source(mixed ret, string fname, void|string source)   { -  if (documentation && !documentation[ret]) -  documentation[ret] = ([ "fname":fname, "source":source ]); +  if (documentation && !documentation[ret] && (fname||source)) +  { +  if (fname) +  documentation[ret] = ([ "fname":fname ]); +  else +  documentation[ret] = ([ "source":source ]);    } -  + }      //! Show documentation for the item @[obj]   //!
779:    if (functionp(obj))    {    prog = function_program(obj); -  child = (describe_function(obj)/"->")[-1]; +  child = ((describe_function(obj)||"")/"->")[-1];    }    if (objectp(obj))    {
940:    }    DEC_RESOLV_MSG_DEPTH();    resolv_debug ("low_findprog %s: compilation ok\n", fname); -  cache_source(ret, fname, src); +  cache_source(ret, fname);    break;      #if constant(load_module)