Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
clean-platform
Commits
fe4f6fe3
Commit
fe4f6fe3
authored
Mar 26, 2018
by
Steffen Michels
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
re-added Data.Generics, but without all generic libraries in the dcl
parent
767ed472
Pipeline
#10389
passed with stage
in 1 minute and 44 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
32 additions
and
0 deletions
+32
-0
src/libraries/OS-Independent/Data/Generics.dcl
src/libraries/OS-Independent/Data/Generics.dcl
+10
-0
src/libraries/OS-Independent/Data/Generics.icl
src/libraries/OS-Independent/Data/Generics.icl
+21
-0
tests/linux64/test.icl
tests/linux64/test.icl
+1
-0
No files found.
src/libraries/OS-Independent/Data/Generics.dcl
0 → 100644
View file @
fe4f6fe3
definition
module
Data
.
Generics
import
StdGeneric
fromOBJECT
::
!(
OBJECT
x
)
->
x
fromCONS
::
!(
CONS
x
)
->
x
fromRECORD
::
!(
RECORD
x
)
->
x
fromFIELD
::
!(
FIELD
x
)
->
x
fromPAIRX
::
!(
PAIR
x
y
)
->
x
fromPAIRY
::
!(
PAIR
x
y
)
->
y
src/libraries/OS-Independent/Data/Generics.icl
0 → 100644
View file @
fe4f6fe3
implementation
module
Data
.
Generics
import
StdGeneric
fromOBJECT
::
!(
OBJECT
x
)
->
x
fromOBJECT
(
OBJECT
x
)
=
x
fromCONS
::
!(
CONS
x
)
->
x
fromCONS
(
CONS
x
)
=
x
fromRECORD
::
!(
RECORD
x
)
->
x
fromRECORD
(
RECORD
x
)
=
x
fromFIELD
::
!(
FIELD
x
)
->
x
fromFIELD
(
FIELD
x
)
=
x
fromPAIRX
::
!(
PAIR
x
y
)
->
x
fromPAIRX
(
PAIR
x
_)
=
x
fromPAIRY
::
!(
PAIR
x
y
)
->
y
fromPAIRY
(
PAIR
_
y
)
=
y
tests/linux64/test.icl
View file @
fe4f6fe3
...
...
@@ -92,6 +92,7 @@ import qualified Data.Tree
import
qualified
Data
.
Tuple
import
qualified
Data
.
Word8
import
qualified
Data
.
_Array
import
qualified
Data
.
Generics
//import qualified Database.SQL
//import qualified Database.SQL.MySQL
//import qualified Database.SQL.RelationalMapping
...
...
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