| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- (* Release 3.10 *)
- (*-------------------------------------------------------------------------*
- * *
- * CTYPE.DEF - Modula-2 interface to CTYPE.H *
- * *
- * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- * All Rights Reserved *
- * *
- *--------------------------------------------------------------------------*)
- (*# project("#set tsc='on'") *)
- (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- (*# module(implementation=>off, init_code=>off) *)
- (*# name(prefix=>c) *)
- DEFINITION MODULE ctype;
- CONST
- _IS_SP = 1; (* is space *)
- _IS_DIG = 2; (* is digit indicator *)
- _IS_UPP = 4; (* is upper case *)
- _IS_LOW = 8; (* is lower case *)
- _IS_HEX = 16; (* [A-F] or [a-f] *)
- _IS_CTL = 32; (* Control *)
- _IS_PUN = 64; (* punctuation *)
- PROCEDURE isalnum(c:INTEGER):INTEGER;
- PROCEDURE isalpha(c:INTEGER):INTEGER;
- PROCEDURE isascii(c:INTEGER):INTEGER;
- PROCEDURE iscntrl(c:INTEGER):INTEGER;
- PROCEDURE isdigit(c:INTEGER):INTEGER;
- PROCEDURE isgraph(c:INTEGER):INTEGER;
- PROCEDURE islower(c:INTEGER):INTEGER;
- PROCEDURE isprint(c:INTEGER):INTEGER;
- PROCEDURE ispunct(c:INTEGER):INTEGER;
- PROCEDURE isspace(c:INTEGER):INTEGER;
- PROCEDURE isupper(c:INTEGER):INTEGER;
- PROCEDURE isxdigit(c:INTEGER):INTEGER;
- PROCEDURE _toupper(c:INTEGER):INTEGER;
- PROCEDURE _tolower(c:INTEGER):INTEGER;
- END ctype.
|
