mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-24 22:23:15 +00:00
Code Issues 1 Releases Wiki Activity

added marshal/unmarshal

Browse Source
This commit is contained in:
J.-F. Cap 2019-03-14 02:01:15 +01:00 committed by Calvin Rose
parent 319575c864
commit 090c6ac975
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/core/bigint.c
View File

@ -42,14 +42,38 @@ typedef uint64_t bi_uint64;
static Janet int64_get(void *p, Janet key);
static Janet uint64_get(void *p, Janet key);
static void int64_marshal(void *p, JanetMarshalContext *ctx) {
bi_int64 *box=(bi_int64 *)p;
janet_marshal_size(ctx,(size_t)(*box));
}
static void uint64_marshal(void *p, JanetMarshalContext *ctx) {
bi_uint64 *box=(bi_uint64 *)p;
janet_marshal_size(ctx,(size_t)(*box));
}
static void int64_unmarshal(void *p, JanetMarshalContext *ctx) {
bi_int64 *box=(bi_int64 *)p;
janet_unmarshal_size(ctx,(size_t *)box);
}
static void uint64_unmarshal(void *p, JanetMarshalContext *ctx) {
bi_uint64 *box=(bi_uint64 *)p;
janet_unmarshal_size(ctx,(size_t *)box);
}
static const JanetAbstractType bi_int64_type = {
"core/int64",
NULL,
NULL,
int64_get,
NULL,
NULL,
NULL
int64_marshal,
int64_unmarshal
};
static const JanetAbstractType bi_uint64_type = {
@ -58,8 +82,8 @@ static const JanetAbstractType bi_uint64_type = {
NULL,
uint64_get,
NULL,
NULL,
NULL
uint64_marshal,
uint64_unmarshal
};
static int parse_int64(const char *str, bi_int64 *box) {