home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / m2posx14 / src / ctype.dpp < prev    next >
Encoding:
Modula Definition  |  1994-04-18  |  2.0 KB  |  46 lines
  1. DEFINITION MODULE ctype;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. (*****************************************************************************)
  13. (* Tests und Umwandlungsfunktionen fuer Klassen von Zeichen. Diese ent-      *)
  14. (* sprechen den Ansi-C-Funktionen, allerdings sind die Argumente keine       *)
  15. (* INTEGER-Werte, sondern tatsaechlich Zeichen.                              *)
  16. (*                                                                           *)
  17. (* Die Funktionen werden durch das Locale 'LC_CTYPE' beeinflusst.            *)
  18. (* --------------------------------------------------------------------------*)
  19. (* 18-Apr-94, Holger Kleinschmidt                                            *)
  20. (*****************************************************************************)
  21.  
  22. PROCEDURE iscntrl  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  23. PROCEDURE isspace  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  24. PROCEDURE islower  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  25. PROCEDURE isupper  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  26. PROCEDURE isalpha  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  27. PROCEDURE isdigit  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  28. PROCEDURE isxdigit ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  29. PROCEDURE isalnum  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  30. PROCEDURE isgraph  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  31. PROCEDURE isprint  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  32. PROCEDURE ispunct  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  33.  
  34. PROCEDURE tolower  ((* EIN/ -- *) c : CHAR ): CHAR;
  35. PROCEDURE toupper  ((* EIN/ -- *) c : CHAR ): CHAR;
  36.  
  37. (* Nicht Ansi-C: *)
  38. PROCEDURE isblank  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  39.  
  40. PROCEDURE isascii  ((* EIN/ -- *) c : CHAR ): BOOLEAN;
  41.  
  42. PROCEDURE tocard   ((* EIN/ -- *) c : CHAR ): CARDINAL;
  43. PROCEDURE todigit  ((* EIN/ -- *) i : CARDINAL ): CHAR;
  44.  
  45. END ctype.
  46.