Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
84
Issues
84
List
Boards
Labels
Service Desk
Milestones
Merge Requests
10
Merge Requests
10
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
b6ab17aa
Commit
b6ab17aa
authored
Mar 29, 2019
by
Bas Lijnse
Browse files
Options
Browse Files
Download
Plain Diff
Merge branch 'importTextDocument' into 'master'
add importTextDocument task See merge request
!237
parents
f3ca2589
14fd821a
Pipeline
#20428
passed with stage
in 4 minutes and 47 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
19 additions
and
1 deletion
+19
-1
Libraries/iTasks/Extensions/TextFile.dcl
Libraries/iTasks/Extensions/TextFile.dcl
+12
-1
Libraries/iTasks/Extensions/TextFile.icl
Libraries/iTasks/Extensions/TextFile.icl
+7
-0
No files found.
Libraries/iTasks/Extensions/TextFile.dcl
View file @
b6ab17aa
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
View file @
b6ab17aa
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment