[squeak-dev] The Trunk: ShoutCore-eem.33.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jul 8 20:38:14 UTC 2011
Eliot Miranda uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-eem.33.mcz
==================== Summary ====================
Name: ShoutCore-eem.33
Author: eem
Time: 8 July 2011, 1:37:59.893 pm
UUID: fa382d6a-fb9c-441d-a078-56bf14069baf
Ancestors: ShoutCore-nice.32
Parse error: keywords in FFI method tags/pragmas.
=============== Diff against ShoutCore-nice.32 ===============
Item was changed:
----- Method: SHParserST80>>parseExternalCall (in category 'parse') -----
parseExternalCall
+ [self scanNext.
+ ((Smalltalk at: #ExternalFunction) callingConventionModifierFor: currentToken) notNil]
+ whileTrue.
- self scanNext.
- self failUnless: currentToken notNil.
self scanPast: #externalCallType.
currentToken = '*'
ifTrue: [self scanPast: #externalCallTypePointerIndicator].
currentTokenFirst isDigit
ifTrue: [self scanPast: #integer]
ifFalse: [
self failUnless: currentTokenFirst == $'.
self parseString].
self failUnless: currentTokenFirst == $(.
self scanPast: #leftParenthesis.
+ [currentTokenFirst ~= $)]
- [currentTokenFirst ~~ $)]
whileTrue: [
- self failUnless: currentToken notNil.
self scanPast: #externalCallType.
currentToken = '*'
ifTrue: [self scanPast: #externalCallTypePointerIndicator]].
self scanPast: #rightParenthesis.
currentToken = 'module:'
ifTrue: [
self scanPast: #module.
self failUnless: currentTokenFirst == $'.
self parseString].
+ currentToken = 'error:'
+ ifTrue: [
+ self scanPast: #module.
+ currentTokenFirst == $'
+ ifTrue: [self parseString]
+ ifFalse: [self scanPast: #patternTempVar]].
self failUnless: currentToken = '>'.
self scanPast: #primitiveOrExternalCallEnd!
More information about the Squeak-dev
mailing list
|