added to*() routines: a macro is impossible

diff --git a/lang/cem/libcc.ansi/ctype/.distr b/lang/cem/libcc.ansi/ctype/.distr
index b052351..b159e6c 100644 (file)
--- a/lang/cem/libcc.ansi/ctype/.distr
+++ b/lang/cem/libcc.ansi/ctype/.distr
@@ -1,4 +1,6 @@
 LIST
 Makefile
+toupper.c
+tolower.c
 char.tab
 genfiles

diff --git a/lang/cem/libcc.ansi/ctype/Makefile b/lang/cem/libcc.ansi/ctype/Makefile
index 3a20ca5..56ef72a 100644 (file)
--- a/lang/cem/libcc.ansi/ctype/Makefile
+++ b/lang/cem/libcc.ansi/ctype/Makefile
@@ -4,12 +4,12 @@ clean:
                isxdigit.o isascii.o tolower.o toupper.o chartab.o \
                isalnum.c isalpha.c iscntrl.c isdigit.c isgraph.c \
                islower.c isprint.c ispunct.c isspace.c isupper.c \
-               isxdigit.c isascii.c tolower.c toupper.c chartab.c \
+               isxdigit.c isascii.c chartab.c \
                OLIST
 
 chartab.c: char.tab
        tabgen -fchar.tab > chartab.c
 
 isalnum.c isalpha.c iscntrl.c isdigit.c isgraph.c islower.c isprint.c \
-ispunct.c isspace.c isupper.c isxdigit.c isascii.c tolower.c toupper.c: genfiles
+ispunct.c isspace.c isupper.c isxdigit.c isascii.c: genfiles
        sh genfiles

diff --git a/lang/cem/libcc.ansi/ctype/char.tab b/lang/cem/libcc.ansi/ctype/char.tab
index eafe7d4..f0dd0c7 100644 (file)
--- a/lang/cem/libcc.ansi/ctype/char.tab
+++ b/lang/cem/libcc.ansi/ctype/char.tab
@@ -20,8 +20,6 @@ _U:G-Z
 _L:g-z
 %T#include     <ctype.h>
 %T
-%Tint __x;
-%T
 %Tchar __ctype[] = {
 %T0,
 %p

diff --git a/lang/cem/libcc.ansi/ctype/genfiles b/lang/cem/libcc.ansi/ctype/genfiles
index 7c115e9..5b63b8e 100644 (file)
--- a/lang/cem/libcc.ansi/ctype/genfiles
+++ b/lang/cem/libcc.ansi/ctype/genfiles
@@ -1,6 +1,6 @@
 
 for i in isalnum isalpha iscntrl isdigit isgraph islower isprint \
-       ispunct isspace isupper isxdigit isascii toupper tolower
+       ispunct isspace isupper isxdigit isascii
 do
 sed "s/xxxx/$i/" > $i.c << 'EOF'
 #include       <ctype.h>

diff --git a/lang/cem/libcc.ansi/ctype/tolower.c b/lang/cem/libcc.ansi/ctype/tolower.c
new file mode 100644 (file)
index 0000000..ff95ae0
--- /dev/null
+++ b/lang/cem/libcc.ansi/ctype/tolower.c
@@ -0,0 +1,5 @@
+#include       <ctype.h>
+
+int tolower(int c) {
+       return isupper(c) ? c - 'A' + 'a' : c ;
+}

diff --git a/lang/cem/libcc.ansi/ctype/toupper.c b/lang/cem/libcc.ansi/ctype/toupper.c
new file mode 100644 (file)
index 0000000..521ae55
--- /dev/null
+++ b/lang/cem/libcc.ansi/ctype/toupper.c
@@ -0,0 +1,5 @@
+#include       <ctype.h>
+
+int toupper(int c) {
+       return islower(c) ? c - 'a' + 'A' : c ;
+}