FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
gnuplot/src/genopt.com at 5.4.8 · gnuplot/gnuplot · GitHub
gnuplot
gnuplot
Repository navigation
Code
Pull requests
2
(2)
Actions
Security and quality
Insights
Expand file tree
Breadcrumbs
gnuplot
/
src
/
genopt.com
Copy path
More file actions
More file actions
Latest commit
History
History
History
17 lines (17 loc) · 389 Bytes
Breadcrumbs
gnuplot
/
src
/
genopt.com
Copy path
File metadata and controls
17 lines (17 loc) · 389 Bytes
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
Back
|
FazBrowse Home
|
New Git URL