OberonCore

Здравствуйте.

Кто нибудь читал с диска программно odc файл
(например, посимвольно). Не можете выложить минимальный
примерчик.

Заранее благодарю.
С уважением,
Кубанычбек.

odc - бинарный файл, его читают не посимвольно, а побайтово. Но если читать побайтово, то почему вопрос именно про odc, а не про любой другой тип бинарных файлов? Хотите сделать свою реализацию модуля Stores? Ну, тогда, в качестве примера можно взять сам модуль Stores.

Под словом посимвольно я имел ввиду чтение без флагов форматирования. Вот таким способом я записываю одц файл

tOdc*=POINTER TO RECORD
f: TextMappers.Formatter;
t*: TextModels.Model; v: TextViews.View;
loc: Files.Locator;
res: INTEGER;
conv: Converters.Converter;
fileName:Files.Name;
END;

PROCEDURE (odc:tOdc ) OpenAt*(folderName:ARRAY OF CHAR),NEW;
BEGIN
odc.loc := Files.dir.This(folderName);
odc.t := TextModels.dir.New(); (* ñîçäàíèå ïóñòîãî íîñèòåëÿ òåêñòà *)
odc.f.ConnectTo(odc.t)
END OpenAt;

PROCEDURE (odc:tOdc ) Save * (fileName:ARRAY OF CHAR ),NEW;
VAR res:INTEGER;
BEGIN
odc.v := TextViews.dir.New(odc.t); (* ñîçäàíèå îòîáðàæåíèÿ òåêñòà äëÿ ñîçäàííîãî âûøå òåêñòà *)
odc.fileName:=fileName$;
odc.conv:=NIL;
Views.Register (odc.v,FALSE,odc.loc,odc.fileName,odc.conv,odc.res)
END Save;

PROCEDURE (odc:tOdc) String*(str:ARRAY OF CHAR),NEW;
VAR i:INTEGER;
BEGIN
i:=0;
WHILE str[i]#0X DO
IF str[i]=09X THEN
odc.f.WriteTab
ELSE
odc.f.WriteChar(str[i])
END;
INC(i)
END
END String;

PROCEDURE (odc:tOdc) Ln*(),NEW ;
BEGIN
odc.f.WriteLn
END Ln;

PROCEDURE (odc:tOdc) Tab*(),NEW ;
BEGIN
odc.f.WriteTab
END Tab;

PROCEDURE (odc:tOdc) Int*(int:INTEGER),NEW;
VAR str:ARRAY 256 OF CHAR;
BEGIN
Strings.IntToString(int,str);
odc.String(str)
END Int;

PROCEDURE (odc:tOdc) Real*(real:REAL),NEW;
VAR str:ARRAY 256 OF CHAR;
BEGIN
Strings.RealToString(real,str);
odc.String(str)
END Real;


и теперь хотел считать odc файлы или хотя бы получить view на
файл с диска.

Чтобы загрузить View из файла, используйте Views.OldView().

Далее:
IF view IS TextViews.View THEN
reader := view(TextViews.View).NewReader();

- и дальше посивольно reader.ReadChar

Но TextMappers.Formatter уже реализует эту функциональность...

Вот примерчик

Спасибо большое.

Мы делаем систему по численным методам в строительном проектировании, где проекты пользователей сохранаются в виде
блэкбоксовских модулей и есть модули, генерируемые системой.
Поэтому чтение odc файлов нам надо для запуска компилятора
и последующего запуска процедур из
сгенерированного и скомпилированного модуля.