d $! DO	ZLIB {Program_source .or. ALL}	!!Used by System Manager
È $!		This should create or update SCI_LIB:SCILIB.OLB
,$!
$!	This takes one, or all the files from SCI_LIB, compiles
ô$! or assembles them, and then adds them to SCI_LIB:SCILIB.OLB
X$! to create a new system library.
¼$!
 $! -end.of.info-
„$
è$ scilib := 'f$logical("SCI_LIB")
L$ if(p1.eqs."") then inquire p1 "ALL or Program"
°$ if(p1.eqs."") then exit
$ prog := *
x$ if( p1.nes."ALL" ) then prog := 'p1
Ü$
@$ zmode := 'f$mode()
¤$ dir/full/out=UPLIB.VX 'scilib''prog'.for,'scilib''prog'.mar
$ assign/user nl: sys$output
l$ edit UPLIB.VX
Ðk/2
4$
˜$ open/read ztemp UPLIB.VX
ü$ on error then goto finUPLIB
`	$ on control then goto finUPLIB
Ä	$
(
$ if( p1.eqs."ALL" ) then delete 'scilib'SCILIB.OLB;*
Œ
$ if( p1.eqs."ALL" ) then LIB 'scilib'SCILIB.OLB/create
ð
$
T$nxsour:
¸$ on error then goto badmod
$ read/err=finUPLIB ztemp line
€$ inx = 'f$locate( ".FOR",line )
ä$ if( inx .ge. 'f$length(line) ) then goto notfor
H$  name := 'f$extract(0,inx,line)
¬$  if( zmode.nes."BATCH") then write sys$output "_FOR ",name
$  FORT/nolist 'scilib''name
t$  goto dolib
Ø$
<$notfor:
 $ inx = 'f$locate( ".MAR",line )
$ if( inx .ge. 'f$length(line) ) then goto nxsour
h$  name := 'f$extract(0,inx,line)
Ì$  if( zmode.nes."BATCH") then write sys$output "_MAR ",name
0$  MACR/nolist 'scilib''name
”$  goto dolib
ø$
\$dolib:
À$  if( zmode.nes."BATCH") then write sys$output "_lib ",name
$$  LIBRARY 'scilib'SCILIB.OLB 'name
ˆ$  DELETE 'name'.obj;*
ì$  goto nxsour
P$
´$badmod:
$  write sys$output "*Bad Module ",name," ************"
|$  goto nxsour
à$
D$finUPLIB:
¨$ close ztemp
$ delete UPLIB.VX;*