Как вывести данные в поток STDERR из программы на Turbo Pascal 7.0/7.1?

Question

[1010101001000100110100111]

В Турбо Паскале, программе доступно два стандартных потока: <STDIN> в перемнной типа text Input и <STDOUT> в Output.



Пожалуйста, подскажите, как штатными средствами языка (можно даже с костылями, например, ассемблерными вставками, прерываниями, вызовами функций DOS и BIOS) открыть для записи поток ошибок <STDERR>.

Comments

[1010101001000100110100111]

В идеале, хотелось бы в итоге получить инициализированную переменную

var Error: text;

связанную с нужным системным дескриптором.

[1010101001000100110100111]

Кстати, в Delphi / Object Pascal, уже есть то, что я ищу

var ErrOutput: Text; { Standard error output }

Но, мне нужно, именно в Турбо Паскале чтоб работало.

Answer 1

[Ivan]

www.macgui.com/usenet/?group=107&id=6350#msg

Comments

[1010101001000100110100111]

К сожалению, не все так просто:

Demo.exe >out

и

Demo.exe 2>err

по отдельности работают, а, вот,

Demo.exe >out 2>err

или

Demo.exe 2>err >out

и, даже

Demo.exe 1>out 2>err

выдают:

Runtime error 006 at 0000:00A0.

[1010101001000100110100111]

При этом, аналогичная дельфовая прога

{$APPTYPE CONSOLE}
begin
Writeln('Standard output');
Writeln(ErrOutput, 'Standard error');
end.

при запуске

Demo32.exe >out 2>err

отрабатывает как надо — без ошибок.

[Лолшто]

Судя по всему, перенаправление stderr не предусмотрено не предусмотрено в DOS.

Поскольку Turbo Pascal компилирует в DOS, это может работать некорректно.

Answer 2

[wwi]

MS Dos, классика

echo «Error» 2> errorfile.log

файл № 2

Answer 3

[alexhemp]

Турбо-паскаль давно не брал в руки, лет 15 :)

Попробуйте что-то вроде такого:

program Demo;
uses
  Dos;
var
  StdErr: Text;
begin
  Assign(StdErr, '');
  Rewrite(StdErr);
  TextRec(StdErr).Handle:=2;

  Writeln('Standard output');
  Writeln(StdErr, 'Standard error');

  Close(StdErr);
end.

Ну и в unit, если заработает

Answer 4

[alexhemp]

А еще посмотрите в исходники модуля Dos (вроде Turbo Pascal должен быть и исходниками стандартных модулей) — может там уже есть переменная вроде ErrOutput

Answer 5

[alexhemp]

Нашел исходники Borland Pascal 7.0 — там Input и Output определены в system.pas и ничего с stderr нет :(