Annotation of OpenXM_contrib/gnuplot/genopt.com, Revision 1.1
1.1 ! maekawa 1: $! generates options file for vms link
! 2: $! p1 is filename and mode to open file (filename/write or filename/append)
! 3: $! p2 is comma-seperated list of files
! 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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>