From 7c4bcbd569e6d6142205f932094657c3b6ad3122 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 13 Mar 2001 07:59:17 +0000
Subject: [PATCH] scanf modules (currently not working)

git-svn-id: svn://svn.cc65.org/cc65/trunk@624 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/common/.cvsignore |  3 ++-
 libsrc/common/_scanf.h   | 46 ++++++++++++++++++++++++++++++++++++++++
 libsrc/common/sscanf.c   | 44 ++++++++++++++++++++++++++++++++++++++
 3 files changed, 92 insertions(+), 1 deletion(-)
 create mode 100644 libsrc/common/_scanf.h
 create mode 100644 libsrc/common/sscanf.c

diff --git a/libsrc/common/.cvsignore b/libsrc/common/.cvsignore
index 789eb14f2..ec614502a 100644
--- a/libsrc/common/.cvsignore
+++ b/libsrc/common/.cvsignore
@@ -1,4 +1,4 @@
-*.lst
+*.lst	
 _afailed.s
 _fopen.s
 _hextab.s
@@ -29,6 +29,7 @@ puts.s
 qsort.s
 realloc.s
 rewind.s
+sscanf.s
 strtok.s
 strxfrm.s
 vprintf.s
diff --git a/libsrc/common/_scanf.h b/libsrc/common/_scanf.h
new file mode 100644
index 000000000..6634c75e7
--- /dev/null
+++ b/libsrc/common/_scanf.h
@@ -0,0 +1,46 @@
+/*
+ * _scanf.h
+ *
+ * (C) Copyright 2001 Ullrich von Bassewitz (uz@cc65.org)
+ *
+ */
+
+
+
+#ifndef __SCANF_H
+#define __SCANF_H
+
+
+
+/* Forward */
+struct indesc;
+
+/* Type of the function that is called to input data */
+typedef void (*infunc) (struct indesc* desc, const char* buf, unsigned count);
+
+
+
+/* Control structure passed to the low level worker function.
+ * Beware: The low level functions will access the structure on the assembly
+ * level, so check this when altering the structure.
+ */
+struct indesc {
+    char*      	buf;		/* Pointer to input buffer */
+    unsigned	size;		/* Size of input buffer */
+    unsigned	fill;		/* Fill mark of input buffer */
+    unsigned	ridx;		/* Read index of input buffer */
+    infunc	fin;		/* Pointer to input routine */
+};
+
+
+
+/* Internal scanning routine */
+int _scanf (struct indesc* d, const char* format, va_list ap);
+
+
+
+/* End of _scanf.h */
+#endif
+
+
+
diff --git a/libsrc/common/sscanf.c b/libsrc/common/sscanf.c
new file mode 100644
index 000000000..dd10eb067
--- /dev/null
+++ b/libsrc/common/sscanf.c
@@ -0,0 +1,44 @@
+/*
+ * sscanf.c
+ *
+ * (C) Copyright 2001 Ullrich von Bassewitz (uz@cc65.org)
+ *
+ */
+
+
+
+#include <stdio.h>
+#include <string.h>
+#include "_scanf.h"
+
+
+
+/*****************************************************************************/
+/*     	    	  		     Code				     */
+/*****************************************************************************/
+
+
+
+int sscanf (const char* str, const char* format, ...)
+/* Standard C function */
+{
+    struct indesc id;
+    va_list ap;
+
+    /* Initialize the indesc struct. We leave all fields uninitialized that we
+     * don't need
+     */
+    id.buf  = (char*) str;	
+    id.fill = strlen (str);
+
+    /* Setup for variable arguments */
+    va_start (ap, format);
+
+    /* Call the internal function. Since we know that va_end won't do anything,
+     * we will save the call and return the value directly.
+     */
+    return _scanf (&id, (const char*) va_fix (ap, 2), ap);
+}
+
+
+
-- 
2.39.5