definition module directories

// some simple utility tasks for directory access and text file creation

import iTasks


:: DirFile 		= 	TextFile  FileName 					
				|	Directory FileName
:: FileName		:== String

derive class iTask DirFile, DirPath

getInitialPath 	:: DirFile -> Task DirPath
newDir 			:: DirPath DirFile -> Task Bool
removeDir 		:: DirPath DirFile -> Task Bool
openDirectory	:: DirPath DirFile -> Task DirPath
readDir 		:: DirPath -> Task (Bool,[DirFile])
getParent		:: DirPath -> Task DirPath

safeTextFile 	:: DirPath DirFile String -> Task Bool
readTextFile 	:: DirPath DirFile  -> Task (Bool,String)
deleteTextFile 	:: DirPath DirFile  -> Task Bool



:: DirPath 		=	DirPath Absolute Relative
:: Absolute		:==	String						// absolute path 
:: Relative		:==	[String]					// relative path