-
Notifications
You must be signed in to change notification settings - Fork 4
/
ASCII.cs
119 lines (91 loc) · 3.46 KB
/
ASCII.cs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
/* M2Sharp -- Modula-2 to C# Translator & Compiler
*
* Copyright (c) 2016 The Modula-2 Software Foundation
*
* Author & Maintainer: Benjamin Kowarsch <trijezdci@org.m2sf>
*
* @synopsis
*
* M2Sharp is a multi-dialect Modula-2 to C# translator and via-C# compiler.
* It supports the dialects described in the 3rd and 4th editions of Niklaus
* Wirth's book "Programming in Modula-2" (PIM) published by Springer Verlag,
* and an extended mode with select features from the revised language by
* B.Kowarsch and R.Sutcliffe "Modula-2 Revision 2010" (M2R10).
*
* In translator mode, M2Sharp translates Modula-2 source to C# source files.
* In compiler mode, M2Sharp compiles Modula-2 source via C# source files
* to object code or executables using the host system's C# compiler.
*
* @repository
*
* https://github.com/m2sf/m2sharp
*
* @file
*
* ASCII.cs
*
* ASCII code constants.
*
* @license
*
* M2Sharp is free software: you can redistribute and/or modify it under the
* terms of the GNU Lesser General Public License (LGPL) either version 2.1
* or at your choice version 3 as published by the Free Software Foundation.
* However, you may not alter the copyright, author and license information.
*
* M2Sharp is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. Read the license for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with M2Sharp. If not, see <https://www.gnu.org/copyleft/lesser.html>.
*
* NB: Components in the domain part of email addresses are in reverse order.
*/
namespace org.m2sf.m2sharp {
/* --------------------------------------------------------------------------
* ASCII codes used within the compiler.
* ----------------------------------------------------------------------- */
public static class ASCII {
/* ASCII NUL is used as string terminator in M2 strings */
public const char NUL = '\u0000';
/* ASCII EOT is used to signal the end of a source file */
public const char EOT = '\u0004';
/* TAB, LF and CRLF are legal within M2 source files */
public const char TAB = '\u0009';
public const char LF = '\u000A';
public const char CR = '\u000D';
/* SPACE */
public const char SPACE = '\u0020';
/* BACKSLASH */
public const char BACKSLASH = '\\';
/* IsCtrl(ch) -- returns true if ch is control character */
public static bool IsCtrl (char ch) {
return (ch >= NUL) && (ch < SPACE);
} /* end IsCtrl */
/* IsUpper(ch) -- returns true if ch is uppercase letter */
public static bool IsUpper (char ch) {
return (ch >= 'A') && (ch <= 'Z');
} /* end IsUpper */
/* IsLower(ch) -- returns true if ch is lowercase letter */
public static bool IsLower (char ch) {
return (ch >= 'a') && (ch <= 'z');
} /* end IsLower */
/* IsDigit(ch) -- returns true if ch is digit */
public static bool IsDigit (char ch) {
return (ch >= '0') && (ch <= '9');
} /* end IsDigit */
/* IsAtoF(ch) -- returns true if ch is in 'A' .. 'F' */
public static bool IsAtoF (char ch) {
return (ch >= 'A') && (ch <= 'F');
} /* end IsAtoF */
/* IsAlnum(ch) -- returns true if ch is alpha-numeric */
public static bool IsAlnum (char ch) {
return
((ch >= 'A') && (ch <= 'Z')) ||
((ch >= 'a') && (ch <= 'z')) ||
((ch >= '0') && (ch <= '9'));
} /* end IsAlnum */
} /* ASCII */
} /* namespace */
/* END OF FILE */