Format of Sym files
Posted: Mon Jun 17, 2019 8:49 pm
I wish to process the contents of some Sym files.
I used to use the following code to get access to the files: but this no longer works. I need to replace the last line by
Has something changed, or has my memory failed entirely?
I used to use the following code to get access to the files:
Code: Select all
PROCEDURE CheckFile (loc: Files.Locator; fInfo: Files.FileInfo);
VAR
st: Stores.Store;
conv: Converters.Converter;
text: TextModels.Model;
BEGIN
conv := Converters.list;
WHILE conv.imp # 'DevBrowser.ImportSymFile' DO conv := conv.next END;
Converters.Import (loc, fInfo.name, conv, st);
text := st(Documents.Document).ThisView ().ThisModel ()(TextModels.Model);
Code: Select all
text := st(Views.View).ThisModel ()(TextModels.Model)