Интерпретатор отдельно

Комментарии

• Vano

  November 2003 отредактировано 02:06

  Наверное для него нужны ещё-какие-нить вещи, котрые инициализируются в других модулях ?
  
  Глянь к примеру:
  constructor TfrGlobals.Create;
  
  
• John

  November 2003 отредактировано 02:06

  Спасибо, конечно, но там много чего, и потом, я не силен в Делфях, почему и спрашиваю.
  Вот мой техт, конечно, в него я впиндюрил кусочек из fr_class.pas, иначе интерпретатор вообще бы не работал, но он работает, только не хочет выполнять операторы ветвления. Там (в fr_intrp) применяется адресация по строкам скрипта, зашифрована в 2 байта, ставится при парсинге в начало строки, ну и естессно, если в стринг записать chr(0), то строка обрежется, если я не ошибаюсь. Я бы и поправил алгоритм интерпретатора, но он же рекурсивный - разбираться полгода надо, мне, во-всяком случае.
  Мабыть, я просто протупил где, не зная дельфей толком, если не трудно, поправь.
  
  
  
  unit Unit1;
  
  interface
  {$I FR.inc}
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FR_Pars, FR_Intrp;
  
  type
  TInterpretator = class(TfrInterpretator)
  public
  procedure GetValue(const Name: String; var Value: Variant); override;
  procedure SetValue(const Name: String; Value: Variant); override;
  procedure DoFunction(const name: String; p1, p2, p3: Variant;
  var val: Variant); override;
  end;
  
  TForm1 = class(TForm)
  Edit1: TEdit;
  Label1: TLabel;
  Button1: TButton;
  Memo1: TMemo;
  Memo2: TMemo;
  Memo3: TMemo;
  Button2: TButton;
  procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  procedure FormCreate(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure Edit1Change(Sender: TObject);
  procedure OnGetParsVariableValue(const s: String; var v: Variant);
  procedure OnGetParsFunction(const name: String; p1, p2, p3: Variant;
  var val: Variant);
  
  private
  { Private declarations }
  public
  
  { Public declarations }
  end;
  
  var
  Form1: TForm1;
  mypars:TfrParser;
  myvari:TfrVariables;
  myinter:TInterpretator;
  
  implementation
  
  function My_say_box(p1,p2,p3:Variant):integer;
  begin
  form1.Canvas.Pen.Color := p3;
  form1.Canvas.Rectangle(p1,p2,p1+p3,p2+p3)
  end;
  //uses FR_Pars;
  
  {$R *.DFM}
  
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  var
  retval: Variant;
  begin
  if key = #13
  then
  Label1.Caption := mypars.Calc(edit1.Text);
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  mypars:=TfrParser.Create;
  mypars.OnGetValue := OnGetParsVariableValue;
  mypars.OnFunction := OnGetParsFunction;
  myvari:=TfrVariables.Create;
  myinter:=TInterpretator.Create;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  myinter.PrepareScript(memo1.Lines,memo2.Lines,memo3.Lines);
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  myinter.DoScript(memo2.lines);
  end;
  
  procedure TForm1.Edit1Change(Sender: TObject);
  begin
  // Label1.Caption := mypars.Calc(edit1.Text);
  end;
  
  
  procedure Tform1.OnGetParsVariableValue(const s: String; var v: Variant);
  begin
  if myvari.IndexOf(s) <> -1 then
  begin
  v := myvari;
  end;
  end;
  
  procedure Tform1.OnGetParsFunction(const name: String; p1, p2, p3: Variant;var val: Variant);
  begin
  val:=0;
  if AnsiCompareText('SAY', Name) = 0 then
  val := My_say_box(p1,p2,p3);
  end;
  
  procedure TInterpretator.GetValue(const Name: String; var Value: Variant);
  begin
  if myvari.IndexOf(name) <> -1 then
  begin
  value := myvari[name];
  end;
  end;
  
  procedure TInterpretator.SetValue(const Name: String; Value: Variant);
  begin
  myvari[name]:=value;
  end;
  
  procedure TInterpretator.DoFunction(const Name: String; p1, p2, p3: Variant;
  var Val: Variant);
  begin
  val:=0;
  if AnsiCompareText('SAY', Name) = 0 then
  val := My_say_box(mypars.calc(p1),mypars.calc(p2),mypars.calc(p3));
  end;
  
  
  
  end.
• AlexTZ

  November 2003 отредактировано 02:06

  Возьмите нормальный, полноценный скриптовый движок (типа FastScript и не мучайтесь, интерпретатор от 2.5 слишком медленный и слабый по возможностям.