Changeset 1091

Timestamp:

Jul 21, 2008, 6:26:37 AM (17 years ago)

Author:

John Small

Message:

Ticket 114: Added code to set an initial value for the new user-definable
string of environment variables.

File:

• trunk/cfgmgr.cmd (modified) (2 diffs)

trunk/cfgmgr.cmd

@@ -48 +48 @@
 if cfg.userabort = 1 then
    signal NormalExit
+
+if cfg.operation = 'INSTALL' then
+   call UpdateFM2Ini
 
 cfg.action_taken = 0
@@ -532 +535 @@
 return retval
 
+UpdateFM2Ini: procedure expose (globals)
+   parse source . . thispgm
+   thisdir = left(thispgm, lastpos('\', thispgm))
+   inifile = thisdir || 'fm3.ini'
+   EnvVarList = strip(SysIni(inifile, 'FM/3', 'TreeEnvVarList'))
+   if EnvVarList = '' | EnvVarList = 'ERROR:' then
+      call SysIni inifile, 'FM/3', 'TreeEnvVarList', 'PATH;DPATH;LIBPATH;HELP;BOOKSHELF;LIB;INCLUDE;LOCPATH;SMINCLUDE;LPATH;CODELPATH'
+return
+