DswProcs: add function Directory.GetPath

[cpc.git] / src / generic / Dsw / Mod / Procs.cp

diff --git a/src/generic/Dsw/Mod/Procs.cp b/src/generic/Dsw/Mod/Procs.cp
index 261415f6c0d86e6405cecf9c4dcd9dc535170e9e..e5a31b3c24a6a078d5942d6bd1812d5625e36b42 100644 (file)
--- a/src/generic/Dsw/Mod/Procs.cp
+++ b/src/generic/Dsw/Mod/Procs.cp
@@ -5,6 +5,8 @@ MODULE DswProcs;
   IMPORT Kernel;
 
   TYPE
+    String* = POINTER TO ARRAY OF CHAR;
+
     Directory* = POINTER TO ABSTRACT RECORD END;
 
     Process* = POINTER TO ABSTRACT RECORD END;
@@ -13,6 +15,7 @@ MODULE DswProcs;
     dir-, stdDir-: Directory;
 
   PROCEDURE (d: Directory) New* (): Process, NEW, ABSTRACT;
+  PROCEDURE (d: Directory) GetPath* (IN name: ARRAY OF CHAR): String, NEW, ABSTRACT;
 
   PROCEDURE (p: Process) Program* (IN exe: ARRAY OF CHAR), NEW, ABSTRACT;
   PROCEDURE (p: Process) PutParam* (IN par: ARRAY OF CHAR), NEW, ABSTRACT;