Add qemu 2.4.0

[kvmfornfv.git] / qemu / roms / openbios / libc / extra.c

diff --git a/qemu/roms/openbios/libc/extra.c b/qemu/roms/openbios/libc/extra.c
new file mode 100644 (file)
index 0000000..85731ad
--- /dev/null
+++ b/qemu/roms/openbios/libc/extra.c
@@ -0,0 +1,49 @@
+/*
+ *   Creation Date: <2003/10/18 13:52:32 samuel>
+ *   Time-stamp: <2003/10/18 13:54:24 samuel>
+ *
+ *     <extra.c>
+ *
+ *     Libc extras
+ *
+ *   Copyright (C) 2003 Samuel Rydh (samuel@ibrium.se)
+ *
+ *   This program is free software; you can redistribute it and/or
+ *   modify it under the terms of the GNU General Public License
+ *   version 2
+ *
+ */
+
+#include "config.h"
+#include "libc/string.h"
+#include "libc/vsprintf.h"
+#include "libopenbios/bindings.h"
+
+/* strncpy without 0-pad */
+char *
+strncpy_nopad( char *dest, const char *src, size_t n )
+{
+       int len = MIN( n, strlen(src)+1 );
+       return memcpy( dest, src, len );
+}
+
+/* printf */
+
+int forth_printf( const char *fmt, ... )
+{
+       char buf[512];
+       va_list args;
+       int i;
+
+       va_start(args, fmt);
+       i = vsnprintf(buf, sizeof(buf), fmt, args);
+       va_end(args);
+
+       PUSH(pointer2cell(buf));
+       PUSH(i);
+       fword("type");
+
+       return i;
+}
+
+