From 1a82ff3ead8103913b66b7a43303786bd2c349cf Mon Sep 17 00:00:00 2001
From: Richard Henderson <rth@twiddle.net>
Date: Mon, 11 Apr 2011 10:47:43 -0700
Subject: Add simplistic printf.

---
 Makefile |   2 +-
 printf.c | 142 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 143 insertions(+), 1 deletion(-)
 create mode 100644 printf.c

diff --git a/Makefile b/Makefile
index aa81b70..0ad78bd 100644
--- a/Makefile
+++ b/Makefile
@@ -1,6 +1,6 @@
 CC = /home/rth/work/gcc/run-axp/bin/alphaev6-linux-gcc
 LD = /home/rth/work/gcc/run-axp/bin/alphaev6-linux-ld
-CFLAGS = -O2 -g -msmall-text -msmall-data -fvisibility=hidden -mno-fp-regs -fno-strict-aliasing
+CFLAGS = -O -g -msmall-text -msmall-data -fvisibility=hidden -mno-fp-regs -fno-strict-aliasing
 
 OBJS = pal.o init.o uart.o memset.o printf.o
 
diff --git a/printf.c b/printf.c
new file mode 100644
index 0000000..b67d7da
--- /dev/null
+++ b/printf.c
@@ -0,0 +1,142 @@
+#include <stdarg.h>
+#include <stdbool.h>
+#include "uart.h"
+
+static int print_decimal(unsigned long val)
+{
+  char buf[32];
+  char *p = buf+31;
+
+  *p = 0;
+  if (val == 0)
+    *--p = '0';
+  else
+    {
+      do
+	{
+	  *--p = (val % 10) + '0';
+	  val /= 10;
+	}
+      while (val);
+    }
+
+  uart_puts(COM1, p+1);
+  return sizeof(buf) - (p - buf);
+}
+
+static int print_hex(unsigned long val)
+{
+  char buf[32];
+  char *p = buf+31;
+
+  *p = 0;
+  if (val == 0)
+    *--p = '0';
+  else
+    {
+      do
+	{
+	  int d = val % 16;
+	  *--p = (d < 10 ? '0' : 'a' - 10) + d;
+	  val /= 16;
+	}
+      while (val);
+    }
+
+  uart_puts(COM1, p+1);
+  return sizeof(buf) - (p - buf);
+}
+
+int printf(const char *fmt, ...)
+{
+  va_list args;
+  unsigned long val;
+  int r = 0;
+
+  va_start(args, fmt);
+
+  for (; *fmt ; fmt++)
+    if (*fmt != '%')
+      {
+        uart_putchar(COM1, *fmt);
+	r++;
+      }
+    else
+      {
+	bool is_long = false;
+
+      restart:
+        switch (*++fmt)
+	  {
+	  case '%':
+	    uart_putchar(COM1, '%');
+	    r++;
+	    break;
+
+	  case 'l':
+	    is_long = true;
+	    goto restart;
+
+	  case 'd':
+	    if (is_long)
+	      {
+		long d = va_arg (args, long);
+		if (d < 0)
+		  {
+		    uart_putchar(COM1, '-');
+		    d = -d;
+		  }
+		val = d;
+	      }
+	    else
+	      {
+		int d = va_arg (args, int);
+		if (d < 0)
+		  {
+		    uart_putchar(COM1, '-');
+		    d = -d;
+		    r++;
+		  }
+		val = d;
+	      }
+	    goto do_unsigned;
+
+	  case 'u':
+	    if (is_long)
+	      val = va_arg (args, unsigned long);
+	    else
+	      val = va_arg (args, unsigned int);
+
+	  do_unsigned:
+	    r += print_decimal (val);
+	    break;
+
+	  case 'x':
+	    if (is_long)
+	      val = va_arg (args, unsigned long);
+	    else
+	      val = va_arg (args, unsigned int);
+	    r += print_hex (val);
+
+	  case 's':
+	    {
+	      const char *s = va_arg (args, const char *);
+	      while (*s)
+		{
+		  uart_putchar(COM1, *s++);
+		  r++;
+		}
+	      break;
+	    }
+
+	  default:
+	    uart_putchar(COM1, '%');
+	    uart_putchar(COM1, *fmt);
+	    r += 2;
+	    break;
+	  }
+      }
+
+  va_end(args);
+  return r;
+}
-- 
cgit v1.1