OberonCore

Задумал написать консольную утилитку, преобразующую входной текстовый файл. Взялся за XDS, поскольку это самый простой на сегодня консольный инструмент среди Оберонов. Требование такое: на выходе могут быть файлы с Unix-овыми переводами строк (одиночный символ LF = 0AX).

Out.Ln выдаёт CRLF, это понятно. Настройки, чтобы задать LF - нету, это ладно.
Out.Char(0AX) выдаёт последовательность CRLF. Это уже странно.
Ладно, модуль Out - это надстройка над стандартной подсистемой работы с каналами ввода-вывода, написанной на Modula. Полезем в эту подсистему.

RawIO.Write(StdChans.OutChan(), 0AX); - выдаёт CRLF.
ch := 0AX; IOChan.RawWrite(StdChans.OutChan(), SYSTEM.ADR(ch), 1); - выдаёт CRLF.

Чувствую себя идиотом.

Думаю, из чего мне теперь мою утилитку собирать. Неужели из ББ?

А ещё выяснилось, что символ 09X (горизонтальная табуляция) при компиляции заменяется на восемь пробелов.
Вот так.
В исходнике символ табуляции, а в объектном файле - уже восемь пробелов. Безо всяких предупреждений, внезапно.

И на Марсе бывает жизнь! ))

Попробовал воспользоваться консольным олимпиадным компилятором (подсистема Info21olimp). Всё работает, кроме одного: если в строковой константе встречается символ табуляции (09X), то в процессе работы компилятора этот символ заменяется на пять символов: " 09X ".
Подскажите, где наиболее актуальная версия подсистемы находится. Я слышал, там были доработки касательно положения маркеров ошибок в тексте и т.п.

Модуль Out очень простой. Лучше его самому написать, без всяких странностей.

Версия не менялась.

Вставка маркеров ошибок -- в школьной и базовой сборках для обеспечения перевода русских слов на английские и обратно, i21sysLanguage и т.д.

Но сама проблема непонятна.
Был текстовый файл. Во что он преобразуется? Откуда взялась цепочка литер? Зачем компилятор?
Всё это непонятно.

Текстовый файл превращается в исходный текст модуля на Обероне, который при запуске выдаёт этот текст. Затем для проверки модуль компилируется, запускается, и выдача сравнивается с первоначальным файлом. Вылезают отличия в переводах строк и табуляциях.

То есть нужно, чтобы модуль на Обероне выдавал плёвывал в точности этот текст?
Куда он его должен выдавать?

Если нужно зашить текст в виде цепочек литер, то опять же непонятно, в чем проблема: читая исходный тхт-файл мы же способны отфильтровать все спецсимволы, и зашить их в программу на Обероне соотв. образом. Не обязательно в виде литерных цепочек.

Вы правильно поняли.
Выдавать должен либо в файл, либо на стандартный вывод.Тема была в связи с тем, что стандартный вывод на консоль в XDS работает неправильно.

Изначально был простой sed-скрипт, который читал файл и выдавал все строки с префиксом "Out.String(" и суффиксом ");". Плюс заголовок и хвост модуля. Оказалось, что отличается конец строк. Написал модуль-обёртку, в котором Out.Ln выдавал нужные символы. Выяснилось, что XDS вообще не дружит с LF. Тогда переориентировал на олимпиадный компилятор. Выяснилось, что требуется специальная обработка символов табуляции.

Вернулся на XDS и решил проблему написанием собственного модуля выдачи на консоль по совету igor. Всего 54 строчки.

Я и сам так поступал. Считаю, что для небольшой утилиты, выполняющей простые вобщем-то действия, такой путь вполне оправдан. Это к вопросу об эффективности повторного использования кода.