Squeak-dev March 2012

squeak-dev@lists.squeakfoundation.org

63 participants
208 discussions

[ANN] Shootout benchmarking copied to ss3
by Nicolas Cellier 01 Apr '12

01 Apr '12

These benchmarks are good, so I took the port of Eliot from Cog VMMaker and made a package of its own. Since I cannot create a new project on squeaksource, I decided to try SS3. See http://ss3.gemstone.com/ss/Shootout.html/ http://ss3.gemstone.com/ss/Shootout.html/Wiki http://shootout.alioth.debian.org/u32/benchmark.php Nicolas

2 1

Daily Commit Log
by commits＠source.squeak.org 31 Mar '12

31 Mar '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-March/005257.html Name: GetText-edc.22 Ancestors: GetText-edc.21 Revert method to right version of Diego Gomez Deck ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005258.html Name: Collections-nice.470 Ancestors: Collections-dtl.469 Republish without the #translated* messages which have been moved in GetText ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005259.html Name: GetText-nice.23 Ancestors: GetText-edc.22 Remove 2 underscore assignment. They were not detected automatically because not separated by space. Apply this minimal formatting rule : indent the method body. Whithout this, reading code really hurts my feeling. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005260.html Name: GetText-nice.24 Ancestors: GetText-nice.23 Properly indent method body in *Extensions also. Simplify multi-line export with #linesDo: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005261.html Name: GetText-nice.25 Ancestors: GetText-nice.24 Oops, correct my miss-simplification, the \n was missing... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005262.html Name: MonticelloConfigurations-eem.102 Ancestors: MonticelloConfigurations-bf.101 Add some help text to the MCConfigurationsBrowser cuz I always forget hot to create the current configuration. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005263.html Name: System-eem.478 Ancestors: System-ul.477 Move generally useful parts of MethodReference into base System. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005264.html Name: PackageInfo-Base-eem.58 Ancestors: PackageInfo-Base-bf.57 Move generally useful parts of MethodReference into base System. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005265.html Name: Monticello-eem.497 Ancestors: Monticello-bf.496 Move generally useful parts of MethodReference into base System. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005266.html Name: System-eem.479 Ancestors: System-eem.478 Remove empty category in MethodReference. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005267.html Name: Kernel-eem.677 Ancestors: Kernel-eem.676 Add the 4 argument perform:with:with:with:with: for Cog and who ever else. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005268.html Name: Files-eem.117 Ancestors: Files-eem.116 Provide missing primitive primLookupEntryIn:name: used by directoryEntryForName: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005269.html Name: MonticelloConfigurations-nice.103 Ancestors: MonticelloConfigurations-eem.102 Add a menu for updating a single dependency in the MonticelloConfiguration browser. =============================================

1 0

Re: [squeak-dev] The Trunk: GetText-edc.18.mcz
by Levente Uzonyi 31 Mar '12

31 Mar '12

On Thu, 15 Mar 2012, commits(a)source.squeak.org wrote: > Edgar J. De Cleene uploaded a new version of GetText to project The Trunk: > http://source.squeak.org/trunk/GetText-edc.18.mcz > > ==================== Summary ==================== > > Name: GetText-edc.18 > Author: edc > Time: 15 March 2012, 6:29:37.486 pm > UUID: 43d88f85-6e87-41fb-8dd1-883feaf3d297 > Ancestors: GetText-edc.17 > > '_' s replaced by ':=' The method you used to replace the assignments is wrong, because it's just simple search and replace, which ignores the context (e.g. strings and comments). Please review the changes by hand and fix them. Levente > > =============== Diff against GetText-edc.17 =============== > > Item was changed: > ----- Method: GetTextExporter>>appendStringReceivers:into: (in category 'private') ----- > appendStringReceivers: aSymbol into: domains > | literals references domainName methodReference keywords found | > > found := TranslatedReceiverFinder new stringReceiversWithContext: aSymbol. > found do: [ :assoc | > methodReference := assoc key. > keywords := assoc value. > domainName := (PackageOrganizer default packageOfMethod: methodReference ifNone: [nil]). > domainName := domainName isNil ifTrue: [TextDomainManager defaultDomain] ifFalse: [domainName name]. > + literals := domains at: domainName ifAbsentPut: [Dictionary new]. > - literals _ domains at: domainName ifAbsentPut: [Dictionary new]. > keywords do: [ :literal | > + references := literals at: literal ifAbsentPut: [OrderedCollection new]. > - references _ literals at: literal ifAbsentPut: [OrderedCollection new]. > references add: methodReference. > ]. > ]. > > ! > > Item was changed: > ----- Method: GetTextExporter>>appendVocabularies: (in category 'private') ----- > appendVocabularies: domains > | literalsForDomain references domainName methodReference | > > EToyVocabulary allPhrasesWithContextToTranslate do: [ :r | > methodReference := (MethodReference new setStandardClass: (r second) methodSymbol: (r third)). > + "domainName := self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)". > - "domainName _ self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)". > domainName := 'Etoys-Tiles'. > + literalsForDomain := domains at: domainName ifAbsentPut: [Dictionary new]. > - literalsForDomain _ domains at: domainName ifAbsentPut: [Dictionary new]. > r fourth do: [ :literal | > + references := literalsForDomain at: literal ifAbsentPut: [OrderedCollection new]. > - references _ literalsForDomain at: literal ifAbsentPut: [OrderedCollection new]. > references add: methodReference. > ]. > ]. > ! > > Item was changed: > ----- Method: GetTextExporter>>dirNameCategory:translator: (in category 'exporting') ----- > dirNameCategory: category translator: translator > "Answer a file name for the category. Make one if it is not exist yet. > Make template file name if translator is nil" > "self new dirNameCategory: 'Morphic-Scripting Support' translator: > NaturalLanguageTranslator current" > "self new dirNameCategory: 'Morphic-Scripting Support' translator: nil" > | safeCategory fileName dirName pathName | > + safeCategory := category copyReplaceAll: ' ' with: ':='. > - safeCategory := category copyReplaceAll: ' ' with: '_'. > fileName := translator > ifNil: [safeCategory , '.pot'] > ifNotNil: [translator localeID posixName , '.po']. > dirName := (safeCategory findTokens: '-') > inject: 'po' > into: [:aString :next | aString , FileDirectory slash , next]. > pathName := dirName , FileDirectory slash , fileName. > (FileDirectory default directoryNamed: dirName) assureExistence. > ^ pathName! > > Item was changed: > ----- Method: GetTextExporter>>dirNameDomain:translator: (in category 'exporting') ----- > dirNameDomain: domain translator: translator > "Answer a file name for the domain. Make one if it is not exist yet. > Make template file name if translator is nil" > "self new dirNameDomain: 'etoys' translator: > NaturalLanguageTranslator current" > "self new dirNameDomain: 'etoys' translator: nil" > | fileName dirName pathName | > + "safeCategory := category copyReplaceAll: ' ' with: ':='." > - "safeCategory := category copyReplaceAll: ' ' with: '_'." > fileName := domain, > (translator > ifNil: ['.pot'] > ifNotNil: ['.po']). > dirName := 'po', FileDirectory slash, > (translator > ifNil: ['templates'] > ifNotNil: [translator localeID posixName]). > pathName := dirName , FileDirectory slash , fileName. > (FileDirectory default directoryNamed: dirName) assureExistence. > ^ pathName! > > Item was changed: > ----- Method: GetTextExporter>>exportBody:translator: (in category 'file out') ----- > exportBody: literals translator: translator > "Export a gettext file body. literals is a dictionary of keyword -> > #(MethodReference...) in the textDomain." > "Build {sortKey. comment. msgid } to optimize sorting (getting category is > too slow). > If there are two or more methods for a mgsid, only first method > (alphabetical) is used for sorting." > | sorted msgid sortedMethods category sortKey comment triplets commentUnderLined | > triplets := literals associations > collect: [:assoc | > msgid := assoc key. > sortedMethods := assoc value asArray sort. > category := (Smalltalk at: sortedMethods first classSymbol) category asString. > sortKey := category , ',' , sortedMethods first printString , ',' , msgid. > comment := (sortedMethods > collect: [:each | each actualClass asString , '>>' , each methodSymbol asString]) > inject: category > into: [:result :methodName | result , ',' , methodName]. > + "Replace white spaces to := because gettext tool might > - "Replace white spaces to _ because gettext tool might > replace a space to a new line some times, and it makes > difficult to take a diff." > + commentUnderLined := comment copyReplaceAll: ' ' with: ':='. > - commentUnderLined := comment copyReplaceAll: ' ' with: '_'. > Array > with: sortKey > with: commentUnderLined > with: msgid]. > "Sort and output the words" > sorted := triplets > sort: [:a :b | a first <= b first]. > sorted > do: [:triplet | > comment := triplet second. > msgid := triplet third. > self exportRecordHeader: comment. > self > exportPhrase: msgid > translation: (self translationFor: msgid in: translator)]! > > Item was changed: > ----- Method: GetTextExporter>>exportPhrase:translation: (in category 'private') ----- > exportPhrase: phraseString translation: translationString > | normalizedTrans tmp transStartsWithCR transEndsWithCR| > phraseString isEmpty > ifTrue: [^ self]. > self exportTag: 'msgid' msg: phraseString. > translationString size = 0 ifTrue: [ > + normalizedTrans := '' > - normalizedTrans _ '' > ] ifFalse: [ > + transEndsWithCR := translationString last = (Character cr). > - transEndsWithCR _ translationString last = (Character cr). > phraseString last = (Character cr) ifTrue: [ > transEndsWithCR ifTrue: [ > + normalizedTrans := translationString > - normalizedTrans _ translationString > ] ifFalse: [ > + normalizedTrans := translationString , String cr > - normalizedTrans _ translationString , String cr > ] > ] ifFalse: [ > transEndsWithCR ifTrue: [ > + normalizedTrans := translationString allButLast > - normalizedTrans _ translationString allButLast > ] ifFalse: [ > + normalizedTrans := translationString > - normalizedTrans _ translationString > ] > ]. > + transStartsWithCR := normalizedTrans first = (Character cr). > - transStartsWithCR _ normalizedTrans first = (Character cr). > phraseString first = (Character cr) ifTrue: [ > transStartsWithCR ifFalse: [ > + tmp := (Character cr asString) , normalizedTrans. > + normalizedTrans := tmp. > - tmp _ (Character cr asString) , normalizedTrans. > - normalizedTrans _ tmp. > ] > ] ifFalse: [ > transStartsWithCR ifTrue: [ > + normalizedTrans := normalizedTrans allButFirst > - normalizedTrans _ normalizedTrans allButFirst > ] > ] > ]. > self exportTag: 'msgstr' msg: normalizedTrans. > stream cr! > > Item was changed: > ----- Method: GetTextExporter2>>appendStringReceivers:into: (in category 'private') ----- > appendStringReceivers: aSymbol into: domains > | literals references domainName methodReference keywords found | > > found := TranslatedReceiverFinder new stringReceiversWithContext: aSymbol. > found do: [ :assoc | > methodReference := assoc key. > keywords := assoc value. > + domainName := self getTextDomainForPackage: > - domainName _ self getTextDomainForPackage: > (PackageOrganizer default packageOfMethod: methodReference ifNone: [TextDomainManager defaultDomain]). > + literals := domains at: domainName ifAbsentPut: [Dictionary new]. > - literals _ domains at: domainName ifAbsentPut: [Dictionary new]. > keywords do: [ :literal | > + references := literals at: literal ifAbsentPut: [OrderedCollection new]. > - references _ literals at: literal ifAbsentPut: [OrderedCollection new]. > references add: methodReference. > ]. > ]. > ! > > Item was changed: > ----- Method: GetTextExporter2>>appendVocabularies: (in category 'private') ----- > appendVocabularies: domains > | literalsForDomain references domainName methodReference | > > EToyVocabulary allPhrasesWithContextToTranslate do: [ :r | > methodReference := (MethodReference new setStandardClass: (r second) methodSymbol: (r third)). > + "domainName := self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)". > - "domainName _ self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)". > domainName := 'Etoys-Tiles'. > + literalsForDomain := domains at: domainName ifAbsentPut: [Dictionary new]. > - literalsForDomain _ domains at: domainName ifAbsentPut: [Dictionary new]. > r fourth do: [ :literal | > + references := literalsForDomain at: literal ifAbsentPut: [OrderedCollection new]. > - references _ literalsForDomain at: literal ifAbsentPut: [OrderedCollection new]. > references add: methodReference. > ]. > ]. > ! > > Item was changed: > ----- Method: GetTextExporter2>>dirNameCategory:translator: (in category 'exporting') ----- > dirNameCategory: category translator: translator > "Answer a file name for the category. Make one if it is not exist yet. > Make template file name if translator is nil" > "self new dirNameCategory: 'Morphic-Scripting Support' translator: > NaturalLanguageTranslator current" > "self new dirNameCategory: 'Morphic-Scripting Support' translator: nil" > | safeCategory fileName dirName pathName | > + safeCategory := category copyReplaceAll: ' ' with: ':='. > - safeCategory := category copyReplaceAll: ' ' with: '_'. > fileName := translator > ifNil: [safeCategory , '.pot'] > ifNotNil: [translator localeID posixName , '.po']. > dirName := (safeCategory findTokens: '-') > inject: 'po' > into: [:aString :next | aString , FileDirectory slash , next]. > pathName := dirName , FileDirectory slash , fileName. > (FileDirectory default directoryNamed: dirName) assureExistence. > ^ pathName! > > Item was changed: > ----- Method: GetTextExporter2>>dirNameDomain:translator: (in category 'exporting') ----- > dirNameDomain: domain translator: translator > "Answer a file name for the domain. Make one if it is not exist yet. > Make template file name if translator is nil" > "self new dirNameDomain: 'etoys' translator: > NaturalLanguageTranslator current" > "self new dirNameDomain: 'etoys' translator: nil" > | fileName dirName pathName | > + "safeCategory := category copyReplaceAll: ' ' with: ':='." > - "safeCategory := category copyReplaceAll: ' ' with: '_'." > fileName := translator > ifNil: [domain , '.pot'] > ifNotNil: [translator localeID posixName , '.po']. > dirName := 'po', FileDirectory slash, domain. > pathName := dirName , FileDirectory slash , fileName. > (FileDirectory default directoryNamed: dirName) assureExistence. > ^ pathName! > > Item was changed: > ----- Method: GetTextExporter2>>exportBody:translator: (in category 'file out') ----- > exportBody: literals translator: translator > "Export a gettext file body. literals is a dictionary of keyword -> > #(MethodReference...) in the textDomain." > "Build {sortKey. comment. msgid } to optimize sorting (getting category is > too slow). > If there are two or more methods for a mgsid, only first method > (alphabetical) is used for sorting." > | sorted msgid sortedMethods category sortKey comment triplets commentUnderLined | > triplets := literals associations > collect: [:assoc | > msgid := assoc key. > sortedMethods := assoc value asArray sort. > category := (Smalltalk at: sortedMethods first classSymbol) category asString. > sortKey := category , ',' , sortedMethods first printString , ',' , msgid. > comment := (sortedMethods > collect: [:each | each actualClass asString , '>>' , each methodSymbol asString]) > inject: category > into: [:result :methodName | result , ',' , methodName]. > + "Replace white spaces to := because gettext tool might > - "Replace white spaces to _ because gettext tool might > replace a space to a new line some times, and it makes > difficult to take a diff." > + commentUnderLined := comment copyReplaceAll: ' ' with: ':='. > - commentUnderLined := comment copyReplaceAll: ' ' with: '_'. > Array > with: sortKey > with: commentUnderLined > with: msgid]. > "Sort and output the words" > sorted := triplets > sort: [:a :b | a first <= b first]. > sorted > do: [:triplet | > comment := triplet second. > msgid := triplet third. > self exportRecordHeader: comment. > self > exportPhrase: msgid > translation: (self translationFor: msgid in: translator)]! > > Item was changed: > ----- Method: GetTextExporter2>>exportPhrase:translation: (in category 'private') ----- > exportPhrase: phraseString translation: translationString > | normalizedTrans tmp transStartsWithCR transEndsWithCR| > phraseString isEmpty > ifTrue: [^ self]. > self exportTag: 'msgid' msg: phraseString. > translationString size = 0 ifTrue: [ > + normalizedTrans := '' > - normalizedTrans _ '' > ] ifFalse: [ > + transEndsWithCR := translationString last = (Character cr). > - transEndsWithCR _ translationString last = (Character cr). > phraseString last = (Character cr) ifTrue: [ > transEndsWithCR ifTrue: [ > + normalizedTrans := translationString > - normalizedTrans _ translationString > ] ifFalse: [ > + normalizedTrans := translationString , String cr > - normalizedTrans _ translationString , String cr > ] > ] ifFalse: [ > transEndsWithCR ifTrue: [ > + normalizedTrans := translationString allButLast > - normalizedTrans _ translationString allButLast > ] ifFalse: [ > + normalizedTrans := translationString > - normalizedTrans _ translationString > ] > ]. > + transStartsWithCR := normalizedTrans first = (Character cr). > - transStartsWithCR _ normalizedTrans first = (Character cr). > phraseString first = (Character cr) ifTrue: [ > transStartsWithCR ifFalse: [ > + tmp := (Character cr asString) , normalizedTrans. > + normalizedTrans := tmp. > - tmp _ (Character cr asString) , normalizedTrans. > - normalizedTrans _ tmp. > ] > ] ifFalse: [ > transStartsWithCR ifTrue: [ > + normalizedTrans := normalizedTrans allButFirst > - normalizedTrans _ normalizedTrans allButFirst > ] > ] > ]. > self exportTag: 'msgstr' msg: normalizedTrans. > stream cr! > > Item was changed: > ----- Method: GetTextInterchange>>language: (in category 'accessing') ----- > language: translator > + language := translator! > - language _ translator! > > Item was changed: > ----- Method: GetTextInterchange>>stream: (in category 'accessing') ----- > stream: aStream > + stream := aStream! > - stream _ aStream! > > Item was changed: > ----- Method: GetTextTranslator class>>defaultLocaleDirs (in category 'translation data layout') ----- > defaultLocaleDirs > | dirs | > + dirs := OrderedCollection new. > - dirs _ OrderedCollection new. > UserDefaultLocaleDirs ifNotNil: [dirs addAll: UserDefaultLocaleDirs]. > dirs addAll: self systemDefaultLocaleDirs. > ^dirs > ! > > Item was changed: > ----- Method: GetTextTranslator class>>findMOForLocaleID:domain: (in category 'private') ----- > findMOForLocaleID: id domain: aDomainName > | sepa langSubDir path | > + sepa := FileDirectory slash. > + langSubDir := self langDirNameForLocaleID: id. > - sepa _ FileDirectory slash. > - langSubDir _ self langDirNameForLocaleID: id. > (self localeDirsForDomain: aDomainName) > do: [:each | > + path := each , sepa , langSubDir, sepa , (self moNameForDomain: aDomainName). > - path _ each , sepa , langSubDir, sepa , (self moNameForDomain: aDomainName). > [(FileDirectory default fileExists: path) > ifTrue: [^path]] on: InvalidDirectoryError do: [:e | ^nil]]. > ^nil.! > > Item was changed: > ----- Method: GetTextTranslator class>>initialize (in category 'class initialization') ----- > initialize > + SystemDefaultLocaleDirs := OrderedCollection new. > + UserDefaultLocaleDirs := OrderedCollection new. > + LocaleDirsForDomain := Dictionary new.! > - SystemDefaultLocaleDirs _ OrderedCollection new. > - UserDefaultLocaleDirs _ OrderedCollection new. > - LocaleDirsForDomain _ Dictionary new.! > > Item was changed: > ----- Method: GetTextTranslator class>>localeDirsForDomain (in category 'private') ----- > localeDirsForDomain > + ^LocaleDirsForDomain ifNil: [LocaleDirsForDomain := Dictionary new]! > - ^LocaleDirsForDomain ifNil: [LocaleDirsForDomain _ Dictionary new]! > > Item was changed: > ----- Method: GetTextTranslator class>>localeDirsForDomain: (in category 'translation data layout') ----- > localeDirsForDomain: aDomainName > "returns collection of locale directories for text domain. > This includes user defined one for the domain, user defaults and system defaults" > | dirs dir | > + dirs := OrderedCollection new. > + dir := self localeDirForDomain: aDomainName. > - dirs _ OrderedCollection new. > - dir _ self localeDirForDomain: aDomainName. > dir ifNotNil: [dirs add: dir]. > dirs addAll: self defaultLocaleDirs. > ^dirs! > > Item was changed: > ----- Method: GetTextTranslator>>initialize (in category 'initialize-release') ----- > initialize > + moFiles := Dictionary new.! > - moFiles _ Dictionary new.! > > Item was changed: > ----- Method: GetTextTranslator>>isDomainLoaded: (in category 'accessing') ----- > isDomainLoaded: aDomainName > | mo | > + mo := moFiles at: aDomainName ifAbsent: [nil]. > - mo _ moFiles at: aDomainName ifAbsent: [nil]. > ^mo isNil not. > ! > > Item was changed: > ----- Method: GetTextTranslator>>loadMOFileForDomain: (in category 'private') ----- > loadMOFileForDomain: aDomainName > | moName | > + moName := self class findMOForLocaleID: self localeID > - moName _ self class findMOForLocaleID: self localeID > domain: aDomainName. > moName notNil > ifTrue: [^MOFile new load: moName > localeID: self localeID] > ifFalse: [^nil] > ! > > Item was changed: > ----- Method: GetTextTranslator>>reloadMOFiles (in category 'accessing') ----- > reloadMOFiles > + moFiles := Dictionary new. > - moFiles _ Dictionary new. > self loadMOFiles.! > > Item was changed: > ----- Method: GetTextTranslator>>translate:inDomain: (in category 'translation') ----- > translate: aString inDomain: aDomainName > | mo | > + mo := self moFileForDomain: aDomainName. > - mo _ self moFileForDomain: aDomainName. > ^mo isNil > ifTrue: [aString] > ifFalse: [mo translationFor: aString] > ! > > Item was changed: > ----- Method: ISOLanguageDefinition class>>iso3166Codes (in category 'private') ----- > (excessive size, no diff calculated) > > Item was changed: > ----- Method: LanguageEditor>>checkSpanishPhrase:translation: (in category 'private') ----- > checkSpanishPhrase: phraseString translation: translationString > "check the translation and aswer a string with a comment or a > nil meaning no-comments" > | superResult | > superResult := self checkPhrase: phraseString translation: translationString. > superResult isNil > ifFalse: [^ superResult]. > "For some reason, MCInstaller couldn't read Spanish character. " > "((translationString includes: $?) > + and: [(translationString includes: $?) not]) > + ifTrue: [^ '?Olvid? el signo de pregunta?']. > - and: [(translationString includes: $?) not]) > - ifTrue: [^ '?Olvid? el signo de pregunta?']. > ((translationString includes: $!!) > + and: [(translationString includes: $?) not]) > + ifTrue: [^ '?Olvid? el signo de admiraci?n?']. > - and: [(translationString includes: $?) not]) > - ifTrue: [^ '?Olvid? el signo de admiraci?n?']. > " > ^ nil > ! > > Item was changed: > ----- Method: LanguageEditor>>codeSelectedTranslationAsMimeString (in category 'gui methods') ----- > codeSelectedTranslationAsMimeString > | keys code tmpStream s2 gzs cont | > keys := selectedTranslations > collect: [:key | self translations at: key]. > code := String > streamContents: [:aStream | self translator fileOutOn: aStream keys: keys withBOM: false]. > > + tmpStream := MultiByteBinaryOrTextStream on: ''. > - tmpStream _ MultiByteBinaryOrTextStream on: ''. > tmpStream converter: UTF8TextConverter new. > tmpStream nextPutAll: code. > + s2 := RWBinaryOrTextStream on: ''. > - s2 _ RWBinaryOrTextStream on: ''. > gzs := GZipWriteStream on: s2. > tmpStream reset. > gzs nextPutAll: (tmpStream binary contentsOfEntireFile asString) contents. > gzs close. > s2 reset. > > + cont := String streamContents: [:strm | > - cont _ String streamContents: [:strm | > strm nextPutAll: '"Gzip+Base64 encoded translation for;'; cr. > strm nextPutAll: '#('. > keys do: [:each | strm nextPutAll: '''', each, ''' '.]. > strm nextPutAll: ')"'; cr; cr. > strm nextPutAll: 'NaturalLanguageTranslator loadForLocaleIsoString: '. > strm nextPut: $'. > strm nextPutAll: translator localeID isoString. > strm nextPut: $'. > strm nextPutAll: ' fromGzippedMimeLiteral: '. > strm nextPut: $'. > strm nextPutAll: (Base64MimeConverter mimeEncode: s2) contents. > strm nextPutAll: '''.'. > strm cr. > ]. > > (StringHolder new contents: cont) > openLabel: 'exported codes in Gzip+Base64 encoding' translated! > > Item was changed: > ----- Method: LanguageEditor>>filterTranslations: (in category 'gui methods') ----- > filterTranslations: aString > | filter | > filter := aString ifNil:['']. > "" > + translationsFilter := filter. > - translationsFilter _ filter. > self refreshTranslations. > ! > > Item was changed: > ----- Method: LanguageEditor>>initializeNewerKeys (in category 'initialization') ----- > initializeNewerKeys > > + newerKeys := Set new. > - newerKeys _ Set new. > ! > > Item was changed: > ----- Method: LanguageEditor>>selectNewerKeys (in category 'gui methods') ----- > selectNewerKeys > > | index | > self deselectAllTranslation. > newerKeys do: [:k | > + index := self translations indexOf: k ifAbsent: [0]. > - index _ self translations indexOf: k ifAbsent: [0]. > index > 0 ifTrue: [ > self selectedTranslationsAt: index put: true > ]. > ]. > ! > > Item was changed: > ----- Method: LanguageEditor>>translation: (in category 'accessing') ----- > translation: aStringOrText > "change the translation for the selected phrase" > | phrase | > self selectedTranslation isZero > ifTrue: [^ self]. > + phrase := self translations at: self selectedTranslation. > - phrase _ self translations at: self selectedTranslation. > translator > phrase: phrase > translation: aStringOrText asString. > newerKeys add: phrase. > ^ true! > > Item was changed: > ----- Method: LanguageEditor>>translations (in category 'accessing') ----- > translations > "answet the translator's translations" > | allTranslations filterString | > translations ifNotNil: [^translations]. > allTranslations := self translator translations keys. > "" > filterString := self translationsFilter. > "" > filterString isEmpty > ifFalse: [allTranslations := allTranslations > select: [:each | "" > ('*' , filterString , '*' match: each) > or: ['*' , filterString , '*' > match: (self translator translate: each)]]]. > "" > + ^ translations := allTranslations asSortedCollection asArray! > - ^ translations _ allTranslations asSortedCollection asArray! > > Item was changed: > ----- Method: LanguageEditor>>untranslated (in category 'accessing') ----- > untranslated > "answer the translator's untranslated phrases" > > > | all filterString | > untranslated ifNotNil: [^ untranslated]. > all := self translator untranslated. > "" > filterString := self untranslatedFilter. > "" > filterString isEmpty > ifFalse: [all := all > select: [:each | "" > ('*' , filterString , '*' match: each) > or: ['*' , filterString , '*' > match: (self translator translate: each)]]]. > "" > + ^ untranslated := all asSortedCollection asArray! > - ^ untranslated _ all asSortedCollection asArray! > > Item was changed: > ----- Method: Locale class>>localeChangedListeners (in category 'notification') ----- > localeChangedListeners > + ^LocaleChangeListeners ifNil: [LocaleChangeListeners := OrderedCollection new]! > - ^LocaleChangeListeners ifNil: [LocaleChangeListeners _ OrderedCollection new]! > > Item was changed: > ----- Method: Locale class>>migrateSystem (in category 'private') ----- > migrateSystem > "Locale migrateSystem" > "Do all the necessary operations to switch to the new Locale environment." > > + LocaleChangeListeners := nil. > - LocaleChangeListeners _ nil. > self > addLocalChangedListener: HandMorph; > addLocalChangedListener: Clipboard; > addLocalChangedListener: Vocabulary; > addLocalChangedListener: PartsBin; > addLocalChangedListener: Project; > addLocalChangedListener: PaintBoxMorph; > yourself! > > Item was changed: > ----- Method: Locale class>>switchTo:gently: (in category 'accessing') ----- > switchTo: locale gently: gentlyFlag > "Locale switchTo: (Locale isoLanguage: 'de')" > | availableID | > availableID := (NaturalLanguageTranslator availableForLocaleID: locale localeID) localeID. > Current localeID = availableID > + ifFalse: [Previous := Current. > - ifFalse: [Previous _ Current. > CurrentPlatform := Current := Locale localeID: availableID. > NaturalLanguageTranslator localeChanged. > gentlyFlag ifTrue: [self localeChangedGently] ifFalse: [self localeChanged]]! > > Item was changed: > ----- Method: LocaleID class>>posixName: (in category 'instance creation') ----- > posixName: aString > ^ self > + isoString: (aString copyReplaceAll: ':=' with: '-')! > - isoString: (aString copyReplaceAll: '_' with: '-')! > > Item was changed: > ----- Method: LocaleID>>posixName (in category 'printing') ----- > posixName > "(LocaleID isoString: 'es-MX') posixName" > "(LocaleID isoString: 'es') posixName" > "language[_territory]" > ^ self isoCountry > ifNil: [self isoLanguage] > + ifNotNil: [self isoLanguage , ':=' , self isoCountry]! > - ifNotNil: [self isoLanguage , '_' , self isoCountry]! > > Item was changed: > ----- Method: MOFile>>fileName: (in category 'public') ----- > fileName: path > + fileName := path! > - fileName _ path! > > Item was changed: > ----- Method: MOFile>>hashPjw: (in category 'experimental') ----- > hashPjw: aString > "So called `hashpjw' function by P.J. Weinberger > [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools, > 1986, 1987 Bell Telephone Laboratories, Inc.] " > | stringSize hash g | > + stringSize := aString size. > + hash := 0. > - stringSize _ aString size. > - hash _ 0. > 1 to: stringSize do: [:pos | > + hash := hash bitShift: 4. > + hash := hash + ((aString at: pos) asInteger). > + g := hash bitAnd: 16rF0000000. > - hash _ hash bitShift: 4. > - hash _ hash + ((aString at: pos) asInteger). > - g _ hash bitAnd: 16rF0000000. > g = 0 ifFalse: [ > + hash := hash bitXor: (g bitShift: -24). > + hash := hash bitXor: g. > - hash _ hash bitXor: (g bitShift: -24). > - hash _ hash bitXor: g. > ] > ]. > ^hash. > ! > > Item was changed: > ----- Method: MOFile>>load1:localeID: (in category 'experimental') ----- > load1: aFileName localeID: id > "CASE1: > all of strings are loaded. > translation strings are converted to Squeak format on load time. > original-string/index pairs are registerd to Dictionary on load time. > hash search can't be used" > | strm originalTable translatedTable | > + localeID := id. > - localeID _ id. > strm_ FileStream readOnlyFileNamed: aFileName. > + fileName := aFileName. > - fileName _ aFileName. > [ > self loadHeader: strm. > + originalTable := self loadStringPointers: strm > - originalTable _ self loadStringPointers: strm > offset: originalTableOffset. > > + originalStrings := self loadStrings: strm > - originalStrings _ self loadStrings: strm > pointers: originalTable. > > + translatedTable := self loadStringPointers: strm > - translatedTable _ self loadStringPointers: strm > offset: translatedTableOffset. > > + translatedStrings := self loadStrings: strm > - translatedStrings _ self loadStrings: strm > pointers: translatedTable > encoding: 'utf8' > languageEnvironment: (Locale localeID: localeID) languageEnvironment . > > + translations := Dictionary new. > - translations _ Dictionary new. > 1 to: nStrings do: [:index | > | key | > + key := originalStrings at: index. > - key _ originalStrings at: index. > translations at: key put: index. > ]. > + originalTable := nil. > - originalTable _ nil. > ] ensure: [strm close].! > > Item was changed: > ----- Method: MOFile>>load4:localeID: (in category 'experimental') ----- > load4: aFileName localeID: id > "CASE4: > all of strings are loaded. > loading and conversion of translation strings to Squeak format is executed on initialization time. > only hash search can be used" > | strm originalTable translatedTable | > + localeID := id. > - localeID _ id. > strm_ FileStream readOnlyFileNamed: aFileName. > + fileName := aFileName. > - fileName _ aFileName. > [ > self loadHeader: strm. > self loadHashTable: strm. > + originalTable := self loadStringPointers: strm > - originalTable _ self loadStringPointers: strm > offset: originalTableOffset. > > + originalStrings := self loadStrings: strm > - originalStrings _ self loadStrings: strm > pointers: originalTable. > > + translatedTable := self loadStringPointers: strm > - translatedTable _ self loadStringPointers: strm > offset: translatedTableOffset. > > + translatedStrings := self loadStrings: strm > - translatedStrings _ self loadStrings: strm > pointers: translatedTable > encoding: 'utf-8' > languageEnvironment: (Locale localeID: localeID) languageEnvironment . > ] ensure: [strm close].! > > Item was changed: > ----- Method: MOFile>>load:localeID: (in category 'public') ----- > load: aFileName localeID: id > "all of original/translated strings are loaded. > but conversion of translation string (in utf-8 bytestring) to Squeak format will be defered. > original-string/index pairs are registerd to Dictionary on load time. > hash search can't be used" > | strm originalTable translatedTable | > + localeID := id. > - localeID _ id. > strm_ FileStream readOnlyFileNamed: aFileName. > + fileName := aFileName. > - fileName _ aFileName. > [ > self loadHeader: strm. > + originalTable := self loadStringPointers: strm > - originalTable _ self loadStringPointers: strm > offset: originalTableOffset. > > + originalStrings := self loadStrings: strm > - originalStrings _ self loadStrings: strm > pointers: originalTable. > > + translatedTable := self loadStringPointers: strm > - translatedTable _ self loadStringPointers: strm > offset: translatedTableOffset. > > + translatedStrings := self loadStrings: strm > - translatedStrings _ self loadStrings: strm > pointers: translatedTable. > > + translations := Dictionary new: nStrings * 2. "make too enough room to avoid #grow" > - translations _ Dictionary new: nStrings * 2. "make too enough room to avoid #grow" > 1 to: nStrings do: [:index | > | key | > + key := originalStrings at: index. > - key _ originalStrings at: index. > translations at: key put: index. > ]. > + originalStrings := nil. > - originalStrings _ nil. > ] ensure: [strm close].! > > Item was changed: > ----- Method: MOFile>>loadHashTable: (in category 'experimental') ----- > loadHashTable: strm > | entry | > + hashTable := IntegerArray ofSize: hashTableSize. > - hashTable _ IntegerArray ofSize: hashTableSize. > strm binary. > strm position: hashTableOffset. > 1 to: hashTableSize do: [:index | > + entry := self nextInt32From: strm. > - entry _ self nextInt32From: strm. > hashTable at: index put: entry. > ]! > > Item was changed: > ----- Method: MOFile>>loadHeader: (in category 'private') ----- > loadHeader: strm > strm binary. > + magic := strm uint32. > - magic _ strm uint32. > magic = 16rDE120495 > + ifTrue: [isLittleEndian := true] > - ifTrue: [isLittleEndian _ true] > ifFalse: [ > magic = 16r950412DE > + ifTrue: [isLittleEndian := false] > - ifTrue: [isLittleEndian _ false] > ifFalse: [ self error: 'invalid MO'] > ]. > + revision := self nextInt32From: strm. > + nStrings := self nextInt32From: strm. > + originalTableOffset := self nextInt32From: strm. > + translatedTableOffset := self nextInt32From: strm. > + hashTableSize := self nextInt32From: strm. > + hashTableOffset := self nextInt32From: strm. > - revision _ self nextInt32From: strm. > - nStrings _ self nextInt32From: strm. > - originalTableOffset _ self nextInt32From: strm. > - translatedTableOffset _ self nextInt32From: strm. > - hashTableSize _ self nextInt32From: strm. > - hashTableOffset _ self nextInt32From: strm. > ! > > Item was changed: > ----- Method: MOFile>>loadString:pointer:length: (in category 'private') ----- > loadString: strm pointer: top length: len > | str | > + str := ByteString new: len. > - str _ ByteString new: len. > strm position: top. > strm nextInto: str. > ^str replaceAll: Lf with: Cr. > ! > > Item was changed: > ----- Method: MOFile>>loadStringPointers:offset: (in category 'private') ----- > loadStringPointers: strm offset: tableOffset > "returns tupple {arrayOfOffsetToString arrayOfLengthOfString}" > | offsetTable lenTable len offset tupple | > + offsetTable := IntegerArray new: nStrings. > + lenTable := IntegerArray new: nStrings. > - offsetTable _ IntegerArray new: nStrings. > - lenTable _ IntegerArray new: nStrings. > strm binary. > strm position: tableOffset. > 1 to: nStrings do: [:index | > + len := self nextInt32From: strm. > + offset := self nextInt32From: strm. > - len _ self nextInt32From: strm. > - offset _ self nextInt32From: strm. > offsetTable at: index put: offset. > lenTable at: index put: len. > ]. > + tupple := Array new: 2. > - tupple _ Array new: 2. > tupple at: 1 put: offsetTable. > tupple at: 2 put: lenTable. > ^tupple > ! > > Item was changed: > ----- Method: MOFile>>loadStrings:pointers:encoding:languageEnvironment: (in category 'private') ----- > loadStrings: strm pointers: tupple encoding: encodingName languageEnvironment: env > | strings rawStr str offsetTable lenTable | > + offsetTable := tupple first. > + lenTable := tupple second. > + strings := Array new: nStrings. > - offsetTable _ tupple first. > - lenTable _ tupple second. > - strings _ Array new: nStrings. > 1 to: nStrings do: [:index | > + rawStr := self loadString: strm > - rawStr _ self loadString: strm > pointer: (offsetTable at: index) > length: (lenTable at: index). > + str := encodingName isNil ifTrue: [rawStr] > - str _ encodingName isNil ifTrue: [rawStr] > ifFalse: [ encodingName = 'utf8' > ifTrue: [rawStr utf8ToSqueak applyLanguageInfomation: env] > ifFalse: [self error: 'this encoding isn''t supported'] > ]. > strings at: index put: str. > ]. > ^strings.! > > Item was changed: > ----- Method: MOFile>>searchByDictionary: (in category 'public') ----- > searchByDictionary: aString > | index | > + index := translations at: aString ifAbsent: [^nil]. > - index _ translations at: aString ifAbsent: [^nil]. > ^self translatedString: index > > ! > > Item was changed: > ----- Method: MOFile>>searchByHash: (in category 'experimental') ----- > searchByHash: aString > | hashValue nstr index incr key | > + hashValue := self hashPjw: aString. > + incr := 1 + (hashValue \\ (hashTableSize -2)). > + index := (hashValue \\ hashTableSize) . > + [ nstr := (hashTable at: index +1 ). > - hashValue _ self hashPjw: aString. > - incr _ 1 + (hashValue \\ (hashTableSize -2)). > - index _ (hashValue \\ hashTableSize) . > - [ nstr _ (hashTable at: index +1 ). > nstr = 0 ifTrue: [^nil]. > + key := self originalString: nstr. > - key _ self originalString: nstr. > key = aString ifTrue: [^self translatedString: nstr]. > index >= (hashTableSize - incr) > + ifTrue: [index := index - (hashTableSize - incr) ] > + ifFalse:[index := index + incr]. > - ifTrue: [index _ index - (hashTableSize - incr) ] > - ifFalse:[index _ index + incr]. > ] doWhileTrue: true.! > > Item was changed: > ----- Method: MOFile>>translateByHash: (in category 'experimental') ----- > translateByHash: aString > | trans | > + trans := self searchByHash: aString. > - trans _ self searchByHash: aString. > trans isNil ifTrue: [^aString] > ifFalse: [^trans]. > ! > > Item was changed: > ----- Method: MOFile>>translatedString: (in category 'private') ----- > translatedString: index > "KNOWN PROBLEM: conversion is executed everytimes this method called" > | str | > + str := translatedStrings at: index. > - str _ translatedStrings at: index. > > ^str utf8ToSqueak applyLanguageInfomation: (Locale localeID: localeID) languageEnvironment. > ! > > Item was changed: > ----- Method: NaturalLanguageFormTranslator class>>loadFormsFrom: (in category 'i/o') ----- > loadFormsFrom: aStream > > | rr pair inst | > + rr := ReferenceStream on: aStream. > + pair := rr next. > + inst := self localeID: (LocaleID isoString: pair first). > - rr _ ReferenceStream on: aStream. > - pair _ rr next. > - inst _ self localeID: (LocaleID isoString: pair first). > pair second associationsDo: [:assoc | > inst name: assoc key form: assoc value. > ]. > ^ inst. > ! > > Item was changed: > ----- Method: NaturalLanguageFormTranslator>>saveFormsOn: (in category 'i/o') ----- > saveFormsOn: aStream > > | rr | > + rr := ReferenceStream on: aStream. > - rr _ ReferenceStream on: aStream. > rr nextPut: {id isoString. generics}. > rr close. > ! > > Item was changed: > ----- Method: NaturalLanguageTranslator class>>translateWithoutLoading:toLocaleID:inDomain: (in category 'translation') ----- > translateWithoutLoading: aString toLocaleID: localeID inDomain: aDomainName > "try to translate with small footprint: > if GetTextTranslator hasn't loaded MO, try to use InternalTranslator. > if InternalTranslator isn't available, then actually load MO and use it" > | translator | > + translator := self availableForLocaleID: localeID. > - translator _ self availableForLocaleID: localeID. > (translator isDomainLoaded: aDomainName) ifFalse: [ > (InternalTranslator availableLanguageLocaleIDs includes: localeID) > + ifTrue: [translator := InternalTranslator localeID: localeID]. > - ifTrue: [translator _ InternalTranslator localeID: localeID]. > ]. > ^translator translate: aString inDomain: aDomainName! > > Item was changed: > ----- Method: String>>translatedIfCorresponds (in category '*gettext') ----- > translatedIfCorresponds > "answer the receiver translated to the default language only if > + the receiver begins and ends with an underscore (:=)" > + ^ (':=*:=' match: self) > - the receiver begins and ends with an underscore (_)" > - ^ ('_*_' match: self) > ifTrue: [(self copyFrom: 2 to: self size - 1) translated] > ifFalse: [self]! > > Item was changed: > ----- Method: TranslatedReceiverFinder>>stringReceiversWithContext (in category 'accessing') ----- > stringReceiversWithContext > | mrs results rr cls mn t o | > + mrs := SystemNavigation default allCallsOn: #translated. > + results := OrderedCollection new. > - mrs _ SystemNavigation default allCallsOn: #translated. > - results _ OrderedCollection new. > mrs do: [:mr | > + rr := OrderedCollection new. > + cls := Smalltalk at: mr classSymbol. > - rr _ OrderedCollection new. > - cls _ Smalltalk at: mr classSymbol. > rr add: cls category. > rr add: mr classSymbol. > rr add: mr methodSymbol. > mr classIsMeta ifTrue: [ > + mn := cls class decompile: mr methodSymbol. > - mn _ cls class decompile: mr methodSymbol. > ] ifFalse: [ > + mn := cls decompile: mr methodSymbol. > - mn _ cls decompile: mr methodSymbol. > ]. > + o := OrderedCollection new. > + t := Set new. > - o _ OrderedCollection new. > - t _ Set new. > self searchMessageNode: mn addTo: t. > t do: [ :te | > (te receiver isMemberOf: LiteralNode) ifTrue: [ > o add: te receiver key. > ]. > ]. > o ifNotEmpty: [ > rr add: o. > results add: rr. > ]. > ]. > ^ results. > > ! > > Item was changed: > ----- Method: TranslatedReceiverFinder>>stringReceiversWithContext: (in category 'accessing') ----- > stringReceiversWithContext: aSymbol > "Find string receivers for a symbol. > Answer a collection of aMethodReference -> {keyword. keyword...}" > "self new stringReceiversWithContext: #translated" > | keywords methodReferences | > + methodReferences := SystemNavigation default allCallsOn: aSymbol. > - methodReferences _ SystemNavigation default allCallsOn: aSymbol. > ^ methodReferences inject: OrderedCollection new into: [:list :next | > keywords := self findWordsWith: aSymbol in: next. > keywords > ifNotEmpty: [list add: next -> keywords]. > list] > ! > > >

4 8

The Trunk: MonticelloConfigurations-nice.103.mcz
by commits＠source.squeak.org 31 Mar '12

31 Mar '12

Nicolas Cellier uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-nice.103.mcz ==================== Summary ==================== Name: MonticelloConfigurations-nice.103 Author: nice Time: 31 March 2012, 10:55:36.729 pm UUID: a095f0db-5958-454d-95e1-9c889442629f Ancestors: MonticelloConfigurations-eem.102 Add a menu for updating a single dependency in the MonticelloConfiguration browser. =============== Diff against MonticelloConfigurations-eem.102 =============== Item was added: + ----- Method: MCConfiguration>>updateFromImage: (in category 'updating') ----- + updateFromImage: packageIndex + | dep newDeps | + dep := self dependencies at: packageIndex. + newDeps := self dependencies copy. + newDeps + at: packageIndex put: (dep package hasWorkingCopy + ifTrue: [dep package workingCopy in: [:wc | + MCVersionDependency package: wc package info: wc ancestors first]] + ifFalse: [dep]). + self dependencies: newDeps. + ! Item was added: + ----- Method: MCConfiguration>>updateFromRepositories: (in category 'updating') ----- + updateFromRepositories: packageIndex + + (repositories + inject: [ self updateFromRepositoriesWithoutCaching: packageIndex ] + into: [ :innerBlock :repository | + [ repository cacheAllFileNamesDuring: innerBlock ] ]) value + + ! Item was added: + ----- Method: MCConfiguration>>updateFromRepositoriesWithoutCaching: (in category 'updating') ----- + updateFromRepositoriesWithoutCaching: packageIndex + + | oldNames newNames sortedNames newDeps dep | + dep := dependencies at: packageIndex. + oldNames := {dep versionInfo versionName}. + newNames := Dictionary new. + self repositories + do: [:repo | + ProgressNotification signal: '' extra: 'Checking ', repo description. + (repo possiblyNewerVersionsOfAnyOf: oldNames) + do: [:newName | newNames at: newName put: repo]] + displayingProgress: 'Searching new versions'. + + sortedNames := newNames keys asArray sort: + [:a :b | a versionNumber > b versionNumber]. + + newDeps := self dependencies copy. + newDeps at: packageIndex put: ( + sortedNames + detect: [:each | each packageAndBranchName = dep packageAndBranchName] + ifFound: [ :newName | + | repo | + repo := newNames at: newName. + (self versionInfoNamed: newName for: dep from: repo) + ifNil: [ dep ] + ifNotNil: [ :info | + MCVersionDependency package: dep package info: info ] ] + ifNone: [ dep ]). + + self dependencies: newDeps. + ! Item was changed: ----- Method: MCConfigurationBrowser>>dependencyMenu: (in category 'morphic ui') ----- dependencyMenu: aMenu self fillMenu: aMenu fromSpecs: #(('add dependency...' addDependency)). self selectedDependency ifNotNil: [ + self fillMenu: aMenu fromSpecs: #(('remove dependency' remove)). + self fillMenu: aMenu fromSpecs: #(('update dependency from image' updateSelectedDependencyFromImage)). + self fillMenu: aMenu fromSpecs: #(('update dependency from repositories' updateSelectedDependencyFromRepositories))]. + ^aMenu! - self fillMenu: aMenu fromSpecs: #(('remove dependency' remove))]. - ^aMenu - ! Item was added: + ----- Method: MCConfigurationBrowser>>updateSelectedDependencyFromImage (in category 'actions') ----- + updateSelectedDependencyFromImage + self configuration updateFromImage: self dependencyIndex. + self changed: #dependencyList; changed: #description + ! Item was added: + ----- Method: MCConfigurationBrowser>>updateSelectedDependencyFromRepositories (in category 'actions') ----- + updateSelectedDependencyFromRepositories + self configuration updateFromRepositories: self dependencyIndex. + self changed: #dependencyList; changed: #description + !

1 0

The Trunk: Files-eem.117.mcz
by commits＠source.squeak.org 31 Mar '12

31 Mar '12

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.117.mcz ==================== Summary ==================== Name: Files-eem.117 Author: eem Time: 31 March 2012, 1:51:07.547 pm UUID: 41d381b4-82de-43ea-befa-76eb5b4cea0c Ancestors: Files-eem.116 Provide missing primitive primLookupEntryIn:name: used by directoryEntryForName: =============== Diff against Files-eem.116 =============== Item was added: + ----- Method: FileDirectory>>primLookupEntryIn:name: (in category 'private') ----- + primLookupEntryIn: fullPath name: fName + + "Look up <fName> (a simple file name) in the directory identified by <fullPath> + and return an array containing: + + <fName> <creationTime> <modificationTime> <dirFlag> <fileSize> + + On Unix, the empty path denotes '/'. + On Macs and PCs, it is the container of the system volumes.) + + The creation and modification times are in seconds since the start of the Smalltalk time epoch. DirFlag is true if the entry is a directory. FileSize the file size in bytes or zero for directories. The primitive returns nil when index is past the end of the directory. It fails if the given path is bad." + + <primitive: 'primitiveDirectoryEntry' module: 'FilePlugin'> + + ^ #primFailed "to distinguish from nil" + + !

1 0

The Trunk: Kernel-eem.677.mcz
by commits＠source.squeak.org 31 Mar '12

31 Mar '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.677.mcz ==================== Summary ==================== Name: Kernel-eem.677 Author: eem Time: 31 March 2012, 1:44:09.167 pm UUID: 94b37f14-3ec9-477d-9269-d90ed23b82b4 Ancestors: Kernel-eem.676 Add the 4 argument perform:with:with:with:with: for Cog and who ever else. =============== Diff against Kernel-eem.676 =============== Item was added: + ----- Method: Object>>perform:with:with:with:with: (in category 'message handling') ----- + perform: aSymbol with: firstObject with: secondObject with: thirdObject with: fourthObject + "Send the selector, aSymbol, to the receiver with the given arguments. + Fail if the number of arguments expected by the selector is not four. + Primitive. Optional. See Object documentation whatIsAPrimitive." + + <primitive: 83> + ^ self perform: aSymbol + withArguments: (Array with: firstObject with: secondObject with: thirdObject with: fourthObject)!

1 0

Broken update 208 209
by Nicolas Cellier 31 Mar '12

31 Mar '12

update-edc.208 and update-edc.209 are broken because they use Compiler-eem.227, the one with snafu. I swear there was a mean to download those file, modify then upload again but can find it anymore... Any idea how we can fix that ? Nicolas

4 5

update-eem.211
by Eliot Miranda 31 Mar '12

31 Mar '12

Hi All, in moving tbe generally useful parts of MethodReference into the base from PackageInfo and Monticello I seem to have tripped over a category bug. When the update occurs you'll get a Notifier saying there's an error because the system categories don't match. SImply click proceed and everything should be OK. Apologies. -- best, Eliot

2 3

FW: [squeak-dev] The Trunk: System-ul.477.mcz
by Edgar J. De Cleene 31 Mar '12

31 Mar '12

------ Forwarded Message > From: <commits(a)source.squeak.org> > Reply-To: <squeak-dev(a)lists.squeakfoundation.org> > Date: Fri, 30 Mar 2012 10:56:29.998 0000 > To: <squeak-dev(a)lists.squeakfoundation.org>, > <packages(a)lists.squeakfoundation.org> > Subject: [squeak-dev] The Trunk: System-ul.477.mcz > > Levente Uzonyi uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-ul.477.mcz > > ==================== Summary ==================== > > Name: System-ul.477 > Author: ul > Time: 30 March 2012, 12:27:45.894 pm > UUID: fb2ac551-9367-134f-9872-2f65037f69ff > Ancestors: System-dtl.476 > > - restored the original behavior of SystemNavigation >> #allCallsOn:from:, so > it returns calls in subclasses too > - temporarily restored NaturalLanguageTranslator class >> #translationSuffix > so FileList can be used again > > =============== Diff against System-dtl.476 =============== > > Item was added: > + ----- Method: NaturalLanguageTranslator class>>translationSuffix (in > category 'accessing') ----- > + translationSuffix > + > + ^'translation'! > > Item was changed: > ----- Method: SystemNavigation>>allCallsOn:from: (in category 'query') ----- > allCallsOn: aSymbol from: aBehavior > + "Answer a sorted collection of all the methods from aBehavior and it's > subclasses that call on aSymbol." > - "Answer a sorted collection of all the methods from aBehavior that call on > aSymbol." > > + ^self allCallsOn: aSymbol fromBehaviors: aBehavior withAllSubclasses > sorted: true! > - ^self allCallsOn: aSymbol fromBehaviors: { aBehavior } sorted: true! ------ End of Forwarded Message I working.... Maybe not enough smart or not enough fast. But I found the trouble Nicolas report and delete all file-services in NaturalLanguageTranslator And do FileList initialize Save the Squeak4.4-11969.image and when restarting no problem. Figuring how traslate this to trunk as "we don't like have working .image in ftp" Maybe I should learn to have my mouth closed and do not volunteering. But Squeak is in comatose state. If my mistakes awake some Masters, then so be it Regards Edgar

3 3

The Trunk: System-eem.479.mcz
by commits＠source.squeak.org 31 Mar '12

31 Mar '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.479.mcz ==================== Summary ==================== Name: System-eem.479 Author: eem Time: 31 March 2012, 11:21:37.249 am UUID: 9c765c48-02fa-4775-bc49-8f98a295d176 Ancestors: System-eem.478 Remove empty category in MethodReference. =============== Diff against System-eem.478 ===============

1 0

Jump to page: