source: branches/textos/Apps/Shell/UShell.pas

unit UShell;

{$mode delphi}

interface

uses
  Classes, SysUtils, UApp;

type

  { TAppShell }

  TAppShell = class(TApp)
    Line: string;
    procedure OnStart; override;
    procedure OnTerminate; override;
    procedure OnInputText; override;
  end;

implementation

{ TAppShell }

procedure TAppShell.OnStart;
begin
  Api.OutputText('Supershell' + LineEnding);
end;

procedure TAppShell.OnTerminate;
begin
  Api.OutputText('Shell exited');
end;

procedure TAppShell.OnInputText;
var
  Text: string;
begin
  Text := Api.InputText;
  Api.OutputText(Text);
  if Text[1] = #13 then begin
    if Line = 'exit' then Terminate
    else begin
      Api.OutputText(LineEnding + 'Executing ' + Line + LineEnding);
      Api.ExecuteApp(Line);
    end;
    Line := '';
  end else Line := Line + Text;
end;

end.