36 lines
788 B
ObjectPascal
36 lines
788 B
ObjectPascal
|
|
|
|
{%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.
|
|
|