53 lines
2.5 KiB
Plaintext
53 lines
2.5 KiB
Plaintext
0 400 0 " File contains examples of all SCE_ST_* lexical states 0-16 "
|
|
0 400 0 " Smalltalk code from the lexer that generates the character classification table."
|
|
0 400 0 | lexTable classificationBlock charClasses |
|
|
0 400 0 charClasses := #(#DecDigit #Letter #Special #Upper #BinSel).
|
|
0 400 0 lexTable := ByteArray new: 128.
|
|
0 400 0 classificationBlock := [ :charClass :chars |
|
|
0 400 0 | flag |
|
|
0 400 0 flag := 1 bitShift: (charClasses indexOf: charClass) - 1.
|
|
0 400 0 chars do: [ :char | lexTable at: char codePoint + 1 put: ((lexTable at: char codePoint + 1) bitOr: flag)]].
|
|
0 400 0
|
|
0 400 0 classificationBlock
|
|
0 400 0 value: #DecDigit value: '0123456789';
|
|
0 400 0 value: #Letter value: '_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
|
|
0 400 0 value: #Special value: '()[]{};.^:';
|
|
0 400 0 value: #BinSel value: '~@%&*-+=|\/,<>?!';
|
|
0 400 0 value: #Upper value: 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
|
|
0 400 0
|
|
0 400 0 ((String new: 500) streamContents: [ :stream |
|
|
0 400 0 stream crLf; nextPutAll: 'static int ClassificationTable[256] = {'.
|
|
0 400 0 lexTable keysAndValuesDo: [ :index :value |
|
|
0 400 0 ((index - 1) rem: 16) == 0 ifTrue: [
|
|
0 400 0 stream crLf; tab]
|
|
0 400 0 ifFalse: [
|
|
0 400 0 stream space].
|
|
0 400 0 stream print: value.
|
|
0 400 0 index ~= 256 ifTrue: [
|
|
0 400 0 stream nextPut: $,]].
|
|
0 400 0 stream crLf; nextPutAll: '};'; crLf.
|
|
0 400 0
|
|
0 400 0 charClasses keysAndValuesDo: [ :index :name |
|
|
0 400 0 stream
|
|
0 400 0 crLf;
|
|
0 400 0 nextPutAll: (
|
|
0 400 0 ('static inline bool is<1s>(unsigned char ch) {return (ch %< 0x80) && ((ClassificationTable[ch] & <2p>) != 0);}')
|
|
0 400 0 expandMacrosWith: name with: (1 bitShift: (index - 1)))
|
|
0 400 0 ]]) edit
|
|
0 400 0
|
|
0 400 0 " Some more syntax examples:
|
|
0 400 0 ^ is return (SCE_ST_RETURN)
|
|
0 400 0 true or false is bool (SCE_ST_BOOL)
|
|
0 400 0 self (SCE_ST_SELF)
|
|
0 400 0 super (SCE_ST_SUPER)
|
|
0 400 0 nil (SCE_ST_NIL)
|
|
0 400 0 "
|
|
0 400 0 foo
|
|
0 400 0 ^ Array with: 1 with: 2 with: false with: self with: super with: nil.
|
|
0 400 0
|
|
0 400 0 " Issue 274: A decimal separator is not required for scaled decimal numbers"
|
|
0 400 0 32.0s2
|
|
0 400 0 4.0e3
|
|
0 400 0 32s2
|
|
0 400 0 4e3
|
|
0 400 0 |