pike.git/ lib/ master.pike.in

2000-02-04

2000-02-04 16:35:46 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 0e68e6651e7ad9d8848a39763e33269b994f23b6 (16 lines) (+10/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Now with warnings from dirnode->_indices() et al.

Rev: lib/master.pike.in:1.98

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.    *
611:    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()