Changeset 178 for trunk/UCore.pas

Timestamp:

Mar 27, 2018, 11:07:44 AM (6 years ago)

Author:

chronos

Message:

• Modified: Examples moved to subdirectory Examples.
• Added: Support for override of default project file opened on first application start.
• Modified: Fixed displaying of command line help.

File:

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

trunk/UCore.pas

@@ -40 +40 @@
     procedure SetAlwaysOnTop(AValue: Boolean);
     function FindFirstNonOption: string;
+    procedure WriteLnConsole(Text: string);
   public
     AcronymDb: TAcronymDb;
@@ -69 +70 @@
 const
   ExampleFile = 'Example acronyms.adp';
+  DefaultOverrideFile = 'Default.txt';
+
+resourcestring
+  SStartMinimizedInTray = 'Start minimized in system tray';
+  SShowThisHelp = 'Show this help';
+  SOptions = 'options';
+  SProjectFile = 'project file';
 
 
@@ -108 +116 @@
 end;
 
+procedure TCore.WriteLnConsole(Text: string);
+begin
+  {$IFDEF WINDOWS}
+  if not IsConsole then begin
+    IsConsole := True;
+    SysInitStdIO;
+  end;
+  {$ENDIF}
+  WriteLn(Text);
+end;
+
 procedure TCore.Initialize;
 var
   FileNameOption: string;
   ExampleFileName: string;
+  DefaultOverrideFileName: string;
+  ExamplesDir: string;
+  Lines: TStringList;
+  Output: string;
 begin
   if not InitializeStarted then begin
@@ -117 +140 @@
     LoadConfig;
 
-    {$IFDEF 0}
     if Application.HasOption('h', 'help') then begin
-      WriteLn('AcronymDecoder <project file>');
-      WriteLn('  -t    --tray   Start minimized in system tray');
-      WriteLn('  -h    --help  Show this help');
+      Output := 'AcronymDecoder [' + SOptions + '] <' + SProjectFile + '>' + LineEnding;
+      Output := Output + '  -t    --tray   ' + SStartMinimizedInTray + LineEnding;
+      Output := Output + '  -h    --help   ' + SShowThisHelp + LineEnding;
+      WriteLnConsole(Output);
       Application.Terminate;
       Exit;
     end;
-    {$ENDIF}
 
     if Application.HasOption('t', 'tray') then begin
@@ -131 +153 @@
     end;
 
-    ExampleFileName := ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile;
+    ExamplesDir := ExtractFileDir(Application.ExeName) + DirectorySeparator +
+      'Examples';
+    {$IFDEF Linux}
+    // If installed in Linux system then use installation directory for po files
+    if Application.ExeName = '/usr/bin/' + ExtractFileNameOnly(Application.ExeName) then
+      ExamplesDir := '/usr/share/' + ExtractFileNameOnly(Application.ExeName) +
+        DirectorySeparator + 'Examples';
+    {$ENDIF}
+    ExampleFileName := ExamplesDir + DirectorySeparator + ExampleFile;
+
+    // To override default project file put new project name to default file
+    DefaultOverrideFileName := ExamplesDir + DirectorySeparator + DefaultOverrideFile;
+    if FileExists(DefaultOverrideFileName) then begin
+      Lines := TStringList.Create;
+      Lines.LoadFromFile(DefaultOverrideFileName);
+      if Lines.Count > 0 then
+        ExampleFileName := ExamplesDir + DirectorySeparator + Lines[0];
+      Lines.Free;
+    end;
+
     FileNameOption := FindFirstNonOption;
     if FileNameOption <> '' then begin
@@ -144 +185 @@
     if FileExists(ExampleFileName) then begin
       // Open default database with examples if no item is in recent openned history
-      FileNameOption := ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile;
-      {$IFDEF Linux}
-      // If installed in Linux system then use installation directory for po files
-      if Application.ExeName = '/usr/bin/' + ExtractFileNameOnly(Application.ExeName) then
-        FileNameOption := '/usr/share/' + ExtractFileNameOnly(Application.ExeName) + '/Examples/' + ExampleFile;
-      {$ENDIF}
-      FormMain.ProjectOpen(FileNameOption);
+      FormMain.ProjectOpen(ExampleFileName);
     end else begin
       // Create empty file