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

[yurpos]

Ещё такой вариант.

Почитал руководство по ADA)... пока мне сложно оценить будет ли от него польза, более 400 страниц не одолеть за один вечер... и даже за 10.
отсюда вопрос могу ли я вас попросить (поскольку как я понял хорошо знаете тему) запустить на ADA кусочек программы (Pascal строк 10) связанный с опросом буфера клавиатуры и работающий в реальном времени?
Если о результате невозможно будет сказать какая программа его выводит, значит в принципе можно двигаться дальше, т.е. добавить в него кусочек кода для определения девиации времени (ещё строк 20) и если результат будет в пределах 1-2% можно пробовать перебивать весь код целиком.

Сообщение отредактировано: yurpos - 8.09.2017 13:40