[squeak-dev] The Trunk: ShoutCore-eem.22.mcz

Eliot Miranda eliot.miranda at gmail.com
Mon Oct 11 18:43:46 UTC 2010


Argh!  This went to the wrong repository.  Can someone with admin privileges
on source.squeak.org delete this?

TIA
Eliot

On Mon, Oct 11, 2010 at 11:37 AM, <commits at source.squeak.org> wrote:

> Eliot Miranda uploaded a new version of ShoutCore to project The Trunk:
> http://source.squeak.org/trunk/ShoutCore-eem.22.mcz
>
> ==================== Summary ====================
>
> Name: ShoutCore-eem.22
> Author: eem
> Time: 11 October 2010, 11:37:36.994 am
> UUID: bf5e644e-451b-4117-bb1a-8d3a087f902d
> Ancestors: ShoutCore-eem.16, ShoutCore-nice.21
>
> Merge with ShoutCore-nice.21.
> Now that we now that $- is (almost) a normal binary selector character (it
> also occurs in Number literals), let's do more simplifications.
>
> Laza's isNil ifTrue:... => ifNil: tweaks.
>
> =============== Diff against ShoutCore-nice.21 ===============
>
> Item was changed:
>  ----- Method: SHParserST80>>parseExternalCall (in category 'parse') -----
>  parseExternalCall
> +       [self scanNext.
> +       ((Smalltalk at: #ExternalFunction) callingConventionModifierFor:
> currentToken) notNil]
> +               whileTrue.
> -       self scanNext.
>        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 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!
>
> Item was changed:
>  ----- Method: SHParserST80>>parsePrimitive (in category 'parse') -----
>  parsePrimitive
> +       | numericPrim yetToSeeErrorCode |
> +       yetToSeeErrorCode := true.
>        self scanNext.
> +       (numericPrim := currentTokenFirst isDigit)
> -       currentTokenFirst isDigit
>                ifTrue: [self scanPast: #integer]
>                ifFalse: [
> +                       self failUnless: currentTokenFirst == $'.
> +                       self parseString].
> +       currentToken = 'error:' ifTrue:
> +               [yetToSeeErrorCode := false.
> +                self scanPast: #primitive.
> +                self isName
> +                       ifTrue: [self scanPast: #patternTempVar]
> +                       ifFalse:
> +                               [self failUnless: currentTokenFirst == $'.
> +                                self parseString]].
> +       numericPrim ifFalse:
> +               [currentToken = 'module:' ifTrue:
> +                       [self scanPast: #module.
> +                        self failUnless: currentTokenFirst == $'.
> +                        self parseString]].
> +       (yetToSeeErrorCode
> +        and: [currentToken = 'error:']) ifTrue:
> +               [self scanPast: #primitive.
> +                self isName
> +                       ifTrue: [self scanPast: #patternTempVar]
> +                       ifFalse:
> +                               [self failUnless: currentTokenFirst == $'.
> +                                self parseString]].
> +       self failUnless: currentToken = '>'.
> -                       currentTokenFirst == $'
> -                               ifTrue: [ self parseString ]
> -                               ifFalse: [
> -                                       currentTokenFirst == $#
> -                                               ifTrue: [ self parseSymbol
> ]
> -                                               ifFalse: [ self error ] ].
> -                       currentToken = 'module:'
> -                               ifTrue: [
> -                                       self scanPast: #module.
> -                                       currentTokenFirst == $'
> -                                               ifTrue: [ self parseString
> ]
> -                                               ifFalse: [
> -                                                       currentTokenFirst
> == $#
> -                                                               ifTrue: [
> self parseSymbol ]
> -                                                               ifFalse: [
> self error ] ] ] ].
> -       self failUnless: currentTokenFirst == $>.
>        self scanPast: #primitiveOrExternalCallEnd!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20101011/488a024e/attachment.htm


More information about the Squeak-dev mailing list