Branch: Tag:

2000-02-04

2000-02-04 11:27:21 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Indexing of a joinnode can return a program too.

Rev: lib/master.pike.in:1.97

1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.96 2000/01/27 23:07:27 hubbe Exp $ +  * $Id: master.pike.in,v 1.97 2000/02/04 11:27:21 grubba Exp $    *    * Master-file for Pike.    *
650:    joined_modules = _joined_modules;    }    -  static object|mapping ind(string index) +  static object|mapping|program ind(string index)    {    array(mixed) res = ({});    foreach(joined_modules, object|mapping o)
678:    return UNDEFINED;    }    -  object|mapping `[](string index) +  object|mapping|program `[](string index)    { -  object|mapping ret; +  object|mapping|program ret;    if (!zero_type(ret = cache[index])) {    if (ret != ZERO_TYPE) {    return ret;
705:    if (_cache_full) {    return;    } -  foreach(joined_modules, object|mapping o) { +  foreach(joined_modules, object|mapping|program o) {    foreach(indices(o), string index) {    if (zero_type(cache[index])) {    `[](index);
1101:   }      /* -  * This function is called whenever a compiling error occurs, +  * This function is called whenever a compiling error occurs.    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.
1131:   }      /* -  * This function is called whenever a compiling error occurs, +  * This function is called whenever a compiling warning occurs.    * Nothing strange about it.    * Note that previous_object cannot be trusted in ths function, because    * the compiler calls this function.