I suspect that a Stores.Store can be composed of snippets of several files, like the Oberon system Texts, unless special controlled circumstances are provided. One trick in that system is to write a Text to a file (externalize it) then open it from that file. Then, before it is edited, it is all contained in 1 file.
On Thu, May 20, 2010 at 11:25 PM, <luowy{([at]})nowhere.xy
you can check HostBitmaps.ImportBitmap.
PROCEDURE GetFileName* (rd: Files.Reader; VAR name: ARRAY OF CHAR);
TYPE Str = POINTER TO ARRAY [untagged] OF CHAR;
VAR str: Str;
BEGIN
str := SYSTEM.VAL(Str, SYSTEM.VAL(INTEGER, rd.Base()) + 40); (* f(HostFiles.File).name *)
name := str$;
END GetFileName;
----- 原文 -----
发件人: Aubrey.McIntosh{([at]})nowhere.xy
主 题: Re: [BLACKBOX] File names
时 间: 2010年5月21日 6:00:10
I have a utility that walks a directory and acts on selected files
with Converters import and export. I store the file names that are
used, but I had to resort to a bit of subtlety to do this.
On Thu, May 20, 2010 at 3:46 PM, Robert <robert.campbell_{([at]})nowhere.xy
> Hello
>
> I have an Internalize routine which uses a 'reader' of type Stores.Reader.
>
> This gives access, via its 'rider', to a file of type Files.File (actually
> of type HostFiles.File).
>
>
> For debug purposes I want to find and print out the file's name.
>
>
> The TRAP handler can find this, but I can't as the required fields are not
> exported. Is there a way to do this?
>
>
> Cheers
>
> Robert
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy>
--
--
Aubrey McIntosh, Ph.D.
1502 Devon Circle
Austin TX 78723-1814
http://home.grandecom.net/~amcintosh/aubrey/Search/
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy _____
你的1G网络U盘真好用！ <http://goto.mail.sohu.com/goto.php?code=udisk_zhujiao>
换个工作，工资翻两倍! <http://sohu.ad-plus.cn/event.ng/Type=click&FlightID=201004&TargetID=sohu&Values=df789d86,92d3d91d,277177cc,c2935d8d&AdID=54157>
--
--
Aubrey McIntosh, Ph.D.
1502 Devon Circle
Austin TX 78723-1814
http://home.grandecom.net/~amcintosh/aubrey/Search/
---- To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy
Received on Fri May 21 2010 - 06:43:52 UTC