definition module PmMyIO /* OS dependent module */ /* Primitives which 'should be' in the standard CLEAN IO lib */ import StdEnv import UtilDate //LaunchApplication :: !{#Char} !{#Char} !Bool !Files -> ( !Bool, !Files) // Returns True if the file name exists. FExists :: !String !Files -> (!Bool, !Files) // Returns the last modification date of the indicated file. FModified :: !String !Files -> (!DATE, !Files) // Returns directory in which the indicated application resides. FStartUpDir :: !String !Files -> (!String, !Files) GetFullApplicationPath :: !*Files -> ({#Char}, *Files) // Returns True if the file exists and is read-only FReadOnly :: !{#Char} !*env -> (!Bool, !*env) | FileSystem env