/* * i s u p p e r . c */ /*)LIBRARY */ #ifdef DOCUMENTATION title isupper Test if a character is uppercase index Test if a character is uppercase synopsis isupper(c) char c; description isupper(c) returns 1 if c is an upper case letter; otherwise, it returns 0. bugs author Jerry Leichter #endif /* * )EDITLEVEL=02 * Edit history * 0.0 13-May-81 JSL Invention * 0.1 21-May-81 JSL Conversion to new comment conventions */ #ifdef vms #include "c:chrtab.h" #else #include #endif isupper(c) char c; { return((chrtab[c & 0177] & UPPER) != 0); }