;;; characters.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.
;;;
;;;  Copyright (c) 1996 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Tue Feb 25 20:00:11 1997.

;;; All the characters you might have ever wanted.  Ugh.
<set-var
  char::+-	= &#177;
  char::micro	= &#181;
  char::copy	= &#169;
  char::lt	= &lt;
  char::gt	= &gt;
  char::amp	= &amp;>

<defun char::isupper? char>
  <char::isclass? <get-var-once char> upper>
</defun>

<defun char::islower? char>
  <char::isclass? <get-var-once char> lower>
</defun>

<defun char::isalnum? char>
  <char::isclass? <get-var-once char> alnum>
</defun>

<defun char::isalpha? char>
  <char::isclass? <get-var-once char> alpha>
</defun>

<defun char::isblank? char>
  <char::isclass? <get-var-once char> blank>
</defun>

<defun char::iscntrl? char>
  <char::isclass? <get-var-once char> cntrl>
</defun>

<defun char::isprint? char>
  <char::isclass? <get-var-once char> print>
</defun>

<defun char::ispunct? char>
  <char::isclass? <get-var-once char> punct>
</defun>

<defun char::isspace? char>
  <char::isclass? <get-var-once char> space>
</defun>

<defun char::isxdigit? char>
  <char::isclass? <get-var-once char> xdigit>
</defun>

<defun char::isclass? char class>
  <match <get-var-once char> "^[[:<downcase <get-var-once class>>:]]$">
</defun>
