diff modules/string.tp @ 339:74cab9b5f2a4

Added parseFloat64 and parseFloat32 along with a sample that exercises number parsing from a string
author Michael Pavone <pavone@retrodev.com>
date Sat, 04 Apr 2015 12:34:43 -0700
parents 8dbb2d2522a5
children 6871e72b6db2
line wrap: on
line diff
--- a/modules/string.tp	Sat Apr 04 11:54:46 2015 -0700
+++ b/modules/string.tp	Sat Apr 04 12:34:43 2015 -0700
@@ -145,6 +145,19 @@
 		}
 		num
 	}
+	
+	llMessage: parseFloat64 withVars: {
+		fret64 <- obj_float64 ptr
+	} andCode: {
+		//TODO: This should probably detect non-numeric values and return an option type
+		fret64 <- make_object: (addr_of: obj_float64_meta) NULL 0
+		fret64 num!: (atof: data)
+		fret64
+	}
+	
+	parseFloat32 <- {
+		parseFloat64 f32
+	}
 
 	llMessage: hash withVars: {
 		intret <- (obj_int32 ptr)