mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-09-28 15:08:40 +00:00
Code Issues 1 Releases Wiki Activity

Expose parse-number function.

Browse Source
This commit is contained in:
Calvin Rose 2018-03-24 00:11:44 -04:00
parent 89ecd43115
commit 0b25284aa9
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/parser/parse.c
View File

@ -689,6 +689,20 @@ static int cfun_node(DstArgs args) {
return dst_return(args, dst_wrap_tuple(dst_tuple_end(tup))); return dst_return(args, dst_wrap_tuple(dst_tuple_end(tup)));
} }
static int cfun_parsenumber(DstArgs args) {
const uint8_t *data;
Dst x;
int32_t len;
if (args.n != 1) return dst_throw(args, "expected string or buffer");
if (!dst_chararray_view(args.v[0], &data, &len))
return dst_throw(args, "expected string or buffer");
x = dst_scan_number(data, len);
if (!dst_checktype(x, DST_INTEGER) && !dst_checktype(x, DST_REAL)) {
return dst_throw(args, "error parsing number");
}
return dst_return(args, x);
}
static const DstReg cfuns[] = { static const DstReg cfuns[] = {
{"parser", cfun_parser}, {"parser", cfun_parser},
{"parser-produce", cfun_produce}, {"parser-produce", cfun_produce},
@ -700,6 +714,7 @@ static const DstReg cfuns[] = {
{"ast-unwrap1", cfun_unwrap1}, {"ast-unwrap1", cfun_unwrap1},
{"ast-wrap", cfun_wrap}, {"ast-wrap", cfun_wrap},
{"ast-node", cfun_node}, {"ast-node", cfun_node},
{"parse-number", cfun_parsenumber},
{NULL, NULL} {NULL, NULL}
}; };