Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: Compiler-jcg.147.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

Joshua Gargus uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-jcg.147.mcz ==================== Summary ==================== Name: Compiler-jcg.147 Author: jcg Time: 23 June 2010, 12:04:54.856 pm UUID: 714d775f-78af-45dc-affc-b33d59d68da5 Ancestors: Compiler-nice.146 Change Parser>>correctVariable:interval: to allow it to look up the proposed variable in the requestor even if it starts with an uppercase letter. =============== Diff against Compiler-nice.146 =============== Item was changed: ----- Method: Parser>>correctVariable:interval: (in category 'error correction') ----- correctVariable: proposedVariable interval: spot "Correct the proposedVariable to a known variable, or declare it as a new variable if such action is requested. We support declaring lowercase variables as temps or inst-vars, and uppercase variables as Globals or ClassVars, depending on whether the context is nil (class=UndefinedObject). Spot is the interval within the test stream of the variable. rr 3/4/2004 10:26 : adds the option to define a new class. " "Check if this is an i-var, that has been corrected already (ugly)" "Display the pop-up menu" + | binding userSelection action | - | tempIvar binding userSelection action | (encoder classEncoding instVarNames includes: proposedVariable) ifTrue: [^InstanceVariableNode new name: proposedVariable index: (encoder classEncoding allInstVarNames indexOf: proposedVariable)]. "If we can't ask the user for correction, make it undeclared" self interactive ifFalse: [^encoder undeclared: proposedVariable]. "First check to see if the requestor knows anything about the variable" + (binding := requestor bindingOf: proposedVariable) + ifNotNil: [^encoder global: binding name: proposedVariable]. - tempIvar := proposedVariable first isLowercase. - (tempIvar and: [(binding := requestor bindingOf: proposedVariable) notNil]) - ifTrue: [^encoder global: binding name: proposedVariable]. userSelection := requestor selectionInterval. requestor selectFrom: spot first to: spot last. requestor select. "Build the menu with alternatives" action := UndeclaredVariable signalFor: self name: proposedVariable inRange: spot. action ifNil: [^self fail]. "Execute the selected action" requestor deselect. requestor selectInvisiblyFrom: userSelection first to: userSelection last. ^action value!

1 0

The Trunk: Compiler-jcg.147.mcz
by commits＠source.squeak.org 23 Jun '10

23 Jun '10

1 0

The Trunk: Multilingual-ul.121.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.121.mcz ==================== Summary ==================== Name: Multilingual-ul.121 Author: ul Time: 22 June 2010, 6:48:58.111 pm UUID: 1293f287-5ed7-354c-9df8-d36e42ef16c0 Ancestors: Multilingual-nice.120 - use #ifNil: when possible - simplified UTF8TextConverter >> #nextFromStream:empty log message =============== Diff against Multilingual-nice.120 =============== Item was changed: ----- Method: UTF8TextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream + | character value1 value2 unicode value3 value4 | + aStream isBinary ifTrue: [ ^aStream basicNext ]. + character := aStream basicNext ifNil: [ ^nil ]. + value1 := character asciiValue. + value1 <= 127 ifTrue: [ ^character ]. "1-byte character" - | character1 value1 character2 value2 unicode character3 value3 character4 value4 | - aStream isBinary ifTrue: [^ aStream basicNext]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - value1 := character1 asciiValue. - value1 <= 127 ifTrue: [ - "1-byte character" - ^ character1 - ]. - "at least 2-byte character" + character := aStream basicNext ifNil: [ ^self errorMalformedInput ]. + value2 := character asciiValue. - character2 := aStream basicNext. - character2 = nil ifTrue: [^self errorMalformedInput]. - value2 := character2 asciiValue. - (value1 bitAnd: 16rE0) = 192 ifTrue: [ + ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + (value2 bitAnd: 63) ]. - ^ Unicode value: ((value1 bitAnd: 31) bitShift: 6) + (value2 bitAnd: 63). - ]. - "at least 3-byte character" + character := aStream basicNext ifNil: [ ^self errorMalformedInput ]. + value3 := character asciiValue. - character3 := aStream basicNext. - character3 = nil ifTrue: [^self errorMalformedInput]. - value3 := character3 asciiValue. (value1 bitAnd: 16rF0) = 224 ifTrue: [ unicode := ((value1 bitAnd: 15) bitShift: 12) + ((value2 bitAnd: 63) bitShift: 6) + + (value3 bitAnd: 63) ]. - + (value3 bitAnd: 63). - ]. - (value1 bitAnd: 16rF8) = 240 ifTrue: [ "4-byte character" + character := aStream basicNext ifNil: [ ^self errorMalformedInput ]. + value4 := character asciiValue. - character4 := aStream basicNext. - character4 = nil ifTrue: [^self errorMalformedInput]. - value4 := character4 asciiValue. unicode := ((value1 bitAnd: 16r7) bitShift: 18) + ((value2 bitAnd: 63) bitShift: 12) + ((value3 bitAnd: 63) bitShift: 6) + + (value4 bitAnd: 63) ]. + unicode ifNil: [ ^self errorMalformedInput ]. + unicode > 16r10FFFD ifTrue: [ ^self errorMalformedInput ]. + unicode = 16rFEFF ifTrue: [ ^self nextFromStream: aStream ]. - (value4 bitAnd: 63). - ]. - - unicode isNil ifTrue: [^self errorMalformedInput]. - unicode > 16r10FFFD ifTrue: [^self errorMalformedInput]. - - unicode = 16rFEFF ifTrue: [^ self nextFromStream: aStream]. ^ Unicode value: unicode. ! Item was changed: ----- Method: EUCTextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 offset value1 value2 nonUnicodeChar | aStream isBinary ifTrue: [^ aStream basicNext]. + character1 := aStream basicNext ifNil: [^ nil]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. character1 asciiValue <= 127 ifTrue: [^ character1]. + character2 := aStream basicNext ifNil: [^ nil]. - character2 := aStream basicNext. - character2 = nil ifTrue: [^ nil]. offset := 16rA1. value1 := character1 asciiValue - offset. value2 := character2 asciiValue - offset. (value1 < 0 or: [value1 > 93]) ifTrue: [^ nil]. (value2 < 0 or: [value2 > 93]) ifTrue: [^ nil]. nonUnicodeChar := Character leadingChar: self leadingChar code: value1 * 94 + value2. ^ Character leadingChar: self languageEnvironment leadingChar code: nonUnicodeChar asUnicode. ! Item was changed: ----- Method: MultiByteFileStream>>peekFor: (in category 'public') ----- peekFor: item | next state | "self atEnd ifTrue: [^ false]. -- SFStream will give nil" state := converter saveStateOf: self. + (next := self next) ifNil: [^ false]. - (next := self next) == nil ifTrue: [^ false]. item = next ifTrue: [^ true]. converter restoreStateOf: self with: state. ^ false. ! Item was changed: ----- Method: MultiByteBinaryOrTextStream>>peekFor: (in category 'public') ----- peekFor: item | next state | "self atEnd ifTrue: [^ false]. -- SFStream will give nil" state := converter saveStateOf: self. + (next := self next) ifNil: [^ false]. - (next := self next) == nil ifTrue: [^ false]. item = next ifTrue: [^ true]. converter restoreStateOf: self with: state. ^ false. !

1 0

The Trunk: Multilingual-ul.121.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: Multilingual-ul.121.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: System-tbn.344.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Torsten Bergmann uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tbn.344.mcz ==================== Summary ==================== Name: System-tbn.344 Author: tbn Time: 22 June 2010, 10:51:39.351 am UUID: 5f532634-f21d-ed42-9397-c7512e757b03 Ancestors: System-ar.343 recategorize #isRunningCog under vm =============== Diff against System-ar.343 =============== Item was changed: + ----- Method: SmalltalkImage>>isRunningCog (in category 'vm') ----- - ----- Method: SmalltalkImage>>isRunningCog (in category 'sources, changes log') ----- isRunningCog "Returns true if we're running Cog" ^[(self vmParameterAt: 46) > 0] on: Error do:[:ex| ex return: false]!

1 0

The Trunk: System-tbn.344.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: System-tbn.344.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: System-ar.343.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.343.mcz ==================== Summary ==================== Name: System-ar.343 Author: ar Time: 21 June 2010, 8:36:36.846 pm UUID: 178a99de-0c0e-7c42-bf93-a594eacce7aa Ancestors: System-ar.342 Fixes an ancient issue when launching Squeak with a script as argument. The code the converted the script name to a file url was just utterly and horribly broken and could not possibly work. With the fix, one can now again start Squeak with arguments of the form: squeak mysqueak.image file.st squeak mysqueak.image scripts/file.st squeak mysqueak.image ../../svn/scripts/file.st (and of course any kind of URL) =============== Diff against System-ar.342 =============== Item was changed: ----- Method: ProjectLauncher>>startUpAfterLogin (in category 'running') ----- startUpAfterLogin | scriptName loader isUrl | self setupFlaps. Preferences readDocumentAtStartup ifTrue: [ HTTPClient isRunningInBrowser ifTrue:[ self setupFromParameters. scriptName := self parameterAt: 'src'. CodeLoader defaultBaseURL: (self parameterAt: 'Base'). ] ifFalse:[ scriptName := (Smalltalk documentPath) ifNil:['']. scriptName := scriptName convertFromSystemString. scriptName isEmpty ifFalse:[ "figure out if script name is a URL by itself" isUrl := (scriptName asLowercase beginsWith:'http://') or:[ (scriptName asLowercase beginsWith:'file://') or:[ (scriptName asLowercase beginsWith:'ftp://')]]. + isUrl ifFalse:[ + "Allow for ../dir/scriptName arguments" + scriptName := (FileDirectory default uri + resolveRelativeURI: scriptName) asString]]. - isUrl ifFalse:[scriptName := 'file:',scriptName]]. ]. ] ifFalse: [ scriptName := '' ]. scriptName isEmptyOrNil ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]]. loader := CodeLoader new. loader loadSourceFiles: (Array with: scriptName). (scriptName asLowercase endsWith: '.pr') ifTrue:[self installProjectFrom: loader] ifFalse:[loader installSourceFiles]. !

1 0

The Trunk: System-ar.343.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

← Newer
1
2
3
4
5
6
7
8
...
28
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2010