компилятор русского pascal

[dimusiko]

задали сделать компилятор русского pascal тоесть написать программу которая обращаясь к файлу с другой программой тоже на паскале переводила бы все операторы на русский язык.. тоесть вместо: program, begin, of, integer и других операторов паскаля писался их перевод на русский тоесть: программа, начало и т.д. кто нибудь подскажет с чего начать плясать... не могу понять как можно это сделать. помогите пожалуйста кто действительно шарит.

[Serge_Bliznykov]

читайте основы проектирования компиляторов: лексический и синтаксический анализаторы.

[type_Oleg]

А есть такой Странник - Паскаль на русском. Вроде бы, даже в открытых кодах.
Можете посмотреть.

[Stilet]

переводила бы все операторы на русский язык

Так это же не компилятор )
Простой перевод слов в файле достигается легко.
Правда на разных языках пишется по разному.

[Poma][a]

читайте основы проектирования компиляторов: лексический и синтаксический анализаторы.

ИМХО тут можно обойтись меньшей кровью

Берем читаем программку (для наглядности будем читать не из файла). Прочли строку - записали её в другой файлик, заменяя все "программа" на "program", etc.. После чтения последней строки (когда Pos (s, 'end.') <> 0). Компилируем на "буржуйском" паскале программку. И говорим о результате компиляции.. Вуаля!

[Vapaamies]

Сообщение от Poma][a

Прочли строку - записали её в другой файлик, заменяя все "программа" на "program", etc..

Слово 'program' может быть и частью комментария, и частью строковой константы. Если по условиям задания разбор должен быть честным, то без лексического анализатора, пусть и упрощенного, тут не обойтись. Выглядит примерно так:

function NextToken(S, Limit: PLegacyChar; AllowSlashSlash: Boolean = False): TToken;
var
  T: PLegacyChar;
begin
  while S < Limit do
  begin
    while (S < Limit) and not (S^ in ['A'..'Z', 'a'..'z', '_', '''', '{', '(', '/']) do
      Inc(S);
    case S^ of
      '''':
        begin
          Inc(S);
          while (S < Limit) and not (S^ in ['''', #13, #10]) do // skip 'strings'
            Inc(S);
        end;
      '{':
        while (S < Limit) and (S^ <> '}') do // skip {comments}
          Inc(S);
      '(':
        begin
          Inc(S);
          if S^ = '*' then // skip (*comments*)
          begin
            Inc(S);
            while S < Limit do
            begin
              while (S < Limit) and (S^ <> '*') do
                Inc(S);
              if S[1] <> ')' then
                Inc(S);
            end;
          end;
        end;
      '/':
        begin
          T := S + 1;
          if T^ = '/' then // skip //comments
          begin
            Inc(T);
            if AllowSlashSlash then
            begin
              with Result do
              begin
                Token := S;
                Count := T - S;
                Next := T + 1;
              end;
              Exit;
            end;
            S := T;
            while (S < Limit) and not (S^ in [#13, #10]) do // manual NextLine inline
              Inc(S);
          end
          else
            S := T;
        end;
    else
      T := S;
      while (T < Limit) and (T^ in ['A'..'Z', 'a'..'z', '0'..'9', '_', '.']) do
        Inc(T);
      with Result do
      begin
        Token := S;
        Count := T - S;
        Next := T + 1;
      end;
      Exit;
    end;
  end;
  with Result do
  begin
    Token := nil;
    Next := S + 1;
  end;
end;

Полный исходник гуглить по ключевому слову "Пифия" на сайте board.kolibrios.org.