Pascal под DOS Опции

[yurpos]

Подскажите пожалуйста, можно ли Pascal загрузить без запуска WINDOWS? и если можно, то какую версию лучше использовать? и можно ли запустить его с флешки?

[OCTAGRAM]

А это смотря какой. Если для голых досок, но с многозадачностью — тогда эту клавиатуру нужно ещё подключить суметь. Я так понимаю, там датчики всякие и порты ввода/вывода под рукой, а клавиатуру, например, через USB придётся читать.

Если GNAT для Windows, запущенный под DOS одним из расширителей, то расширитель сводит WinAPI к DOS API. Как там через несколько слоёв (в Windows даже и без эмуляции юникодный ввод/вывод весёлый) всё будет проходить, не знаю, и именно поэтому я бы взял Win32Ada и делал прямые вызовы к консольному WinAPI. А дальше ответ на ваш вопрос зависит от реализации расширителя DOS. Какие-то вроде бы умеют в Юникоде давать ответ на ReadConsoleW.

В принципе, есть возможность стандартные текстовые потоки ввода/вывода читать/писать как бинарные. Для этого берётся Ada.Text_IO.Standard_Input и подаётся на вход Ada.Text_IO.Text_Streams.Stream, а дальше с ним идёт работа как с потоком.

Пример чтения файла средствами двоичных потоков (Показать/Скрыть)

   -----------------------
   -- Get_File_Contents --
   -----------------------

   function Get_File_Contents (File_Name : String) return String is
      F : Ada.Streams.Stream_IO.File_Type;
   begin
      Ada.Streams.Stream_IO.Open (F, Ada.Streams.Stream_IO.In_File, File_Name, "Text_Translation=No,WCEM=8,encoding=utf8,shared=no");

      return Result : String (1 .. Natural (Ada.Streams.Stream_IO.Size (F))) do
         String'Read (Ada.Streams.Stream_IO.Stream (F), Result);
         Ada.Streams.Stream_IO.Close (F);
      end return;

   exception
      when others =>
         Ada.Streams.Stream_IO.Close (F);
         raise;
   end Get_File_Contents;

Здесь собственно ядро — это String'Read, но для него нужно заранее знать размер, в данном примере это заранее известный размер файла. Есть ещё функция String'Input, она двоично считает длину строки в системном endian (на x86 сначала самый младший байт), потом саму строку и вернёт как функцию. Как правило, такое поведение мало, где нужно, но вот Character'Input (S) вполне полезен. И есть парные им атрибуты 'Write (не пишет дискриминанты, а только содержимое) и 'Output (сначала дискриминанты, потом содержимое). Атрибуты такие есть у многих типов. Integer'Input (S) прочитает 4хбайтовое число в системном endian. Если тип record объявить, у него такие атрибуты автоматически появятся.

Но я вот опасаюсь, что эти функции уже могут работать поверх какого-то слоя, который делает UTF-8 поверх консоли Windows (где-нибудь в MinGW), и как этот слой ведёт себя на расширителе, неизвестно.

Есть ещё довольно старый GNAT 3.15p для DOS (не WinAPI), можно найти, если видновый на расширителях не будет работать. Но там по API я не знаю, как. По крайней мере, ассемблерным шаблоном прерывания-то можно вызывать из защищённого режима, и наверняка в библиотеке GNAT найдётся высокоуровневая обёртка для вызова прерываний. Соответственно, и опрашивать через прерывания DOS.


Ещё такой вариант. В расширителях DOS (как с эмуляцией WinAPI, так и без), я так понимаю, нет страничной адресации, и буфер клавиатуры можно читать напрямую из памяти, а он где-то в первых байтах. Тогда можно под него record объявить с его структурой, переменную объявить с pragma Import и указать адрес в физической памяти.

Какого-то единого модуля Crt для GNAT мне неизвестно. GNATCOLL.Terminal умеет цвета в консолях Windows и Linux переключать, а опросить клавиатуру — не может, там вообще нет ввода. Ближайший аналог TextTools разрабатывается, главным образом, на Linux. Если у них там действительно ncurses в основании, то гипотетически можно на Windows взять pdcurses, у которого такой же API, и тогда функцией KeyPress узнавать, нажата ли какая-то клавиша. Но понятно, что проще взять Win32Ada и делать вызовы напрямую, чем портировать TextTools.

Сообщение отредактировано: OCTAGRAM - 8.09.2017 5:01