pike.git/ lib/ master.pike.in

2000-05-07

2000-05-07 00:39:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 14bb598e8ee57bf016546ace2016a972bce9a9a6 (19 lines) (+14/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

allow one cyclic recursion when resolving identifiers

Rev: lib/master.pike.in:1.117
Rev: src/builtin_functions.c:1.273
Rev: src/cyclic.c:1.4
Rev: src/las.c:1.177
Rev: src/opcodes.c:1.75
Rev: src/program.c:1.236

1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.116 2000/04/13 18:54:16 per Exp $ +  * $Id: master.pike.in,v 1.117 2000/05/07 00:39:52 hubbe Exp $    *    * Master-file for Pike.    *
589:   class dirnode   {    string dirname; -  mixed module; +  mixed module=module_checker();    mapping(string:mixed) cache=([]);    array(string) files;       void create(string name)    {    dirname=name; -  +  }    -  +  class module_checker +  { +  int `!() +  { +  module=0;    if(module=findmodule(dirname+"/module"))    if(mixed tmp=module->_module_value)    module=tmp; -  +  return !module;    } -  +  }       static mixed ind(string index)    {