blob: 3a8a0c61e7aaa9446ce1b3e0f3de478453cf09fc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
DEFINITION MODULE IOChanUtils ;
(*
Title : IOChanUtils
Author : Gaius Mulley
System : GNU Modula-2
Date : Sat Jun 28 23:33:06 2025
Revision : $Version$
Description: provides additional procedures to work on
ChanIds.
*)
FROM DynamicStrings IMPORT String ;
FROM FIO IMPORT File ;
IMPORT IOChan ;
(*
GetFileName - returns the filename as a new string associated
with chanid c. This string should be killed by
the caller.
*)
PROCEDURE GetFileName (c: IOChan.ChanId) : String ;
(*
GetFile - returns the FIO.File associated with ChanId c.
*)
PROCEDURE GetFile (c: IOChan.ChanId) : File ;
END IOChanUtils.
|
