]>
Commit | Line | Data |
---|---|---|
a9d77a20 FM |
1 | {-# LANGUAGE OverloadedStrings #-} |
2 | ||
3 | module Text.Edifact.Common.Simples | |
4 | ( simple0001 | |
5 | , simple0002 | |
6 | , simple0004 | |
7 | , simple0007 | |
8 | , simple0008 | |
9 | , simple0010 | |
10 | , simple0014 | |
11 | , simple0017 | |
12 | , simple0019 | |
13 | , simple0020 | |
14 | , simple0022 | |
15 | , simple0025 | |
16 | , simple0026 | |
17 | , simple0029 | |
18 | , simple0031 | |
19 | , simple0032 | |
20 | , simple0035 | |
21 | , simple0036 | |
22 | , simple0042 | |
23 | , simple0046 | |
24 | , simple0051 | |
25 | , simple0052 | |
26 | , simple0054 | |
27 | , simple0057 | |
28 | , simple0062 | |
29 | , simple0065 | |
30 | , simple0068 | |
31 | , simple0070 | |
32 | , simple0073 | |
33 | , simple0074 | |
34 | , simple0080 | |
35 | , simple0081 | |
36 | , simple0133 | |
37 | ) where | |
38 | ||
39 | import Text.Edifact.Parsing | |
40 | import Text.Edifact.Types (Value) | |
41 | ||
42 | -- | Derived from this specification: | |
43 | -- | |
44 | -- > 0001 Syntax identifier | |
45 | -- > Repr: a4 | |
46 | simple0001 :: Parser Value | |
47 | simple0001 = simple "0001" (alpha `exactly` 4) | |
48 | ||
49 | -- | Derived from this specification: | |
50 | -- | |
51 | -- > 0002 Syntax version number | |
52 | -- > Repr: an1 | |
53 | simple0002 :: Parser Value | |
54 | simple0002 = simple "0002" (alphaNumeric `exactly` 1) | |
55 | ||
56 | -- | Derived from this specification: | |
57 | -- | |
58 | -- > 0004 Interchange sender identification | |
59 | -- > Repr: an..35 | |
60 | simple0004 :: Parser Value | |
61 | simple0004 = simple "0004" (alphaNumeric `upTo` 35) | |
62 | ||
63 | -- | Derived from this specification: | |
64 | -- | |
65 | -- > 0007 Identification code qualifier | |
66 | -- > Repr: an..4 | |
67 | simple0007 :: Parser Value | |
68 | simple0007 = simple "0007" (alphaNumeric `upTo` 4) | |
69 | ||
70 | -- | Derived from this specification: | |
71 | -- | |
72 | -- > 0008 Interchange sender internal identification | |
73 | -- > Repr: an..35 | |
74 | simple0008 :: Parser Value | |
75 | simple0008 = simple "0008" (alphaNumeric `upTo` 35) | |
76 | ||
77 | -- | Derived from this specification: | |
78 | -- | |
79 | -- > 0010 Interchange recipient identification | |
80 | -- > Repr: an..35 | |
81 | simple0010 :: Parser Value | |
82 | simple0010 = simple "0010" (alphaNumeric `upTo` 35) | |
83 | ||
84 | -- | Derived from this specification: | |
85 | -- | |
86 | -- > 0014 Interchange recipient internal identification | |
87 | -- > Repr: an..35 | |
88 | simple0014 :: Parser Value | |
89 | simple0014 = simple "0014" (alphaNumeric `upTo` 35) | |
90 | ||
91 | -- | Derived from this specification: | |
92 | -- | |
93 | -- > 0017 Date | |
94 | -- > Repr: n6 | |
95 | simple0017 :: Parser Value | |
96 | simple0017 = simple "0017" (numeric `exactly` 6) | |
97 | ||
98 | -- | Derived from this specification: | |
99 | -- | |
100 | -- > 0019 Time | |
101 | -- > Repr: n4 | |
102 | simple0019 :: Parser Value | |
103 | simple0019 = simple "0019" (numeric `exactly` 4) | |
104 | ||
105 | -- | Derived from this specification: | |
106 | -- | |
107 | -- > 0020 Interchange control reference | |
108 | -- > Repr: an..14 | |
109 | simple0020 :: Parser Value | |
110 | simple0020 = simple "0020" (alphaNumeric `upTo` 14) | |
111 | ||
112 | -- | Derived from this specification: | |
113 | -- | |
114 | -- > 0022 Recipient reference/password | |
115 | -- > Repr: an..14 | |
116 | simple0022 :: Parser Value | |
117 | simple0022 = simple "0022" (alphaNumeric `upTo` 14) | |
118 | ||
119 | -- | Derived from this specification: | |
120 | -- | |
121 | -- > 0025 Recipient reference/password qualifier | |
122 | -- > Repr: an2 | |
123 | simple0025 :: Parser Value | |
124 | simple0025 = simple "0025" (alphaNumeric `exactly` 2) | |
125 | ||
126 | -- | Derived from this specification: | |
127 | -- | |
128 | -- > 0026 Application reference | |
129 | -- > Repr: an..14 | |
130 | simple0026 :: Parser Value | |
131 | simple0026 = simple "0026" (alphaNumeric `upTo` 14) | |
132 | ||
133 | -- | Derived from this specification: | |
134 | -- | |
135 | -- > 0029 Processing priority code | |
136 | -- > Repr: a1 | |
137 | simple0029 :: Parser Value | |
138 | simple0029 = simple "0029" (alphaNumeric `exactly` 1) | |
139 | ||
140 | -- | Derived from this specification: | |
141 | -- | |
142 | -- > 0031 Acknowledgement request | |
143 | -- > Repr: n1 | |
144 | simple0031 :: Parser Value | |
145 | simple0031 = simple "0031" (numeric `exactly` 1) | |
146 | ||
147 | -- | Derived from this specification: | |
148 | -- | |
149 | -- > 0032 Interchange agreement identifier | |
150 | -- > Repr: an..35 | |
151 | simple0032 :: Parser Value | |
152 | simple0032 = simple "0032" (alphaNumeric `upTo` 35) | |
153 | ||
154 | -- | Derived from this specification: | |
155 | -- | |
156 | -- > 0035 Test indicator | |
157 | -- > Repr: n1 | |
158 | simple0035 :: Parser Value | |
159 | simple0035 = simple "0035" (numeric `exactly` 1) | |
160 | ||
161 | -- | Derived from this specification: | |
162 | -- | |
163 | -- > 0036 Interchange control count | |
164 | -- > Repr: n..6 | |
165 | simple0036 :: Parser Value | |
166 | simple0036 = simple "0036" (numeric `upTo` 6) | |
167 | ||
168 | -- | Derived from this specification: | |
169 | -- | |
170 | -- > 0042 Interchange sender internal sub-identification | |
171 | -- > Repr: an..35 | |
172 | simple0042 :: Parser Value | |
173 | simple0042 = simple "0042" (alphaNumeric `upTo` 35) | |
174 | ||
175 | -- | Derived from this specification: | |
176 | -- | |
177 | -- > 0046 Interchange recipient internal sub-identification | |
178 | -- > Repr: an..35 | |
179 | simple0046 :: Parser Value | |
180 | simple0046 = simple "0046" (alphaNumeric `upTo` 35) | |
181 | ||
182 | -- | Derived from this specification: | |
183 | -- | |
184 | -- > 0051 Controlling agency | |
185 | -- > Repr: an..2 | |
186 | simple0051 :: Parser Value | |
187 | simple0051 = simple "0051" (alphaNumeric `upTo` 2) | |
188 | ||
189 | -- | Derived from this specification: | |
190 | -- | |
191 | -- > 0052 Message version number | |
192 | -- > Repr: an..3 | |
193 | simple0052 :: Parser Value | |
194 | simple0052 = simple "0052" (alphaNumeric `upTo` 3) | |
195 | ||
196 | -- | Derived from this specification: | |
197 | -- | |
198 | -- > 0054 Message release number | |
199 | -- > Repr: an..3 | |
200 | simple0054 :: Parser Value | |
201 | simple0054 = simple "0054" (alphaNumeric `upTo` 3) | |
202 | ||
203 | -- | Derived from this specification: | |
204 | -- | |
205 | -- > 0057 Association assigned code | |
206 | -- > Repr: an..6 | |
207 | simple0057 :: Parser Value | |
208 | simple0057 = simple "0057" (alphaNumeric `upTo` 6) | |
209 | ||
210 | -- | Derived from this specification: | |
211 | -- | |
212 | -- > 0062 MESSAGE REFERENCE NUMBER | |
213 | -- > Repr: an..14 | |
214 | simple0062 :: Parser Value | |
215 | simple0062 = simple "0062" (alphaNumeric `upTo` 14) | |
216 | ||
217 | -- | Derived from this specification: | |
218 | -- | |
219 | -- > 0065 Message type | |
220 | -- > Repr: an..6 | |
221 | simple0065 :: Parser Value | |
222 | simple0065 = simple "0065" (alphaNumeric `upTo` 6) | |
223 | ||
224 | -- | Derived from this specification: | |
225 | -- | |
226 | -- > 0068 COMMON ACCESS REFERENCE | |
227 | -- > Repr: an..35 | |
228 | simple0068 :: Parser Value | |
229 | simple0068 = simple "0068" (alphaNumeric `upTo` 35) | |
230 | ||
231 | -- | Derived from this specification: | |
232 | -- | |
233 | -- > 0070 Sequence of transfers | |
234 | -- > Repr: n..2 | |
235 | simple0070 :: Parser Value | |
236 | simple0070 = simple "0070" (numeric `upTo` 2) | |
237 | ||
238 | -- | Derived from this specification: | |
239 | -- | |
240 | -- > 0073 First and last transfer | |
241 | -- > Repr: a1 | |
242 | simple0073 :: Parser Value | |
243 | simple0073 = simple "0073" (alpha `exactly` 1) | |
244 | ||
245 | -- | Derived from this specification: | |
246 | -- | |
247 | -- > 0074 NUMBER OF SEGMENTS IN THE MESSAGE | |
248 | -- > Repr: n..6 | |
249 | simple0074 :: Parser Value | |
250 | simple0074 = simple "0074" (numeric `upTo` 6) | |
251 | ||
252 | -- | Derived from this specification: | |
253 | -- | |
254 | -- > 0080 Service code list directory version number | |
255 | -- > Repr: an..6 | |
256 | simple0080 :: Parser Value | |
257 | simple0080 = simple "0080" (alphaNumeric `upTo` 6) | |
258 | ||
259 | -- | Derived from this specification: | |
260 | -- | |
261 | -- > 0081 SECTION IDENTIFICATION | |
262 | -- > Repr: a1 | |
263 | simple0081 :: Parser Value | |
264 | simple0081 = simple "0081" (alpha `exactly` 1) | |
265 | ||
266 | -- | Derived from this specification: | |
267 | -- | |
268 | -- > 0133 Character encoding, coded | |
269 | -- > Repr: an..3 | |
270 | simple0133 :: Parser Value | |
271 | simple0133 = simple "0133" (alphaNumeric `upTo` 3) |