X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=7a2559f5a04e6df66b938cbade05e63d06c9dde7;hb=ee5171fbc1c8e1ea7454e95b3e89c24338423523;hp=0f68ed27a0c00d20064adfef02c45709f0cedcd9;hpb=3c04b0a726017a3c351df574adc8ddab94db541f;p=mTask.git diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl index 0f68ed2..7a2559f 100644 --- a/mTaskInterpret.icl +++ b/mTaskInterpret.icl @@ -27,6 +27,7 @@ encode (MTSds i v) = "s" +++ to16bit i +++ v +++ "\n" encode (MTTask to data) = "t" +++ to16bit to +++ to16bit (size data) +++ data +++ "\n" encode (MTUpd i v) = "u" +++ to16bit i +++ v +++ "\n" +import StdDebug decode :: String -> MTaskMSGRecv decode x | size x == 0 = MTEmpty