157 lines
3.4 KiB
Smalltalk
157 lines
3.4 KiB
Smalltalk
#include 'Stix.st'.
|
|
|
|
#class MyObject(Object)
|
|
{
|
|
#method(#class) main
|
|
{
|
|
| errmsgs synerrmsgs f |
|
|
|
|
errmsgs := #(
|
|
'no error'
|
|
'generic error'
|
|
|
|
'not implemented'
|
|
'subsystem error'
|
|
'internal error that should never have happened'
|
|
|
|
'insufficient system memory'
|
|
'insufficient object memory'
|
|
|
|
'invalid parameter or argument'
|
|
'data not found'
|
|
'existing/duplicate data'
|
|
'busy'
|
|
'access denied'
|
|
'operation not permitted'
|
|
'not a directory'
|
|
'interrupted'
|
|
'pipe error'
|
|
'resource temporarily unavailable'
|
|
|
|
'data too large'
|
|
'message sending error'
|
|
'range error'
|
|
'byte-code full'
|
|
'dictionary full'
|
|
'processor full'
|
|
'semaphore heap full'
|
|
'semaphore list full'
|
|
'divide by zero'
|
|
'I/O error'
|
|
'encoding conversion error'
|
|
).
|
|
|
|
synerrmsgs := #(
|
|
'no error'
|
|
'illegal character'
|
|
'comment not closed'
|
|
'string not closed'
|
|
'no character after $'
|
|
'no valid character after #'
|
|
'wrong character literal'
|
|
'colon expected'
|
|
'string expected'
|
|
'invalid radix'
|
|
'invalid numeric literal'
|
|
'byte too small or too large'
|
|
'wrong error literal'
|
|
'{ expected'
|
|
'} expected'
|
|
'( expected'
|
|
') expected'
|
|
'] expected'
|
|
'. expected'
|
|
' expected'
|
|
'| expected'
|
|
'> expected'
|
|
':= expected'
|
|
'identifier expected'
|
|
'integer expected'
|
|
'primitive: expected'
|
|
'wrong directive'
|
|
'undefined class'
|
|
'duplicate class'
|
|
'contradictory class definition'
|
|
'#dcl not allowed'
|
|
'wrong method name'
|
|
'duplicate method name'
|
|
'duplicate argument name'
|
|
'duplicate temporary variable name'
|
|
'duplicate variable name'
|
|
'duplicate block argument name'
|
|
'cannot assign to argument'
|
|
'undeclared variable'
|
|
'unusable variable in compiled code'
|
|
'inaccessible variable'
|
|
'ambiguous variable'
|
|
'wrong expression primary'
|
|
'too many temporaries'
|
|
'too many arguments'
|
|
'too many block temporaries'
|
|
'too many block arguments'
|
|
'too large block'
|
|
'wrong primitive function number'
|
|
'wrong primitive function identifier'
|
|
'wrong module name'
|
|
'#include error'
|
|
'wrong namespace name'
|
|
'wrong pool dictionary name'
|
|
'duplicate pool dictionary name'
|
|
'literal expected'
|
|
).
|
|
|
|
f := Stdio open: 'generr.out' for: 'w'.
|
|
[ f isError ] ifTrue: [ System logNl: 'Cannot open generr.out'. thisProcess terminate. ].
|
|
|
|
self emitMessages: errmsgs named: 'errstr' on: f.
|
|
self emitMessages: synerrmsgs named: 'synerrstr' on: f.
|
|
|
|
f close.
|
|
}
|
|
|
|
#method(#class) emitMessages: errmsgs named: name on: f
|
|
{
|
|
| c prefix |
|
|
prefix := name & '_'.
|
|
|
|
c := errmsgs size - 1.
|
|
0 to: c do: [:i |
|
|
self printString: (errmsgs at: i) prefix: prefix index: i on: f.
|
|
].
|
|
|
|
|
|
f puts: S'static stix_ooch_t* '.
|
|
f puts: name.
|
|
f puts: S'[] =\n{\n'.
|
|
0 to: c do: [:i |
|
|
((i rem: 8) = 0) ifTrue: [ f putc: C'\t' ].
|
|
f puts: prefix.
|
|
f puts: (i asString).
|
|
(i = c) ifFalse: [f puts: S',' ].
|
|
(((i + 1) rem: 8) = 0) ifTrue: [ f putc: C'\n' ] ifFalse: [ f putc: C' ' ].
|
|
].
|
|
(((c + 1) rem: 8) = 0) ifFalse: [ f putc: C'\n' ].
|
|
f puts: S'};\n'.
|
|
}
|
|
|
|
#method(#class) printString: s prefix: prefix index: index on: f
|
|
{
|
|
| c |
|
|
c := s size - 1.
|
|
|
|
f puts: 'static stix_ooch_t '.
|
|
f puts: prefix.
|
|
f puts: index asString.
|
|
f puts: '[] = {'.
|
|
|
|
0 to: c do: [:i |
|
|
f putc: $'.
|
|
f putc: (s at: i).
|
|
f putc: $'.
|
|
(i = c) ifFalse: [f putc: $, ].
|
|
].
|
|
|
|
f puts: S',\'\\0\'};\n'.
|
|
}
|
|
}
|