diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-29 19:38:09 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2013-12-29 19:38:09 +0200 |
| commit | a26ea21bba35f0118c7d5c4414c6f6c7fa74b16b (patch) | |
| tree | 94991ccaf7e818be602a349a66530640158fb765 /test | |
| parent | 434a743610b2856078b120cb50bfe92155f8c49c (diff) | |
| download | egawk-a26ea21bba35f0118c7d5c4414c6f6c7fa74b16b.tar.gz egawk-a26ea21bba35f0118c7d5c4414c6f6c7fa74b16b.tar.bz2 egawk-a26ea21bba35f0118c7d5c4414c6f6c7fa74b16b.zip | |
Enable compiling extensions on VMS.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 4 | ||||
| -rw-r--r-- | test/fts.awk | 24 |
2 files changed, 25 insertions, 3 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 378c6ae3..dd73cbc6 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,7 @@ +2013-12-29 John E. Malmberg <wb8tyw@qsl.net> + + * fts.awk: Adjust for VMS. + 2013-12-10 Arnold D. Robbins <arnold@skeeve.com> * Makefile.am: Remove instances of "" that were incorrect. diff --git a/test/fts.awk b/test/fts.awk index a1b49cbd..d2e55cab 100644 --- a/test/fts.awk +++ b/test/fts.awk @@ -3,8 +3,19 @@ BEGIN { Level = 0 - system("rm -fr d1 d2") - system("mkdir d1 d2 ; touch d1/f1 d1/f2 d2/f1 d2/f2") + os = "" + if (ENVIRON["AWKLIBPATH"] == "sys$disk:[-]") { + os = "VMS" + system("create/dir/prot=o:rwed [.d1]") + system("create/dir/prot=o:rwed [.d2]") + system("copy fts.awk [.d1]f1") + system("copy fts.awk [.d1]f2") + system("copy fts.awk [.d2]f1") + system("copy fts.awk [.d2]f2") + } else { + system("rm -fr d1 d2") + system("mkdir d1 d2 ; touch d1/f1 d1/f2 d2/f1 d2/f2") + } pathlist[1] = "d1" pathlist[2] = "d2" flags = FTS_PHYSICAL @@ -19,7 +30,14 @@ BEGIN { traverse(data2) close(output) - system("rm -fr d1 d2") + if (os == "VMS") { + system("delete [.d1]*.*;*") + system("delete [.d2]*.*;*") + system("delete d1.dir;*") + system("delete d2.dir;*") + } else { + system("rm -fr d1 d2") + } } function indent( i) |