source: proto/parabix2/parabix2_pablo.py @ 757

Last change on this file since 757 was 757, checked in by cameron, 8 years ago

Pablo versions of parabix2 files

File size: 15.9 KB
Line 
1# -*- coding: utf-8 -*-
2#
3# parabix2_compilable.py
4#
5# Parallel XML Parsing with Bitstream Addition
6# - Complete prototype for all bitstream computations in Parabix2
7# - optimized for compilation
8#
9# Robert D. Cameron
10# July 29, 2010
11#
12
13#import bitutil
14
15class u8 ():
16  unibyte = 0
17  prefix = 0
18  prefix2 = 0
19  prefix3 = 0
20  prefix4 = 0
21  suffix = 0
22  badprefix = 0
23  xE0 = 0
24  xED = 0
25  xF0 = 0
26  xF4 = 0
27  xA0_xBF = 0
28  x80_x9F = 0
29  x90_xBF = 0
30  x80_x8F = 0
31  xEF = 0
32  xBF = 0
33  xBE = 0
34  scope22 = 0
35  scope32 = 0
36  scope33 = 0
37  scope42 = 0
38  scope43 = 0
39  scope44 = 0
40  xE0_scope = 0
41  xED_scope = 0
42  xF0_scope = 0
43  xF4_scope = 0
44  xEF_scope = 0
45  error = 0
46
47class control ():
48  x00_x1F = 0
49  CR = 0
50  LF = 0
51  HT = 0
52  SP = 0
53  CRLF = 0
54 
55class lex ():
56  RefStart = 0
57  Semicolon = 0 
58  Colon = 0
59  LAngle = 0
60  RAngle = 0
61  LBracket = 0
62  RBracket = 0
63  Exclam = 0
64  QMark = 0
65  Hyphen = 0
66  Equals = 0
67  SQuote = 0
68  DQuote = 0
69  Slash = 0
70  Hash = 0
71  x = 0
72  ASCII_name_start = 0
73  ASCII_name_char = 0
74  NameScan = 0
75  Digit = 0
76  Hex = 0
77  WS = 0
78  PI_start = 0
79  CtCD_start = 0
80  EndTag_start = 0
81  CD_end = 0
82  DoubleHyphen = 0
83  PI_end = 0
84  LAngle_scope = 0
85  Hyphen_scope = 0
86  QMark_scope = 0
87  RBracket_scope = 0
88  CtCDPI_start = 0
89
90class cT_callouts:
91        CD_span = 0
92        Ct_span = 0
93        PI_mask = 0
94        PI_name = 0
95        CtCDPI_mask = 0
96        error = 0
97
98class refs:
99        GenRefs = 0
100        DecRefs = 0
101        HexRefs = 0
102        delmask = 0
103        error = 0
104
105class callouts:
106        ElemNames = 0
107        AttNames = 0
108        AttVals = 0
109        Tags = 0
110        EmptyTagMarks = 0
111        EmptyTagEnds = 0
112        EndTags = 0
113        error = 0
114       
115
116
117def main(u8data):
118        # Classify bytes for UTF-8 processing, whitespace and control
119        # processing and XML lexical analysis.
120
121        temp1 = (bit[0] | bit[1]);
122        temp2 = (bit[2] &~ bit[3]);
123        temp3 = (temp2 &~ temp1);
124        temp4 = (bit[5] &~ bit[4]);
125        temp5 = (bit[6] &~ bit[7]);
126        temp6 = (temp4 & temp5);
127        lex.RefStart = (temp3 & temp6);
128        temp7 = (bit[2] & bit[3]);
129        temp8 = (temp7 &~ temp1);
130        temp9 = (bit[4] &~ bit[5]);
131        temp10 = (bit[6] & bit[7]);
132        temp11 = (temp9 & temp10);
133        lex.Semicolon = (temp8 & temp11);
134        temp12 = (bit[4] & bit[5]);
135        temp13 = (bit[6] | bit[7]);
136        temp14 = (temp12 &~ temp13);
137        lex.LAngle = (temp8 & temp14);
138        temp15 = (temp12 & temp5);
139        lex.RAngle = (temp8 & temp15);
140        temp16 = (bit[1] &~ bit[0]);
141        temp17 = (bit[3] &~ bit[2]);
142        temp18 = (temp16 & temp17);
143        lex.LBracket = (temp18 & temp11);
144        temp19 = (bit[7] &~ bit[6]);
145        temp20 = (temp12 & temp19);
146        lex.RBracket = (temp18 & temp20);
147        temp21 = (bit[4] | bit[5]);
148        temp22 = (temp19 &~ temp21);
149        lex.Exclam = (temp3 & temp22);
150        temp23 = (temp12 & temp10);
151        lex.QMark = (temp8 & temp23);
152        lex.Hyphen = (temp3 & temp20);
153        lex.Equals = (temp8 & temp20);
154        temp24 = (temp4 & temp10);
155        lex.SQuote = (temp3 & temp24);
156        temp25 = (temp5 &~ temp21);
157        lex.DQuote = (temp3 & temp25);
158        lex.Slash = (temp3 & temp23);
159        temp26 = (temp10 &~ temp21);
160        lex.Hash = (temp3 & temp26);
161        temp27 = (temp16 & temp7);
162        temp28 = (temp9 &~ temp13);
163        lex.x = (temp27 & temp28);
164        temp29 = (temp9 & temp5);
165        lex.Colon = (temp8 & temp29);
166        temp30 = (temp18 & temp23);
167        temp31 = (temp30 | lex.Colon);
168        temp32 = (temp16 &~ bit[2]);
169        temp33 = (bit[5] | temp10);
170        temp34 = (bit[4] & temp33);
171        temp35 = (~temp34);
172        temp36 = (temp21 | temp13);
173        temp37 = ((bit[3] & temp35)|(~(bit[3]) & temp36));
174        temp38 = (temp32 & temp37);
175        temp39 = (temp31 | temp38);
176        temp40 = (temp16 & bit[2]);
177        temp41 = (temp40 & temp37);
178        lex.ASCII_name_start = (temp39 | temp41);
179        temp42 = (temp30 | lex.Hyphen);
180        temp43 = (temp3 & temp15);
181        temp44 = (temp42 | temp43);
182        temp45 = (temp8 &~ temp34);
183        temp46 = (temp44 | temp45);
184        temp47 = (temp46 | temp38);
185        lex.ASCII_name_char = (temp47 | temp41);
186        lex.NameScan = (lex.ASCII_name_char | bit[0]);
187        temp48 = (temp1 | bit[2]);
188        control.x00_x1F = (~temp48);
189        temp49 = (bit[2] | bit[3]);
190        temp50 = (temp1 | temp49);
191        control.CR = (temp20 &~ temp50);
192        control.LF = (temp29 &~ temp50);
193        temp51 = (temp9 & temp19);
194        control.HT = (temp51 &~ temp50);
195        control.SP = (temp3 &~ temp36);
196        temp52 = (temp20 | temp29);
197        temp53 = (temp52 | temp51);
198        temp54 = (temp53 &~ temp50);
199        lex.WS = (temp54 | control.SP);
200        temp55 = (bit[5] | bit[6]);
201        temp56 = (bit[4] & temp55);
202        lex.Digit = (temp8 &~ temp56);
203        temp57 = (temp16 &~ temp49);
204        temp58 = (temp57 &~ bit[4]);
205        temp59 = (~temp10);
206        temp60 = ((bit[5] & temp59)|(~(bit[5]) & temp13));
207        temp61 = (temp58 & temp60);
208        temp62 = (lex.Digit | temp61);
209        temp63 = (temp16 & temp2);
210        temp64 = (temp63 &~ bit[4]);
211        temp65 = (temp64 & temp60);
212        lex.Hex = (temp62 | temp65);
213
214
215        # Check for illegal control characters
216        xmlchar_error = (control.x00_x1F &~ lex.WS & EOF_mask)
217
218
219        u8.unibyte = (~bit[0]);
220        u8.suffix = 0
221        u8.error = 0
222        FFFE_FFFF = 0
223
224        if bit[0]:
225                u8.prefix = (bit[0] & bit[1]);
226                u8.prefix2 = (u8.prefix &~ bit[2]);
227                u8.prefix3 = (u8.prefix & temp2);
228                u8.prefix4 = (u8.prefix & temp7);
229                u8.suffix = (bit[0] &~ bit[1]);
230                temp66 = (u8.prefix &~ temp49);
231                temp67 = (temp21 | bit[6]);
232                temp68 = (temp66 &~ temp67);
233                temp69 = (bit[5] & temp13);
234                temp70 = (bit[4] | temp69);
235                temp71 = (u8.prefix4 & temp70);
236                u8.badprefix = (temp68 | temp71);
237                xE0 = (u8.prefix3 &~ temp36);
238                xED = (u8.prefix3 & temp20);
239                xF0 = (u8.prefix4 &~ temp36);
240                temp72 = (temp4 &~ temp13);
241                xF4 = (u8.prefix4 & temp72);
242                u8.xA0_xBF = (u8.suffix & bit[2]);
243                u8.x80_x9F = (u8.suffix &~ bit[2]);
244                u8.x90_xBF = (u8.suffix & temp49);
245                u8.x80_x8F = (u8.suffix &~ temp49);
246                xEF = (u8.prefix3 & temp23);
247                temp73 = (u8.suffix & temp7);
248                u8.xBF = (temp73 & temp23);
249                u8.xBE = (temp73 & temp15);
250                u8.xE0_scope = bitutil.Advance(xE0);
251                u8.xED_scope = bitutil.Advance(xED);
252                u8.xF0_scope = bitutil.Advance(xF0);
253                u8.xF4_scope = bitutil.Advance(xF4);
254                u8.xEF_scope = bitutil.Advance(xEF);
255                u8.scope22 = bitutil.Advance(u8.prefix2)
256                u8.scope32 = bitutil.Advance(u8.prefix3)
257                u8.scope33 = bitutil.Advance(u8.scope32)
258                u8.scope42 = bitutil.Advance(u8.prefix4)
259                u8.scope43 = bitutil.Advance(u8.scope42)
260                u8.scope44 = bitutil.Advance(u8.scope43)
261
262                u8lastscope = u8.scope22 | u8.scope33 | u8.scope44
263                u8anyscope = u8lastscope | u8.scope32 | u8.scope42 | u8.scope43
264               
265                u8error1 = u8.xE0_scope & u8.x80_x9F
266                u8error2 = u8.xED_scope & u8.xA0_xBF
267                u8error3 = u8.xF0_scope & u8.x80_x8F
268                u8error4 = u8.xF4_scope & u8.x90_xBF
269       
270                u8mismatch = u8anyscope ^ u8.suffix
271
272                u8.error = u8.badprefix | u8error1 | u8error2 | u8error3 | u8error4 | u8mismatch
273
274                EF_BF_pending = bitutil.Advance(u8.xEF_scope & u8.xBF)
275
276                FFFE_FFFF = (EF_BF_pending & (u8.xBE | u8.xBF))
277
278        xmlchar_error |= FFFE_FFFF
279
280        lex.LAngle_scope = bitutil.Advance(lex.LAngle)
281        lex.Hyphen_scope = bitutil.Advance(lex.Hyphen)
282        lex.QMark_scope = bitutil.Advance(lex.QMark)
283
284        lex.CD_end = 0
285        if lex.RBracket:
286                lex.RBracket_scope = bitutil.Advance(lex.RBracket)
287                lex.CD_end = bitutil.Advance(lex.RBracket_scope & lex.RBracket) & lex.RAngle
288
289        # Compute XML multilterals such as <?, </, --, ]]>.
290        #lex = add_multiliterals(lex)
291        lex.PI_start = lex.LAngle_scope & lex.QMark
292        lex.CtCD_start = lex.LAngle_scope & lex.Exclam
293        lex.CtCDPI_start = lex.PI_start | lex.CtCD_start
294        lex.EndTag_start = lex.LAngle_scope & lex.Slash
295
296        #if lex.CtCDPI_start:
297        lex.DoubleHyphen = lex.Hyphen_scope & lex.Hyphen
298        lex.PI_end = lex.QMark_scope & lex.RAngle
299
300       
301        # THE FOLLOWING FUNCTIONAL CALL IS MANUALLY INLINED
302        # Parse all comments, CDATA sections and processing instructions.
303        #markup1 = parse_CtCDPI(lex, EOF_mask)
304        #cT_callouts = CtCDPI_callouts()
305        cT_callouts.PI_name = 0
306        PI_starts = 0
307        PI_ends = 0
308        Ct_starts = 0
309        Ct_ends = 0
310        CD_starts = 0
311        CD_ends = 0
312        CtCDPI_starts = 0
313        PI_namestarts = 0
314        PI_name_ends = 0
315
316        # Scanning streams
317        CtCDPI_scan = ~lex.CtCDPI_start & EOF_mask
318        Ct_end_scan = ~lex.DoubleHyphen & EOF_mask
319        CD_end_scan = ~lex.CD_end & EOF_mask
320        PI_end_scan = ~lex.PI_end & EOF_mask
321        #
322        # Initiate the scan
323        CtCDPI_Cursor = 1
324        CtCDPI_Cursor = bitutil.ScanThru(CtCDPI_Cursor, CtCDPI_scan)
325        CtCDPI_Cursor &= EOF_mask
326        while CtCDPI_Cursor:
327                CtCDPI_starts |= CtCDPI_Cursor
328                PI_Cursor = CtCDPI_Cursor & lex.PI_start
329                CD_Ct_Cursor = bitutil.Advance(CtCDPI_Cursor & ~PI_Cursor)
330                CD_Cursor = CD_Ct_Cursor & lex.LBracket
331                #Ct_Cursor = bitutil.Advance(CD_Ct_Cursor & lex.Hyphen)
332                Ct_Cursor = CD_Ct_Cursor & lex.Hyphen
333                PI_starts |= PI_Cursor
334                CD_starts |= CD_Cursor
335                Ct_starts |= Ct_Cursor
336                Ct_Cursor = bitutil.Advance(Ct_Cursor) 
337                Ct_errors |= Ct_Cursor & ~ lex.Hyphen
338                Ct_Cursor = bitutil.Advance(Ct_Cursor)
339                Ct_end_scan |= Ct_Cursor
340                #PI_Cursor = bitutil.ScanThru(PI_Cursor, PI_end_scan)
341                PI_Cursor = bitutil.Advance(PI_Cursor)
342                PI_namestarts |= PI_Cursor
343                PI_name_end = bitutil.ScanThru(PI_Cursor, lex.NameScan)
344                PI_name_ends |= PI_name_end
345                cT_callouts.PI_name |= PI_name_end - PI_Cursor
346                PI_Cursor = bitutil.ScanThru(PI_name_end, PI_end_scan)
347                CD_Cursor = bitutil.ScanThru(CD_Cursor, CD_end_scan)
348                Ct_Cursor = bitutil.Advance(bitutil.ScanThru(Ct_Cursor, Ct_end_scan))
349                PI_ends |= PI_Cursor
350                CD_ends |= CD_Cursor
351                Ct_ends |= Ct_Cursor
352                CtCDPI_Cursor = PI_Cursor | CD_Cursor | Ct_Cursor
353                CtCDPI_Cursor = bitutil.ScanThru(CtCDPI_Cursor, CtCDPI_scan)
354                CtCDPI_Cursor &= EOF_mask
355       
356                cT_callouts.CtCDPI_mask = bitutil.Advance(CD_ends | Ct_ends | PI_ends) - CtCDPI_starts
357                #cT_callouts.error = Ct_ends & ~lex.RAngle | Ct_starts & ~ lex.Hyphen
358                cT_callouts.error = Ct_errors | Ct_ends & ~lex.RAngle
359                cT_callouts.error |= bitutil.Advance(PI_name_ends & ~ lex.WS) & ~ lex.PI_end
360                cT_callouts.error |= PI_namestarts & PI_name_ends
361                # If any of the Comment, CDATA or PI markups are unterminated, it is an error.
362                cT_callouts.error |= cT_callouts.CtCDPI_mask &~ EOF_mask
363               
364        Misc_mask = (lex.WS | lex.LAngle | (bitutil.Advance(Ct_ends | PI_ends) - (Ct_starts | PI_starts)) | CtCDPI_starts) & EOF_mask
365        # End of loop: no remaining CtCDPI_Cursor
366       
367        ########## END OF MANUAL INLINING
368       
369        # THE FOLLOWING FUNCTIONAL CALL IS MANUALLY INLINED
370        # All remaining "<" must be tag start characters; parse tags.
371        #tags = parse_tags(lex, cT_callouts.CtCDPI_mask, EOF_mask)
372
373        #callouts = tag_callouts()
374       
375        # Delimiters for scans.
376        DQuoteScan = ~(lex.DQuote | lex.LAngle) & EOF_mask
377        SQuoteScan = ~(lex.SQuote | lex.LAngle) & EOF_mask
378        AttListDelim = lex.Slash | lex.RAngle
379       
380        # Start the parallel parsing by inspecting the character
381        # after the opening "<" of a tag.
382        LAngleFollow = lex.LAngle_scope &~ cT_callouts.CtCDPI_mask
383        ElemNamePositions = LAngleFollow & ~lex.Slash
384        EndTagSeconds = LAngleFollow & lex.Slash
385       
386        # Start Tag/Empty Element Tag Parsing
387
388        # Advance all cursors by scanning through the tag name.
389        ElemNameFollows = bitutil.ScanThru(ElemNamePositions, lex.NameScan)
390        # Must have at least one name character for a legal start tag.
391        # Mark any occurrences of null names as errors.
392        ParseError = ElemNamePositions & ElemNameFollows
393        callouts.ElemNames = ElemNameFollows - ElemNamePositions
394       
395        # Initialize the accumulators for attribute name and value positions.
396        AttNameStarts = 0 
397        AttNameFollows = 0
398        EqToCheck = 0
399        AttValStarts = 0
400        AttValEnds = 0
401        AttValFollows = 0
402
403        # After the element name, there may or may not be an attlist.
404        AfterWS = bitutil.ScanThru(ElemNameFollows, lex.WS)
405        AttListEnd = AfterWS & AttListDelim
406        AttNameStart = AfterWS & ~AttListDelim
407        # At least one WS character is required between ElemNames and AttNames.
408        ParseError |= ElemNameFollows & AttNameStart
409
410        #
411        # The following loop iterates through attributes within a start tag.
412        # Because all start tags are processed in parallel, the number of
413        # iterations is the maximum number of attributes found in any one
414        # start tag, plus one.
415        while AttNameStart:
416                AttNameStarts |= AttNameStart
417                AttNameFollow = bitutil.ScanThru(AttNameStart, lex.NameScan)
418                AttNameFollows |= AttNameFollow
419                # Scan through WS to the expected '=' delimiter.
420                EqExpected = bitutil.ScanThru(AttNameFollow, lex.WS)
421                EqToCheck |= EqExpected
422                AttValPos = bitutil.ScanThru(EqExpected, EqExpected | lex.WS)
423                AttValStarts |= AttValPos
424                DQuoteAttVal = AttValPos & lex.DQuote
425                SQuoteAttVal = AttValPos & lex.SQuote
426                DQuoteAttEnd = bitutil.ScanThru(DQuoteAttVal, DQuoteAttVal | DQuoteScan)
427                SQuoteAttEnd = bitutil.ScanThru(SQuoteAttVal, SQuoteAttVal | SQuoteScan)
428                AttValEnd = DQuoteAttEnd | SQuoteAttEnd
429                AttValEnds |= AttValEnd
430                AttValFollow = bitutil.Advance(AttValEnd)
431                AttValFollows |= AttValFollow
432                AfterWS = bitutil.ScanThru(AttValFollow, lex.WS)
433                AttListEnd |= AfterWS & AttListDelim
434                AttNameStart = AfterWS & ~AttListDelim
435
436        # No more attribute values to process when AttNameStart == 0.
437        # Not needed for xmlwf
438        callouts.AttNames = AttNameFollows - AttNameStarts
439        callouts.AttVals = AttValFollows - AttValStarts
440        STagEnds = AttListEnd & lex.RAngle
441        # Mark any "/" characters found as the ends of empty element tags.
442        callouts.EmptyTagMarks = bitutil.Advance(AttListEnd & lex.Slash)
443        callouts.Tags = (STagEnds | callouts.EmptyTagMarks) - ElemNamePositions
444       
445        # Check for errors.
446        ParseError |= AttValFollows & AttNameStarts # No intervening WS.
447        ParseError |= AttNameStarts & AttNameFollows # Null AttName
448        ParseError |= EqToCheck & ~lex.Equals # = not found where expected.
449        ParseError |= AttValStarts & ~ (lex.DQuote | lex.SQuote)
450        ParseError |= AttValEnds & ~ (lex.DQuote | lex.SQuote)
451        ParseError |= callouts.EmptyTagMarks & ~lex.RAngle
452
453        # End Tag Parsing
454        EndTagEnds = bitutil.ScanThru(bitutil.ScanThru(EndTagSeconds, EndTagSeconds | lex.NameScan), lex.WS)
455        ParseError |= EndTagEnds & ~lex.RAngle
456        # Not needed for xmlwf
457        #callouts.EndTags = EndTagEnds - EndTagSeconds
458        callouts.error = ParseError
459        ########## END OF MANUAL INLINING
460
461
462
463
464        # All remaining "&" must be reference start characters; parse them.
465        # INLINED: refs = parse_refs(lex, cT_callouts.CtCDPI_mask)
466        refs.GenRefs = 0
467        refs.error = 0
468        Ref2 = 0
469        GenRef2 = 0
470        DecRef3 = 0
471        HexRef4 = 0
472        Ref1 = lex.RefStart &~ cT_callouts.CtCDPI_mask
473        if Ref1:
474                Ref2 = bitutil.Advance(Ref1)
475                NumRef2 = Ref2 & lex.Hash
476                GenRef2 = Ref2 &~ lex.Hash
477                NumRef3 = bitutil.Advance(NumRef2)
478                HexRef3 = NumRef3 & lex.x
479                DecRef3 = NumRef3 &~ lex.x
480                HexRef4 = bitutil.Advance(HexRef3) 
481                GenRefEnds = bitutil.ScanThru(GenRef2, lex.NameScan)
482                DecRefEnds = bitutil.ScanThru(DecRef3, lex.Digit)
483                HexRefEnds = bitutil.ScanThru(HexRef4, lex.Hex)
484                # Error checks
485                # At least one digit required for DecRef, one hex digit for HexRef.
486                error1 = DecRef3 &~ lex.Digit
487                error2 = HexRef4 &~ lex.Hex
488                # Semicolon terminator required (also covers unterminated at EOF).
489                error3 = (GenRefEnds | DecRefEnds | HexRefEnds) &~ lex.Semicolon
490                refs.GenRefs = GenRefEnds - GenRef2
491                #refs.DecRefs = DecRefEnds - DecRef3
492                #refs.HexRefs = HexRefEnds - HexRef4
493                # Mark references for deletion, but leave the trailing semicolon as
494                # the point for insertion of the "expansion" text (most often a
495                # single character).
496
497                refs.error = error1 | error2 | error3
498
499
500        # Ensure that no occurrence of ]]> occurs outside of markup.
501        #CD_end_error = validate_no_CD_end(lex, cT_callouts, callouts)
502        CD_end_error = lex.CD_end & ~(cT_callouts.CtCDPI_mask | callouts.Tags)
503       
504
505       
506        #name and name start checking streams
507        qname_stream =  callouts.ElemNames | callouts.AttNames
508        ncname_stream = cT_callouts.PI_name | refs.GenRefs
509        name_stream = qname_stream | ncname_stream
510        name_start = name_stream &~ bitutil.Advance(name_stream)
511        name_start_check = name_start & ~lex.ASCII_name_start
512        name_check = (name_stream &~ name_start) & ~lex.ASCII_name_char & ~u8.suffix
513       
514        #namespace validation
515        name_cursor = name_stream & ~bitutil.Advance(name_stream)
516        void_prefix_err = name_cursor & lex.Colon
517        namespace_sep = bitutil.ScanThru(name_cursor, lex.NameScan &~ lex.Colon) & lex.Colon
518        local_part_start = bitutil.Advance(namespace_sep)
519        local_part_err = local_part_start &~ lex.NameScan
520        colon2_err = bitutil.ScanThru(local_part_start, lex.NameScan &~ lex.Colon) & lex.Colon
521        ncname_err = ncname_stream & lex.Colon
522        namespace_error = void_prefix_err | local_part_err | colon2_err | ncname_err
523       
524       
525        # Consolidate and check for errors
526        error_mask = u8.error | xmlchar_error | cT_callouts.error | callouts.error | CD_end_error | refs.error | namespace_error
527
528
529        #return (cT_callouts, callouts, refs, u16hi, u16lo, delmask, error, lex, u16delmask, EOF_mask)
530        tag_marks = callouts.EmptyTagMarks | LAngleFollow | AttNameStarts
531        NameFollows = ElemNameFollows | AttNameFollows
532        AttRef = callouts.AttVals & Ref2
533       
Note: See TracBrowser for help on using the repository browser.