source: branches/AS8051toC/UMainForm.pas

unit UMainForm;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, SynHighlighterCpp, SynEdit, SynMemo,
  SynHighlighterAny, SynHighlighterPas, Forms, Controls, Graphics, Dialogs,
  StdCtrls, UParser, UCompiler;

type
  { TFormMain }

  TFormMain = class(TForm)
    ButtonSelectDir: TButton;
    ButtonConvert: TButton;
    EditPath: TEdit;
    OpenDialog1: TOpenDialog;
    SynCppSyn1: TSynCppSyn;
    SynMemo1: TSynMemo;
    function IsKeyword(Text: string): Boolean;
    procedure ButtonConvertClick(Sender: TObject);
    procedure ButtonSelectDirClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  public
    MainFile: TStringList;
    MainFileOut: TStringList;
    Macros: TStringList;
    Compiler: TCompiler;
    CompilerMacro: TCompilerMacro;
    procedure Error(Text: string);
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

{ TFormMain }

function TFormMain.IsKeyword(Text: string): Boolean;
var
  I: integer;
begin
  Result := False;
  for I := 0 to High(Instructions) do
    if Instructions[I] = Text then
      Result := True;
end;

procedure TFormMain.ButtonConvertClick(Sender: TObject);
begin
  MainFile.LoadFromFile(EditPath.Text);
  MainFileOut.Text := CompilerMacro.Compile(MainFile.Text);
  MainFileOut.Text := Compiler.Compile(MainFileOut.Text);
  ForceDirectoriesUTF8(ExtractFileDir(EditPath.Text) + DirectorySeparator + 'C');
  MainFileOut.SaveToFile(ExtractFileDir(EditPath.Text) + DirectorySeparator + 'C' +
    DirectorySeparator + 'main.c');
  SynMemo1.Lines.Assign(MainFileOut);
end;

procedure TFormMain.ButtonSelectDirClick(Sender: TObject);
var
  Dir: string;
begin
  OpenDialog1.FileName := EditPath.Text;
  if OpenDialog1.Execute then begin
    EditPath.Text := OpenDialog1.FileName;
  end;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  MainFile := TStringList.Create;
  MainFileOut := TStringList.Create;
  CompilerMacro := TCompilerMacro.Create;
  CompilerMacro.Parser.OnError := Error;
  Compiler := TCompiler.Create;
  Compiler.Parser.OnError := Error;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(MainFile);
  FreeAndNil(MainFileOut);
  FreeAndNil(CompilerMacro);
  FreeAndNil(Compiler);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  ButtonConvertClick(Self);
  //Close;
end;

procedure TFormMain.Error(Text: string);
begin
  Compiler.Emit('Error: ' + Text + LineEnding);
  Compiler.Parser.Position := Length(Compiler.Parser.Source) + 1;
end;



end.