From 08c87131ef6fa31c054ee11e6b696ba239e1f87b Mon Sep 17 00:00:00 2001
From: Jonathan Barnard <winelauncher.jonathan@googlemail.com>
Date: Sat, 28 Feb 2009 15:59:58 +0000
Subject: [PATCH] UnitCommandLine: New unit called 'UnitCommandLine'.

---
 Functions/CommandLine/UnitCommandLine.pas       | 35 +++++++++++++++++++++++++
 Functions/Initialization/UnitInitialization.pas |  1 +
 WineLauncher.lpi                                | 11 +++++---
 WineLauncher.lpr                                |  3 +++
 4 files changed, 47 insertions(+), 3 deletions(-)
 create mode 100644 Functions/CommandLine/UnitCommandLine.pas

diff --git a/Functions/CommandLine/UnitCommandLine.pas b/Functions/CommandLine/UnitCommandLine.pas
new file mode 100644
index 0000000..b620a17
--- /dev/null
+++ b/Functions/CommandLine/UnitCommandLine.pas
@@ -0,0 +1,35 @@
+unit UnitCommandLine;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms;
+
+procedure ProcessCommandLineInput();
+
+
+implementation
+uses UnitInitialization;
+
+procedure ProcessCommandLineInput();
+begin
+     if Application.HasOption('h','help') then
+        begin
+             Writeln('Help your self.');
+             Halt;
+        end;
+
+     if Application.HasOption('v','version') then
+        begin
+             Writeln('WineLauncher: ' + WineLauncherVersion);
+             Writeln(BuiltWithLazarusVersion);
+             Writeln(BuiltWithFpcVersion);
+             Halt;
+        end;
+
+end;
+
+end.
+
diff --git a/Functions/Initialization/UnitInitialization.pas b/Functions/Initialization/UnitInitialization.pas
index c0a6fd6..7443311 100644
--- a/Functions/Initialization/UnitInitialization.pas
+++ b/Functions/Initialization/UnitInitialization.pas
@@ -10,6 +10,7 @@ uses
 const
  WineLauncherVersion = {$I VERSION.inc};
  BuiltWithFpcVersion = ('Built with FPC version: ' + {$I %FPCVERSION%});
+ BuiltWithLazarusVersion = ('Built with lazarus version: ' + lcl_version);
 
 implementation
 
diff --git a/WineLauncher.lpi b/WineLauncher.lpi
index 2293159..05855d9 100644
--- a/WineLauncher.lpi
+++ b/WineLauncher.lpi
@@ -36,7 +36,7 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="8">
+    <Units Count="9">
       <Unit0>
         <Filename Value="WineLauncher.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -82,16 +82,21 @@
         <UnitName Value="UnitMisc"/>
       </Unit6>
       <Unit7>
+        <Filename Value="Functions/CommandLine/UnitCommandLine.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UnitCommandLine"/>
+      </Unit7>
+      <Unit8>
         <Filename Value="Functions/Initialization/UnitInitialization.pas"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="UnitInitialization"/>
-      </Unit7>
+      </Unit8>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="8"/>
     <SearchPaths>
-      <OtherUnitFiles Value="../WineLauncher/Form/About/;../WineLauncher/Form/DebugConfig/;Form/Settings/;Functions/ProgramsList/;Functions/Misc/;Functions/Initialization/"/>
+      <OtherUnitFiles Value="../WineLauncher/Form/About/;../WineLauncher/Form/DebugConfig/;Form/Settings/;Functions/ProgramsList/;Functions/Misc/;Functions/Initialization/;Functions/CommandLine/"/>
       <LCLWidgetType Value="gtk"/>
     </SearchPaths>
     <Parsing>
diff --git a/WineLauncher.lpr b/WineLauncher.lpr
index 1973fc7..99b5f91 100644
--- a/WineLauncher.lpr
+++ b/WineLauncher.lpr
@@ -26,6 +26,7 @@ uses
   Forms,
   {Units}
   UnitInitialization,
+  UnitCommandLine,
   UnitDebugConfig,
   UnitAbout,
   UnitMain,
@@ -43,6 +44,8 @@ begin
          exit;
     end;
 
+  ProcessCommandLineInput();
+
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
-- 
2.11.4.GIT