pike.git
/
lib
/
mklibtests.pike
version
»
Context lines:
10
20
40
80
file
none
3
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