Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2023-11-15 19:43:25 -08:00
parent 9c197965b3
commit c599dbb62a
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
runtime.c
View file

@ -2617,6 +2617,16 @@ int str_is_bignum(str2int_errno errnum, char *c)
return 1; return 1;
} }
float string2rational(char *s){
{
// TODO: this is terrible, needs work:
char *nom = _strdup(s);
char *denom = strchr(s, '\');
denom[0] = '\0';
denom++;
return strtol(nom, NULL, 10) / strtol(denom, NULL, 10);
}
object Cyc_string2number_(void *data, object cont, object str) object Cyc_string2number_(void *data, object cont, object str)
{ {
int result, rv; int result, rv;