From b7ce7370e83519bf7aca2567e74220adc887c5b4 Mon Sep 17 00:00:00 2001
From: "Wolfgang (Blub) Bumiller" <blub@speed.at>
Date: Sat, 1 Dec 2012 15:54:13 +0100
Subject: [PATCH] stof builtin #9
---
exec.c | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/exec.c b/exec.c
index bd279c6..cc05630 100644
--- a/exec.c
+++ b/exec.c
@@ -692,6 +692,18 @@ static int qc_ftos(qc_program *prog)
return 0;
}
+static int qc_stof(qc_program *prog)
+{
+ char buffer[512];
+ qcany *str;
+ qcany num;
+ CheckArgs(1);
+ str = GetArg(0);
+ num._float = strtof(prog_getstring(prog, str->string), NULL);
+ Return(num);
+ return 0;
+}
+
static int qc_vtos(qc_program *prog)
{
char buffer[512];
@@ -757,7 +769,8 @@ static prog_builtin qc_builtins[] = {
&qc_vtos, /* 5 */
&qc_error, /* 6 */
&qc_vlen, /* 7 */
- &qc_etos /* 8 */
+ &qc_etos, /* 8 */
+ &qc_stof /* 9 */
};
static size_t qc_builtins_count = sizeof(qc_builtins) / sizeof(qc_builtins[0]);
--
2.39.5