Changeset 7 for trunk/UKConfig.pas

Timestamp:

May 2, 2014, 10:29:24 AM (10 years ago)

Author:

chronos

Message:

• Fixed: More robust configuration loading.
• Added: Show absolute path in missing items in comparison.

File:

• trunk/UKConfig.pas (modified) (6 diffs)

trunk/UKConfig.pas

@@ -1 +1 @@
 unit UKConfig;
+
+// Kconfig format specification:
+// https://www.kernel.org/doc/Documentation/kbuild/kconfig-language.txt
 
 {$mode Delphi}{$H+}
@@ -73 +76 @@
     BaseDir: string;
     Version: string;
+    procedure OptionListNames(List: TStringList);
     procedure PrepareMoveList(var List: TObjectMoves);
     procedure CompareStringLists(List1, List2: TStringList; Missing1,
@@ -121 +125 @@
 function TMenuNode.GetAbsoluteName: string;
 begin
-  if Assigned(Parent) then Result := Parent.GetAbsoluteName + ' - ';
-  if Assigned(Parent) then Result := Result + GetName;
+  if Assigned(Parent) and Assigned(Parent.Parent) then Result := Parent.GetAbsoluteName + ' - ';
+  Result := Result + GetName;
 end;
 
@@ -347 +351 @@
         State := stNormal;
 
-      if Copy(Trim(Line), 1, 1) = '#' then begin
+      if (Copy(Trim(Line), 1, 1) = '#') or (Copy(Trim(Line), 1, 2) = '\#') then begin
         // Skip comments
         Continue;
@@ -439 +443 @@
         NewItem.Selects.Add(Parameter);
       end else
+      if Command = '---' then begin
+        Command := GetNextToken(Line);
+        if Command = 'help' then begin
+          Parameter := GetNextToken(Line);
+          State := stHelp;
+          HelpIndent := LineIndent;
+        end;
+      end else
       if (Command = 'help') or (Command = '---help---') then begin
         Parameter := GetNextToken(Line);
@@ -577 +589 @@
   finally
     Content.Free;
+  end;
+end;
+
+procedure TConfigMenu.OptionListNames(List: TStringList);
+var
+  I: Integer;
+  Node: TMenuNode;
+begin
+  for I := 0 to List.Count - 1 do begin
+    Node := TopNode.FindNode(List[I]);
+    if Assigned(Node) then
+      List[I] := List[I] + ' ' + Node.GetAbsoluteName;
   end;
 end;