win stuff

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.
+