pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.97 2000/02/04 11:27:21 grubba Exp $ +  * $Id: master.pike.in,v 1.98 2000/02/04 16:35:46 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #define PIKE_AUTORELOAD   
pike.git/lib/master.pike.in:604:       if (module) {    foreach(indices(module), string index) {    cache[index] = module[index];    }    }       if( !files )    files = get_dir(dirname);    foreach(files, string fname) { -  catch { +  mixed err = catch {    if (((< ".pike", ".pmod" >)[fname[sizeof(fname)-5..]]) &&    !zero_type(`[](fname[..sizeof(fname)-6]))) {    continue; -  } -  }; -  catch { -  if ((fname[sizeof(fname)-3..] == ".so") && +  } else if ((fname[sizeof(fname)-3..] == ".so") &&    !zero_type(`[](fname[..sizeof(fname)-4]))) {    continue;    }    }; -  +  if (err) { +  compile_warning(dirname+"."+fname, 0, +  sprintf("Compilation failed:\n" +  "%s\n", +  describe_backtrace(err)));    } -  +  }    _cache_full = 1;    }    array(string) _indices()    {    fill_cache();    return indices(filter(cache, lambda(mixed x){ return x!=0; }));    }    array(mixed) _values()    {    fill_cache();