Return to ascii.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / lex

Annotation of researchv10no/cmd/sml/src/lex/ascii.sml, revision 1.1.1.1

1.1       root        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 *)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.