Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

The Trunk: Environments-fbs.32.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

Frank Shearar uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.32.mcz ==================== Summary ==================== Name: Environments-fbs.32 Author: fbs Time: 30 July 2013, 1:23:32.538 pm UUID: 66b0a9de-4e9e-479b-a248-27363dae4c7d Ancestors: Environments-fbs.31 Copy SystemDictionary >> #poolUsers to Environment so that `Smalltalk poolUsers` works once more. =============== Diff against Environments-fbs.31 =============== Item was added: + ----- Method: Environment>>poolUsers (in category 'as yet unclassified') ----- + poolUsers + "Answer a dictionary of pool name -> classes that refer to it. + Also includes any globally know dictionaries (such as + Smalltalk, Undeclared etc) which although not strictly + accurate is potentially useful information" + "Smalltalk poolUsers" + | poolUsers | + poolUsers := Dictionary new. + self keys + do: [:k | "yes, using isKindOf: is tacky but for reflective code like + this it is very useful. If you really object you can:- + a) go boil your head. + b) provide a better answer. + your choice." + | pool refs | + (((pool := self at: k) isKindOf: Dictionary) + or: [pool isKindOf: SharedPool class]) + ifTrue: [refs := (self systemNavigation allClasses + select: [:c | c sharedPools identityIncludes: pool] + thenCollect: [:c | c name]) asOrderedCollection. + refs + add: (self systemNavigation + allCallsOn: (self associationAt: k)). + poolUsers at: k put: refs]]. + ^ poolUsers!

1 0

The Trunk: Environments-fbs.32.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Environments-fbs.32.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Collections-nice.527.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.527.mcz ==================== Summary ==================== Name: Collections-nice.527 Author: nice Time: 30 July 2013, 2:13:07.506 am UUID: 17e38fb5-76dd-499b-aa6d-bfe07045c28d Ancestors: Collections-fbs.526 Simplify Base64MimeConverter class initialization with Character>>to: =============== Diff against Collections-fbs.526 =============== Item was changed: ----- Method: Base64MimeConverter class>>initialize (in category 'as yet unclassified') ----- initialize FromCharTable := Array new: 256. "nils" + ToCharTable := ($A to: $Z) , ($a to: $z) , ($0 to: $9) , '+/'. + ToCharTable keysAndValuesDo: [:ind :char | + FromCharTable at: char asciiValue + 1 put: ind - 1].! - ToCharTable := Array new: 64. - ($A asciiValue to: $Z asciiValue) doWithIndex: [:val :ind | - FromCharTable at: val+1 put: ind-1. - ToCharTable at: ind put: val asCharacter]. - ($a asciiValue to: $z asciiValue) doWithIndex: [:val :ind | - FromCharTable at: val+1 put: ind+25. - ToCharTable at: ind+26 put: val asCharacter]. - ($0 asciiValue to: $9 asciiValue) doWithIndex: [:val :ind | - FromCharTable at: val+1 put: ind+25+26. - ToCharTable at: ind+26+26 put: val asCharacter]. - FromCharTable at: $+ asciiValue + 1 put: 62. - ToCharTable at: 63 put: $+. - FromCharTable at: $/ asciiValue + 1 put: 63. - ToCharTable at: 64 put: $/. - ! Item was changed: ----- Method: Character class>>initializeClassificationTable (in category 'class initialization') ----- initializeClassificationTable " Initialize the classification table. The classification table is a compact encoding of upper and lower cases of characters with - bits 0-7: The lower case value of this character. - bits 8-15: The upper case value of this character. - bit 16: lowercase bit (e.g., isLowercase == true) - bit 17: uppercase bit (e.g., isUppercase == true) " | ch1 | LowercaseBit := 1 bitShift: 16. UppercaseBit := 1 bitShift: 17. "Initialize the letter bits (e.g., isLetter == true)" LetterBits := LowercaseBit bitOr: UppercaseBit. ClassificationTable := Array new: 256. "Initialize the defaults (neither lower nor upper case)" 0 to: 255 do:[:i| ClassificationTable at: i+1 put: (i bitShift: 8) + i. ]. "Initialize character pairs (upper-lower case)" #( "Basic roman" ($A $a) ($B $b) ($C $c) ($D $d) ($E $e) ($F $f) ($G $g) ($H $h) ($I $i) ($J $j) ($K $k) ($L $l) ($M $m) ($N $n) ($O $o) ($P $p) ($Q $q) ($R $r) ($S $s) ($T $t) ($U $u) ($V $v) ($W $w) ($X $x) ($Y $y) ($Z $z) "International" + ($Ã $Ã€) ($Ã $Ã¥) ($Ã $Ã§) ($Ã $Ã©) + ($Ã $Ã±) ($Ã $Ã¶) ($Ã $ÃŒ) ($Ã $Ã ) + ($Ã $Ã£) ($Ã $Ãµ) ($Â $Â) ($Ã $ÃŠ) - ($Ä $ä) ($Å $å) ($Ç $ç) ($É $é) - ($Ñ $ñ) ($Ö $ö) ($Ü $ü) ($À $à) - ($Ã $ã) ($Õ $õ) ($ $) ($Æ $æ) "International - Spanish" + ($Ã $Ã¡) ($Ã $Ã) ($Ã $Ã³) ($Ã $Ãº) - ($Á $á) ($Í $í) ($Ó $ó) ($Ú $ú) "International - PLEASE CHECK" + ($Ã $Ãš) ($Ã $Ã¬) ($Ã $Ã²) ($Ã $Ã¹) + ($Ã $Ã«) ($Ã $Ã¯) + ($Ã $Ã¢) ($Ã $Ãª) ($Ã $Ã®) ($Ã $ÃŽ) ($Ã $Ã») - ($È $è) ($Ì $ì) ($Ò $ò) ($Ù $ù) - ($Ë $ë) ($Ï $ï) - ($Â $â) ($Ê $ê) ($Î $î) ($Ô $ô) ($Û $û) ) do:[:pair| | ch2 | ch1 := pair first asciiValue. ch2 := pair last asciiValue. ClassificationTable at: ch1+1 put: (ch1 bitShift: 8) + ch2 + UppercaseBit. ClassificationTable at: ch2+1 put: (ch1 bitShift: 8) + ch2 + LowercaseBit. ]. "Initialize a few others for which we only have lower case versions." + #($Ã $Ã $Ãž $Ã¿) do:[:char| - #($ß $Ø $ø $ÿ) do:[:char| ch1 := char asciiValue. ClassificationTable at: ch1+1 put: (ch1 bitShift: 8) + ch1 + LowercaseBit. ]. ! Item was changed: ----- Method: String>>asCharacter (in category 'converting') ----- asCharacter "Answer the receiver's first character, or '*' if none. Idiosyncratic, provisional." + ^ self size > 0 ifTrue: [self first] ifFalse:[$Â·]! - ^ self size > 0 ifTrue: [self first] ifFalse:[$·]! Item was changed: ----- Method: Text>>printStringHtml:on: (in category 'html') ----- printStringHtml: aString on: aStream | html | html := aString. "" html := html copyReplaceAll: '&' with: '&'. html := html copyReplaceAll: '>' with: '>'. html := html copyReplaceAll: '<' with: '<'. "" + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬ÂšÂŠÃ' with: 'á'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Â©' with: 'é'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬Â¶ÂŠÃ«' with: 'í'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬Â¶ÂŠÃŒ' with: 'ó'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬Â¶Â¬Ã¶' with: 'ú'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Â±' with: 'ñ'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬šŠÖ' with: 'á'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬š¬©' with: 'é'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬¶Šë' with: 'í'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬¶Šü' with: 'ó'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬¶¬ö' with: 'ú'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬®¬š¬±' with: 'ñ'. "" + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬Â¶ÂŠÂ±' with: 'Á'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬ÂšÂ¬Â¢' with: 'É'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬Â¶ÂŠÂº' with: 'Í'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬ÂšÂ¬Ã' with: 'Ó'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬ÂšÂŠÂ©' with: 'Ú'. + html := html copyReplaceAll: 'Â¬ÂšÂ¬Â®Â¬ÂšÂ¬Ã©Â¬ÂšÂ¬ÂÂ¬ÂšÂ¬Â·' with: 'Ñ'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬¶Š±' with: 'Á'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬š¬¢' with: 'É'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬¶Šº' with: 'Í'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬š¬Æ' with: 'Ó'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬šŠ©' with: 'Ú'. - html := html copyReplaceAll: '¬š¬®¬š¬é¬š¬¬š¬·' with: 'Ñ'. "" html := html copyReplaceAll: ' ' with: '<br> '. html := html copyReplaceAll: ' ' with: '    '. "" aStream nextPutAll: html!

1 0

The Trunk: Collections-nice.527.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Collections-nice.527.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Tests-nice.246.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.246.mcz ==================== Summary ==================== Name: Tests-nice.246 Author: nice Time: 30 July 2013, 2:06:04.527 am UUID: e26513d5-7168-47c0-9554-854e61110bb6 Ancestors: Tests-fbs.245 Simplify a test using Character>>to: =============== Diff against Tests-fbs.245 =============== Item was changed: ----- Method: FileDirectoryTest>>testRelativeNameIfAbsoluteFor (in category 'tests') ----- testRelativeNameIfAbsoluteFor | cwd notcwd | cwd := FileDirectory default. self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName) = cwd class currentDirectoryNickname. self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash) = cwd class currentDirectoryNickname. self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash, 'foo', cwd slash, 'bar') = ('foo', cwd slash, 'bar'). notcwd := cwd fullName copy. "Argh!!!!!!" + notcwd at: notcwd size put: (($a to: $z) detect: [:i| notcwd last ~= i]). - notcwd at: notcwd size put: (($a asInteger to: $z asInteger) detect: [:i| notcwd last ~= i asCharacter]) asCharacter. self assert: (cwd relativeNameIfAbsoluteFor: notcwd) = notcwd!

1 0

The Trunk: Tests-nice.246.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Tests-nice.246.mcz
by commits＠source.squeak.org 30 Jul '13

30 Jul '13

1 0

The Trunk: Kernel-nice.797.mcz
by commits＠source.squeak.org 28 Jul '13

28 Jul '13

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.797.mcz ==================== Summary ==================== Name: Kernel-nice.797 Author: nice Time: 28 July 2013, 4:48:53.354 pm UUID: c2ee61a3-86aa-4a39-ae2a-93ac3e8c81c6 Ancestors: Kernel-fbs.796 Workaround to fix http://bugs.squeak.org/view.php?id=1554 A class variable defined in a superclass should take precedence over a global variable. Note that current implementation will import the bindings of every superclass environment which is questionable. Fix a doubled statement terminator in Month class>>readFrom:. =============== Diff against Kernel-fbs.796 =============== Item was changed: ----- Method: Class>>bindingOf:environment: (in category 'compiling') ----- bindingOf: varName environment: anEnvironment "Answer the binding of some variable resolved in the scope of the receiver" | aSymbol binding | aSymbol := varName asSymbol. "First look in classVar dictionary." + (self classThatDefinesClassVariable: aSymbol) ifNotNil: + [:x | ^x classPool bindingOf: aSymbol]. - binding := self classPool bindingOf: aSymbol. - binding ifNotNil:[^binding]. "Next look in shared pools." self sharedPools do:[:pool | binding := pool bindingOf: aSymbol. binding ifNotNil:[^binding]. ]. "Next look in declared environment." binding := anEnvironment bindingOf: aSymbol. binding ifNotNil:[^binding]. "Finally look higher up the superclass chain and fail at the end." superclass == nil ifTrue: [^ nil] ifFalse: [^ superclass bindingOf: aSymbol]. ! Item was changed: ----- Method: Month class>>readFrom: (in category 'squeak protocol') ----- readFrom: aStream | m y | aStream skipSeparators. + m := aStream upToAnyOf: CharacterSet separators. - m := aStream upToAnyOf: CharacterSet separators.. aStream skipSeparators. y := aStream upToEnd. ^ self month: m year: y asInteger "Month readFrom: 'July 1998' readStream"!

1 0

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 2013