ATBTariffWebInterface/deploy/atbtariffcalculator.pas

100 lines
4.0 KiB
ObjectPascal
Raw Permalink Normal View History

2024-03-26 17:02:59 +01:00
unit ATBTariffCalculator;
{$mode ObjFPC}{$H+}
interface
uses
SysUtils, CTypes, fpjson, jsonparser, ATBUtils;
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;
2024-04-15 17:58:11 +02:00
//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;
2024-03-26 17:02:59 +01:00
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;
//function SetFileInternal(const localRepository: PChar;
// const fileId: PChar;
// const json: PChar;
// size: cint32): cbool; stdcall; external DLLName;
2024-04-15 17:58:11 +02:00
//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;
2024-03-26 17:02:59 +01:00
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.