X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fgenopt.com;h=77d295f212baf7f41c2900061df471775c2503a7;hb=2e038148849ab01588058f0158033f74c84f47f5;hp=3d3e5fe5df66cbd19efd7383112be355679e9861;hpb=71be2cbc73608e37e1a2ab7e459a02111137d1b0;p=p5sagit%2Fp5-mst-13.2.git diff --git a/vms/genopt.com b/vms/genopt.com index 3d3e5fe..77d295f 100644 --- a/vms/genopt.com +++ b/vms/genopt.com @@ -2,7 +2,7 @@ $! generates options file for vms link $! p1 is filename and mode to open file (filename/write or filename/append) $! p2 is delimiter separating elements of list in p3 $! p3 is list of items to be written, one per line, into options file -$ +$! $ open file 'p1' $ element=0 $loop: @@ -30,7 +30,7 @@ $ endif $ if y .nes. "" then write file y $ element=element+1 $ goto loop -$ +$! $out: $ close file $ exit