toaruos/libc/stdio/scanf.c

#include <stdio.h>
#include <ctype.h>
#include <string.h>

extern char * _argv_0;
extern int __libc_debug;

int vsscanf(const char *str, const char *format, va_list ap) {
	if (__libc_debug) fprintf(stderr, "%s: sscanf(\"%s\", format=\"%s\", ...);\n", _argv_0, str, format);
	int count = 0;
	while (*format) {
		if (*format == ' ') {
			/* handle white space */
			while (*str && isspace(*str)) {
				str++;
			}
		} else if (*format == '%') {
			/* Parse */
			format++;
			int _long = 0;

			if (*format == 'l') {
				format++;
				if (*format == 'l') {
					_long = 1;
					if (__libc_debug) fprintf(stderr, "%s: \033[33;3mWarning\033[0m: Need to scan a large pointer (%d)\n", _argv_0, _long);
					format++;
				}
			}

			if (*format == 'd') {
				int i = 0;
				int sign = 1;
				while (isspace(*str)) str++;
				if (*str == '-') {
					sign = -1;
					str++;
				}
				while (*str && *str >= '0' && *str <= '9') {
					i = i * 10 + *str - '0';
					str++;
				}
				int * out = (int *)va_arg(ap, int*);
				if (__libc_debug) fprintf(stderr, "%s: sscanf: out %d\n", _argv_0, i);
				count++;
				*out = i * sign;
			} else if (*format == 'u') {
				unsigned int i = 0;
				while (isspace(*str)) str++;
				while (*str && *str >= '0' && *str <= '9') {
					i = i * 10 + *str - '0';
					str++;
				}
				unsigned int * out = (unsigned int *)va_arg(ap, unsigned int*);
				if (__libc_debug) fprintf(stderr, "%s: sscanf: out %d\n", _argv_0, i);
				count++;
				*out = i;
			}
		} else {
			/* Expect exact character? */
			if (*str == *format) {
				str++;
			} else {
				break;
			}
		}
		format++;
	}
	return count;
}

int vfscanf(FILE * stream, const char *format, va_list ap) {
	if (__libc_debug) fprintf(stderr, "%s: fscanf(%d, format=%s, ...);\n", _argv_0, fileno(stream), format);
	while (*format) {
		if (*format == ' ') {
			/* Handle whitespace */
		} else if (*format == '%') {
			/* Parse */
		} else {
			/* Expect exact character? */
		}
		format++;
	}
	return 0;
}

int sscanf(const char *str, const char *format, ...) {
	va_list args;
	va_start(args, format);
	int out = vsscanf(str, format, args);
	va_end(args);
	return out;
}

int fscanf(FILE *stream, const char *format, ...) {
	va_list args;
	va_start(args, format);
	int out = vfscanf(stream, format, args);
	va_end(args);
	return out;
}

int scanf(const char *format, ...) {
	va_list args;
	va_start(args, format);
	int out = vfscanf(stdin, format, args);
	va_end(args);
	return out;
}