Компилятор Oberon-07

• 0CodErr

  Posts 1498

  Joined: Sun Oct 30, 2011 6:43 pm

  Sun Apr 15, 2018 8:44 pm

  akron1 wrote:Не подсвечиваются шестнадцатиричные константы и вложенные комментарии. Конечное END считается ошибкой, если в процедуре нет BEGIN, а такое возможно

  Некоторые вещи пофиксил.
  Теперь список процедур должен отображаться правильно в выпадающем списке:

  Spoiler:

  

  drop_down_list.PNG (60.1 KiB)

  Viewed 13900 times

  Процелурные типы

  Code: Select all

  TYPE ProcName = PROCEDURE...

  и переменные процедурных типов

  Code: Select all

  Var ProcName : PROCEDURE...

  тоже попадают в этот список.
  Если это лишнее — убрать не долго, нужно отредактировать секцию <LABELS>...</LABELS> в файле ob07_spec.xml — убрать ненужные <Label.../>.
  
  Комментарии сейчас могут быть дважды вложенными, то есть, например, так:

  Code: Select all

  (* 
     (*
      *
      *  (* *** *)
      *
      *)
  *)

  Я просто не знаю, как это правильно реализовать, сделал, как смог

  Spoiler:

  comment2 может находится в контейнере comment1, который может находится в контейнере comment:

  Code: Select all

  <Style id="comment"...
    <Blocks>
      <Block open="//" close="\n"/>
      <Block open="(*" close="*)"/>
    </Blocks>
  </Style>
  <Style id="comment1"...
    <Containers>
      <Open id="comment"/>
      <Close id="comment"/>
    </Containers>
    <Blocks>
      <Block open="(*" close="*)"/>
    </Blocks>
  </Style>
  <Style id="comment2"...
    <Containers>
      <Open id="comment1"/>
      <Close id="comment1"/>
    </Containers>
    <Blocks>
      <Block open="(*" close="*)"/>
    </Blocks>

  Редактор HippoEDIT позволяет настроить выполнение той или иной программы(команды, bat, и т.п.) в зависимости от расширения открытого файла.
  Вполне удобно иметь возможность компилировать и запускать скомпилированный файл прямо из редактора.
  
  Для этого выбираем меню->Tools->Manage Tools
  У меня в данный момент уже открыта вкладка с файлом с расширением .ob07, поэтому в меню отображается Manage Tools(Oberon-07)

  Spoiler:

  

  menu.PNG (22.62 KiB)

  Viewed 13900 times

  После открытия диалога Manage Tools(см. скриншот под спойлером ниже) выбираем в нём нажатием мыши значок Oberon-07.
  Кнопкой Add добавляем новый пункт.
  Указываем название(будет отображаться в меню Tools). Я назвал Ob-07 Compiler.
  Указываем путь к исполняемому файлу компилятора.
  Для сборки консольного приложения под Windows компилятору нужно указать опцию 'con', пишем в аргументах:

  Code: Select all

  %MainFile% con  

  Указываем Initial directory:

  Code: Select all

  %FileDir%

  Можно определить горячую клавишу, по нажатию которой будет запускаться нужная программа(или bat-файл).
  
  Для того, чтобы запускать скомпилированный файл, создадим ещё один пункт.
  Я назвал его Run.
  В поле Command нужно ввести:

  Code: Select all

  %MainFileDir%\%FileNameWOExt%.exe

  Spoiler:

  

  ob07+run.PNG (65.89 KiB)

  Viewed 13900 times

  Теперь когда активная вкладка будет содержать открытый файл с расширением .ob07, то в меню Tools должны появиться два пункта: Ob-07 Compiler и Run.

  Ob07_.7z (2.53 KiB)

  Downloaded 409 times

  • Quote

PROCEDURE test (n: INTEGER);
VAR
    a: INTEGER;
BEGIN
    WHILE n > 0 DO
        a := 7FFFFFFFH;
        WHILE a > 0 DO
            a := a - 1
        END;
        n := n - 1
    END
END test;

<Regexp text="[0-9][0-9A-F]*X" lead="[^\w]"/>

      <Style id="char" name="Char" text="1" bold="0" italic="0" underline="0" clr="Strings" bkclr="#FFFFFFFF">
        <Blocks>
          <Block open=""" close="""/>
          <Regexp text="[0-9][0-9A-F]*X" lead="[^\w]"/>
        </Blocks>
      </Style>

      <Style id="number" extend="true">
        <Blocks>
          <!--  0xFFFF -->
          <Regexp text="0x[0-9A-Fa-f]+\>" lead="[^\w]"/>
          <!-- Binary: 0b1010 -->
          <Regexp text="0b[01]+\>" lead="[^\w]"/>
          <!-- Octal: 01234567 -->
          <Regexp text="0[0-7]\>" lead="[^\w]"/>
          <!-- Decimal  are built-in -->
        </Blocks>
      </Style>

PROCEDURE (VAR r: REC);
procedure (typeof(r), adr(r)); stdcall

PROCEDURE (a: ARRAY OF ... );
procedure (adr(a), len(a, 0), len(a, 1)...); stdcall

PROCEDURE (a: ARRAY OF ... );
procedure (len(a, 0), len(a, 1)..., adr(a)); stdcall