save for the weekend
This commit is contained in:
parent
f56e10a24e
commit
52def3f6a1
Binary file not shown.
Binary file not shown.
Binary file not shown.
78
deploy/helloworld.lpi
Normal file
78
deploy/helloworld.lpi
Normal file
@ -0,0 +1,78 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<MainUnitHasCreateFormStatements Value="False"/>
|
||||||
|
<MainUnitHasTitleStatement Value="False"/>
|
||||||
|
<MainUnitHasScaledStatement Value="False"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="helloworld"/>
|
||||||
|
<UseAppBundle Value="False"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes>
|
||||||
|
<Item Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages>
|
||||||
|
<Item>
|
||||||
|
<PackageName Value="LazUtils"/>
|
||||||
|
</Item>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="helloworld.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="Unit1"/>
|
||||||
|
</Unit>
|
||||||
|
<Unit>
|
||||||
|
<Filename Value="tariffcalculator.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="TariffCalculator"/>
|
||||||
|
</Unit>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="helloworld"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item>
|
||||||
|
<Item>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
148
deploy/helloworld.lpr
Normal file
148
deploy/helloworld.lpr
Normal file
@ -0,0 +1,148 @@
|
|||||||
|
|
||||||
|
|
||||||
|
{%RunFlags MESSAGES+}
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
program helloworld(output);
|
||||||
|
|
||||||
|
|
||||||
|
uses
|
||||||
|
TariffCalculator, CTypes, LazUtils, LazFileUtils, LazUtf8, SysUtils,
|
||||||
|
fpjson, jsonparser;
|
||||||
|
|
||||||
|
type
|
||||||
|
PTJSONObject = ^TJSONObject;
|
||||||
|
|
||||||
|
var
|
||||||
|
jData: TJSONData;
|
||||||
|
jObject, jObjTemp: TJSONObject;
|
||||||
|
|
||||||
|
jEnum: TJSONEnum;
|
||||||
|
jArray: TJSONArray;
|
||||||
|
s: Utf8String;
|
||||||
|
fileId: String;
|
||||||
|
localRepository: String;
|
||||||
|
|
||||||
|
//TariffCalc: TariffCalculatorHandle;
|
||||||
|
CustomerRepo: array[0..100] of char;
|
||||||
|
LocalRepo: array[0..100] of char;
|
||||||
|
LocalCustomerRepo: array[0..100] of char;
|
||||||
|
LocalBranchName: array[0..32] of char;
|
||||||
|
FileToCommit: array[0..128] of char;
|
||||||
|
CommitMessage: array[0..256] of char;
|
||||||
|
UserName: array[0..64] of char;
|
||||||
|
PassWord: array[0..64] of char;
|
||||||
|
P, R: PChar;
|
||||||
|
Q: String;
|
||||||
|
I: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// TariffCalc := NewTariffCalculator;
|
||||||
|
// DeleteTariffCalculator(TariffCalc);
|
||||||
|
try
|
||||||
|
jArray := TJSONArray.Create;
|
||||||
|
jObject := TJSONObject.Create;
|
||||||
|
|
||||||
|
CustomerRepo := 'https://git.mimbach49.de/GerhardHoffmann/customer_999.git';
|
||||||
|
LocalCustomerRepo := 'H:\\customer_999';
|
||||||
|
LocalBranchName := 'zg1/zone1';
|
||||||
|
FileToCommit := 'etc/psa_tariff/tariff01.json';
|
||||||
|
CommitMessage := 'TEST TEST';
|
||||||
|
UserName := 'GerhardHoffmann';
|
||||||
|
PassWord := 'ghlinux12345';
|
||||||
|
LocalRepo := 'customer_999';
|
||||||
|
localRepository := 'customer_999';
|
||||||
|
|
||||||
|
|
||||||
|
if GetFileMenuAsJson(localRepository, @jObject) then begin
|
||||||
|
jArray := jObject['File-Menue'] as TJSONArray;
|
||||||
|
for jEnum in jArray do begin
|
||||||
|
jObjTemp := jEnum.Value as TJSONObject;
|
||||||
|
fileId := jObjTemp.Strings['File-ID'];
|
||||||
|
writeln();
|
||||||
|
writeLn(fileId);
|
||||||
|
s := GetFileNameStr(localRepository, fileId);
|
||||||
|
writeln();
|
||||||
|
writeLn(s);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
halt;
|
||||||
|
|
||||||
|
P := GetFileMenu(LocalRepo);
|
||||||
|
if P <> nil then
|
||||||
|
begin
|
||||||
|
jData := GetJSON(P);
|
||||||
|
s := jData.FormatJSON;
|
||||||
|
writeLn(s);
|
||||||
|
jObject := jData as TJSONObject;
|
||||||
|
writeLn(jObject['File-Menue'].Count);
|
||||||
|
|
||||||
|
jArray := jObject['File-Menue'] as TJSONArray;
|
||||||
|
for jEnum in jArray do begin
|
||||||
|
jObjTemp := jEnum.Value as TJSONObject;
|
||||||
|
s := jObjTemp.Strings['File-ID'];
|
||||||
|
writeln();
|
||||||
|
writeLn(s);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 0 to jObject['File-Menue'].Count-1 do
|
||||||
|
begin
|
||||||
|
jObjTemp := jObject['File-Menue'].Items[i] as TJSONObject;
|
||||||
|
s := jObjTemp.Find('File-ID').AsString;
|
||||||
|
writeLn(s);
|
||||||
|
R := GetFileName(LocalRepo, PChar(s));
|
||||||
|
if R <> nil then
|
||||||
|
begin
|
||||||
|
writeLn(R);
|
||||||
|
writeLn(GetFileSize(LocalRepo, PChar(s)));
|
||||||
|
writeLn(GetFile(LocalRepo, PChar(s)));
|
||||||
|
DeleteMem(R);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
//writeLn(jObject['File-Menue'].Items[0].ToString());
|
||||||
|
//jObject := jObject['File-Menue'].Items[0] as TJSONObject;
|
||||||
|
//s := jObject.FormatJSON;
|
||||||
|
//writeLn(s);
|
||||||
|
//s := jObject.Find('File-ID').AsString;
|
||||||
|
//writeLn(s);
|
||||||
|
//Q := ':';
|
||||||
|
//writeLn(UTF8Pos(Q, s));
|
||||||
|
//jArray := jObject.FindPath('File-Menue') as TJSONArray;
|
||||||
|
//s := jArray[0].AsString;
|
||||||
|
//writeLn(s);
|
||||||
|
//jArray := jObject.Get('File-Menue', TJSONArray.Create);
|
||||||
|
//writeLn(jArray.Extract(0).AsString);
|
||||||
|
DeleteMem(P)
|
||||||
|
end;
|
||||||
|
//:w
|
||||||
|
//StrDispose(PChar(P));
|
||||||
|
|
||||||
|
//if not DirectoryExistsUTF8(ExpandFilenameUtf8(LocalCustomerRepo)) then
|
||||||
|
// CreateDirUTF8(ExpandFilenameUtf8(LocalCustomerRepo));
|
||||||
|
|
||||||
|
//if InitGitLibrary() > 0 then
|
||||||
|
// Try
|
||||||
|
// writeLn('initialized git library') ;
|
||||||
|
// if not DirectoryExistsUTF8(ExpandFilenameUtf8(LocalCustomerRepo+'\\.git')) then
|
||||||
|
// CloneRepository(CustomerRepo, LocalCustomerRepo);
|
||||||
|
// if not CheckoutLocalBranch(LocalCustomerRepo, LocalBranchName) = 0 then
|
||||||
|
// writeLn('cannot check out') ;
|
||||||
|
// if not CommitFile(LocalCustomerRepo, LocalBranchName, FileToCommit, CommitMessage) = 0 then
|
||||||
|
// writeLn('cannot commit') ;
|
||||||
|
// if not PushLocalRepository(LocalCustomerRepo, LocalBranchName, UserName, PassWord) = 0 then
|
||||||
|
// writeLn('cannot push') ;
|
||||||
|
// Finally
|
||||||
|
// if ShutdownGitLibrary() >= 0 then
|
||||||
|
// writeLn('shutdown git library') ;
|
||||||
|
// end
|
||||||
|
//else
|
||||||
|
// begin
|
||||||
|
// writeLn('initializing git library FAILED') ;
|
||||||
|
// Readln;
|
||||||
|
// end;
|
||||||
|
finally
|
||||||
|
jArray.Free;
|
||||||
|
end;
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
deploy/project1.res
Normal file
BIN
deploy/project1.res
Normal file
Binary file not shown.
97
deploy/tariffcalculator.pas
Normal file
97
deploy/tariffcalculator.pas
Normal file
@ -0,0 +1,97 @@
|
|||||||
|
unit TariffCalculator;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, CTypes, fpjson, jsonparser;
|
||||||
|
|
||||||
|
type
|
||||||
|
// Can't use the class directly, so it is treated as an opaque handle.
|
||||||
|
// THandle is guaranteed to have the right size, even on other platforms.
|
||||||
|
TariffCalculatorHandle = THandle;
|
||||||
|
PTJSONObject = ^TJSONObject;
|
||||||
|
|
||||||
|
function NewTariffCalculator: TariffCalculatorHandle; stdcall;
|
||||||
|
procedure DeleteTariffCalculator(handle: TariffCalculatorHandle); stdcall;
|
||||||
|
|
||||||
|
function GetFileMenu(const localRepository: PChar): PChar; stdcall;
|
||||||
|
function GetFileMenuAsJson(const localRepository: String; jObj: PTJSONObject): Boolean;
|
||||||
|
function GetFileMenuSize(const localRepository: PChar): cint32; stdcall;
|
||||||
|
function GetFileName(const localRepository: PChar; const fileId: PChar): PChar; stdcall;
|
||||||
|
function GetFileNameStr(const localRepository: String; const fileId: String): String;
|
||||||
|
function GetFileSize(const localRepository: PChar; const fileId: PChar): cint32; stdcall;
|
||||||
|
function GetFile(const localRepository: PChar; const fileId: PChar): PChar; stdcall;
|
||||||
|
|
||||||
|
procedure DeleteMem(P: PChar); stdcall;
|
||||||
|
|
||||||
|
function InitGitLibrary: cint32; stdcall;
|
||||||
|
function ShutdownGitLibrary: cint32; stdcall;
|
||||||
|
function CloneRepository(var url; var local_path) : cint32; stdcall;
|
||||||
|
function CheckoutLocalBranch(var local_path; var branch_name) : cint32; stdcall;
|
||||||
|
function CommitFile(var local_path; var branch_name;
|
||||||
|
var file_name; var comment) : cint32; stdcall;
|
||||||
|
function PushLocalRepository(var local_path; var branch_name;
|
||||||
|
var user_name; var password) : cint32; stdcall;
|
||||||
|
implementation
|
||||||
|
|
||||||
|
const
|
||||||
|
DLLName = 'CalculatorCInterface.dll';
|
||||||
|
|
||||||
|
function GetFileNameStr(const localRepository: String; const fileId: String): String;
|
||||||
|
var
|
||||||
|
p: PChar;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
try
|
||||||
|
p := GetFileName(PChar(localRepository), PChar(fileId));
|
||||||
|
if p <> nil then begin
|
||||||
|
Result := String(p);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
DeleteMem(p);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetFileMenuAsJson(const localRepository: String; jObj: PTJSONObject): Boolean;
|
||||||
|
var
|
||||||
|
p: PChar;
|
||||||
|
fileMenuContent: String;
|
||||||
|
begin
|
||||||
|
Result := false;
|
||||||
|
try
|
||||||
|
p := GetFileMenu(PChar(localRepository));
|
||||||
|
if p <> nil then begin
|
||||||
|
fileMenuContent := String(p);
|
||||||
|
writeln(fileMenuContent);
|
||||||
|
jObj^ := GetJSON(fileMenuContent) as TJSONObject;
|
||||||
|
Result := true;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
DeleteMem(p);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function NewTariffCalculator: TariffCalculatorHandle; stdcall; external DLLName;
|
||||||
|
procedure DeleteTariffCalculator(handle: TariffCalculatorHandle); stdcall; external DLLName;
|
||||||
|
|
||||||
|
function GetFileMenu(const localRepository: PChar): PChar; stdcall; external DLLName;
|
||||||
|
function GetFileMenuSize(const localRepository: PChar): cint32; stdcall; external DLLName;
|
||||||
|
function GetFileName(const localRepository: PChar; const fileId: PChar): PChar; stdcall; external DLLName;
|
||||||
|
function GetFileSize(const localRepository: PChar; const fileId: PChar): cint32; stdcall; external DLLName;
|
||||||
|
function GetFile(const localRepository: PChar; const fileId: PChar): PChar; stdcall; external DLLName;
|
||||||
|
|
||||||
|
procedure DeleteMem(P: PChar); stdcall; external DLLName;
|
||||||
|
|
||||||
|
function InitGitLibrary: cint32; stdcall; external DLLName;
|
||||||
|
function ShutdownGitLibrary: cint32; stdcall; external DLLName;
|
||||||
|
function CloneRepository(var url; var local_path) : cint32; stdcall; external DLLName;
|
||||||
|
function CheckoutLocalBranch(var local_path; var branch_name) : cint32; stdcall; external DLLName;
|
||||||
|
function CommitFile(var local_path; var branch_name;
|
||||||
|
var file_name; var comment) : cint32; stdcall; external DLLName;
|
||||||
|
function PushLocalRepository(var local_path; var branch_name;
|
||||||
|
var user_name; var password) : cint32; stdcall; external DLLName;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
13
deploy/unit1.pas
Normal file
13
deploy/unit1.pas
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
procedure git_clone; cdecl; external 'C:\Users\G.Hoffmann\Downloads\libgit2-1.7.2\libgit2-1.7.2\build\Debug\git2.dll' name 'git_clone';
|
||||||
|
uses
|
||||||
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user