Интерпретатор на Delphi

[Deni55]

Помогите пожалуйста!!!

требуется написать программу интерпретатор языка pascal
в окно мемо загрузается текст с кодом, который в последствии будет проанализирован. Требуется найти ошибку в операоре, преобразоать код в систему счисления 4 и проверить правельность выполнения цикла в данном случае цикл repeat .... until....

В архиве находися файл с расширением .pas
В нем описан код в котором пререводится в 4 систему счисления, выполняется проверак но реализовано для цикла Case .. of.....
как его переделать для repeat .... until....

Помогите!!! очень нужна ваша помощь!

[Deni55]

Этот же файл, только с коментариями

   //анализ строки, содержащей оператор 'case' нужно сделать для repeat

procedure strcase(strprog: string; tst:boolean);      //в strprog- строка программы с оператором 'case'; признак tst=true - только синтаксический анализ строки, tst=false - синтаксический анализ строки и ее выполнение
var c: char; i,n: byte; str,str1: string; s_op: array [1..2] of string; fl_minus: boolean;
    c1: array [1..2] of char; kons, op: array [1..2] of Int64;
begin
  strprog:=TrimLeft(strprog);      //убираем пробелы слева
  Delete(strprog,1,4);               //убираем из строки слово 'case'
  strprog:=TrimLeft(strprog);        //убираем левый пробел (или пробелы)
    //проверяем символ, следующий после 'case'
  if not (strprog[1] in ['a'..'z']) or (strprog[2]<>' ') then      //если это не символ идентификатора с последующим пробелом- ошибка
  begin errorsoob(10); exit; end;

  if  not nal_var[ord(strprog[1])-96] then begin errorsoob(8); exit; end         //использование идентификатора, неописанного в строке 'var'
  else nal_pr[ord(strprog[1])-96]:=true;        //признак: идентификатор, описанный в строке 'var', используется в программе
  c:=strprog[1];                            //запоминаем символ идентификатора
  Delete(strprog,1,2);                  //убираем идентификатор из текущей строки (вместе с последующим пробелом)
  strprog:=TrimLeft(strprog);           //если есть еще пробелы - убираем их из strprog
  if (Pos('of ', strprog)<>1) then     //если первое слово в strprog не 'of' с последующим пробелом- ошибка
  begin errorsoob(10); exit; end;       //cтрока не соответствует синтаксису языка
  Delete(strprog,1,2);                //убираем из strprog 'of'

  n:=Pos(' end',strprog);                //конец оператора 'case' - 'end' с пробелом перед 'end' или с ';'
  if n=0 then n:=Pos(';end',strprog);
  if (n<>(length(strprog)-3)) then begin errorsoob(10); exit; end;    //cтрока не соответствует синтаксису языка
  Delete(strprog,n+1,3);   //убираем из строки завершающий 'end'

  repeat                //удалить из оставшейся строки все пробелы
    n:=Pos(' ',strprog);
    if n<>0 then Delete(strprog,n,1) else break;
  until false;
  if strprog[length(strprog)]=';' then strprog:=Copy(strprog,1,length(strprog)-1);

  n:=Pos(';', strprog);                     //поиск ';' после первого оператора
  if n=0 then begin errorsoob(10); exit; end;        //cтрока не соответствует синтаксису языка
  str:=Copy(strprog,1,n-1);                     //в str - первая константа и первый оператор
  str1:=str;
  Delete(strprog,1,n);                     //убираем из строки первый оператор (теперь в strprog - вторая константа и второй оператор)
  s_op[1]:=str; s_op[2]:=strprog;

  for i:=1 to 2 do               //в структуре оператора 'case' две константы
  begin
    fl_minus:=false;
    if str[1]='-' then begin fl_minus:=true; Delete(str,1,1); end;      //запоминаем признак отрицательного числа и удаляем знак '-'
    if not (str[1] in ['0'..'3']) then                      //следующим словом в структуре оператора 'case' должна быть - константа (в четверичной системе счисления)(а значит. первый ее символ должен начинаться с цифры)
    begin
      if str[1] in ['4'..'9'] then errorsoob(7)     //числовая константа не в четверичной системе счисления
      else errorsoob(10);                              //cтрока не соответствует синтаксису языка
      exit;
    end;
    if not (poisk_operand(str, kons[i])) then exit;    //если не ошибка в синтаксисе операнда, запоминаем константу в операторе 'case'
    if fl_minus then kons[i]:=-kons[i];
    if (str[1]<>':') then begin errorsoob(10); exit; end;  //следующим символом после константы в структуре оператора 'case' должно быть ':' (если его нет - ошибка)
    Delete(str,1,1);               //убираем из strprog символ ':'
    if (Pos('readln(',str)<>0) then
      if  not strread(str,true) then           //синтаксическая ошибка в строке
        exit
      else
        begin str:=s_op[2]; continue; end;           //в str - вторая константа и второй оператор
    if not stropprisv(str, op[i], c1[i]) then exit;    //следующим в в структуре 'case' должен быть оператор (проверяем только его синтаксис)
    str:=s_op[2];                                  //в str - вторая константа и второй оператор
  end;

  if tst then exit;              //выход, если только проверка синтаксиса
       //после проверки синтаксиса оператора 'case' вычислим его
  for i:=1 to 2 do                         //в структуре оператора 'case' две константы
  begin
    if val[ord(c)-96]=kons[i] then         //убираем из строки константу вместе с ':'(остается только оператор 'readln()')
    begin
      if (Pos('readln(',s_op[i])<>0) then
      begin
       Delete(s_op[i],1,Pos(':',s_op[i]));
       strread(s_op[i],false);  //выполнение оператора 'readln()'
       break;
      end;
      val[ord(c1[i])-96]:=op[i];      //вычисление оператора
      break;
    end;
  end;
  Vyvodval(false);
end;

[Deni55]

       //анализ строки кода программы
procedure Analizstr(s: string; tst:boolean);  //в s- строка кода программы; признак tst=true - только синтаксический анализ строки, tst=false - синтаксический анализ строки и ее выполнение
var op: Int64; idn: char;
begin
  if (nstr<>1) and (nstr<>code.Count-1) then    //не строка 'begin' и не последняя строка ('end.')
  begin
    if s[length(s)]<>';' then begin errorsoob(4); exit; end;    //в конце строки кода должен быть символ ';'
    s:=Copy(s,1,length(s)-1);                //удаляем символ ';' из конца строки
  end;
  if s='' then begin errorsoob(10); exit; end;     //cтрока не соответствует синтаксису языка
  case nstr of
  0:
    begin
      if (Pos('var ',s)<>1) then errorsoob(13)      //если это первая строка кода и она начинается не с ключевого слова 'var' - ошибка
      else strvar(s);                    //анализ строки 'var', содержащей список идентификаторов
    end;
  1:
    if s<>'begin' then errorsoob(1);       //вторая строка должна быть 'begin'
  else
    begin
      if nstr = code.Count-1 then               //если это последняя строка кода
      begin
        if s<>'end.' then errorsoob(2);        //последняя строка должна быть 'end.'
        exit;
      end;
      if Pos('case ',s)<>0 then strcase(s,tst)        //если в строке найдено ключевое слово 'case', выполнить анализ строки, содержащей управляющую конструкцию 'case'
      else
        if Pos('readln(',s)<>0 then strread(s,tst)   //если в строке найдено ключевое слово 'readln', выполнить анализ строки, содержащей оператор 'readln'
        else
          if Pos(':=',s)<>0 then                //если в строке найден знак присвоения (:=')
          begin
            if stropprisv(s, op, idn) then      //выполнить анализ строки, содержащей оператор присвоения и, если нет синтаксических ошибок в строке
              if not tst then begin val[ord(idn)-96]:=op; Vyvodval(false); end;
          end
          else errorsoob(10);   //иначе cтрока не соответствует синтаксису языка
    end;
  end; //case
end;

[Deni55]

Помогите!!! подскажите как сделать!!

[mss]

для цикла Case .. of

Case .. of - это вообще не цикл

//в конце строки кода должен быть символ ';'

Это с какого же перепугу ?

В конце строки могут быть и пробельные символы, и правилам Паскаля это не противоречит.

И вообще куча несуразностей в логике твоего анализатора.

[Deni55]

однако работает