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

Ken Causey ken at kencausey.com
Mon Oct 11 20:15:58 UTC 2010


I was poised to delete the package version and then saw this query from
Levente.  I'll hold off until I've heard from Eliot to confirm he wants
it deleted.

Ken

On Mon, 2010-10-11 at 21:21 +0200, Levente Uzonyi wrote:
> On Mon, 11 Oct 2010, Eliot Miranda wrote:
> 
> > Argh!  This went to the wrong repository.  Can someone with admin privileges
> > on source.squeak.org delete this?
> 
> Why? Are these changes private? Fixing the highlighting of the new 
> primitive pragmas is on my todo list, and these changes seem to be fixing 
> them.
> 
> 
> Levente
> 
> >
> > 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 --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 190 bytes
Desc: This is a digitally signed message part
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20101011/c6534dd6/attachment.pgp


More information about the Squeak-dev mailing list