blumia/pineapple-notepad
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: bump scintilla and lexilla version

Browse Source
This commit is contained in:
Gary Wang
2025-10-12 13:51:32 +08:00
parent 9fb3681e3a
commit db20417ce7
1093 changed files with 138943 additions and 128144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
3rdparty/lexilla545/lexilla/test/examples/smalltalk/ClassificationTable.st vendored Normal file
View File

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

53
3rdparty/lexilla545/lexilla/test/examples/smalltalk/ClassificationTable.st.folded vendored Normal file
View File

@ -0,0 +1,53 @@
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

52
3rdparty/lexilla545/lexilla/test/examples/smalltalk/ClassificationTable.st.styled vendored Normal file
View File

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

2
3rdparty/lexilla545/lexilla/test/examples/smalltalk/SciTE.properties vendored Normal file
View File

@ -0,0 +1,2 @@
lexer.*.st=smalltalk
keywords.*.st=ifTrue: ifFalse: whileTrue: whileFalse: ifNil: ifNotNil: whileTrue whileFalse repeat isNil notNil