Return to genopt.com CVS log | Up to [local] / OpenXM_contrib / gnuplot |
File: [local] / OpenXM_contrib / gnuplot / Attic / genopt.com (download)
Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:00:50 2000 UTC (24 years, 8 months ago) by maekawa
Import gnuplot 3.7 |
$! generates options file for vms link $! p1 is filename and mode to open file (filename/write or filename/append) $! p2 is comma-seperated 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