Merge branch 'importTextDocument' into 'master'

add importTextDocument task

See merge request !237

Libraries/iTasks/Extensions/TextFile.dcl

 definition module iTasks.Extensions.TextFile
 
 import iTasks
-from System.FilePath import :: FilePath
+from System.FilePath            import :: FilePath
+from iTasks.Extensions.Document import :: Document
 
 /**
 * Import the content of  a text file on the server's filesystem.
@@ -15,6 +16,16 @@ from System.FilePath import :: FilePath
 */
 importTextFile		:: !FilePath -> Task String
 
+/**
+* Import the content of a text file document.
+*
+* @param Document: The document to import
+*
+* @return The imported content
+* @throws FileException
+*/
+importTextDocument :: !Document -> Task String
+
 /**
 * Export a string as text file to the server's filesystem.
 *

Libraries/iTasks/Extensions/TextFile.icl

@@ -9,6 +9,13 @@ importTextFile :: !FilePath -> Task String
 importTextFile filename = mkInstantTask eval
 where
 	eval taskId iworld = fileTaskRead taskId filename readAll iworld
+
+importTextDocument :: !Document -> Task String
+importTextDocument {Document|documentId} = mkInstantTask eval
+where
+	eval taskId iworld
+		# (filename,iworld) = documentLocation documentId iworld
+		= fileTaskRead taskId filename readAll iworld
 	
 exportTextFile :: !FilePath !String -> Task String
 exportTextFile filename content = mkInstantTask eval