$! VMAKCR.COM
$!
$! Make RMS run-time library for C programs.
$! This command file requires an existing OU:C.OLB.  It
$! replaces modules which have been changed for RMS
$!
$! Note that there is a further change to CR.OLB for P/OS
$! in the CTEXLIB directory.  Files in this library (should)
$! be suitable for any rms-only system.
$!
$! Assignments:
$! OU:	C:			Library output
$! SR:	[]			Source files
$!
$! The following hack is needed because I normally
$! point lb: to sys$library:
$!
$	foo = "''f$logical("LB")'"
$	if foo .nes. "" .and. "''f$extract(0,1,foo)'" .nes. "_" then -
		deassign lb:
$!
$	was_verify = 'f$verify(1)
$	assign lb:[001,005]				rms:
$	assign C:					ou:
$	assign 'f$logical("SYS$DISK")''f$directory()'	sr:
$!
$	copy ou:c.olb ou:cr.olb			! Initialize library
$	mcr pma delete=rms:rmsmac/ml,sr:rmrsx,sr:delete
$	mcr lbr 			ou:cr=delete/rp
$	mcr pma fclose=rms:rmsmac/ml,sr:rmrsx,fclose
$	mcr lbr				ou:cr=fclose/rp
$	mcr pma fgetna=rms:rmsmac/ml,sr:rmrsx,fgetna
$	mcr lbr				ou:cr=fgetna/rp
$	mcr pma fopen=rms:rmsmac/ml,sr:rmrsx,fopen
$	mcr lbr				ou:cr=fopen/rp
$	mcr pma fpar=rms:rmsmac/ml,sr:rmrsx,fpar
$	mcr lbr				ou:cr=fpar/rp
$	mcr pma fseek=rms:rmsmac/ml,sr:rmrsx,fseek
$	mcr lbr				ou:cr=fseek/rp
$	mcr pma ftell=rms:rmsmac/ml,sr:rmrsx,ftell
$	mcr lbr				ou:cr=ftell/rp
$	mcr pma fwild=rms:rmsmac/ml,sr:rmrsx,fwild
$	mcr lbr				ou:cr=fwild/rp
$	mcr pma init=rms:rmsmac/ml,sr:rmrsx,init
$	mcr lbr				ou:cr=init/rp
$	mcr pma ioget=rms:rmsmac/ml,sr:rmrsx,ioget
$	mcr lbr				ou:cr=ioget/rp
$	mcr pma ioput=rms:rmsmac/ml,sr:rmrsx,ioput
$	mcr lbr				ou:cr=ioput/rp
$	mcr pma iov=rms:rmsmac/ml,sr:rmrsx,iov
$	mcr lbr				ou:cr=iov/rp
$	mcr pma mygsa=rms:rmsmac/ml,sr:rmrsx,mygsa
$	mcr lbr				ou:cr=mygsa/rp
$	mcr pma perror=rms:rmsmac/ml,sr:rmrsx,perror
$	mcr lbr				ou:cr=perror/rp
$	mcr pma rewind=rms:rmsmac/ml,sr:rmrsx,rewind
$	mcr lbr				ou:cr=rewind/rp
$!
$! Now, build the PRO-350 version of cr.
$!
$	copy ou:cr.olb [-]crpro.olb
$	assign [-.ctexlib]		cr:
$	mcr pma pfspool=rms:rmsmac/ml,sr:rmrsx,cr:pfspool
$	mcr lbr				[-]crpro=pfspool/rp
$!
$	delete *.obj;*
$	if 'was_verify' .eq. 0 then set noverify
$	exit