[pushed-15] [PATCH] PR modula2/120912: Request for a procedure to obtain a file from an IOChan

[Gaius Mulley]

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