/usr/share/codeblocks/lexers/lexer_smalltalk.sample is in codeblocks-common 13.12-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | "bubble sort"
bubbleSort: cmpFun
"Implementing Bubble sort with Smalltalk"
| i j tmp funResult |
i := self size.
[i > 0]
whileTrue: [j := 1.
[j <= i]
whileTrue: [funResult := cmpFun
value: (self at: i)
value: (self at: j).
funResult
ifTrue: [tmp := self at: i.
self
at: i
put: (self at: j).
self at: j put: tmp].
j := j + 1].
i := i - 1]
missing comment sign "
|