freepascal.ru

Код: Выделить всё

class Lexer:

   NUM, ID, IF, ELSE, WHILE, DO, LBRA, RBRA, LPAR, RPAR, PLUS, MINUS, LESS, \
   EQUAL, SEMICOLON, EOF = range(16)

   WORDS = { 'if': IF, 'else': ELSE, 'do': DO, 'while': WHILE }

   ch = ' ' # допустим, первый символ - это пробел

   def next_tok(self):
      self.value = None
      self.sym = None
      while self.sym == None:
         if self.ch.isalpha():
            ident = ''
            while self.ch.isalpha():
               ident = ident + self.ch.lower()
               self.getc() # читаем очередной символ в ch
            if ident in Lexer.WORDS:
               self.sym = Lexer.WORDS[ident]


Код: Выделить всё

uses
  SysUtils,
  strutils;

type
TLexer = object
public type
  TToken = (NUM, ID, _IF, _ELSE, _WHILE, _DO, LBRA, RBRA, LPAR, RPAR, PLUS,
            MINUS, LESS, EQUAL, SEMICOLON, EOF);
public const
  WORDS: array[0 .. 4 - 1] of AnsiString = ('if', 'else', 'do', 'while');
private
  FCh: AnsiChar;
  FValue: Pointer;
  FSym: AnsiString;
protected
  procedure GetC; virtual;
public
  constructor Init;
  procedure NextTok;
end;

procedure TLexer.GetC;
begin
  Read(FCh);
end;

constructor TLexer.Init;
begin
  FCh := 'i';
end;

function IsAlpha(C: AnsiChar): Boolean;
begin
  IsAlpha := C in ['a'..'z', 'A'..'Z'];
end;

procedure TLexer.NextTok;
var
  Ident: AnsiString;
begin
  FValue := nil;
  FSym := '';
  while FSym = '' do begin
    if IsAlpha(FCh) then begin
      Ident := '';
      while IsAlpha(FCh) do begin
        Ident := Ident + LowerCase(FCh);
        GetC;
      end;
      if AnsiIndexStr(Ident, WORDS) <> -1 then
        FSym := Ident;
    end;
  end;
end;

begin
end.

Код: Выделить всё

    else if Fch in ['{', '}', '=', ';', '(', ')', '+', '-', '<'] then
    begin
      case Fch of                  // если символ
        '{': Fsym := LBRA;
        '}': Fsym := RBRA;
        '=': Fsym := EQUAL;
        ';': Fsym := SEMICOLON;
        '(': Fsym := LPAR;
        ')': Fsym := RPAR;
        '+': Fsym := PLUS;
        '-': Fsym := MINUS;
        '<': Fsym := LESS;
      end;
      Getc();
    end


Дож писал(а):воспользоваться любой мапой/словарём (стандартного встроенного в язык нет, нужно смотреть либы).