1 files changed, 35 insertions, 0 deletions
diff --git a/gcc/m2/gm2-libs-iso/IOChanUtils.def b/gcc/m2/gm2-libs-iso/IOChanUtils.def
new file mode 100644
index 0000000..3a8a0c6
--- /dev/null
+++ b/gcc/m2/gm2-libs-iso/IOChanUtils.def
@@ -0,0 +1,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.