(* 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.