53 lines
1.8 KiB
Plaintext
Executable File
53 lines
1.8 KiB
Plaintext
Executable File
******************************************************************************
|
|
*
|
|
* Display uniVerse configuration data
|
|
*
|
|
* 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.
|
|
* 03/13/96 17797 AGM Replace 'SH -c' with OS.EXEC
|
|
* 11/21/94 15313 TMC call with -z in all cases
|
|
* 10/18/94 14073 TMC call analyze.shm with -cz
|
|
* 10/11/94 14073 TMC change uvregen -t -c to analyze.shm -t0 -c
|
|
* 03/18/93 10115 JSM Added UV.BIN to uvregen command
|
|
* 12/06/89 6579 JWT Machine independent mktape
|
|
*
|
|
*******************************************************************************
|
|
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
|
|
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
|
|
|
|
ID = "%W%"
|
|
|
|
DIM COMMAND(2)
|
|
OPEN 'VOC' ELSE STOP 'Sorry, unable to access VOC.'
|
|
WORK = TRIM(@SENTENCE)
|
|
MATPARSE COMMAND FROM WORK , ' '
|
|
OPTS = ""
|
|
IF INMAT() > 1 THEN
|
|
READ VDESC FROM COMMAND(2) ELSE
|
|
STOP 'Unrecognised word "':COMMAND(2):'" in command line.'
|
|
END
|
|
IF VDESC[1,1] = 'K'
|
|
THEN
|
|
IF VDESC<2> = 37 THEN OPTS = "-cz -t0"
|
|
ELSE IF VDESC<2> = 62 THEN OPTS = "-cz"
|
|
ELSE IF VDESC<2> = 63 THEN OPTS = "-t0"
|
|
END
|
|
END
|
|
|
|
IF OPTS = "" THEN OPTS = "-cz"
|
|
|
|
EXECUTE OS.EXEC : " '" : UV.BIN : "/analyze.shm " : OPTS : "'"
|
|
|
|
END
|