From 15670d4477ce219c017bd52417a6074b981fb197 Mon Sep 17 00:00:00 2001 From: Gaius Mulley Date: Tue, 1 Jul 2025 18:21:15 +0100 Subject: PR modula2/120912: Request for a procedure to obtain a file from an IOChan This patch introduces the procedure GetFile into the supplementary ISO style library IOChanUtils. gcc/m2/ChangeLog: PR modula2/120912 * gm2-libs-iso/IOChanUtils.def (GetFile): New procedure function. * gm2-libs-iso/IOChanUtils.mod (GetFile): New procedure function. Signed-off-by: Gaius Mulley --- gcc/m2/gm2-libs-iso/IOChanUtils.def | 8 ++++++++ gcc/m2/gm2-libs-iso/IOChanUtils.mod | 12 +++++++++++- 2 files changed, 19 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.def b/gcc/m2/gm2-libs-iso/IOChanUtils.def index e38f83a..3a8a0c6 100644 --- a/gcc/m2/gm2-libs-iso/IOChanUtils.def +++ b/gcc/m2/gm2-libs-iso/IOChanUtils.def @@ -11,6 +11,7 @@ DEFINITION MODULE IOChanUtils ; *) FROM DynamicStrings IMPORT String ; +FROM FIO IMPORT File ; IMPORT IOChan ; @@ -24,4 +25,11 @@ IMPORT IOChan ; PROCEDURE GetFileName (c: IOChan.ChanId) : String ; +(* + GetFile - returns the FIO.File associated with ChanId c. +*) + +PROCEDURE GetFile (c: IOChan.ChanId) : File ; + + END IOChanUtils. diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.mod b/gcc/m2/gm2-libs-iso/IOChanUtils.mod index 5cbb2a9..168fe0d 100644 --- a/gcc/m2/gm2-libs-iso/IOChanUtils.mod +++ b/gcc/m2/gm2-libs-iso/IOChanUtils.mod @@ -11,8 +11,18 @@ IMPORT IOChan, SFIO, RTio ; PROCEDURE GetFileName (c: IOChan.ChanId) : String ; BEGIN - RETURN SFIO.GetFileName (RTio.GetFile (c)) + RETURN SFIO.GetFileName (GetFile (c)) END GetFileName ; +(* + GetFile - returns the FIO.File associated with ChanId c. +*) + +PROCEDURE GetFile (c: IOChan.ChanId) : File ; +BEGIN + RETURN RTio.GetFile (c) +END GetFile ; + + END IOChanUtils. -- cgit v1.1