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     ! 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.