pike.git/ lib/ master.pike.in

1998-04-24

1998-04-24 18:18:49 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 471ed9e95a391f994a934555cfdfd4abdabc67c5 (110 lines) (+92/-18) ^{[ Show | Annotate ]}
  Branch: 7.9

optimized and fixed

Rev: lib/master.pike.in:1.19

1: - /* $Id: master.pike.in,v 1.18 1998/04/23 18:35:55 marcus Exp $ + /* $Id: master.pike.in,v 1.19 1998/04/24 18:18:49 hubbe Exp $    *    * Master-file for Pike.    *
11:    p=replace(p,"\\","/");    if(sscanf(p,"%[a-zA-Z]:",string s) && sizeof(s)==1)    return 1; + #define IS_ABSOLUTE_PATH is_absolute_path + #else + #define IS_ABSOLUTE_PATH(X) ((X)[0]=='/')   #endif    return p[0]=='/';   }
19:   {   #ifdef __NT__    p=replace(p,"\\","/"); + #define EXPLODE_PATH(X) (replace((X),"\\","/")/"/") + #else + #define EXPLODE_PATH(X) ((X)/"/")   #endif    return p/"/";   }      string dirname(string x)   { -  string *tmp=explode_path(x); +  string *tmp=EXPLODE_PATH(x);    return tmp[..sizeof(tmp)-2]*"/";   }      string basename(string x)   { -  string *tmp=explode_path(x); +  string *tmp=EXPLODE_PATH(x);    return tmp[-1];   } -  + #define DIRNAME dirname + #define BASENAME(X) (EXPLODE_PATH(X)[-1])    -  +    #define GETCWD_CACHE   #define FILE_STAT_CACHE   
77:      string combine_path_with_cwd(string path)   { -  return combine_path(is_absolute_path(path)?"/":getcwd(),path); +  return combine_path(IS_ABSOLUTE_PATH(path)?"/":getcwd(),path);   }      #ifdef FILE_STAT_CACHE
91:   {    string file, dir=combine_path_with_cwd(x);    -  file=basename(dir); -  dir=dirname(dir); +  file=BASENAME(dir); +  dir=DIRNAME(dir);       multiset(string) d;    if(time() > invalidate_time)
186:    array s;    string fname=pname+ext;    if(ret=programs[fname]) return ret; -  if( (s=master_file_stat(fname)) -  && s[1]>=0 ) +  if( (s=master_file_stat(fname)) && s[1]>=0 )    {    switch(ext)    {    case "":    case ".pike": -  +  if( (s=master_file_stat(fname+".o")) && s[1]>=0 ) +  { +  mixed err=catch { +  return decode_value(_static_modules.files()->Fd(fname+".o","r")->read(),Codec()); +  }; +  if(want_warnings) +  werror("Failed to decode %s.o\n",fname); +  }    if ( mixed e=catch { ret=compile_file(fname); } )    {    if(arrayp(e) &&
244:   {    string ext;    string nname; -  array(string) tmp=explode_path(pname); +  array(string) tmp=EXPLODE_PATH(pname);       if(sscanf(reverse(tmp[-1]),"%s.%s",ext, nname))    {
254:    }else{    ext="";    } -  if(is_absolute_path(pname)) +  if(IS_ABSOLUTE_PATH(pname))    {    pname=combine_path("/",pname);    return findprog(pname,ext);
262:    string cwd;    if(current_file)    { -  cwd=dirname(current_file); +  cwd=DIRNAME(current_file);    }else{    cwd=getcwd();    }
449:    string *tmp,path;    if(current_file)    { -  tmp=explode_path(current_file); +  tmp=EXPLODE_PATH(current_file);    tmp[-1]=what;    path=combine_path_with_cwd( tmp*"/");    }
499:       add_constant("write",_static_modules.files()->_stdout->write);    -  add_program_path(getcwd()); // Rather important /Per -  +     // add path for architecture-shared files    add_include_path("¤share_prefix¤/include");    add_module_path("¤share_prefix¤/modules");
623:    argv=argv[1..];    }    +  argv[0]=combine_path_with_cwd(argv[0]);    program tmp=(program)argv[0];       if(!tmp)
656:      string trim_file_name(string s)   { -  if(getenv("SHORT_PIKE_ERRORS")) return basename(s); +  if(getenv("SHORT_PIKE_ERRORS")) return BASENAME(s);    return s;   }   
708:       if(local_include)    { -  tmp=explode_path(current_file); +  tmp=EXPLODE_PATH(current_file);    tmp[-1]=f;    path=combine_path_with_cwd(tmp*"/");    }
767:    if(s=search(programs,p))    {    if(sscanf(reverse(s),"%s.%s",string ext,string rest) && ext=="domp") -  return explode_path(reverse(rest))[-1]; +  return EXPLODE_PATH(reverse(rest))[-1];    return s;    }   
857:       return ret;   } +  +  + class Codec + { +  mapping f=all_constants(); +  +  string nameof(mixed x) +  { +  if(mixed tmp=search(f,x)) +  return "efun:"+tmp; +  +  switch(sprintf("%t",x)) +  { +  case "program": +  if(mixed tmp=search(programs,x)) +  return tmp; +  +  if(mixed tmp=search(values(_static_modules), x)) +  return "_static_modules."+(indices(_static_modules)[tmp]); +  break; +  +  case "object": +  if(mixed tmp=search(objects,x)) +  if(tmp=search(programs,tmp)) +  return tmp; +  break; +  } +  return ([])[0]; +  } +  +  function functionof(string x) +  { +  if(sscanf(x,"efun:%s",x)) return f[x]; +  return 0; +  } +  +  object objectof(string x) +  { +  if(sscanf(x,"efun:%s",x)) return f[x]; +  return (object)x; +  } +  +  program programof(string x) +  { +  if(sscanf(x,"efun:%s",x)) return f[x]; +  +  return (program)x; +  } +  +  mixed encode_object(object x) +  { +  error("Cannot encode objects yet.\n"); +  } +  +  +  mixed decode_object(object x) +  { +  error("Cannot encode objects yet.\n"); +  } + }