Squeak-dev July 2011

squeak-dev@lists.squeakfoundation.org

61 participants
145 discussions

The Trunk: Collections-ul.451.mcz
by commits＠source.squeak.org 25 Jul '11

25 Jul '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.451.mcz ==================== Summary ==================== Name: Collections-ul.451 Author: ul Time: 25 July 2011, 2:09:16.563 am UUID: 88a1eed5-6fe6-c044-9c45-f52203eb3b29 Ancestors: Collections-ul.450 - removed WideString class>>allMethodsWithEncodingTag:, because it sent an unimplemented method #string:hasEncodingTag: - rewritten WideString class>>allMultiStringMethods and WideString class>>allNonAsciiMethods to use #allMethodsSelect: instead of reinventing the wheel. Not sure if we really need these methods here. =============== Diff against Collections-ul.450 =============== Item was removed: - ----- Method: WideString class>>allMethodsWithEncodingTag: (in category 'enumeration') ----- - allMethodsWithEncodingTag: encodingTag - "Answer a SortedCollection of all the methods that implement the message - aSelector." - - | list adder num i | - list := Set new. - adder := [ :mrClass :mrSel | - list add: ( - MethodReference new - setStandardClass: mrClass - methodSymbol: mrSel - ) - ]. - - num := CompiledMethod allInstances size. - i := 0. - 'processing...' displayProgressFrom: 0 to: num during: [:bar | - SystemNavigation new allBehaviorsDo: [ :class | - class selectorsDo: [:s | - bar value: (i := i + 1). - (self string: (class sourceCodeAt: s) asString hasEncoding: encodingTag) ifTrue: [ - adder value: class value: s. - ] - ] - ] - ]. - - ^ list. - ! Item was changed: ----- Method: WideString class>>allMultiStringMethods (in category 'enumeration') ----- allMultiStringMethods - "Answer a SortedCollection of all the methods that implement the message - aSelector." + ^CurrentReadOnlySourceFiles cacheDuring: [ + self systemNavigation allMethodsSelect: [ :method | + method getSource asString isOctetString not ] ]! - | list adder num i | - list := Set new. - adder := [ :mrClass :mrSel | - list add: ( - MethodReference new - setStandardClass: mrClass - methodSymbol: mrSel - ) - ]. - - num := CompiledMethod allInstances size. - i := 0. - 'processing...' displayProgressFrom: 0 to: num during: [:bar | - SystemNavigation new allBehaviorsDo: [ :class | - class selectorsDo: [:s | - bar value: (i := i + 1). - ((class sourceCodeAt: s) asString isOctetString) ifFalse: [ - adder value: class value: s. - ] - ] - ] - ]. - - ^ list. - ! Item was changed: ----- Method: WideString class>>allNonAsciiMethods (in category 'enumeration') ----- + allNonAsciiMethods - allNonAsciiMethods - "Answer a SortedCollection of all the methods that implement the message - aSelector." + ^CurrentReadOnlySourceFiles cacheDuring: [ + self systemNavigation allMethodsSelect: [ :method | + method getSource asString isAsciiString not ] ]! - | list adder num i | - list := Set new. - adder := [ :mrClass :mrSel | - list add: ( - MethodReference new - setStandardClass: mrClass - methodSymbol: mrSel - ) - ]. - - num := CompiledMethod allInstances size. - i := 0. - 'processing...' displayProgressFrom: 0 to: num during: [:bar | - SystemNavigation new allBehaviorsDo: [ :class | - class selectorsDo: [:s | - bar value: (i := i + 1). - ((class sourceCodeAt: s) asString isAsciiString) ifFalse: [ - adder value: class value: s. - ] - ] - ] - ]. - - ^ list. - !

1 0

The Trunk: Collections-ul.450.mcz
by commits＠source.squeak.org 25 Jul '11

25 Jul '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.450.mcz ==================== Summary ==================== Name: Collections-ul.450 Author: ul Time: 25 July 2011, 1:37:20.234 am UUID: 2d09bd44-bfdf-1840-87cb-81ced69f9948 Ancestors: Collections-nice.449 Avoid a multiplication, use low level methods in SequenceableCollection >> #polynomialEval: for better performance. =============== Diff against Collections-nice.449 =============== Item was changed: ----- Method: SequenceableCollection>>polynomialEval: (in category 'enumerating') ----- polynomialEval: thisX - | sum valToPower | "Treat myself as the coeficients of a polynomial in X. Evaluate it with thisX. First element is the constant and last is the coeficient for the highest power." " #(1 2 3) polynomialEval: 2 " "is 3*X^2 + 2*X + 1 with X = 2" + | size sum valToPower | + sum := self at: 1. + (size := self size) = 1 ifTrue: [ ^sum ]. - sum := self first. valToPower := thisX. + 2 to: size - 1 do: [ :ind | - 2 to: self size do: [:ind | sum := sum + ((self at: ind) * valToPower). + valToPower := valToPower * thisX ]. + ^sum + ((self at: size) * valToPower)! - valToPower := valToPower * thisX]. - ^ sum!

1 0

help needed with the new FFI plugin...
by Eliot Miranda 24 Jul '11

24 Jul '11

Hi All, today I committed the threaded FFI plugin along with the threaded VM and hope to be able to support people in doing threaded FFI work on the x86 platforms really soon now (Esteban, amongst others, this means you ;) ). But to put the image-level code that uses the new FFI plugin into production the standard VM needs to be upgraded to not crash with the ExternalFunction image changes the new threaded FFI plugin wants. The main change is that ExternalFunction changes size, gaining a stackSize inst var which is used to tell the FFI plugin how much stack spacer to reserve for marshalling (its computed on first use). The best way for this to happen is to start using the ThreadedFFIPlugin as the standard plugin in the Interpreter VM. The ThreadedFFIPlugin overall is simpler than the old FFI plugin (no assembler support code) and better (fully reentrant). But for this to happen we may need to implement the platform=specific parts of the ThreadedFFIPlugin (still entirely Smalltalk code) for PowerPC and ARM (and perhaps others, SPARC??). I understand what has to be done and I can explain it to anyone interested in working on the problem, but I don't have any hardware with which I can test the results so its pretty pointless my doing the work and producing something inevitably broken. So are there people out there who would be interested in doing the port to PPC and ARM? It means fleshing out the classes ThreadedARMFFIPlugin ThreadedFFICalloutStateForARM ThreadedPPCBEFFIPlugin ThreadedFFICalloutStateForPPC and having a solid understanding of how alloca works to do stack allocation and how the ABIs on ARM and PPC pass registers. here's hoping there are a few good low-level people who would be interested. Let me know. -- best, Eliot

8 11

Re: [fonc] Re: [squeak-dev] [ANN] Alan Kay to talk about "Next steps for qualitatively improving programming" at HPI in Potsdam
by Tim Felgentreff 23 Jul '11

23 Jul '11

2 1

Request for adive on Profile
by Hilaire Fernandes 23 Jul '11

23 Jul '11

Hello, I have produced a profile with DrGeo on the iPad in an interactive session where the user selects and moves math geometric items around. Underneath the dependees math item are updated and redrawn. The redraw is done so only morphs needing update are declared as changed. The time profile occurs for about 15s, but yet I don't understand from the profile where are spent the cpu cycles. Any tips to read and understand is appreciated Enclosed: two captures of the resulting profile. Hilaire -- Education 0.2 -- http://blog.ofset.org/hilaire

4 9

Squeakssl on Mac OS X Lion
by Lawson English 21 Jul '11

21 Jul '11

Has anyone tested SqueakSSL plugin on Mac OS X Lion? http://code.google.com/p/squeakssl/downloads/list I installed it into the Resources directory of the Squeak 4.2 all-in-one.app and I'm getting Error: primitiveSSSCreate Failed. e.g.: 'https://www.amazon.com' asUrl retrieveContents content. WebClient httpGet: 'https://www.google.com/search?q=squeak' Thanks. Lawson

1 0

Json simple example?
by Lawson English 21 Jul '11

21 Jul '11

How can I use the Json class? I've tried various permutations and combinations of: r := (WebClient httpGet: 'http://localhost' )content. r := MultiByteBinaryOrTextStream on: r encoding: nil. Json readFrom: r. where localhost/index.html is: { "glossary": { "title": "example glossary", "GlossDiv": { "title": "S", "GlossList": { "GlossEntry": { "ID": "SGML", "SortAs": "SGML", "GlossTerm": "Standard Generalized Markup Language", "Acronym": "SGML", "Abbrev": "ISO 8879:1986", "GlossDef": { "para": "A meta-markup language, used to create markup languages such as DocBook.", "GlossSeeAlso": ["GML", "XML"] }, "GlossSee": "markup" } } } } } taken from http://json.org/example.html I get MNU: undefonedObject>>isSeparator. Help? Thanks. Lawson

2 2

new Cog VMs available
by Eliot Miranda 21 Jul '11

21 Jul '11

....at http://www.mirandabanda.org/files/Cog/VM/VM.r2468/. These fix a problem with the ALien plugin assigning -2^31 into Aliens, and fix UUID generation on linux. -- best, Eliot

1 0

Daily Commit Log
by commits＠source.squeak.org 21 Jul '11

21 Jul '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-July/004870.html Name: Collections-nice.447 Ancestors: Collections-eem.446 Refine Association>>literalEqual: to correctly handle variable binding identity. Use literalEqual: in hasLiteral: Deprecate use of Array>>#hasLiteralThorough: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004871.html Name: Kernel-nice.609 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 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004872.html Name: Collections-nice.448 Ancestors: Collections-nice.447 Don't deprecate #hasLiteralThorough: remove it, because the - in the change report are so cute. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004873.html Name: Kernel-nice.610 Ancestors: Kernel-nice.609 Pulizie. You shall not decently ask any object if it hasLiteralThorough: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-July/004874.html Name: Collections-nice.449 Ancestors: Collections-nice.448 Change the way to print Character delete (from Pharo). Format macToSqueak and use byte arrays. =============================================

1 0

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

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

Jump to page: