Packages July 2011

packages@lists.squeakfoundation.org

1 participants
141 discussions

The Trunk: Collections-nice.449.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.449.mcz ==================== Summary ==================== Name: Collections-nice.449 Author: nice Time: 20 July 2011, 5:19:37.262 pm UUID: 1db0f500-0a4b-4ed7-8c60-2f266436dc49 Ancestors: Collections-nice.448 Change the way to print Character delete (from Pharo). Format macToSqueak and use byte arrays. =============== Diff against Collections-nice.448 =============== Item was changed: ----- Method: Character>>macToSqueak (in category 'converting') ----- macToSqueak "Convert the receiver from MacRoman to Squeak encoding" | asciiValue | value < 128 ifTrue: [^ self]. value > 255 ifTrue: [^ self]. + asciiValue := #[ + 196 197 199 201 209 214 220 225 224 226 228 227 229 231 233 232 "80-8F" + 234 235 237 236 238 239 241 243 242 244 246 245 250 249 251 252 "90-9F" + 134 176 162 163 167 149 182 223 174 169 153 180 168 128 198 216 "A0-AF" + 129 177 138 141 165 181 142 143 144 154 157 170 186 158 230 248 "B0-BF" + 191 161 172 166 131 173 178 171 187 133 160 192 195 213 140 156 "C0-CF" + 150 151 147 148 145 146 247 179 255 159 185 164 139 155 188 189 "D0-DF" + 135 183 130 132 137 194 202 193 203 200 205 206 207 204 211 212 "E0-EF" + 190 210 218 219 217 208 136 152 175 215 221 222 184 240 253 254 ] "F0-FF" + at: self asciiValue - 127. + ^ Character value: asciiValue.! - asciiValue := #(196 197 199 201 209 214 220 225 224 226 228 227 229 231 233 232 234 235 237 236 238 239 241 243 242 244 246 245 250 249 251 252 134 176 162 163 167 149 182 223 174 169 153 180 168 128 198 216 129 177 138 141 165 181 142 143 144 154 157 170 186 158 230 248 191 161 172 166 131 173 178 171 187 133 160 192 195 213 140 156 150 151 147 148 145 146 247 179 255 159 185 164 139 155 188 189 135 183 130 132 137 194 202 193 203 200 205 206 207 204 211 212 190 210 218 219 217 208 136 152 175 215 221 222 184 240 253 254 ) at: self asciiValue - 127. - ^ Character value: asciiValue. - ! Item was changed: ----- Method: Character>>printOn: (in category 'printing') ----- printOn: aStream | name | + (value > 32 and: [value ~= 127]) - value > 32 ifTrue: [ aStream nextPut: $$; nextPut: self ] ifFalse: [ name := self class constantNameFor: self. name notNil ifTrue: [ aStream nextPutAll: self class name; space; nextPutAll: name ] ifFalse: [ aStream nextPutAll: self class name; nextPutAll: ' value: '; print: value ] ].! Item was changed: ----- Method: Character>>shouldBePrintedAsLiteral (in category 'testing') ----- shouldBePrintedAsLiteral + ^(value between: 33 and: 255) and: [value ~= 127]! - ^value between: 33 and: 255! Item was changed: ----- Method: Character>>squeakToMac (in category 'converting') ----- squeakToMac "Convert the receiver from Squeak to MacRoman encoding." value < 128 ifTrue: [^ self]. value > 255 ifTrue: [^ self]. + ^ Character value: (#[ - ^ Character value: (#( 173 176 226 196 227 201 160 224 246 228 178 220 206 179 182 183 "80-8F" 184 212 213 210 211 165 208 209 247 170 185 221 207 186 189 217 "90-9F" 202 193 162 163 219 180 195 164 172 169 187 199 194 197 168 248 "A0-AF" 161 177 198 215 171 181 166 225 252 218 188 200 222 223 240 192 "B0-BF" 203 231 229 204 128 129 174 130 233 131 230 232 237 234 235 236 "C0-CF" 245 132 241 238 239 205 133 249 175 244 242 243 134 250 251 167 "D0-DF" 136 135 137 139 138 140 190 141 143 142 144 145 147 146 148 149 "E0-EF" 253 150 152 151 153 155 154 214 191 157 156 158 159 254 255 216 "F0-FF" + ] at: value - 127) - ) at: value - 127) !

1 0

The Trunk: Collections-nice.449.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Collections-nice.449.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Kernel-nice.610.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.610.mcz ==================== Summary ==================== Name: Kernel-nice.610 Author: nice Time: 20 July 2011, 12:54:38.514 pm UUID: b6b7d674-a3ce-4967-876a-b041c32d03a8 Ancestors: Kernel-nice.609 Pulizie. You shall not decently ask any object if it hasLiteralThorough: =============== Diff against Kernel-nice.609 =============== Item was removed: - ----- Method: Object>>hasLiteralThorough: (in category 'testing') ----- - hasLiteralThorough: literal - "Answer true if literal is identical to any literal in this array, even if imbedded in further structures. This is the end of the imbedded structure path so return false." - - ^ false!

1 0

The Trunk: Kernel-nice.610.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Kernel-nice.610.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Collections-nice.448.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.448.mcz ==================== Summary ==================== Name: Collections-nice.448 Author: nice Time: 20 July 2011, 12:47:46.869 pm UUID: e486c811-3c45-4a6a-ad16-aba32db79745 Ancestors: Collections-nice.447 Don't deprecate #hasLiteralThorough: remove it, because the - in the change report are so cute. =============== Diff against Collections-nice.447 =============== Item was removed: - ----- Method: Array>>hasLiteralThorough: (in category 'private') ----- - hasLiteralThorough: literal - "Answer true if literal is identical to any literal in this array, even if imbedded in further array structures or closure methods" - - self deprecated: 'Never send #hasLiteralThorough: to an Array, just use #hasLiteral:'. - ^self hasLiteral: literal!

1 0

The Trunk: Collections-nice.448.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Collections-nice.448.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

1 0

The Trunk: Kernel-nice.609.mcz
by commits＠source.squeak.org 20 Jul '11

20 Jul '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.609.mcz ==================== Summary ==================== Name: Kernel-nice.609 Author: nice Time: 20 July 2011, 9:29:30.183 am UUID: 50b9cca2-c2a0-47c3-a367-2eae2ed530de Ancestors: Kernel-eem.608 Use literalEqual: in hasLiteral: and hasLiteralThorough: Remove hasLiteralThorough:from: because it is suspect: - it is not sent - it checks whether aLiteral == aBlock which cannot happen in Squeak implementation - it send hasLiteralThorough: to literals which was weired and is now deprecated =============== Diff against Kernel-eem.608 =============== Item was changed: ----- Method: CompiledMethod>>hasLiteral: (in category 'literals') ----- hasLiteral: literal - | litClass lit | "Answer whether the receiver references the argument, literal." - litClass := literal class. 2 to: self numLiterals - 1 do: "exclude superclass + selector/properties" [:index | + ((self objectAt: index) literalEqual: literal) ifTrue: [^true]]. - lit := self objectAt: index. - (litClass == lit class and: [literal = lit]) ifTrue: [^true]]. ^false! Item was changed: ----- Method: CompiledMethod>>hasLiteralThorough: (in category 'literals') ----- hasLiteralThorough: literal "Answer true if any literal in this method is literal, even if embedded in array structure." (self penultimateLiteral isMethodProperties and: [self penultimateLiteral hasLiteralThorough: literal]) ifTrue:[^true]. 2 to: self numLiterals - 1 "exclude superclass + selector/properties" do:[:index | | lit | + (((lit := self objectAt: index) literalEqual: literal) - ((lit := self objectAt: index) == literal or: [(lit isVariableBinding and: [lit key == literal]) or: [lit isArray and: [lit hasLiteral: literal]]]) ifTrue: [^ true]]. ^ false ! Item was removed: - ----- Method: CompiledMethod>>hasLiteralThorough:from: (in category 'literals') ----- - hasLiteralThorough: aLiteral from: aBlock - "Answer true if any literal in this method is literal, even if embedded in array structure or within its pragmas." - - | literal | - self pragmas do: [ :pragma | - (pragma hasLiteral: aLiteral) ifTrue: [ ^ true ] ]. - 2 to: self numLiterals + 1 do: [ :index | - literal := self objectAt: index. - literal == aLiteral ifTrue: [ ^ true ]. - literal == aBlock ifFalse:[ (literal hasLiteralThorough: aLiteral) ifTrue: [ ^ true ]] ]. - ^ false.!

1 0

← Newer
1
2
3
4
5
6
7
...
15
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 July 2011