Return to genopt.com CVS log

Up to [local] / OpenXM_contrib / gnuplot

Annotation of OpenXM_contrib/gnuplot/genopt.com, Revision 1.1.1.2

1.1       maekawa     1: $! generates options file for vms link
                      2: $! p1 is filename and mode to open file (filename/write or filename/append)
1.1.1.2 ! ohara       3: $! p2 is comma-separated list of files
1.1       maekawa     4: $
                      5: $ open file 'p1'
                      6: $ element=0
                      7: $loop:
                      8: $ x=f$element(element,",",'p2')
                      9: $ if x .eqs. "," then goto out
                     10: $ y=f$edit(x,"COLLAPSE")  ! lose spaces
                     11: $ if y .nes. "" then write file y
                     12: $ element=element+1
                     13: $ goto loop
                     14: $
                     15: $out:
                     16: $ close file
                     17: $ exit