pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // This file is part of Pike. For copyright information see COPYRIGHT.   // Pike is distributed under GPL, LGPL and MPL. See the file COPYING   // for more information.   // - // $Id: master.pike.in,v 1.302 2003/09/19 10:14:56 grubba Exp $ + // $Id: master.pike.in,v 1.303 2003/09/19 13:24:02 grubba Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:1047:    mapping(string:array(string)) file_paths = ([]);      #ifdef __NT__   #define FIX_CASE(X) lower_case(X)   #else   #define FIX_CASE(X) (X)   #endif /* __NT__ */       static string base_from_filename(string fname)    { -  fname = FIX_CASE(fname); -  if (has_prefix(fname, ".#")) return 0; -  if (has_suffix(fname, ".pike") || -  has_suffix(fname, ".pmod")) { +  string low_name = FIX_CASE(fname); +  if (has_prefix(low_name, ".#")) return 0; +  if (has_suffix(low_name, ".pike") || +  has_suffix(low_name, ".pmod")) {    return fname[..sizeof(fname)-6];    } -  if (has_suffix(fname, ".so")) { +  if (has_suffix(low_name, ".so")) {    return fname[..sizeof(fname)-4];    }    return 0;    }       static int prio_from_filename(string fname)    {    fname = FIX_CASE(fname);    if (has_suffix(fname, ".pmod")) return 3;    if (has_suffix(fname, ".so")) return 2;
pike.git/lib/master.pike.in:1076:    // FIXME: Warn here?    return 0;    }       static void create(string d, object|void h)    {    resolv_debug ("dirnode(%O,%O) created\n",d,h);    dirname=d;    compilation_handler=h;    fc[dirname]=this_object(); -  if(has_suffix(FIX_CASE(dirname),".pmod")) +  if(has_suffix(FIX_CASE(dirname),".pmod")) {    fc[dirname[..sizeof(dirname)-6]]=this_object(); -  +  }    array(string) files = sort(get_dir(d)||({}));    if (!sizeof(d)) return;    array(string) bases = map(files, base_from_filename);    files = filter(files, bases);    bases = filter(bases, bases);    resolv_debug("dirnode(%O,%O) got %d files.\n",    d, h, sizeof(bases));    if (!sizeof(files)) return;       foreach(files; int no; string fname) {