source: branches/dcomp/CmdLine/Compiler/USourceCodePascal.pas

unit USourceCodePascal;

interface

uses
  Generics.Collections, USourceCode;

type
  TCommand = class
    Name: string;
  end;

  TFunctionCall = class(TCommand)

  end;

  TBeginEnd = class(TCommand)
    Commands: TObjectList<TCommand>;
    constructor Create;
  end;

  TSourceCodePascal = class(TSourceCode)
    Code: TBeginEnd;
  end;

implementation

{ TBeginEnd }

constructor TBeginEnd.Create;
begin
  Commands := TObjectList<TCommand>.Create;
end;

end.