also for macosx implement function FExists and add function GetCurrentDirectory, used by cpm

MacOSX/UtilIO.dcl

@@ -5,5 +5,6 @@ from UtilDate import ::DATE
 
 GetFullApplicationPath :: !*Files -> (!{#Char},!*Files)
 GetLongPathName :: !{#Char} -> {#Char}
-FModified :: !String !Files -> (!DATE, !Files);
-FExists	:: .a
+FModified :: !String !Files -> (!DATE, !Files)
+FExists :: !String !Files -> (!Bool, !Files)
+GetCurrentDirectory :: (!Bool,!String)

MacOSX/UtilIO.icl

@@ -92,5 +92,23 @@ free p = code {
 	ccall free "p:I"
 }
 
-FExists	:: .a;
-FExists = abort "FExists";
+FExists :: !String !Files -> (!Bool, !Files);
+FExists name files
+	# s = createArray (IF_INT_64_OR_32 144 88) '\0';
+	# r = stat (name+++"\0") s;
+	| r<>0
+		= (False,files);
+		= (True,files);
+
+getcwd :: !{#Char} !Int -> Int;
+getcwd buffer buffer_size = code {
+	ccall getcwd "sp:p"
+}
+
+GetCurrentDirectory :: (!Bool,!String);
+GetCurrentDirectory
+	# p = getcwd (createArray 512 '\0') 512;
+	| p==0
+		= (False,"");
+		# (s,_) = c_string_to_clean_string p;
+		= (True,s);