enc-ebcdic-int.lisp - clic - Clic is an command line interactive client for gopher written in Common LISP
(HTM) git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
(DIR) LICENSE
---
enc-ebcdic-int.lisp (2769B)
---
1 (in-package #:babel-encodings)
2
3 (define-character-encoding :ebcdic-international
4 "An 8-bit, fixed-width character encoding from IBM.")
5
6 (defparameter +ebcdic-int-to-unicode+
7 #(0 1 2 3 156 9 134 127 151 141 142 11 12 13 14 15 16 17 18 19 157 133 8 135
8 24 25 146 143 28 29 30 31 128 129 130 65535 132 10 23 27 65535 65535 138 139
9 65535 5 6 7 65535 65535 22 65535 148 149 150 4 65535 65535 65535 155 20 21
10 65535 26 32 65535 65535 65535 65535 65535 65535 65535 65535 65535 91 46 60
11 40 43 33 38 65535 65535 65535 65535 65535 65535 65535 65535 65535 93 164 42
12 41 59 172 45 47 65535 65535 65535 65535 65535 65535 65535 65535 124 44 37 95
13 62 63 65535 65535 65535 65535 65535 65535 1102 1072 1073 96 58 35 64 39 61
14 34 1094 97 98 99 100 101 102 103 104 105 1076 1077 1092 1075 1093 1080 1081
15 106 107 108 109 110 111 112 113 114 1082 1083 1084 1085 1086 1087 1103 126
16 115 116 117 118 119 120 121 122 1088 1089 1090 1091 1078 1074 1100 1099 1079
17 1096 1101 1097 1095 1098 1070 1040 1041 1062 1044 1045 1060 1043 123 65 66
18 67 68 69 70 71 72 73 1061 1048 1049 1050 1051 1052 125 74 75 76 77 78 79 80
19 81 82 1053 1054 1055 1071 1056 1057 92 65535 83 84 85 86 87 88 89 90 1058
20 1059 1046 1042 1068 1067 48 49 50 51 52 53 54 55 56 57 1047 1064 1069 1065
21 1063 159))
22
23 (defparameter +unicode-upto-ac-ebcdic-int+
24 #(0 1 2 3 55 45 46 47 22 5 37 11 12 13 14 15 16 17 18 19 60 61 50 38 24 25 63
25 39 28 29 30 31 64 79 127 123 0 108 80 125 77 93 92 78 107 96 75 97 240 241
26 242 243 244 245 246 247 248 249 122 94 76 126 110 111 124 193 194 195 196
27 197 198 199 200 201 209 210 211 212 213 214 215 216 217 226 227 228 229 230
28 231 232 233 74 224 90 0 109 121 129 130 131 132 133 134 135 136 137 145 146
29 147 148 149 150 151 152 153 162 163 164 165 166 167 168 169 192 106 208 161
30 7 32 33 34 0 36 21 6 23 0 0 42 43 0 9 10 27 0 0 26 0 52 53 54 8 0 0 0 59 4
31 20 0 255 0 0 0 0 91 0 0 0 0 0 0 0 95))
32
33 (defparameter +unicode-0410-0450-ebcdic-int+
34 #(185 186 237 191 188 189 236 250 203 204 205 206 207 218 219 220 222 223 234
35 235 190 202 187 254 251 253 0 239 238 252 184 221 119 120 175 141 138 139
36 174 178 143 144 154 155 156 157 158 159 170 171 172 173 140 142 128 182 179
37 181 183 177 176 180 118 160))
38
39 (define-unibyte-decoder :ebcdic-international (octet)
40 (svref +ebcdic-int-to-unicode+ (the ub8 octet)))
41
42 (define-unibyte-encoder :ebcdic-international (code)
43 (let ((result (cond
44 ((<= code 172) (svref +unicode-upto-ac-ebcdic-int+ code))
45 ((<= #x0410 code #x0450) (svref +unicode-0410-0450-ebcdic-int+
46 (- code #x0410))))))
47 (prog1 result
48 (when (and (zerop result) (plusp code))
49 (handle-error)))))