From 5dabbe87ed4e86fa0306fd9ef11e7a7fee2a6ddb Mon Sep 17 00:00:00 2001
From: Leo Tenenbaum <pommicket@gmail.com>
Date: Fri, 8 May 2020 14:38:22 -0400
Subject: got double include to REALLY work

---
 std/io.toc | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'std')

diff --git a/std/io.toc b/std/io.toc
index 9fa7e08..4f05be5 100644
--- a/std/io.toc
+++ b/std/io.toc
@@ -6,13 +6,14 @@ putchar ::= #foreign("putchar", base.libc) fn(#C int) #C int;
 toc_putchar ::= fn(x: char) {
 	putchar(x as #C int);
 }
+printf ::= #foreign("printf", base.libc) fn (#C &"const char", #C ..) #C int;
 
 /* 
 unfortunately, we can't use fwrite because MSVC doesn't like it when you
 use a file handle that's not from the DLL. (i.e. you can't pass your stdout
 to the imported version of fwrite)
 */
-
+/*
 writes ::= fn(x: []char) {
 	for c := x {
 		toc_putchar(c);
@@ -50,4 +51,15 @@ puti ::= fn(x: int) {
 	writei(x);
 	toc_putchar('\n');
 }
+*/
 
+/*
+writef ::= fn(x: float) {
+	fmt := "%f\0";
+	printf(&fmt[0], x);
+}
+putf ::= fn(x: float) {
+	writef(x);
+	toc_putchar('\n');
+}
+*/
-- 
cgit v1.2.3