From 4101823f6ead1c1a3e3c4802775acb28ba430a27 Mon Sep 17 00:00:00 2001
From: Hoffmann Gerhard <g.hoffmann@atb-online.eu>
Date: Mon, 11 Mar 2024 16:41:33 +0100
Subject: [PATCH] win stuff

---
 windows/helloworld.lpr | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 windows/helloworld.lpr

diff --git a/windows/helloworld.lpr b/windows/helloworld.lpr
new file mode 100644
index 0000000..bc7752b
--- /dev/null
+++ b/windows/helloworld.lpr
@@ -0,0 +1,35 @@
+
+
+{%RunFlags MESSAGES+}
+{$mode ObjFPC}{$H-}
+program helloworld(output);
+
+
+uses
+    TariffCalculator, CTypes;
+
+var
+   TariffCalc:  TariffCalculatorHandle;
+   CustomerRepo: array[0..100] of char;
+   LocalCustomerRepo: array[0..100] of char;
+
+begin
+writeLn('Hello, World!') ;
+// TariffCalc := NewTariffCalculator;
+// DeleteTariffCalculator(TariffCalc);
+   if InitGitLibrary() > 0 then
+        begin
+        writeLn('init OK!') ;
+        CustomerRepo := 'https://git.mimbach49.de/GerhardHoffmann/customer_999.git';
+        LocalCustomerRepo := 'C:\\tmp\\customer_999';
+        CloneRepository(CustomerRepo, LocalCustomerRepo);
+
+        ShutdownGitLibrary();
+        end
+   else
+       begin
+       writeLn('init NOT OK!') ;
+       Readln;
+       end;
+end.
+