Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/releases/release-110.36/ckit/src/parser/util/ascii.sml
ViewVC logotype

Annotation of /sml/releases/release-110.36/ckit/src/parser/util/ascii.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 930 - (view) (download)

1 : dbm 597 (* Copyright (c) 1998 by Lucent Technologies *)
2 :    
3 :     (* Copyright 1989 by AT&T Bell Laboratories *)
4 :     (* ascii.sml *)
5 :    
6 :     structure Ascii = struct
7 :     val caret = 94
8 :     and colon = 58
9 :     and comma = 44
10 :     and del = 127
11 :     and dollar = 36
12 :     and dot = 46
13 :     and dquote = 34
14 :     and equal = 61
15 :     and formfeed = 12
16 :     and greaterthan = 62
17 :     and lbrace = 123
18 :     and lbracket = 91
19 :     and lc_a = 97
20 :     and lc_n = 110
21 :     and lc_t = 116
22 :     and lc_z = 122
23 :     and lessthan = 60
24 :     and lparen = 40
25 :     and minus = 45
26 :     and newline = 10
27 :     and nine = 57
28 :     and percent = 37
29 :     and plus = 43
30 :     and query = 63
31 :     and rbrace = 125
32 :     and rbracket = 93
33 :     and return = 13
34 :     and rparen = 41
35 :     and SEMIcolon = 59
36 :     and sharp = 35
37 :     and slash = 47
38 :     and space = 32
39 :     and squote = 39
40 :     and star = 42
41 :     and tab = 9
42 :     and tilde = 126
43 :     and uc_a = 65
44 :     and uc_z = 90
45 :     and underscore = 95
46 :     and zero = 48
47 :    
48 :     fun isDigit (char) = char >= zero andalso char <= nine;
49 :    
50 :     end (* structure Ascii *)

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0