unit LLVM.Runner;

interface

uses
    System.SysUtils, Winapi.Windows, System.Classes;

type
    // Callback-Prozedur, die von der DLL aufgerufen wird
    TLogIntegerCallback = procedure( AValue: Integer ); stdcall;

    // NEU: Typ für die Host-Additionsfunktion
    THostAddIntegersCallback = function( ANum1: Integer; ANum2: Integer ): Integer; stdcall;

    // NEUE, VEREINFACHTE Signatur der exportierten DLL-Funktion
    // Jetzt nur noch der Log-Callback und der neue Integer-Input-Parameter
    TStarteLogikProc = procedure(
        ALogIntProc: TLogIntegerCallback;
        AHostInputInteger: Integer;
        AHostAddIntegersProc: THostAddIntegersCallback // <--- Der neue Host-Unterprogramm-Parameter
    ); stdcall;

type
    TLLVMRunner = class
    private
        FModule: HMODULE;
        FStarteLogik: TStarteLogikProc;
    class var
        FLog: TStrings;
        class procedure LogInteger( AValue: Integer ); static; stdcall;
        // NEU: Host-Unterprogramm-Implementierung
        class function HostAddIntegers( ANum1: Integer; ANum2: Integer ): Integer; static; stdcall;
    public
        constructor Create(const ADLLPath: string);
        destructor Destroy; override;
        procedure Execute( AInputInteger: Integer );
        class property Log: TStrings read FLog write FLog;
    end;

implementation

{ TLLVMRunner }

constructor TLLVMRunner.Create(const ADLLPath: string);
begin
    inherited Create;
    FModule := LoadLibrary( PChar( ADLLPath ) );
    if FModule = 0 then
        raise Exception.Create( 'Failed to load DLL.' );

    FStarteLogik := GetProcAddress( FModule, 'StarteLogik' );
    if not Assigned( FStarteLogik ) then
        raise Exception.Create( 'Procedure "StarteLogik" not found in DLL.' );
end;

destructor TLLVMRunner.Destroy;
begin
    if FModule <> 0 then
        FreeLibrary( FModule );
    inherited;
end;

// NEUE Implementierung der Host-Funktion
class function TLLVMRunner.HostAddIntegers( ANum1: Integer; ANum2: Integer ): Integer;
begin
    Result := ANum1 + ANum2; // Die eigentliche Logik
    if Assigned(FLog) then
        FLog.Add(Format('DLL hat Host-Addition angefordert: %d + %d = %d', [ANum1, ANum2, Result]));
end;

// Die Execute-Methode muss angepasst werden, um den neuen Funktionszeiger zu übergeben
procedure TLLVMRunner.Execute( AInputInteger: Integer );
begin
    if Assigned( FStarteLogik ) then
        FStarteLogik(
            LogInteger,
            AInputInteger,
            HostAddIntegers // <--- Adresse der Host-Funktion übergeben
        );
end;

// Dies ist die Methode, die die DLL für LogInteger aufruft.
class procedure TLLVMRunner.LogInteger( AValue: Integer );
begin
    if Assigned( FLog ) then
        FLog.Add( Format( 'DLL logged integer: %d', [AValue] ) );
end;

// Die Implementierungen von GetCurrentDateTimeUTCHost und GetComponentInZoneHost
// wurden hier entfernt, da sie nicht mehr benötigt werden.

end.