home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / 93src.lha / src / util / ascii.sml < prev    next >
Encoding:
Text File  |  1993-01-27  |  1.0 KB  |  49 lines
  1. (* Copyright 1989 by AT&T Bell Laboratories *)
  2. (* ascii.sml *)
  3.  
  4. structure Ascii = struct
  5.     val caret         = 94
  6.     and colon         = 58
  7.     and comma         = 44
  8.     and del         = 127
  9.     and dollar         = 36
  10.     and dot         = 46
  11.     and dquote         = 34
  12.     and equal         = 61
  13.     and formfeed     = 12
  14.     and greaterthan     = 62
  15.     and lbrace         = 123
  16.     and lbracket     = 91
  17.     and lc_a         = 97
  18.     and lc_n         = 110
  19.     and lc_t         = 116
  20.     and lc_z         = 122
  21.     and lessthan     = 60
  22.     and lparen         = 40
  23.     and minus         = 45
  24.     and newline         = 10
  25.     and nine         = 57
  26.     and percent         = 37
  27.     and plus         = 43
  28.     and query         = 63
  29.     and rbrace         = 125
  30.     and rbracket     = 93
  31.     and return         = 13
  32.     and rparen         = 41
  33.     and SEMIcolon     = 59
  34.     and sharp         = 35
  35.     and slash         = 47
  36.     and space         = 32
  37.     and squote         = 39
  38.     and star         = 42
  39.     and tab         = 9
  40.     and tilde         = 126
  41.     and uc_a         = 65
  42.     and uc_z         = 90
  43.     and underscore     = 95
  44.     and zero         = 48
  45.  
  46.     fun isDigit (char) = char >= zero andalso char <= nine;
  47.  
  48. end  (* structure Ascii *)
  49.