repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mTasks can now be built with normal taskss
[mTask.git]
/
mTaskCode.icl
diff --git
a/mTaskCode.icl
b/mTaskCode.icl
index
6360b5a
..
f1da0d8
100644
(file)
--- a/
mTaskCode.icl
+++ b/
mTaskCode.icl
@@
-1,7
+1,10
@@
implementation module mTaskCode
implementation module mTaskCode
+import Generics.gdynamic
+import Generics.gCons
+
import iTasks
import iTasks
-import
gdynamic, gCons,
GenEq, StdMisc, StdArray
+import GenEq, StdMisc, StdArray
import mTask
instance toCode MTask where toCode (MTask x) = "Task " + toCode x
import mTask
instance toCode MTask where toCode (MTask x) = "Task " + toCode x
@@
-74,6
+77,7
@@
instance sds Code where
in setCode Var +.+ c (type2string v + " " + name + " = " + toCode v +
";\n") +.+ setCode Setup +.+ unMain body}
con f = defCode f
in setCode Var +.+ c (type2string v + " " + name + " = " + toCode v +
";\n") +.+ setCode Setup +.+ unMain body}
con f = defCode f
+ pub _ = undef
defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
defCode f =
defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
defCode f =