Squeak-dev March 2012

squeak-dev@lists.squeakfoundation.org

63 participants
208 discussions

The Trunk: Morphic-cmm.614.mcz
by commits＠source.squeak.org 30 Mar '12

30 Mar '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.614.mcz ==================== Summary ==================== Name: Morphic-cmm.614 Author: cmm Time: 29 March 2012, 8:37:44.924 pm UUID: ed1d4628-7783-4f54-9859-57dcaca2ca04 Ancestors: Morphic-eem.613, Morphic-cmm.606 - Merged cmm.606. - Separate UI from domain function so exporting Morphs as graphics can be done programmatically. =============== Diff against Morphic-eem.613 =============== Item was changed: ----- Method: HaloMorph>>doGrab:with: (in category 'private') ----- doGrab: evt with: grabHandle "Ask hand to grab my target." self obtainHaloForEvent: evt andRemoveAllHandlesBut: grabHandle. + evt hand attachMorph: target. - evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"! Item was changed: ----- Method: Morph>>exportAsBMP (in category 'menus') ----- exportAsBMP | fName | fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.bmp'. fName isEmpty ifTrue:[^self]. + self exportAsBMPNamed: fName! - self imageForm writeBMPfileNamed: fName.! Item was added: + ----- Method: Morph>>exportAsBMPNamed: (in category 'menus') ----- + exportAsBMPNamed: aString + self imageForm writeBMPfileNamed: aString! Item was changed: ----- Method: Morph>>exportAsGIF (in category 'menus') ----- exportAsGIF | fName | fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.gif'. fName isEmpty ifTrue:[^self]. + self exportAsGIFNamed: fName! - GIFReadWriter putForm: self imageForm onFileNamed: fName.! Item was added: + ----- Method: Morph>>exportAsGIFNamed: (in category 'menus') ----- + exportAsGIFNamed: aString + GIFReadWriter + putForm: self imageForm + onFileNamed: aString! Item was changed: ----- Method: Morph>>exportAsJPEG (in category 'menus') ----- exportAsJPEG - "Export the receiver's image as a JPEG" - | fName | fName := UIManager default request: 'Please enter the name' translated initialAnswer: self externalName,'.jpeg'. fName isEmpty ifTrue: [^ self]. + self exportAsJPEGNamed: fName! - self imageForm writeJPEGfileNamed: fName! Item was added: + ----- Method: Morph>>exportAsJPEGNamed: (in category 'menus') ----- + exportAsJPEGNamed: aString + self imageForm writeJPEGfileNamed: aString! Item was changed: ----- Method: Morph>>exportAsPNG (in category 'menus') ----- exportAsPNG | fName | fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.png'. fName isEmpty ifTrue:[^self]. + self exportAsPNGNamed: fName! - PNGReadWriter putForm: self imageForm onFileNamed: fName.! Item was added: + ----- Method: Morph>>exportAsPNGNamed: (in category 'menus') ----- + exportAsPNGNamed: aString + PNGReadWriter + putForm: self imageForm + onFileNamed: aString!

1 0

The Trunk: Morphic-cmm.606.mcz
by commits＠source.squeak.org 30 Mar '12

30 Mar '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.606.mcz ==================== Summary ==================== Name: Morphic-cmm.606 Author: cmm Time: 5 January 2012, 10:12:46.114 pm UUID: b3bb5602-a323-4e67-a26d-236676c67c76 Ancestors: Morphic-laza.605 Pick up halo to behave the same as a red-button grab. =============== Diff against Morphic-laza.605 =============== Item was changed: ----- Method: HaloMorph>>doGrab:with: (in category 'private') ----- doGrab: evt with: grabHandle "Ask hand to grab my target." self obtainHaloForEvent: evt andRemoveAllHandlesBut: grabHandle. + evt hand attachMorph: target. - evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"!

1 0

The Trunk: System-dtl.476.mcz
by commits＠source.squeak.org 30 Mar '12

30 Mar '12

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.476.mcz ==================== Summary ==================== Name: System-dtl.476 Author: dtl Time: 29 March 2012, 8:44:19.309 pm UUID: 6cc16423-f2ef-49e2-80b5-fabaf9fb8664 Ancestors: System-edc.475 Nil out some unreferenced slots in the special objects array. Slots 32, 33 and 34 were originally used to hold instances of Float, LargePositiveInteger and Point that could be used as prototypes for fast initialization of these objects. This usage is no longer required in any current VM, so the slots in the special objects array are set to nil and marked as available for future use. =============== Diff against System-edc.475 =============== Item was changed: ----- Method: SmalltalkImage>>recreateSpecialObjectsArray (in category 'special objects') ----- recreateSpecialObjectsArray "Smalltalk recreateSpecialObjectsArray" "To external package developers: **** DO NOT OVERRIDE THIS METHOD. ***** If you are writing a plugin and need additional special object(s) for your own use, use addGCRoot() function and use own, separate special objects registry " "The Special Objects Array is an array of objects used by the Squeak virtual machine. Its contents are critical and accesses to it by the VM are unchecked, so don't even think of playing here unless you know what you are doing." | newArray | newArray := Array new: 56. "Nil false and true get used throughout the interpreter" newArray at: 1 put: nil. newArray at: 2 put: false. newArray at: 3 put: true. "This association holds the active process (a ProcessScheduler)" newArray at: 4 put: (self associationAt: #Processor). "Numerous classes below used for type checking and instantiation" newArray at: 5 put: Bitmap. newArray at: 6 put: SmallInteger. newArray at: 7 put: ByteString. newArray at: 8 put: Array. newArray at: 9 put: Smalltalk. newArray at: 10 put: Float. newArray at: 11 put: MethodContext. newArray at: 12 put: BlockContext. newArray at: 13 put: Point. newArray at: 14 put: LargePositiveInteger. newArray at: 15 put: Display. newArray at: 16 put: Message. newArray at: 17 put: CompiledMethod. newArray at: 18 put: (self specialObjectsArray at: 18). "(low space Semaphore)" newArray at: 19 put: Semaphore. newArray at: 20 put: Character. newArray at: 21 put: #doesNotUnderstand:. newArray at: 22 put: #cannotReturn:. newArray at: 23 put: nil. "This is the process signalling low space." "An array of the 32 selectors that are compiled as special bytecodes, paired alternately with the number of arguments each takes." newArray at: 24 put: #( #+ 1 #- 1 #< 1 #> 1 #<= 1 #>= 1 #= 1 #~= 1 #* 1 #/ 1 #\\ 1 #@ 1 #bitShift: 1 #// 1 #bitAnd: 1 #bitOr: 1 #at: 1 #at:put: 2 #size 0 #next 0 #nextPut: 1 #atEnd 0 #== 1 #class 0 #blockCopy: 1 #value 0 #value: 1 #do: 1 #new 0 #new: 1 #x 0 #y 0 ). "An array of the 255 Characters in ascii order. Cog inlines table into machine code at: prim so do not regenerate it." newArray at: 25 put: (self specialObjectsArray at: 25). newArray at: 26 put: #mustBeBoolean. newArray at: 27 put: ByteArray. newArray at: 28 put: Process. "An array of up to 31 classes whose instances will have compact headers" newArray at: 29 put: self compactClassesArray. + newArray at: 30 put: (self specialObjectsArray at: 30). "(delay Semaphore)" + newArray at: 31 put: (self specialObjectsArray at: 31). "(user interrupt Semaphore)" + "Entries 32 - 34 unreferenced. Previously these contained prototype instances to be copied for fast initialization" + newArray at: 32 put: nil. "was (Float new: 2)" + newArray at: 33 put: nil. "was (LargePositiveInteger new: 4)" + newArray at: 34 put: nil. "was Point new" - newArray at: 30 put: (self specialObjectsArray at: 30). - "(delay Semaphore)" - newArray at: 31 put: (self specialObjectsArray at: 31). - "(user interrupt Semaphore)" - "Prototype instances that can be copied for fast initialization" - newArray at: 32 put: (Float new: 2). - newArray at: 33 put: (LargePositiveInteger new: 4). - newArray at: 34 put: Point new. newArray at: 35 put: #cannotInterpret:. "Note: This must be fixed once we start using context prototypes (yeah, right)" "(MethodContext new: CompiledMethod fullFrameSize)." newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)" newArray at: 37 put: BlockClosure. "(BlockContext new: CompiledMethod fullFrameSize)." newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)" "array of objects referred to by external code" newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores" newArray at: 40 put: nil. "Reserved for Mutex in Cog VMs" newArray at: 41 put: nil. "Reserved for a LinkedList instance for overlapped calls in CogMT" "finalization Semaphore" newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]). newArray at: 43 put: LargeNegativeInteger. "External objects for callout. Note: Written so that one can actually completely remove the FFI." newArray at: 44 put: (self at: #ExternalAddress ifAbsent: []). newArray at: 45 put: (self at: #ExternalStructure ifAbsent: []). newArray at: 46 put: (self at: #ExternalData ifAbsent: []). newArray at: 47 put: (self at: #ExternalFunction ifAbsent: []). newArray at: 48 put: (self at: #ExternalLibrary ifAbsent: []). newArray at: 49 put: #aboutToReturn:through:. newArray at: 50 put: #run:with:in:. "51 reserved for immutability message" "newArray at: 51 put: #attemptToAssign:withIndex:." newArray at: 52 put: #(nil "nil => generic error" #'bad receiver' #'bad argument' #'bad index' #'bad number of arguments' #'inappropriate operation' #'unsupported operation' #'no modification' #'insufficient object memory' #'insufficient C memory' #'not found' #'bad method' #'internal error in named primitive machinery' #'object may move'). "53 to 55 are for Alien" newArray at: 53 put: (self at: #Alien ifAbsent: []). newArray at: 54 put: #invokeCallback:stack:registers:jmpbuf:. newArray at: 55 put: (self at: #UnsafeAlien ifAbsent: []). "Weak reference finalization" newArray at: 56 put: (self at: #WeakFinalizationList ifAbsent: []). "Now replace the interpreter's reference in one atomic operation" self specialObjectsArray becomeForward: newArray !

1 0

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

30 Mar '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-March/005244.html Name: Kernel-eem.676 Ancestors: Kernel-eem.675 Neater simpler, correct implementtion of #once for the current Squeak closure implemenation which lacks clean blocks. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005245.html Name: KernelTests-eem.217 Ancestors: KernelTests-cmm.216 A test for BlockClosure>#once ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005246.html Name: Compiler-eem.227 Ancestors: Compiler-eem.226 Hide the onceCache when decompiling. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005247.html Name: GetText-edc.20 Ancestors: GetText-edc.17 Clean Undeclared. {InternalTranslator ISOLanguageDefinition Locale LocaleID NaturalLanguageFormTranslator NaturalLanguageTranslator} Moved back to System-Localization ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005248.html Name: System-edc.474 Ancestors: System-bf.473 {InternalTranslator ISOLanguageDefinition Locale LocaleID NaturalLanguageFormTranslator NaturalLanguageTranslator} Moved back to System-Localization ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005249.html Name: GetText-edc.21 Ancestors: GetText-edc.18, GetText-edc.20 More cleanup following Nico suggestions. Can't delete bad versions of trunk... ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005250.html Name: System-edc.475 Ancestors: System-edc.474 More cleanup. Several methods deleted of NaturalLanguageTranslator as implemented in subclass InternalTranslator. Needed for not Undeclared. I do all way from fresh 11860.image, no blows ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-March/005251.html Name: Compiler-eem.228 Ancestors: Compiler-eem.227 Fix snafu in Compiler-eem.227 at: => at:ifAbsent:. in decompiler =============================================

1 0

The Trunk: Compiler-eem.228.mcz
by commits＠source.squeak.org 30 Mar '12

30 Mar '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.228.mcz ==================== Summary ==================== Name: Compiler-eem.228 Author: eem Time: 29 March 2012, 3:53:13.947 pm UUID: d35c5eea-e31b-440a-bc18-18a921444c4d Ancestors: Compiler-eem.227 Fix snafu in Compiler-eem.227 at: => at:ifAbsent:. in decompiler =============== Diff against Compiler-eem.227 =============== Item was changed: ----- Method: DecompilerConstructorForClosures>>codeMethod:block:tempVars:primitive:class: (in category 'constructor') ----- codeMethod: selector block: block tempVars: vars primitive: primitive class: class | blockNode selectorNode visibleTemps invisibleTemps arguments temporaries properties | selectorNode := self codeSelector: selector code: nil. tempVars := vars. visibleTemps := OrderedCollection new. invisibleTemps := OrderedCollection new. tempVars do: [:t| ((t isIndirectTempVector or: [t scope >= 0]) ifTrue: [visibleTemps] ifFalse: [invisibleTemps]) addLast: t]. arguments := visibleTemps copyFrom: 1 to: nArgs. temporaries := visibleTemps copyFrom: nArgs + 1 to: visibleTemps size. block arguments: arguments; temporaries: temporaries. properties := method properties copy. + (properties at: #onceCache ifAbsent: []) ifNotNil: - (properties at: #onceCache) ifNotNil: [:onceCache| properties := properties copyWithout: (Association key: #onceCache value: onceCache)]. blockNode := MethodNode new selector: selectorNode arguments: arguments precedence: selector precedence temporaries: temporaries block: block encoder: (EncoderForV3PlusClosures new initScopeAndLiteralTables temps: visibleTemps, invisibleTemps literals: literalValues class: class) primitive: primitive properties: properties. blockNode properties method: blockNode. ^blockNode!

1 0

Etoys 5.0 RC 2
by karl ramberg 29 Mar '12

29 Mar '12

Etoys 5 release candidate 2 More fixes went into this new release candidate, but if there are some show stoppers we would like to know asap ! So download from here: http://squeakland.org/download/ And give feedback http://tracker.squeakland.org or to etoys-dev(a)squeakland.org last resort is mailing me directly karlramberg 'at' gmail.com Cheers, Karl

3 9

20th International Smalltalk Joint Conference - Call for Contributions
by Damien Cassou 29 Mar '12

29 Mar '12

20th International Smalltalk Joint Conference - Call for Contributions Gent, Belgium August 27-31, 2012; Camp Smalltalk August 25-26 http://esug.org/Conferences/2012 This call includes: 1) Developers forum 2) Innovation Technology Award 3) International Workshop 4) Student Volunteer program 5) Free ESUG tickets program ---------------------------------------------------------------------- For the past 20 years, the European Smalltalk User Group (ESUG) has organised the International Smalltalk Conference, a lively forum on cutting edge software technologies that attract people from both academia and industry for a whole week. The attendees are both engineers using Smalltalk in business and students and teachers using Smalltalk both for research and didactic purposes. This year's edition of the largest European Smalltalk event will include: - The regular Smalltalk developers conference with renowned invited speakers - a Smalltalk camp that proved fruitful for interactions and discussions (August 25-26) - 9th edition of the Innovation Technology Awards where prizes will be awarded to authors of best pieces of Smalltalk-related projects - IWST: an international workshop on Smalltalk and dynamic languages You can support the ESUG conference in many different ways: - Sponsor the conference. New sponsoring packages are described at http://www.esug.org/About/SupportESUG - Submit a talk, a software or a paper to one of the events. See below. - Attend the conference. We'd like to beat the previous record of attendance (170 people at Amsterdam)! - Students can get free registration and hosting if they enroll into the the Student Volunteers program. See below. 1) Developers Forum: International Smalltalk Developers Conference ---------------------------------------------------------------------- This year we are looking for YOUR experience on using Smalltalk. In addition, we are looking for tutorials. The list of topics includes, but is not limited to the following: - XP practices - Development tools - Experience reports - Model driven development - Web development - Team management - Meta-Modeling - Security - New libraries & frameworks - Educational material - Embedded systems and robotics - SOA and Web services - Interaction with other programming languages Submissions due on 15 June 2012 Notification of acceptance on 25 June 2012 How to submit? Pay attention: the places are limited so do not wait till the last minute to apply. Prospective presenters should submit a request to board(a)esug.org AND damien.cassou(a)gmail.com AND stephane.ducasse(a)free.fr following the template below. Please use this template since the emails will be automatically processed! Subject: [ESUG 2012 Developers] + your name First Name: Last Name: Email where you can always be reached: Title: Abstract: (max 1400 characters) Bio: (max 1400 characters) Any presentation not respecting this form will be discarded automatically 2) Innovation Technology Award ---------------------------------------------------------------------- We are proud to announce the 9th Innovation Technology Awards. The top 3 teams with the most innovative software will receive, respectively, 500 Euros, 300 Euros and 200 Euros during an awards ceremony at the conference. Developers of any Smalltalk-based software are welcome to compete. This year we will request 3-5min videos. More information at: http://www.esug.org/Conferences/2012/Innovation-Technology-Awards 3) International Workshop - IWST 2012 ---------------------------------------------------------------------- International Workshop on Smalltalk Technologies, August 28 The goals of the workshop is to create a forum around advances or experience in Smalltalk and to trigger discussions and exchanges of ideas. Participants are invited to submit research articles. We will not enforce any length restriction. Nevertheless, we expect papers of two kinds: - Short position papers describing emerging ideas. - Long research papers with deeper description of experiments and of research results. We welcome research papers on all aspects, theoretical as well as practical, of Smalltalk related topics. All accepted papers will be published in ACM DL, and the authors of the best papers will be invited to submit an extended version to a journal special issue (to be confirmed). Submissions deadline: June 15, 2012 Notification of acceptance: July 15, 2012 More information at: http://www.esug.org/Conferences/2012/International-Workshop---IWST-2012 4) Student Volunteer Program ---------------------------------------------------------------------- If you are a student wanting to attend ESUG, have you considered being a student volunteer? Student volunteers help keep the conference running smoothly; in return, they have free accommodations, while still having most of the time to enjoy the conference. More information at: http://www.esug.org/Conferences/2012/StudentVolunteers 5) Free ESUG tickets program ---------------------------------------------------------------------- ESUG will offer 10 free entrance tickets. To get a free ticket you should send a mail to board(a)esug.org Subject: [ESUG 2012 Free entrance] + your name And you should write a small motivation. We hope to see you there and have fun together. -- The ESUG board Board mailing list: board(a)lists.esug.org

1 0

The Trunk: System-edc.475.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

Edgar J. De Cleene uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-edc.475.mcz ==================== Summary ==================== Name: System-edc.475 Author: edc Time: 29 March 2012, 8:53:50.906 am UUID: 168c5525-e271-4c85-81ca-7256ccdfcf3d Ancestors: System-edc.474 More cleanup. Several methods deleted of NaturalLanguageTranslator as implemented in subclass InternalTranslator. Needed for not Undeclared. I do all way from fresh 11860.image, no blows =============== Diff against System-edc.474 =============== Item was removed: - ----- Method: NaturalLanguageTranslator class>>allKnownPhrases (in category 'private') ----- - allKnownPhrases - ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>availableLanguageLocaleIDs (in category 'accessing') ----- - availableLanguageLocaleIDs - "Return the locale ids for the currently available languages. - Meaning those which either internally or externally have - translations available." - "NaturalLanguageTranslator availableLanguageLocaleIDs" - ^ self translators values collect:[:each | each localeID]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>cachedTranslations (in category 'private') ----- - cachedTranslations - "CachedTranslations := nil" - ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>cleanUp (in category 'class initialization') ----- - cleanUp - "Flush caches" - - CachedTranslations := nil. - AllKnownPhrases := nil.! Item was removed: - ----- Method: NaturalLanguageTranslator class>>cleanUpCache (in category 'private') ----- - cleanUpCache - "NaturalLanguageTranslator cleanUpCache" - - self cachedTranslations keys do: [:key | - key isoLanguage size > 2 ifTrue: [self cachedTranslations removeKey: key]]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>directoryForLanguage:country:create: (in category 'private loading') ----- - directoryForLanguage: isoLanguage country: isoCountry create: createDir - "Try to locate the <prefs>/locale/<language>{/<country>} folder. - If createDir is set, create the path down to country or language, depending on wether it's specified.. - Return the directory for country or language depending on specification. - If neither exists, nil" - - "NaturalLanguageTranslator directoryForLanguage: 'es' country: nil create: true" - "NaturalLanguageTranslator directoryForLanguage: 'de' country: 'DE' create: true" - "NaturalLanguageTranslator directoryForLanguage: 'en' country: 'US' create: false" - "NaturalLanguageTranslator directoryForLanguage: 'en' country: nil create: true" - - "If this fails, there is nothing we can do about it here" - | localeDir countryDir languageDir | - localeDir := self localeDirCreate: createDir. - localeDir ifNil: [^nil]. - - isoCountry ifNil: [ - languageDir := localeDir directoryNamed: isoLanguage. - createDir - ifTrue: [languageDir assureExistence]. - ^languageDir exists - ifTrue: [languageDir] - ifFalse: [nil]]. - - countryDir := languageDir directoryNamed: isoCountry. - createDir - ifTrue: [countryDir assureExistence]. - - ^countryDir exists - ifTrue: [countryDir] - ifFalse: [nil]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>directoryForLocaleID:create: (in category 'private loading') ----- - directoryForLocaleID: localeID create: createDir - "Try to locate the <prefs>/locale/<language>{/<country>} folder. - If createDir is set, create the path down to country or language, depending on locale. - Return the directory for country or language depending on locale. - If neither exists, nil" - - "NaturalLanguageTranslator directoryForLanguage: 'de' country: nil readOnly: true" - "NaturalLanguageTranslator directoryForLanguage: 'de' country: 'DE' readOnly: true" - "NaturalLanguageTranslator directoryForLanguage: 'en' country: 'US' readOnly: false" - "NaturalLanguageTranslator directoryForLanguage: 'en' country: nil readOnly: true" - - ^self directoryForLanguage: localeID isoLanguage country: localeID isoCountry create: createDir! Item was removed: - ----- Method: NaturalLanguageTranslator class>>loadAvailableExternalLocales (in category 'private loading') ----- - loadAvailableExternalLocales - "private - register locales IDs based on the content of the <prefs>/locale/ directory" - | localeDir | - localeDir := self localeDirCreate: false. - localeDir ifNil: [^ #()]. - localeDir directoryNames - do: [:langDirName | - | langDir | - langDir := localeDir directoryNamed: langDirName. - (langDir fileNamesMatching: '*.' , self translationSuffix) - ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: nil]. - langDir directoryNames - do: [:countryDirName | - | countryDir | - countryDir := langDir directoryNamed: countryDirName. - (countryDir fileNamesMatching: '*.' , self translationSuffix) - ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName] - ] - ]. - ! Item was removed: - ----- Method: NaturalLanguageTranslator class>>loadAvailableLocales (in category 'private loading') ----- - loadAvailableLocales - "This loads the default locale and all external locales" - - | defaultID | - defaultID := LocaleID current. - self cachedTranslations at: defaultID ifAbsent: [self localeID: defaultID]. - self loadAvailableExternalLocales.! Item was removed: - ----- Method: NaturalLanguageTranslator class>>loadExternalTranslationsFor: (in category 'private loading') ----- - loadExternalTranslationsFor: translator - "Try to load translations from external external files. - The files are located in the <prefs>/locale/<language>{/<country>} folder. - There can be more than one file for each location, so applications can install their own partial translation tables. All files in the specific folder are loaded." - - | translationDir | - translationDir := self directoryForLocaleID: translator localeID create: false. - translationDir ifNil: [ ^nil ]. - (translationDir fileNamesMatching: '*.' , self translationSuffix) - do: [:fileName | translator loadFromFileNamed: (translationDir fullNameFor: fileName)]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>loadTranslatorForIsoLanguage:isoCountry: (in category 'private loading') ----- - loadTranslatorForIsoLanguage: isoLanguage isoCountry: isoCountry - "private - load the translations from <prefs>/locale/ directory - the procedure is to assure the existence of a translator for the - given language/country and then load the external translations for this translator" - - | translator | - translator := self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry). - - self loadExternalTranslationsFor: translator! Item was removed: - ----- Method: NaturalLanguageTranslator class>>localeDirCreate: (in category 'private loading') ----- - localeDirCreate: createDir - "Try to locate the <prefs>/locale/ folder. - If createDir is set, try to create the path. - If it doesn't exist, return nil" - - "If this fails, there is nothing we can do about it here" - | prefDir localeDir | - (createDir not - and: [ExternalSettings preferenceDirectory isNil]) - ifTrue: [^ nil]. - - prefDir := ExternalSettings assuredPreferenceDirectory. - prefDir exists - ifFalse: [^nil]. - - - localeDir := prefDir directoryNamed: 'locale'. - createDir - ifTrue: [localeDir assureExistence]. - ^localeDir exists - ifTrue: [localeDir] - ifFalse: [nil]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>registerPhrase: (in category 'private') ----- - registerPhrase: phrase - "Using a Dictionary so we can lookup existing string instead of creating needless copies when loading a translation." - self allKnownPhrases at: phrase put: phrase! Item was removed: - ----- Method: NaturalLanguageTranslator class>>registeredPhraseFor: (in category 'private') ----- - registeredPhraseFor: phrase - "Using a Dictionary so we can lookup existing string instead of creating needless copies when loading a translation." - ^self allKnownPhrases at: phrase ifAbsentPut: [phrase]! Item was removed: - ----- Method: NaturalLanguageTranslator class>>translationSuffix (in category 'private') ----- - translationSuffix - ^'translation'! Item was removed: - ----- Method: NaturalLanguageTranslator>>fileOutOn:keys: (in category 'fileIn/fileOut') ----- - fileOutOn: aStream keys: keys - "self current fileOutOn: Transcript. Transcript endEntry" - (keys - ifNil: [generics keys asArray sort]) - do: [:key | self - nextChunkPut: (generics associationAt: key) - on: aStream]. - keys - ifNil: [self untranslated - do: [:each | self nextChunkPut: each -> '' on: aStream]]. - aStream nextPut: $!!; - cr! Item was removed: - ----- Method: NaturalLanguageTranslator>>generics (in category 'private') ----- - generics - ^generics ifNil: [generics := Dictionary new]! Item was removed: - ----- Method: NaturalLanguageTranslator>>loadFromFileNamed: (in category 'private store-retrieve') ----- - loadFromFileNamed: fileNameString - "Load translations from an external file" - - FileStream readOnlyFileNamed: fileNameString do: [ :file | - self loadFromStream: file ]. - self changed: #translations. - self changed: #untranslated. - ! Item was removed: - ----- Method: NaturalLanguageTranslator>>loadFromRefStream: (in category 'private store-retrieve') ----- - loadFromRefStream: stream - "Load translations from an external file" - | loadedArray refStream | - refStream := ReferenceStream on: stream. - [loadedArray := refStream next] - ensure: [refStream close]. - self processExternalObject: loadedArray ! Item was removed: - ----- Method: NaturalLanguageTranslator>>loadFromStream: (in category 'private store-retrieve') ----- - loadFromStream: stream - "Load translations from an external file" - | header isFileIn | - header := '''Translation dictionary'''. - isFileIn := (stream next: header size) - = header. - stream reset. - isFileIn - ifTrue: [stream fileInAnnouncing: 'Loading ' translated, stream localName] - ifFalse: [self loadFromRefStream: stream]! Item was removed: - ----- Method: NaturalLanguageTranslator>>mergeTranslations: (in category 'private store-retrieve') ----- - mergeTranslations: newTranslations - "Merge a new set of translations into the exiting table. - Overwrites existing entries." - - newTranslations keysAndValuesDo: [:key :value | - self rawPhrase: (self class registeredPhraseFor: key) translation: value]. - self changed: #translations. - self changed: #untranslated.! Item was removed: - ----- Method: NaturalLanguageTranslator>>processExternalObject: (in category 'private store-retrieve') ----- - processExternalObject: anArray - "pivate - process the external object" - - "new format -> {translations. untranslated}" - - anArray second do: [:each | self class registerPhrase: each]. - - self mergeTranslations: anArray first! Item was removed: - ----- Method: NaturalLanguageTranslator>>saveToFileNamed: (in category 'private store-retrieve') ----- - saveToFileNamed: fileNameString - "save the receiver's translations to a file named fileNameString" - | stream | - "Set true if you need to save as binary" - false - ifTrue: [stream := ReferenceStream fileNamed: fileNameString. - stream nextPut: {self translations. self untranslated}. - stream close. - ^ self]. - stream := FileStream fileNamed: fileNameString. - [self fileOutOn: stream] - ensure: [stream close]!

1 0

[ANN] Squeak Oversight Board Election 2012!
by Göran Krampe 29 Mar '12

29 Mar '12

Fellow Squeakers, A tad more than one year has passed and it is time to ruuummmmble with another Squeak Oversight Board Election! Every year we elect the SOB (Squeak Oversight Board) consisting of seven members from our community. The current board is: http://www.squeak.org/Foundation/Board Everything about the election, including schedule and more, can be tracked here: http://wiki.squeak.org/squeak/6187 Since the election process has not been reformed during this last year (ehm, yet again), the schedule and process of the Election is as "usual" which follows (this is a DRAFT, will be final on the 1st of April): *** Now until 13th April 2PM (14.00 UTC): Nominations of SOB members and campaigning! Candidates should nominate themselves and start their campaign on the squeak-dev mailing list. Or if you nominate someone else, make sure that person really wants to run. :) I will not put anyone on the candidate list until that person makes it known on squeak-dev that he/she does run. During this period, the candidates should ideally present themselves on squeak-dev, unless they have already done so, and the community can ask questions. *** 13th April 2PM (14.00 UTC): The candidate list is finalized. *** 13th April 6PM (18.00 UTC): Online election starts The voting period is one week long and ballots are sent out via email. And how do you end up on the voter list? See below. :) IMPORTANT: New voters will NOT be added once the election is started. You MUST try to get on the voter list before the 3rd April or you will NOT be able to vote. *** 20th April 6PM (18.00 UTC): Online election ends Results will be announced immediately when the election ends. -------------------------- If you were invited to vote last year you are already on the voter list, no worries! If you are a new Squeaker and wish to vote do ONE of the following: * Get a "known" Squeaker to vouch for you. If a known Squeaker sends an email to voters (at) squeak.org giving me name and email for you, then I will add you. * Send an email to voters at squeak.org yourself (and CC to squeak-dev if you like) with information/arguments showing me that you are indeed serious about voting and that you are indeed a Squeaker. And no, I don't have any hints on what you should write! :) Unless you totally screw that up, you will probably be added. And no, don't send me a 10 page essay ;) When the voting period starts all voters will receive an email with instructions and a link to the voting website. If there are any further questions, just reply *in this thread* and I will closely track it - or send email to voters (at) squeak.org which points to me. ...so let's get on with it! regards, Göran Krampe

1 1

The Trunk: Compiler-eem.227.mcz
by commits＠source.squeak.org 29 Mar '12

29 Mar '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.227.mcz ==================== Summary ==================== Name: Compiler-eem.227 Author: eem Time: 28 March 2012, 6:34:18.679 pm UUID: ba2dd2c9-e83b-48f2-877e-310826e49215 Ancestors: Compiler-eem.226 Hide the onceCache when decompiling. =============== Diff against Compiler-eem.226 =============== Item was changed: ----- Method: DecompilerConstructorForClosures>>codeMethod:block:tempVars:primitive:class: (in category 'constructor') ----- codeMethod: selector block: block tempVars: vars primitive: primitive class: class + | blockNode selectorNode visibleTemps invisibleTemps arguments temporaries properties | - | blockNode selectorNode visibleTemps invisibleTemps arguments temporaries | selectorNode := self codeSelector: selector code: nil. tempVars := vars. visibleTemps := OrderedCollection new. invisibleTemps := OrderedCollection new. tempVars do: [:t| ((t isIndirectTempVector or: [t scope >= 0]) ifTrue: [visibleTemps] ifFalse: [invisibleTemps]) addLast: t]. arguments := visibleTemps copyFrom: 1 to: nArgs. temporaries := visibleTemps copyFrom: nArgs + 1 to: visibleTemps size. block arguments: arguments; temporaries: temporaries. + properties := method properties copy. + (properties at: #onceCache) ifNotNil: + [:onceCache| + properties := properties copyWithout: (Association + key: #onceCache + value: onceCache)]. blockNode := MethodNode new selector: selectorNode arguments: arguments precedence: selector precedence temporaries: temporaries block: block encoder: (EncoderForV3PlusClosures new initScopeAndLiteralTables temps: visibleTemps, invisibleTemps literals: literalValues class: class) primitive: primitive + properties: properties. - properties: method properties copy. blockNode properties method: blockNode. ^blockNode!

1 0

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

Jump to page: