Changeset 14 for trunk/UKConfig.pas

Timestamp:

May 21, 2014, 2:30:46 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Reference to custom myregistry unit.
• Fixed: Parsing of "--- help ---" command.

File:

• trunk/UKConfig.pas (modified) (1 diff)

trunk/UKConfig.pas

@@ -764 +764 @@
         Command := GetNextToken(Line);
         if Command = 'help' then begin
-          State := stHelp;
-          HelpIndent := LineIndent;
+          Command := GetNextToken(Line);
+          if Command = '---' then begin
+            State := stHelp;
+            HelpIndent := LineIndent;
+          end;
+        end else
+        if Command = '' then begin
+          Command := GetNextToken(Line);
+          if Command = 'help' then begin
+            Expect(Line, '');
+            Command := GetNextToken(Line);
+            if Command = '---' then begin
+              State := stHelp;
+              HelpIndent := LineIndent;
+            end;
+          end;
         end;
       end else