81 lines
2.9 KiB
C
Executable File
81 lines
2.9 KiB
C
Executable File
*******************************************************************************
|
|
*
|
|
* Hardwired UniVerse filenames
|
|
*
|
|
* 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.
|
|
* 04/17/96 18292 AGM Add OS dependant FSEP
|
|
* 03/21/94 12406 ALC Use system(32) to get uvhome directory.
|
|
* 11/09/93 12404 GMH Change method of obtaining UV.ROOT value
|
|
* 06/21/93 9272 PVW Remove references to UV.USER and UV.GROUP
|
|
* 05/17/93 11510 MGM fix hush on/set.term.type Term/hush off
|
|
* 03/09/93 11151 PVW change message to be more informative.
|
|
* 08/07/90 4329 JWT change UV.ROOT generator to release 6 style
|
|
* 01/17/89 5716 GPS Add UV.SAMPLE for INIT.DEMO
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* This file is intended for use by UniVerse BASIC system programs.
|
|
*
|
|
*******************************************************************************
|
|
|
|
$INCLUDE UNIVERSE.INCLUDE OSDEF.H
|
|
|
|
UV.ROOT = system(32)
|
|
|
|
if UV.ROOT = ""
|
|
then
|
|
$IFDEF UV.MSWIN
|
|
print 'Cannot determine install directory path from Windows Registry.'
|
|
print ''
|
|
print 'NOTIFY YOUR SYSTEM ADMINISTRATOR.'
|
|
print ''
|
|
print 'The Registry entry may not have correct permissions.'
|
|
$ELSE
|
|
print 'Cannot read install directory path entry from "/.uvhome" file.'
|
|
print ''
|
|
print 'NOTIFY YOUR SYSTEM ADMINISTRATOR.'
|
|
print ''
|
|
print 'UVTEMP directory as defined in uv.config may be full or'
|
|
print 'may NOT have correct permissions.'
|
|
$ENDIF
|
|
stop
|
|
end
|
|
|
|
$IFDEF UV.MSWIN
|
|
UV.FSEP = "\"
|
|
$ELSE
|
|
UV.FSEP = "/"
|
|
$ENDIF
|
|
|
|
UV.DICT.NEWACC = UV.ROOT : UV.FSEP : "D_NEWACC"
|
|
UV.NEWACC = UV.ROOT : UV.FSEP : "NEWACC"
|
|
UV.NEWACC.IDEAL = UV.NEWACC : UV.FSEP : "NEWACC"
|
|
UV.NEWACC.INFORMATION = UV.NEWACC : UV.FSEP : "INFORMATION"
|
|
UV.NEWACC.PICK = UV.NEWACC : UV.FSEP : "PICK"
|
|
UV.NEWACC.REALITY = UV.NEWACC : UV.FSEP : "REALITY"
|
|
UV.DICT.UV.FLAVOR = UV.ROOT : UV.FSEP : "D_UV.FLAVOR"
|
|
UV.FLAVOR = UV.ROOT : UV.FSEP : "UV.FLAVOR"
|
|
UV.SYS.MESSAGE = UV.ROOT : UV.FSEP : "SYS.MESSAGE"
|
|
UV.ACCOUNT = UV.ROOT : UV.FSEP : "UV.ACCOUNT"
|
|
UV.DICT.PICK = UV.ROOT : UV.FSEP : "DICT.PICK"
|
|
UV.APP.PROGS = UV.ROOT : UV.FSEP : "APP.PROGS"
|
|
UV.BIN = UV.ROOT : UV.FSEP : "bin"
|
|
UV.UPDACCT = UV.BIN : UV.FSEP : "updaccount"
|
|
UV.CATDIR = UV.ROOT : UV.FSEP : "catdir"
|
|
UV.GCI = UV.ROOT : UV.FSEP : "gcidir"
|
|
UV.SAMPLE = UV.ROOT : UV.FSEP : "sample"
|
|
|