Changeset 342 for trunk/NewView/StartupUnit.pas

Timestamp:

Jun 1, 2009, 2:42:16 PM (16 years ago)

Author:

RBRi

Message:

index is a real object now
support for env variables to make glossary simulation work

File:

• trunk/NewView/StartupUnit.pas (modified) (3 diffs)

trunk/NewView/StartupUnit.pas

@@ -19 +19 @@
 const
   OWN_HELP_MARKER = '[NVHELP]';
-  HELP_FILE_DELIMITER = '+';
 
 
@@ -26 +25 @@
 // Look for any items that are actually specifiying environment
 // variables, and expand them to the contents of the variables
-Procedure TranslateIPFEnvironmentVars(const Items: TStrings; ExpandedItems: TStrings );
 
 // Given a filename, which may or may not contain a path or extension,
@@ -51 +49 @@
   FileUtilsUnit;
 
-// Look for any items that are actually specifiying environment
-// variables, and expand them to the contents of the variables
-Procedure TranslateIPFEnvironmentVars(const Items: TStrings; ExpandedItems: TStrings );
-var
-  i : longint;
-  tmpItem: string;
-  tmpEnvironmentVarValue: string;
-begin
-  LogEvent(LogStartup, 'Translating environment vars' );
-  for i := 0 to Items.Count - 1 do
-  begin
-    tmpItem := Items[i];
-
-    tmpItem := StrTrimChars(tmpItem, [StrSingleQuote]); // remove single quotes
-    tmpItem := StrTrimChars(tmpItem, [StrDoubleQuote]); // remove double quotes
-
-    LogEvent(LogStartup, '  Checking for environment var: ' + tmpItem );
-    tmpEnvironmentVarValue := GetEnv( Uppercase( tmpItem ) );
-    if DosError = 0 then
-    begin
-      // environment var exists - use it's value
-      LogEvent(LogStartup, '    Environment var found; translated to: ' + tmpEnvironmentVarValue);
-      StrExtractStrings(ExpandedItems, tmpEnvironmentVarValue, [HELP_FILE_DELIMITER], #0);
-    end
-    else
-    begin
-      // not an environment var
-      ExpandedItems.Add(tmpItem);
-    end;
-  end;
-end;
 
 // Given a filename, which may or may not contain a path or extension,