Mercurial > repos > tabletprog
diff modules/string.tp @ 147:4c96a393103e
Add support for receiving data from a socket
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 09 Aug 2013 04:57:21 -0700 |
parents | 474f17ebaaa0 |
children | 7dfa4481deb0 |
line wrap: on
line diff
--- a/modules/string.tp Fri Aug 09 04:29:37 2013 -0700 +++ b/modules/string.tp Fri Aug 09 04:57:21 2013 -0700 @@ -2,7 +2,7 @@ llProperty: len withType: uint32_t llProperty: bytes withType: uint32_t llProperty: data withType: (char ptr) - + llMessage: length withVars: { intret <- (obj_int32 ptr) } andCode: { @@ -10,7 +10,7 @@ intret num!: len intret } - + llMessage: byte_length withVars: { intret <- (obj_int32 ptr) } andCode: { @@ -18,7 +18,7 @@ intret num!: bytes intret } - + llMessage: EQ_ withVars: { argb <- (string ptr) } andCode: :argb { @@ -26,7 +26,7 @@ true } } - + llMessage: NEQ_ withVars: { argb <- (string ptr) } andCode: :argb { @@ -34,16 +34,16 @@ true } } - + llMessage: print withVars: {} andCode: { fwrite: data 1 bytes stdout self } - + llMessage: string withVars: {} andCode: { self } - + llMessage: CAT_ withVars: { argbo <- (object ptr) argb <- (string ptr) @@ -58,7 +58,7 @@ memcpy: (out data) + bytes (argb data) (argb bytes) + 1 out } - + llMessage: byte withVars: { index <- (obj_int32 ptr) intret <- (obj_int32 ptr) @@ -67,7 +67,7 @@ intret num!: (if: (index num) < bytes { data get: (index num) } else: {0}) intret } - + llMessage: int32 withVars: { intret <- (obj_int32 ptr) } andCode: { @@ -75,7 +75,7 @@ intret num!: (atoi: data) intret } - + llMessage: hash withVars: { intret <- (obj_int32 ptr) i <- uint32_t @@ -93,4 +93,6 @@ } intret } + + isInteger? <- { false } }