Merge pull request #345 from asarhaddon/ada.2

[jackhill/mal.git] / objpascal / mal_readline.pas

unit mal_readline;

{$H+} // Use AnsiString

interface

uses sysutils,
     CTypes;

{$IFDEF USE_READLINE}

{$LINKLIB readline}

{$ELSE}

{$LINKLIB libedit}

{$ENDIF}


// External libedit/readline functions

function readline(Prompt: PChar) : PChar; cdecl; external;
procedure add_history(Line: PChar); cdecl; external;

// API

type MalEOF = class(Exception);

function _readline(Prompt: string) : string;

////////////////////////////////////////////////////////////

implementation

function _readline(Prompt: string) : string;
var
    Line : PChar;
begin
    Line := readline(PChar(Prompt));
    if Line = Nil then
        raise MalEOF.Create('MalEOF');
    if Line <> '' then
        add_history(Line);

    _readline := Line;
end;

end.