From 0779a0fab511c1de6bf84d7b448f3f1bc0e213c2 Mon Sep 17 00:00:00 2001
From: pommicket <pommicket@gmail.com>
Date: Tue, 11 Jan 2022 22:43:52 -0500
Subject: more float stuff

---
 05/main.c     |  1 +
 05/tokenize.b | 17 +++++++++++++++++
 05/util.b     | 22 ++++++++++++++++++++++
 3 files changed, 40 insertions(+)

diff --git a/05/main.c b/05/main.c
index 1348a5b..a5f47ba 100644
--- a/05/main.c
+++ b/05/main.c
@@ -2,3 +2,4 @@
 char * = "How are you"" d""o""i""ng today?\n";
 hi
 _TEST _ING _1
+4.2
diff --git a/05/tokenize.b b/05/tokenize.b
index e6bd48e..5f87c71 100644
--- a/05/tokenize.b
+++ b/05/tokenize.b
@@ -310,6 +310,13 @@ function tokenize
 			data = significand
 			exponent += 1023 ; float format
 			data |= exponent < 52
+			
+			*1out = TOKEN_CONSTANT_FLOAT
+			out += 1
+			; suffix
+			*1out = read_number_suffix(file, line_number, &in)
+			out += 1
+			goto token_output
 			:float_no_integer
 			byte 0xcc
 			:float_zero
@@ -500,6 +507,7 @@ function print_tokens
 		if *1p > 20 goto print_token_keyword 
 		if *1p == TOKEN_CONSTANT_INT goto print_token_int
 		if *1p == TOKEN_CONSTANT_CHAR goto print_token_char
+		if *1p == TOKEN_CONSTANT_FLOAT goto print_token_float
 		if *1p == TOKEN_STRING_LITERAL goto print_token_string_literal
 		if *1p == TOKEN_IDENTIFIER goto print_token_identifier
 		fputs(2, .str_print_bad_token)
@@ -521,6 +529,12 @@ function print_tokens
 			s = p + 8
 			puts(*8s)
 			goto print_token_data
+		:print_token_float
+			p += 8
+			puts(.str_constant_float)
+			putx(*8p)
+			p += 8
+			goto print_tokens_loop
 		:print_token_info
 		p += 1
 		putc('~)
@@ -545,6 +559,9 @@ function print_tokens
 	:str_constant_int
 		string integer
 		byte 0
+	:str_constant_float
+		string float
+		byte 0
 	:str_constant_char
 		string character
 		byte 0
diff --git a/05/util.b b/05/util.b
index 51a98da..fc1aa1e 100644
--- a/05/util.b
+++ b/05/util.b
@@ -308,6 +308,28 @@ function fputn_signed
 		fputn(fd, n)
 		return
 		
+function fputx
+	argument fd
+	argument n
+	local m
+	local x
+	m = 60
+	:fputx_loop
+		x = n > m
+		x &= 0xf
+		x += .hex_digits
+		fputc(fd, *1x)
+		m -= 4
+		if m >= 0 goto fputx_loop
+	return
+:hex_digits
+	string 0123456789abcdef
+
+function putx
+	argument n
+	fputx(1, n)
+	return
+
 function putn
 	argument n
 	fputn(1, n)
-- 
cgit v1.2.3