|
|
|
@ -30,10 +30,10 @@ classificationBlock := [ :charClass :chars |
|
|
|
|
|
|
|
|
|
|
classificationBlock
|
|
|
|
|
value: #DecDigit value: '0123456789';
|
|
|
|
|
value: #Letter value: '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPTQRSTUVWXYZ';
|
|
|
|
|
value: #Letter value: '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
|
|
|
|
|
value: #Special value: '()[]{};.^:';
|
|
|
|
|
value: #BinSel value: '~@%&*-+=|\/,<>?!';
|
|
|
|
|
value: #Upper value: 'ABCDEFGHIJKLMNOPTQRSTUVWXYZ'.
|
|
|
|
|
value: #Upper value: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
|
|
|
|
|
|
|
|
|
|
((String new: 500) streamContents: [ :stream |
|
|
|
|
|
stream crLf; nextPutAll: 'static int ClassificationTable[256] = {'.
|
|
|
|
|