X-Git-Url: http://git.maemo.org/git/?p=gnuplot;a=blobdiff_plain;f=src%2Fgenopt.com;fp=src%2Fgenopt.com;h=6ad04e0f4aa226296c71224760053d46646e5721;hp=0000000000000000000000000000000000000000;hb=39ec1247a71f61152a4a7f502a30f06a3896c5da;hpb=06be459be4f5f6a7c6ff878e84f355fb2575caa8

diff --git a/src/genopt.com b/src/genopt.com
new file mode 100644
index 0000000..6ad04e0
--- /dev/null
+++ b/src/genopt.com
@@ -0,0 +1,17 @@
+$! generates options file for vms link
+$! p1 is filename and mode to open file (filename/write or filename/append)
+$! p2 is comma-separated list of files
+$
+$ open file 'p1'
+$ element=0
+$loop:
+$ x=f$element(element,",",'p2')
+$ if x .eqs. "," then goto out
+$ y=f$edit(x,"COLLAPSE")  ! lose spaces
+$ if y .nes. "" then write file y
+$ element=element+1
+$ goto loop
+$
+$out:
+$ close file
+$ exit