/usr/share/gnu-smalltalk/unsupported/CString.st is in gnu-smalltalk-common 3.2.5-1.1.
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 | "test ctype instance creation"
Object
defineCFunc: 'testCString'
withSelectorArgs: 'testString'
returning: #void
args: #(#self)
!
| type object cs |
type := CStringType arrayType: 8.
"type inspect."
object := type new.
"object inspect."
cs := CString value: 'foo'.
cs testString.
object at: 1 put: cs.
(object at: 1) printNl.
!
|