Initial release of Maemo 5 port of gnuplot

[gnuplot] / src / genopt.com

diff --git a/src/genopt.com b/src/genopt.com
new file mode 100644 (file)
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