Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_FS_1_19910112
-
c/kcc5/ctype.bsd
There are no other files named ctype.bsd in the archive.
cat /usr/include/ctype.h
/* ctype.h 4.2 85/09/04 */
#define _U 01 uppercase letter
#define _L 02 lowercase letter
#define _N 04 0-9
#define _S 010 11,12,13,14,15, 40
#define _P 020 41-57, 72-100, 133-140, 173-176
#define _C 040 0-37, 177
#define _X 0100 A-F, a-f
#define _B 0200 40
extern char _ctype_[];
#define isalnum(c) ((_ctype_+1)[c]&(_U|_L|_N))
#define isalpha(c) ((_ctype_+1)[c]&(_U|_L))
#define isascii(c) ((unsigned)(c)<=0177)
#define iscntrl(c) ((_ctype_+1)[c]&_C)
#define isdigit(c) ((_ctype_+1)[c]&_N)
#define isgraph(c) ((_ctype_+1)[c]&(_P|_U|_L|_N))
#define islower(c) ((_ctype_+1)[c]&_L)
#define isprint(c) ((_ctype_+1)[c]&(_P|_U|_L|_N|_B))
#define ispunct(c) ((_ctype_+1)[c]&_P)
#define isspace(c) ((_ctype_+1)[c]&_S)
#define isupper(c) ((_ctype_+1)[c]&_U)
#define isxdigit(c) ((_ctype_+1)[c]&(_N|_X))
#define toascii(c) ((c)&0177)
#define tolower(c) ((c)-'A'+'a')
#define toupper(c) ((c)-'a'+'A')
$ cd /usr/src
$ ls
Makefile bin games lib old ucb usr.bin
Modlog etc include local sys undoc usr.lib
$ cd lib
$ ls
Makefile c2 cpp libc mip pcc
$ cd libc
$ ls
Makefile compat-sys5 inet ns vax
compat-4.1 gen net stdio
$ cd gen
$ ls
:errfix gcvt.c malloc.c seekdir.c strncmp.c
Makefile getenv.c mkstemp.c setegid.c strncpy.c
abort.c getgrent.c mktemp.c seteuid.c swab.c
alarm.c getgrgid.c ndbm.c setgid.c syslog.c
atoi.c getgrnam.c nlist.c setrgid.c system.c
atol.c getlogin.c opendir.c setruid.c telldir.c
calloc.c getpass.c perror.c setuid.c time.c
closedir.c getpwent.c popen.c siginterrupt.c timezone.c
crypt.c getpwnamuid.c profiled siglist.c ttyname.c
ctime.c getttyent.c psignal.c signal.c ttyslot.c
ctype_.c getttynam.c qsort.c sleep.c ualarm.c
errlst.c getusershell.c random.c strcat.c usleep.c
execvp.c getwd.c readdir.c strcmp.c valloc.c
fakcu.c index.c regex.c strcpy.c
frexp.c initgroups.c rindex.c strlen.c
fstab.c isatty.c scandir.c strncat.c
$ cat ctype_.c
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)ctype_.c 5.4 (Berkeley) 3/9/86";
#endif LIBC_SCCS and not lint
#include <ctype.h>
char _ctype_[1 + 256] = {
0,
0-7 _C, _C, _C, _C, _C, _C, _C, _C,
10-17 _C, _C|_S, _C|_S, _C|_S, _C|_S, _C|_S, _C, _C,
20-27 _C, _C, _C, _C, _C, _C, _C, _C,
30 _C, _C, _C, _C, _C, _C, _C, _C,
40 _S|_B, _P, _P, _P, _P, _P, _P, _P,
50 _P, _P, _P, _P, _P, _P, _P, _P,
60 _N, _N, _N, _N, _N, _N, _N, _N,
70 _N, _N, _P, _P, _P, _P, _P, _P,
100 _P, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U|_X, _U,
110 _U, _U, _U, _U, _U, _U, _U, _U,
120 _U, _U, _U, _U, _U, _U, _U, _U,
130 _U, _U, _U, _P, _P, _P, _P, _P,
140 _P, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L|_X, _L,
150 _L, _L, _L, _L, _L, _L, _L, _L,
160 _L, _L, _L, _L, _L, _L, _L, _L,
170 _L, _L, _L, _P, _P, _P, _P, _C
};
$