source: branches/AS8051toC/USource.pas

unit USource;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, SpecializedList;

type
  TSourceItem = class
  end;

  TSourceItemText = class(TSourceItem)
    Text: string;
  end;

  TSourceItemMacro = class(TSourceItem)
    Name: string;
    Parameters: TListString;
    Items: TListObject;
  end;

  { TSource }

  TSource = class
    Items: TListObject; // TListObject<TSourceItem>
    constructor Create;
    destructor Destroy; override;
  end;

  TAsmSource = class
    Labels: TListObject;
  //  Items:
  end;


implementation

{ TSource }

constructor TSource.Create;
begin
  Items := TListObject.Create
end;

destructor TSource.Destroy;
begin
  FreeAndNil(Items);
  inherited;
end;

end.