X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Usermode%2FLibraries%2Flibc.so_src%2Fctype.c;fp=Usermode%2FLibraries%2Flibc.so_src%2Fctype.c;h=d5a5e97ae601d8f0009813e9357cd4f30a2a407b;hb=2610c32930309a73308f64731a05f2e83487b731;hp=0000000000000000000000000000000000000000;hpb=d4b3582f716e06672de2d374be06064118236aed;p=tpg%2Facess2.git

diff --git a/Usermode/Libraries/libc.so_src/ctype.c b/Usermode/Libraries/libc.so_src/ctype.c
new file mode 100644
index 00000000..d5a5e97a
--- /dev/null
+++ b/Usermode/Libraries/libc.so_src/ctype.c
@@ -0,0 +1,63 @@
+/*
+ * Acess2 C Library
+ * - By John Hodge (thePowersGang)
+ *
+ * ctype.c
+ * - Character Types
+ */
+#include <ctype.h>
+
+int isalpha(int ch)
+{
+	if('A'<=ch&&ch<='Z')	return 1;
+	if('a'<=ch&&ch<='z')	return 1;
+	return 0;
+}
+int isdigit(int ch) {
+	if('0'<=ch&&ch<='9')	return 1;
+	return 0;
+}
+
+int isalnum(int ch) {
+	return isalpha(ch) || isdigit(ch);
+}
+
+int toupper(int ch) {
+	if('a'<=ch && ch <='z')
+		return ch - 'a' + 'A';
+	return ch;
+}
+int tolower(int ch) {
+	if('A'<=ch && ch <='Z')
+		return ch - 'A' + 'a';
+	return ch;
+}
+
+int isprint(int ch ) {
+	if( ch < ' ' )	return 0;
+	if( ch > 'z' )	return 0;
+	return 1;
+}
+
+int isspace(int ch) {
+	if(ch == ' ')	return 1;
+	if(ch == '\t')	return 1;
+	if(ch == '\r')	return 1;
+	if(ch == '\n')	return 1;
+	return 0;
+}
+
+int isxdigit(int ch) {
+	if('0'<=ch&&ch<='9')	return 1;
+	if('a'<=ch&&ch<='f')	return 1;
+	if('F'<=ch&&ch<='F')	return 1;
+	return 0;
+}
+
+// C99
+int isblank(int ch) {
+	if(ch == ' ')	return 1;
+	if(ch == '\t')	return 1;
+	return 0;
+}
+