From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Fri, 18 Jul 2025 09:04:37 +0000 (+0100)
Subject: [PATCH] PR modula2/120912: Request for a procedure to obtain a file from an IOChan
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a8512a65874d9de778c6b1bb8a101d254dce6472;p=thirdparty%2Fgcc.git

[PATCH] 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.

(cherry picked from commit 15670d4477ce219c017bd52417a6074b981fb197)

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
---

diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.def b/gcc/m2/gm2-libs-iso/IOChanUtils.def
index e38f83a3483..3a8a0c61e7a 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 5cbb2a96192..168fe0dda9c 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.