pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   /* -*- Pike -*-    * -  * $Id: master.pike.in,v 1.152 2001/11/09 14:06:49 mast Exp $ +  * $Id: master.pike.in,v 1.153 2001/11/12 13:37:59 mast Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */      // Some configurable parameters useful for debugging      #pike __REAL_VERSION__   #define PIKE_AUTORELOAD
pike.git/lib/master.pike.in:745:       static mixed ind(string index)    {    if(module)    {    mixed o;    if(!zero_type(o=module[index])) return o;    }       if( !files ) -  files = get_dir(fakeroot(dirname)); +  if (!(files = get_dir(fakeroot(dirname)))) { +  werror ("Error listing module directory %O: %s\n", +  dirname, strerror (errno())); +  files = ({}); +  }       int ret;    foreach( files, string s )    {    if( search(s, index)!=-1 || search(index,s)!=-1 )    {    ret=1;    break;    }    }
pike.git/lib/master.pike.in:799:    return;    }       if (module) {    foreach(indices(module), string index) {    cache[index] = module[index];    }    }       if( !files ) -  files = get_dir(fakeroot(dirname)); +  if (!(files = get_dir(fakeroot(dirname)))) { +  werror ("Error listing module directory %O: %s\n", +  dirname, strerror (errno())); +  files = ({}); +  } +     foreach(files, string fname) {    mixed err = catch {    if (((< ".pike", ".pmod" >)[fname[sizeof(fname)-5..]]) &&    !zero_type(`[](fname[..sizeof(fname)-6]))) {    continue;    } else if ((fname[sizeof(fname)-3..] == ".so") &&    !zero_type(`[](fname[..sizeof(fname)-4]))) {    continue;    }    };
pike.git/lib/master.pike.in:2046:       if((arrayp(trace) && sizeof(trace)==2 && stringp(trace[0])) ||    (objectp(trace) && trace->is_generic_error))    {    if (catch {    ret = trace[0] || "No error message!\n";    trace = trace[1];    }) {    return "Error indexing backtrace!\n";    } -  }else{ +  }else +  if (!arrayp (trace)) +  ret = sprintf ("Unrecognized backtrace format: %O\n", trace); +  else    ret=""; -  } +        if(!arrayp(trace))    {    ret+="No backtrace.\n";    }else{    Describer desc = Describer();    desc->identify_parts (trace);       int end = 0;    if( (sizeof(trace)>1) &&
pike.git/lib/master.pike.in:2332:    Version v=Version(major,minor);       if(v > currentversion)    {    /* do we want to make an error if major.minor > __MAJOR__.__MINOR ? */    return 0;    }       if(!zero_type(ret=compat_handler_cache[v])) return ret;    +  array files;    array(Version) available=({});      #if "¤share_prefix¤"[0]!='¤' -  foreach(get_dir("¤share_prefix¤"), string ver) +  if (!(files = get_dir("¤share_prefix¤"))) { +  werror ("Error listing directory %O: %s\n", +  "¤share_prefix¤", strerror (errno())); +  files = ({}); +  } +  foreach(files, string ver)    {    if(sscanf(ver,"%d.%d",int maj, int min))    {    Version x=Version(maj, min) ;    if(x >= v)    available|=({ x });    }    }   #endif      #if "¤lib_prefix¤"[0]!='¤' -  foreach(get_dir("¤lib_prefix¤"), string ver) +  if (!(files = get_dir("¤lib_prefix¤"))) { +  werror ("Error listing directory %O: %s\n", +  "¤lib_prefix¤", strerror (errno())); +  files = ({}); +  } +  foreach(files, string ver)    {    if(sscanf(ver,"%d.%d",int maj, int min))    {    Version x=Version(maj, min) ;    if(x >= v)    available|=({ x });    }    }   #endif