view/trunk/Cell.dpr

program Cell;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  CellG in 'CellG.pas',
  CellK in 'CellK.pas',
  CellV in 'CellV.pas';

var
  pTable: Boolean;
  pCode: Boolean;
  pTrace: Boolean;
  shokai: Boolean;
  _cellG: TCellG;
  _cellV: TCellV;
  _cellK: TCellK;
  s: string;
  i, j: integer;
begin
  { TODO -oUser -cConsole Main : この下にコードを記述してください }
        Writeln('Version 1.6');
        Readln(s);
        shokai:=true;
        _cellG:=nil;
        _cellV:=nil;
        _cellK:=nil;
  while s <> '' do
  begin
        pTable:=false;
        pCode:=false;
        pTrace:=false;
    if s[1] = '-' then
    begin
        j:=Length(s);
      for i:=2 to Length(s) do
      begin
        case s[i] of
        't':
                pTable:=true;
        'c':
                pCode:=true;
        'j':
                pTrace:=true;
        ' ':
        begin
                j:=i+1;
                break;
        end;
        end;
      end;
        s:=Copy(s,j,Length(s));
    end;
    if (s[1] = '"')and(s[Length(s)] = '"') then
    begin
        s:=Copy(s,2,Length(s)-2);
    end;
    if shokai = true then
    begin
        _cellG:=TCellG.Create(pTable);
        _cellV:=TCellV.Create(_cellG,pCode,pTrace);
        _cellK:=TCellK.Create(_cellV,_cellG);
        shokai:=false;
    end;
        _cellG.pTable:=pTable;
        _cellV.pCode:=pCode;
        _cellV.pTrace:=pTrace;
    if _cellG.open(s,_cellV) = false then
    begin
        Exit;
    end;
    if (pTable = true)or(pCode = true)or(pTrace = true) then
    begin
        Writeln('--- start compilation ---');
    end;
    try
      if _cellK.compile = true then
      begin
                _cellV.execute;
      end else
      begin
                Writeln('エラー個数:'+IntToStr(_cellG.e));
      end;
    except
        Writeln('エラー個数:'+IntToStr(_cellG.e));
    end;
        Readln(s);
  end;
        _cellG.Free;
        _cellK.Free;
        _cellV.Free;
end.