pike.git / lib / mklibtests.pike

version» Context lines:

pike.git/lib/mklibtests.pike:1:   //   // Creates testsuit files form the testsuit.in files   // found in the lib directory. - // $Id: mklibtests.pike,v 1.2 2002/08/03 12:23:10 nilsson Exp $ + // $Id: mklibtests.pike,v 1.3 2002/08/03 13:46:27 nilsson Exp $   //      string src_dir;   string dest_dir;   string bin_dir;      mapping(string:string) make_vars;      void recurse(string path) {    foreach(get_dir(src_dir+path), string fn) {
pike.git/lib/mklibtests.pike:25:       recurse(path+fn+"/");    continue;    }       if(fn!="testsuite.in") continue;       ds = file_stat(dest_dir+path+"testsuite");    if(!ds || ds->mtime<ls->mtime) {    object f; -  if(catch(Stdio.File(dest_dir+path+"testsuite", "cwt"))) { +  if(catch(f=Stdio.File(dest_dir+path+"testsuite", "cwt"))) {    werror("Could not create %s\n", dest_dir+path+"testsuite");    continue;    }    Process.create_process( ({ combine_path(bin_dir,    "mktestsuite"),    src_dir+path+fn }),    ([ "stdout":f ]) )->wait();    write("%stestsuite updated.\n", path);    }    else