fixup

1 files changed, 3 insertions, 6 deletions

diff --git a/ev b/ev
index fede0e3..4e33fb9 100755
--- a/ev
+++ b/ev
@@ -19,8 +19,7 @@ BEGIN {
 
 function scan() {
 	sub(/^[ \t]+/, "", line)
-	# print "# line: '"  line "'"
-	if (match(line, /^[.0-9]+/)) {
+	if (match(line, /^[0-9]([.0-9]*(e[+-]*)*[0-9])*/)) {
 		tok = "d" substr(line, 1, RLENGTH)
 	} else if (match(line, /^([][}{)(,+-=?:]|[*\/÷\^])/)) {
 		tok = substr(line, 1, RLENGTH)
@@ -31,9 +30,7 @@ function scan() {
 	} else {
 		tok = "b" substr(line, 1, 1)
 	}
-	# cnum += RLENGTH
 	line = substr(line, RLENGTH+1)
-	# print "# scan: RLENGTH=" RLENGTH
 	return RLENGTH
 }
 
@@ -58,7 +55,7 @@ function parse(   stack, sl, i) {
 	# for (j = 0; j < i; j++) printf("%s ", code[j]); print ""
 }
 
-# TODO: assign
+# TODO: assign, if, while, function
 function run(   c, i, l, t) {
 	cl = length(code)
 	ml = length(mem)
@@ -81,5 +78,5 @@ function run(   c, i, l, t) {
 		i++
 	}
 	print mem[ml]
-	for (i = ml; i in mem; i++) delete mem[i]
+	# for (i = ml; i in mem; i++) delete mem[i]
 }