[gcc r16-1898] PR modula2/120912: Request for a procedure to obtain a file from an IOChan

[Gaius Mulley via Gcc-cvs]

https://gcc.gnu.org/g:15670d4477ce219c017bd52417a6074b981fb197

commit r16-1898-g15670d4477ce219c017bd52417a6074b981fb197
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Tue Jul 1 18:21:15 2025 +0100

    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 <gaiusm...@gmail.com>

Diff:
---
 gcc/m2/gm2-libs-iso/IOChanUtils.def |  8 ++++++++
 gcc/m2/gm2-libs-iso/IOChanUtils.mod | 12 +++++++++++-
 2 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.def 
b/gcc/m2/gm2-libs-iso/IOChanUtils.def
index e38f83a34834..3a8a0c61e7aa 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 5cbb2a96192f..168fe0dda9c7 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.