| 1 | $! generates options file for vms link |
| 2 | $! p1 is filename and mode to open file (filename/write or filename/append) |
| 3 | $! p2 is delimiter separating elements of list in p3 |
| 4 | $! p3 is list of items to be written, one per line, into options file |
| 5 | $ |
| 6 | $ open file 'p1' |
| 7 | $ element=0 |
| 8 | $loop: |
| 9 | $ x=f$element(element,p2,p3) |
| 10 | $ if x .eqs. p2 then goto out |
| 11 | $ y=f$edit(x,"COLLAPSE") ! lose spaces |
| 12 | $! Expand potential name-only args so we find shareable images |
| 13 | $! either via a logical name or in the default location |
| 14 | $ if y .nes. "" .and. - |
| 15 | f$locate("/SHARE",f$edit(y,"UPCASE")) .ne. f$length(y) |
| 16 | $ then |
| 17 | $ name = f$element(0,"/",y) |
| 18 | $ tail = f$extract(f$length(name),1024,y) |
| 19 | $ if f$trnlnm(name) .eqs. "" ! If it's a logical name, assume it's OK as is |
| 20 | $ then |
| 21 | $ name = f$parse(name,"sys$share:.exe;") ! Look where image activator will |
| 22 | $ name = f$search(name) ! Does it really exist? |
| 23 | $ if name .nes. "" |
| 24 | $ then |
| 25 | $ name = name - f$parse(name,,,"version") ! Insist on current version |
| 26 | $ y = name + tail |
| 27 | $ endif |
| 28 | $ endif |
| 29 | $ endif |
| 30 | $ if y .nes. "" then write file y |
| 31 | $ element=element+1 |
| 32 | $ goto loop |
| 33 | $ |
| 34 | $out: |
| 35 | $ close file |
| 36 | $ exit |