88 lines
3.3 KiB
Plaintext
88 lines
3.3 KiB
Plaintext
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Make a new uv
|
||
|
|
*
|
||
|
|
* Module %M% Version %I% Date %H%
|
||
|
|
*
|
||
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
||
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
||
|
|
* The copyright notice above does not evidence any actual or intended
|
||
|
|
* publication of such source code.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
*
|
||
|
|
* Maintenence log - insert most recent change descriptions at top
|
||
|
|
*
|
||
|
|
* Date.... GTAR# WHO Description.........................................
|
||
|
|
* 10/14/98 23801 SAP Change copyrights.
|
||
|
|
* 02/22/94 12300 LA Added call to CATLG.GCI to automatically catalog
|
||
|
|
* gci routines.
|
||
|
|
* 07/14/93 11822 PVW Onsite linking
|
||
|
|
* 05/10/91 8255 GMH added prompt when make is complete.
|
||
|
|
* 10/14/89 6314 DTW call to GCI.MAKEFILE
|
||
|
|
* 08/08/88 5265 JSM Added warning message and prompt to continue.
|
||
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
||
|
|
*
|
||
|
|
*******************************************************************************
|
||
|
|
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
|
||
|
|
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
|
||
|
|
*
|
||
|
|
prompt ""
|
||
|
|
CL = @(-4)
|
||
|
|
CL.ERR = @(0,23):CL
|
||
|
|
EQU BELL TO CHAR(7)
|
||
|
|
ERR = CL.ERR:BELL
|
||
|
|
MSG10=ERR:PROD.NAMEU:' General Calling Interface is not installed.'
|
||
|
|
1: OPEN '','DATA.TYPES' TO FVDATA.TYPES ELSE
|
||
|
|
PRINT MSG10:
|
||
|
|
INPUT Q: ; PRINT CL.ERR: ; GOTO HOLD.ON.EXIT:
|
||
|
|
END
|
||
|
|
* check if uniVerse home/obj directory has been installed
|
||
|
|
openpath UV.ROOT:"/obj" to obj.directory then
|
||
|
|
close obj.directory
|
||
|
|
end else
|
||
|
|
print CL.ERR:
|
||
|
|
*UVPRINTMSG(79000)
|
||
|
|
input Q:
|
||
|
|
print CL.ERR:
|
||
|
|
GOTO HOLD.ON.EXIT:
|
||
|
|
end
|
||
|
|
prompt ""
|
||
|
|
print @( -1 )
|
||
|
|
print @( 0, 0 ):"General Calling Interface Administration" : @( 68, 0 ) : "MAKE.NEW.UV":
|
||
|
|
print @( 17, 1): 'Create a new "':PROD.NAMEU:'" in "':UV.ROOT:'/uvsh.new"':
|
||
|
|
print @( 0, 2 ): str( "-", 79 ):
|
||
|
|
print @( 0, 4 ):
|
||
|
|
PRINT 'This procedure will generate a new "gci.c" program and make a new "':PROD.NAME:'" in the file ':UV.ROOT:'/uvsh.new.'
|
||
|
|
PRINT 'It will also catalog any subroutines which require cataloging.'
|
||
|
|
PRINT
|
||
|
|
PRINT 'Are you sure you want to continue? (Y/N)':
|
||
|
|
INPUT ANS
|
||
|
|
ANS=UPCASE(ANS)
|
||
|
|
IF ANS = 'Y' THEN
|
||
|
|
PRINT
|
||
|
|
PRINT 'Do you want to update the GCI Makefile? (Y/N)':
|
||
|
|
INPUT ANS
|
||
|
|
ANS=UPCASE(ANS)
|
||
|
|
IF ANS = 'Y' THEN
|
||
|
|
EXECUTE 'RUN APP.PROGS GCI.MAKEFILE'
|
||
|
|
PRINT @(0,22):"OK to continue? (Y/N)":
|
||
|
|
INPUT ANS
|
||
|
|
ANS=UPCASE(ANS)
|
||
|
|
IF ANS <> "Y" THEN STOP
|
||
|
|
END
|
||
|
|
execute 'RUN APP.PROGS CATLG.GCI'
|
||
|
|
EXECUTE 'RUN APP.PROGS GEN.GCI'
|
||
|
|
print @( -1 )
|
||
|
|
print @( 0, 0 ):"General Calling Interface Administration" : @( 68, 0 ) : "MAKE.NEW.UV":
|
||
|
|
print @( 17, 1): 'Create a new "':PROD.NAMEU:'" in "':UV.ROOT:'/uvsh.new"':
|
||
|
|
print @( 0, 2 ): str( "-", 79 ):
|
||
|
|
print @( 0, 4 ):
|
||
|
|
EXECUTE "SH -c 'cd /":UV.GCI:";make'"
|
||
|
|
HOLD.ON.EXIT:
|
||
|
|
print CL.ERR:@( 0, 22): CL:"Press any key to continue...":
|
||
|
|
input WAIT,1:
|
||
|
|
END
|
||
|
|
|
||
|
|
END
|