diff options
| author | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2014-06-24 13:18:33 +0200 |
|---|---|---|
| committer | Juergen Kahrs <Juergen.Kahrs@googlemail.com> | 2014-06-24 13:18:33 +0200 |
| commit | f1245d04a9f076773c60499b468f44ed9c91b59b (patch) | |
| tree | 2b49234400150bfaac7ebf8c017562300edc7471 /vms/gawk_verb.com | |
| parent | ee9707cc44eea3ca64cb71666ac3e8ed26a3bb7f (diff) | |
| parent | 78ded8ee8f11a321c96417e7d02dac2f5723a221 (diff) | |
| download | egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.tar.gz egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.tar.bz2 egawk-f1245d04a9f076773c60499b468f44ed9c91b59b.zip | |
Merge remote-tracking branch 'origin/master' into cmake
Diffstat (limited to 'vms/gawk_verb.com')
| -rw-r--r-- | vms/gawk_verb.com | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/vms/gawk_verb.com b/vms/gawk_verb.com new file mode 100644 index 00000000..b74c49ed --- /dev/null +++ b/vms/gawk_verb.com @@ -0,0 +1,26 @@ +$! gawk_verb.com - build the gawk_verb.cld from the gawk.cld. +$! +$! The CLD file needed to modify a DCL command table is different +$! from the CLD file needed to build the product by specifying an image. +$! +$! So read in the [.vms]gawk.cld and generate a gawk_verb.cld. +$! +$! 23-Dec-2012 - J. Malmberg +$! +$outfile = "sys$disk:[]gawk_verb.cld" +$infile = "[.vms]gawk.cld" +$open/read cld 'infile' +$create 'outfile' +$open/append cldv 'outfile' +$loop: +$read cld/end=loop_end line_in +$if f$locate("image gawk", line_in) .lt. f$length(line_in) +$then +$ write cldv " image gnv$gnu:[bin]gnv$gawk" +$ goto loop +$endif +$write cldv line_in +$goto loop +$loop_end: +$close cldv +$close cld |