Changeset 342 for trunk/NewView/CmdLineParameterUnit.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/CmdLineParameterUnit.pas (modified) (2 diffs)

trunk/NewView/CmdLineParameterUnit.pas

@@ -86 +86 @@
   end;
 
+
+  // add all file name parts of aFileNameString to the result
+  // check for containing environment vars
+  // and include all help files if the environment var points
+  // to a directory
+  PROCEDURE ParseAndExpandFileNames(const aFileNameString: String; aResult: TStrings );
+
+
   // returns a string containing the whole
   // command line parametes
@@ -680 +688 @@
 
 
+  PROCEDURE ParseAndExpandFileNames(const aFileNameString : String; aResult: TStrings);
+  var
+    i : longint;
+    tmpFileNamesList: TStringList;
+    tmpItem: String;
+    tmpEnvironmentVarValue: string;
+  begin
+    LogEvent(LogDebug, 'ParseAndExpandFileNames "' + aFileNameString + '"');
+
+    tmpFileNamesList := TStringList.Create;
+
+    StrExtractStrings(tmpFileNamesList, aFileNameString, [HELP_FILE_DELIMITER, PATH_SEPARATOR], #0);
+    for i := 0 to tmpFileNamesList.Count - 1 do
+    begin
+      tmpItem := tmpFileNamesList[i];
+
+      // is this a environment var
+      tmpEnvironmentVarValue := GetEnv(tmpItem);
+      if DosError = 0 then
+      begin
+        // environment var exists
+        LogEvent(LogStartup, '    Environment var found; translated to: "' + tmpEnvironmentVarValue + '"');
+        ParseAndExpandFileNames(tmpEnvironmentVarValue, aResult);
+      end
+      else if DirectoryExists(tmpItem) then
+      begin
+        ListFilesInDirectory(tmpItem, '*' + HELP_FILE_EXTENSION, true, aResult);
+      end
+      else
+      begin
+        aResult.Add(tmpItem);
+      end;
+    end;
+
+    tmpFileNamesList.Destroy;
+  end;
+
+
   FUNCTION nativeOS2GetCmdLineParameter : AnsiString;
   VAR