[Tutorial] Interpreter-Sprache mit Delphi

[Crash-Override]

Tutorial
Interpreter-Sprache entwickeln (Teil II)
Mittels der Verwendung von Delphi

#1o – Print erweitern
Das Print war ja, meiner Meinung nach nicht so der Bringer. Viel Edler wäre etwas wie Print ’TEXT’; oder so was. Könnt ihr haben! Nehmen wir die Funktion ParsePrint

Code:

function ParsePrint(s:String):String;
var
  i: Integer;
Begin
  for i := 1 to Length(s) do
  Begin
    if s[i] <> '''' then
      if s[i] <> '"' then
        if s[i] <> ';' then
          Result := Result + s[i];
  End;
End;

Sie bearbeitet den String. Nun editieren wir in der Make den Print-Befehl zu:

Code:

  if get(1,5,uppercase(s)) = 'PRINT' then
  Begin
    ShowMessage(Trim(ParsePrint(get(6,Length(s),s))));
    Result := False;
  End;

#11 – Variabel-Support
Variabeln zu nutzen ist nicht so einfach wie man denkt. Dafür müssen wir zuerst einen neuen Type erstellen:

Code:

  TVari = record
    Name: string;
    Wert: string;
  end;

(Types werden direkt unter type(unter den uses) deklamiert)

Mittels dieses Types ist es einfach eine Variable mit dem Type Vari zu erstellen, da wir allerdings mehrer Brauchen verwenden wir ein Array. Wir deklamieren es also Global.

Code:

Variable: array[1..100] of TVari;

#12 – Variable mit Wert füllen
Im letzen Schritt wurde der Support für Variabeln hinzugefügt, diesmal wollen wir eine Variable mit einem Wert beschreiben.

Code:

function Variable(Name: String; Wert: String): Boolean;
var
  i: Integer;
  Exit: Boolean;
Begin
  i := 0;
  repeat
    i := i + 1;
    if frmMain.Variable[i].Name = Name then
    Begin
      Exit := False;
      frmMain.Variable[i].Wert := Wert;
    End;
  until (i = 100) OR (Exit = True) OR (frmMain.Variable[i].Name = '');
  if frmMain.Variable[i].Name = '' then
  Begin
    frmMain.Variable[i].Name := Name;
    frmMain.Variable[i].Wert := Wert;
  End;
  Result :=  False;
  if (i >= 100) AND (frmMain.Variable[i].Name <> Name) then
  Begin
    Result := True;
    frmMain.Console.Lines.Add('Es sind schon zu viele Variabeln in Verwendung!');
    frmMain.Console.Lines.Add('Es dürfen Maximal 100 Variabeln in dieser Version verwendet werden!');
  End;
End;

(Euer Formularname = frmMain)

Im Groben kann man sagen das das Teil solange alle Variabeln durchgeht bis entweder
a) Die Variable gefunden wird, dann wird der Wert zugewiesen
b) Irgendwann Leere Varinamen in der Liste auftauchen, das heißt die Vari steht noch nicht in der Liste, also fügen wir sie hinzu
c) Keine der 100 Varis diesen Namen trägt, also geben wir einen Fehler aus.

So, aber jetzt zur Nutzung:

In Make:

Code:

  if uppercase(S[1]) = '$' then
  Begin
    Result := Variable(get(2,FindEndVar(s),s),get(FindEndVar(s)+2,Length(s),s));
  End;

So, nun brauchen wir noch die Funktion FindEndVar. Diese Funktion soll herrausfinden wo der Variabelname in der Zuorndung aufhört(vor ’=’):

Code:

function FindEndVar(S: String): Integer;
var
  i: Integer;
Begin
  Result := -1;
  for i := 1 to Length(s) do
  Begin
    if (s[i] = '=') AND (Result = -1) then
      Result := i-1;
  End;
End;

So, das Variabelzuweisen sollte nun klappen.

#13 – Variable Ausgeben
Ich weiß, das das nicht leicht ist, aber ich habe euch am Anfang gewarnt und wenn ihr hier seid, dann nennt euch echte 31337-Delphianer

So, zurück zum Problem: Der Ausgabe einer Variable.

Wir nehmen die Funktion PrintVari dafür:

Code:

function PrintVari(S: String): String;
var
  i: Integer;
  First: Integer;
  Last: Integer;
  t: String;
Begin
  i := 0;
  t := s;
  First := 0;
  Last := 0;
  repeat
    i := i + 1;
    if s[i] = '$' then
      First := i;
    if (s[i] = ';') AND (First <> 0) then
    Begin
      Last := i;
      t := StringReplace(t, FindPrint(get(First,Last,t)), VariableFind(FindPrint(get(First+1,Last-1,t))), [rfIgnoreCase]);
      First := 0;
      Last := 0;
    End;
  until i >= Length(s);
  Result := t;
End;

Die Funktion sucht in einem String nach einem $ und liest den Namen der gemeinten Variable aus und ersetzt ihn schließlich durch dessen Wert.

Nun noch die Funktion VariableFind die für uns den Wert rauskramt.

Code:

function VariableFind(Name: String): String;
var
  i: Integer;
  Exit: Boolean;
Begin
  i := 1;
  Result := '';
  repeat
    if frmMain.Variable[i].Name = Name then
    Begin
      Exit := True;
      Result := frmMain.Variable[i].Wert;
    End;
  until (i = 100) OR (Exit = True) OR (frmMain.Variable[i].Name = '');
  if Result = '' then
  Begin
    frmMain.Console.Lines.Add('Error, Variable '+Name+' is not declameted!');
    frmMain.Kill := True;
  End;
End;

So, dann nur noch die Print-Anweisung in Make so ersetzen:

Code:

  if get(1,5,uppercase(s)) = 'PRINT' then
  Begin
    ShowMessage(Trim(ParsePrint(PrintVari(get(6,Length(s),s)))));
    Result := False;
  End;

So, und nun zum Test:

Code:

$name=Crash
Print ’Hallo, $name;’;

#14 – Variabel-Support beenden nach Run
Damit vor jedem Run die Variabeln aus dem Array gelöscht werden setzt das hier an den Anfang des Start-Button.OnClick Ereignisses:

Code:

  for i := 1 to 100 do
  Begin
    Variable[i].Name := '';
    Variable[i].Wert := '';
  End;

#15 – Ende
Für die IF’s hat’s diesmal wieder nicht gereicht, doch ich hoffe ihr könnt mit diesen Variabel-Funktionen was anfangen. Dieses Mal gebe ich bewusst einen Beispiel-Download-Quellcode mit, da ich denke da es diesmal echt nicht einfach war. Der Quellcode ist compilebar, dennoch hoffe ich das ihr sofern ihr ihn verwendet mich wenigstens Informiert und mich dabei erwähnt.

=> Beispielquellcode