X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDsw%2FMod%2FProcs.cp;h=e5a31b3c24a6a078d5942d6bd1812d5625e36b42;hp=261415f6c0d86e6405cecf9c4dcd9dc535170e9e;hb=d04c6367a927c536552ae595c92cc15347d3a65f;hpb=d41744a4034d3aad10298c8ff915778cda31fa27

diff --git a/src/generic/Dsw/Mod/Procs.cp b/src/generic/Dsw/Mod/Procs.cp
index 261415f..e5a31b3 100644
--- 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;