Bert Freudenberg uploaded a new version of GetText to project Etoys:
http://source.squeak.org/etoys/GetText-bf.2.mcz
==================== Summary ====================
Name: GetText-bf.2
Author: bf
Time: 24 May 2010, 2:04:11 pm
UUID: ff07d62f-c5cd-40bb-a4cf-9aead552388e
Ancestors: GetText-Richo.1
- move essential classes back from GetText package to System-Localization
=============== Diff against GetText-Richo.1 ===============
Item was changed:
NaturalLanguageTranslator subclass: #GetTextTranslator
instanceVariableNames: 'moFiles'
classVariableNames: 'LocaleDirsForDomain SystemDefaultLocaleDirs UserDefaultLocaleDirs'
poolDictionaries: ''
category: 'GetText-Localization'!
!GetTextTranslator commentStamp: '<historical>' prior: 0!
emulation of gettext runtime
Known limitation:
+ currently doesn't support plural forms.
- currently don't support prural form.
!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>initializeJapaneseBitmap (in category 'as yet unclassified') -----
- initializeJapaneseBitmap
-
- (self localeID: (LocaleID isoString: 'ja')) name: 'LanguageNameInNativeLanguage' form: self bitmapForJapanese.
- !
Item was removed:
- ----- Method: Locale>>determineLocaleID (in category 'accessing') -----
- determineLocaleID
- "Locale current determineLocaleID"
- | isoLang isoCountry |
- isoLang := self fetchISO2Language
- ifNil: [^ self localeID].
- isoCountry := self fetchISOCountry
- ifNil: [^ LocaleID isoLanguage: isoLang].
- ^ LocaleID isoLanguage: isoLang isoCountry: isoCountry!
Item was removed:
- ----- Method: Locale>>offsetLocalToUTC (in category 'accessing') -----
- offsetLocalToUTC
- ^self primTimezone!
Item was removed:
- ----- Method: Locale class>>switchTo: (in category 'accessing') -----
- switchTo: locale
- self switchTo: locale gently: false.
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>serviceMergeLanguageTranslations (in category 'file-services') -----
- serviceMergeLanguageTranslations
- "Answer a service for merging of translation files"
- ^ SimpleServiceEntry
- provider: self
- label: 'merge the translation file' translatedNoop
- selector: #mergeTranslationFileNamed:
- description: 'merge the translation file into the language named like the file' translatedNoop
- buttonLabel: 'merge' translatedNoop!
Item was removed:
- ----- Method: InternalTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
- scanFrom: aStream
- "Read a definition of dictionary.
- Make sure current locale corresponds my locale id"
- | aString newTranslations assoc currentPlatform |
- newTranslations := Dictionary new.
- currentPlatform := Locale currentPlatform.
- [Locale
- currentPlatform: (Locale localeID: id).
- [aString := aStream nextChunk withSqueakLineEndings.
- aString size > 0]
- whileTrue: [assoc := Compiler evaluate: aString.
- assoc value = ''
- ifTrue: [self class registerPhrase: assoc key]
- ifFalse: [newTranslations add: assoc]]]
- ensure: [Locale currentPlatform: currentPlatform].
- self mergeTranslations: newTranslations!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- ----- Method: Locale>>primLongDateFormat (in category 'system primitives') -----
- primLongDateFormat
- "Returns the long date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveLongDateFormat' module: 'LocalePlugin'>
- ^'dddd, mmmm d, yyyy'!
Item was removed:
- ----- Method: Locale>>isoCountry (in category 'accessing') -----
- isoCountry
- ^self localeID isoCountry!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageTable (in category 'private') -----
- iso2LanguageTable
- "ISOLanguageDefinition iso2LanguageTable"
-
- ISO2Table ifNotNil: [^ISO2Table].
- ISO2Table := Dictionary new: self iso3LanguageTable basicSize.
- self iso3LanguageTable do: [:entry |
- ISO2Table at: entry iso2 put: entry].
- ^ISO2Table!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>buildIso3166CodesTables (in category 'private') -----
- buildIso3166CodesTables
- "ISOLanguageDefinition buildIso3166CodesTables"
- | rawdata stream country isoa2 isoa3 unNumeric macName macCode windowsName windowsCode empty table |
- rawdata := self iso3166Codes.
- table := OrderedCollection new: 200.
- stream := rawdata readStream.
- empty := 160 asCharacter asString.
- [stream atEnd] whileFalse:
- [country := stream nextLine.
- isoa2 := stream nextLine.
- isoa3 := stream nextLine.
- unNumeric := stream nextLine.
- windowsName := stream nextLine.
- windowsName = empty ifTrue: [windowsName := nil].
- windowsCode := stream nextLine.
- windowsCode = empty ifTrue: [windowsCode := nil].
- macName := stream nextLine.
- macName = empty ifTrue: [macName := nil].
- macCode := stream nextLine.
- macCode = empty ifTrue: [macCode := nil].
- table add: { country. isoa2. isoa3. unNumeric. windowsName. windowsCode. macName. macCode. }].
- ^table!
Item was removed:
- ----- Method: LocaleID>>parent (in category 'accessing') -----
- parent
- ^self class isoLanguage: self isoLanguage!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>availableForLocaleID: (in category 'accessing') -----
- availableForLocaleID: localeID
- "Answer available locale ID.
- If translator is not found for correct locale ID, then isoLanguage is
- attempted for the key."
- ^ self translators
- at: localeID
- ifAbsent: [localeID hasParent
- ifTrue: [self translators
- at: localeID parent
- ifAbsent: [self default]]
- ifFalse: [self default]]!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3Alternate: (in category 'initialize') -----
- iso3Alternate: aString
- iso3Alternate := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: InternalTranslator>>nextChunkPut:on: (in category 'fileIn/fileOut') -----
- nextChunkPut: anObject on: aStream
- | i remainder terminator |
- terminator := $!!.
- remainder := anObject storeString.
- [(i := remainder indexOf: terminator) = 0]
- whileFalse: [aStream
- nextPutAll: (remainder copyFrom: 1 to: i).
- aStream nextPut: terminator.
- "double imbedded terminators"
- remainder := remainder copyFrom: i + 1 to: remainder size].
- aStream nextPutAll: remainder.
- aStream nextPut: terminator; cr.!
Item was removed:
- ----- Method: Locale>>primDecimalSymbol (in category 'system primitives') -----
- primDecimalSymbol
- "Returns string with e.g. '.' or ','"
- <primitive:'primitiveDecimalSymbol' module: 'LocalePlugin'>
- ^'.'!
Item was removed:
- ----- 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 isDomainLoaded: aDomainName) ifFalse: [
- (InternalTranslator availableLanguageLocaleIDs includes: localeID)
- ifTrue: [translator _ InternalTranslator localeID: localeID].
- ].
- ^translator translate: aString inDomain: aDomainName!
Item was removed:
- ----- Method: Locale class>>initializePlatformEncodings (in category 'class initialization') -----
- initializePlatformEncodings
- "Locale initializePlatformEncodings"
-
- | platform |
- PlatformEncodings isNil ifTrue: [ PlatformEncodings := Dictionary new ].
-
- platform := PlatformEncodings at: 'default' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'iso8859-1';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'ja' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'shift-jis';
- at: 'unix' put: 'euc-jp';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'ko' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'euc-kr';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'zh' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'gb2312';
- at: 'unix' put: 'euc-cn';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>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: LocaleID>>printOn: (in category 'printing') -----
- printOn: stream
- "<language>-<country>"
- stream nextPutAll: self isoLanguage.
- self isoCountry
- ifNotNil: [stream nextPut: $-; nextPutAll: self isoCountry]!
Item was removed:
- ----- Method: Locale class>>defaultEncodingName: (in category 'platform specific') -----
- defaultEncodingName: languageSymbol
- | encodings platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current getSystemAttribute: 1002.
- encodings := self platformEncodings at: languageSymbol
- ifAbsent: [self platformEncodings at: #default].
- encodings at: platformName ifPresent: [:encoding | ^encoding].
- encodings at: platformName , ' ' , osVersion
- ifPresent: [:encoding | ^encoding].
- ^encodings at: #default!
Item was removed:
- ----- Method: LocaleID>>isoLanguage:isoCountry: (in category 'initialize') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- isoLanguage := langString.
- isoCountry := countryStringOrNil!
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeader (in category 'fileIn/fileOut') -----
- fileOutHeader
- ^ '''Translation dictionary'''!
Item was removed:
- ----- Method: LocaleID class>>isoLanguage:isoCountry: (in category 'instance creation') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- ^self new isoLanguage: langString isoCountry: countryStringOrNil!
Item was removed:
- ----- Method: LocaleID>>hash (in category 'comparing') -----
- hash
- ^self isoLanguage hash bitXor: self isoCountry hash!
Item was removed:
- ----- Method: Locale class>>stringForLanguageNameIs: (in category 'accessing') -----
- stringForLanguageNameIs: localeID
- "Answer a string for a menu determining whether the given
- symbol is the project's natural language"
- ^ (self current localeID = localeID
- ifTrue: ['<yes>']
- ifFalse: ['<no>'])
- , localeID displayName!
Item was removed:
- ----- Method: InternalTranslator>>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: InternalTranslator classSide>>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 := langDirName directoryNamed: countryDirName.
- (countryDir fileNamesMatching: '*.' , self translationSuffix)
- ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName]
- ]
- ].
- !
Item was removed:
- ----- Method: Locale>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: InternalTranslator>>rawPhrase:translation: (in category 'translation') -----
- rawPhrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- !
Item was removed:
- ----- Method: Locale>>primDST (in category 'system primitives') -----
- primDST
- "Returns boolean if DST (daylight saving time) is active or not"
- <primitive:'primitiveDaylightSavings' module: 'LocalePlugin'>
- ^false!
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: Locale class>>clipboadInterpreter (in category 'accessing') -----
- clipboadInterpreter
- ^NoConversionClipboardInterpreter new!
Item was removed:
- ----- Method: Locale class>>languageSymbol: (in category 'accessing') -----
- languageSymbol: languageSymbol
- "Locale languageSymbol: #Deutsch"
-
- ^self isoLanguage: (LanguageSymbols at: languageSymbol)!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translators (in category 'accessing') -----
- translators
- ^ Translators ifNil: [Translators := Dictionary new] !
Item was removed:
- ----- Method: Locale>>primMeasurement (in category 'system primitives') -----
- primMeasurement
- "Returns boolean denoting metric(true) or imperial(false)."
- <primitive:'primitiveMeasurementMetric' module: 'LocalePlugin'>
- ^true
- !
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- "Return the generic language translator as there is no information about the country code"
-
- ^self isoLanguage: isoLanguage isoCountry: nil!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>removeLocaleID: (in category 'accessing') -----
- removeLocaleID: localeID
- "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
- ^ self translators
- removeKey: localeID
- ifAbsent: []!
Item was removed:
- NaturalLanguageTranslator subclass: #InternalTranslator
- instanceVariableNames: 'generics'
- classVariableNames: 'AllKnownPhrases CachedTranslations'
- poolDictionaries: ''
- category: 'GetText-Localization'!
-
- !InternalTranslator commentStamp: 'tak 10/19/2007 11:12' prior: 0!
- An InternalTranslator is used a translation dictionary in a image.
- You can use it without any external translation file.
-
- Structure:
- generics Dictionary -- msgid -> msgstr
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- Object subclass: #LocaleID
- instanceVariableNames: 'isoLanguage isoCountry'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'GetText-Localization'!
Item was removed:
- ----- Method: InternalTranslator>>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]!
Item was removed:
- ----- Method: Locale>>printOn: (in category 'accessing') -----
- printOn: aStream
- super printOn: aStream.
- aStream nextPutAll: '(' , id printString , ')'!
Item was removed:
- ----- Method: Locale class>>switchAndInstallFontToID:gently: (in category 'accessing') -----
- switchAndInstallFontToID: localeID gently: gentlyFlag
-
- | locale result env envFound ret fontInImage menu |
- "Assumption: Rainbow => can try Pango"
- "Logic:
- - in Sugar, we don't bother asking any questions, and we don't bother automatically loading fonts.
- in Sugar, and if the font is available, use the font.
- in Sugar, and if the font is not in the image, try to enable Pango.
- - if the previous step fails, notify the user that you cannot switch to the language.
- - not in Rainbow,
- - if the font is in the image, use the font.
- - if the font is not in the image,
- - ask to choose:
- - load font
- - try to enable pango, if pango is available
- - or cancel.
- - if the previous step fails, notify the user that you cannot switch to the language.
- Details:
- - how to check non-pango font is available:
- - if the language environment for the locale doesn't exist, the font is not available.
- - if font loading fails, it is not available.
- - how to check if the language environment doesn't exist:
- - if the locales languageEnvironment is Latin1 but the locale isn't it is not available.
- "
- locale := Locale localeID: localeID.
- env := locale languageEnvironment.
- result := true.
- envFound := (Latin1Environment supportedLanguages includes: locale isoLanguage) or: [(env isMemberOf: Latin1Environment) not].
- fontInImage := envFound and: [env isFontAvailable].
- SugarLauncher isRunningInSugar ifTrue: [
- fontInImage ifFalse: [
- "font is not available in the image. Even don't ask for font installation."
- Cursor wait showWhile: [
- Preferences setPreference: #usePangoRenderer toValue: true.
- TextMorph usePango: true]].
- ] ifFalse: [
- fontInImage ifFalse: [
- menu := MenuMorph new.
- menu defaultTarget: menu.
- envFound ifTrue: [menu add: 'load font' translated selector: #modalSelection: argument: #loadFont].
- RomePluginCanvas pangoIsAvailable ifTrue: [menu add: 'enable Pango' translated selector: #modalSelection: argument: #enablePango].
- menu add: 'cancel' translated selector: #modalSelection: argument: #cancel.
- menu addTitle: 'This language needs additional fonts.
- Do you want to install the fonts?' translated.
- ret := menu invokeModal.
- ret = #loadFont ifTrue: [result := env installFont. result ifTrue: [StrikeFont setupDefaultFallbackTextStyle]].
- ret = #enablePango ifTrue: [
- (result := RomePluginCanvas pangoIsAvailable) ifTrue: [
- Cursor wait showWhile: [
- Preferences setPreference: #usePangoRenderer toValue: true.
- TextMorph usePango: true]]].
- (ret ~~ #loadFont and: [ret ~~ #enablePango]) ifTrue: [result := false]]].
-
- result ifFalse: [self inform: 'Cannot load additional fonts' translated] ifTrue: [self switchTo: locale gently: gentlyFlag].
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>localeID: (in category 'accessing') -----
- localeID: localeID
- "For backward compatibility, see NaturalLanguageTranslator >> fileOutHeaderOn:."
- ^ self newLocaleID: localeID!
Item was removed:
- ----- Method: InternalTranslator classSide>>allKnownPhrases (in category 'private') -----
- allKnownPhrases
- ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]!
Item was removed:
- ----- Method: InternalTranslator>>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: Locale class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was removed:
- ----- Method: InternalTranslator classSide>>mergeTranslationFileNamed: (in category 'file-services') -----
- mergeTranslationFileNamed: fileFullNameString
- "merge the translation in the file named fileFullNameString"
-
- | stream localeID translator |
- stream := FileStream readOnlyFileNamed: fileFullNameString.
- [localeID := LocaleID isoString: stream localName sansPeriodSuffix.
- translator := self localeID: localeID.
- translator loadFromStream: stream]
- ensure: [stream close].
- LanguageEnvironment resetKnownEnvironments.
-
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>initialize (in category 'class initialization') -----
- initialize
- Smalltalk addToStartUpList: NaturalLanguageTranslator after: FileDirectory.
- !
Item was removed:
- ----- Method: Locale>>primTimezone (in category 'system primitives') -----
- primTimezone
- "The offset from UTC in minutes, with positive offsets being towards the east.
- (San Francisco is in UTC -07*60 and Paris is in UTC +02*60 when daylight savings is in effect)."
- <primitive:'primitiveTimezoneOffset' module: 'LocalePlugin'>
- ^0!
Item was removed:
- ----- Method: LocaleID>>displayName (in category 'accessing') -----
- displayName
- "Answer a proper name to represent the receiver in GUI.
-
- The wording is provided by translations of the magic value
- '<language display name>'.
-
- 'English' -> 'English'
- 'German' -> 'Deutsch'
- "
- | magicPhrase translatedMagicPhrase |
- magicPhrase := '<language display name>'.
- translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self.
- ^ translatedMagicPhrase = magicPhrase
- ifTrue: [self displayLanguage]
- ifFalse: [translatedMagicPhrase]!
Item was removed:
- ----- Method: Locale>>primDigitGrouping (in category 'system primitives') -----
- primDigitGrouping
- "Returns string with e.g. '.' or ',' (thousands etc)"
- <primitive:'primitiveDigitGroupingSymbol' module: 'LocalePlugin'>
- ^','!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>privateStartUp (in category 'class initialization') -----
- privateStartUp
- self resetCaches.
- GetTextTranslator privateStartUp.
- InternalTranslator privateStartUp.
- self localeChanged.!
Item was removed:
- ----- Method: Locale class>>localeID: (in category 'accessing') -----
- localeID: id
- ^self knownLocales at: id ifAbsentPut: [Locale new localeID: id]!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID: (in category 'translation') -----
- translate: aString toLocaleID: localeID
- "translate for default domain"
- ^ (self availableForLocaleID: localeID)
- translate: aString!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>name:form: (in category 'accessing') -----
- name: formName form: translatedForm
- self generics at: formName put: translatedForm.
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>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: InternalTranslator classSide>>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: ISOLanguageDefinition class>>isoLanguages (in category 'private') -----
- isoLanguages
- "ISO 639: 3-letter codes"
- ^'aar aa Afar
- abk ab Abkhazian
- ace Achinese
- ach Acoli
- ada Adangme
- ady Adyghe; Adygei
- afa Afro-Asiatic languages
- afh Afrihili
- afr af Afrikaans
- ain Ainu
- aka ak Akan
- akk Akkadian
- alb/sqi sq Albanian
- ale Aleut
- alg Algonquian languages
- alt Southern Altai
- amh am Amharic
- ang English, Old (ca.450-1100)
- anp Angika
- apa Apache languages
- ara ar Arabic
- arc Official Aramaic (700-300 BCE); Imperial Aramaic (700-300 BCE)
- arg an Aragonese
- arm/hye hy Armenian
- arn Mapudungun; Mapuche
- arp Arapaho
- art Artificial languages
- arw Arawak
- asm as Assamese
- ast Asturian; Bable; Leonese; Asturleonese
- ath Athapascan languages
- aus Australian languages
- ava av Avaric
- ave ae Avestan
- awa Awadhi
- aym ay Aymara
- aze az Azerbaijani
- bad Banda languages
- bai Bamileke languages
- bak ba Bashkir
- bal Baluchi
- bam bm Bambara
- ban Balinese
- baq/eus eu Basque
- bas Basa
- bat Baltic languages
- bej Beja; Bedawiyet
- bel be Belarusian
- bem Bemba
- ben bn Bengali
- ber Berber languages)
- bho Bhojpuri
- bih bh Bihari
- bik Bikol
- bin Bini; Edo
- bis bi Bislama
- bla Siksika
- bnt Bantu languages
- bos bs Bosnian
- bra Braj
- bre br Breton
- btk Batak languages
- bua Buriat
- bug Buginese
- bul bg Bulgarian
- bur/mya my Burmese
- byn Blin; Bilin
- cad Caddo
- cai Central American Indian languages
- car Galibi Carib
- cat ca Catalan; Valencian
- cau Caucasian languages
- ceb Cebuano
- cel Celtic languages
- cha ch Chamorro
- chb Chibcha
- che ce Chechen
- chg Chagatai
- chi/zho zh Chinese
- chk Chuukese
- chm Mari
- chn Chinook jargon
- cho Choctaw
- chp Chipewyan; Dene Suline
- chr Cherokee
- chu cu Church Slavic; Old Slavonic; Church Slavonic; Old Bulgarian; Old Church Slavonic
- chv cv Chuvash
- chy Cheyenne
- cmc Chamic languages
- cop Coptic
- cor kw Cornish
- cos co Corsican
- cpe Creoles and pidgins, English based
- cpf Creoles and pidgins, French-based
- cpp Creoles and pidgins, Portuguese-based
- cre cr Cree
- crh Crimean Tatar; Crimean Turkish
- crp Creoles and pidgins
- csb Kashubian
- cus Cushitic languages
- cze/ces cs Czech
- dak Dakota
- dan da Danish
- dar Dargwa
- day Land Dayak languages
- del Delaware
- den Slave (Athapascan)
- dgr Dogrib
- din Dinka
- div dv Divehi; Dhivehi; Maldivian
- doi Dogri
- dra Dravidian languages
- dsb Lower Sorbian
- dua Duala
- dum Dutch, Middle (ca.1050-1350)
- dut/nld nl Dutch; Flemish
- dyu Dyula
- dzo dz Dzongkha
- efi Efik
- egy Egyptian (Ancient)
- eka Ekajuk
- elx Elamite
- eng en English
- enm English, Middle (1100-1500)
- epo eo Esperanto
- est et Estonian
- ewe ee Ewe
- ewo Ewondo
- fan Fang
- fao fo Faroese
- fat Fanti
- fij fj Fijian
- fil Filipino; Pilipino
- fin fi Finnish
- fiu Finno-Ugrian languages)
- fon Fon
- fre/fra fr French
- frm French, Middle (ca.1400-1600)
- fro French, Old (842-ca.1400)
- frr Northern Frisian
- frs Eastern Frisian
- fry fy Western Frisian
- ful ff Fulah
- fur Friulian
- gaa Ga
- gay Gayo
- gba Gbaya
- gem Germanic languages
- geo/kat ka Georgian
- ger/deu de German
- gez Geez
- gil Gilbertese
- gla gd Gaelic; Scottish Gaelic
- gle ga Irish
- glg gl Galician
- glv gv Manx
- gmh German, Middle High (ca.1050-1500)
- goh German, Old High (ca.750-1050)
- gon Gondi
- gor Gorontalo
- got Gothic
- grb Grebo
- grc Greek, Ancient (to 1453)
- gre/ell el Greek, Modern (1453-)
- grn gn Guarani
- gsw Swiss German; Alemannic; Alsatian
- guj gu Gujarati
- gwi Gwich''in
- hai Haida
- hat ht Haitian; Haitian Creole
- hau ha Hausa
- haw Hawaiian
- heb he Hebrew
- her hz Herero
- hil Hiligaynon
- him Himachali
- hin hi Hindi
- hit Hittite
- hmn Hmong
- hmo ho Hiri Motu
- hrv hr Croatian
- hsb Upper Sorbian
- hun hu Hungarian
- hup Hupa
- iba Iban
- ibo ig Igbo
- ice/isl is Icelandic
- ido io Ido
- iii ii Sichuan Yi; Nuosu
- ijo Ijo languages
- iku iu Inuktitut
- ile ie Interlingue; Occidental
- ilo Iloko
- ina ia Interlingua (International Auxiliary Language Association)
- inc Indic languages
- ind id Indonesian
- ine Indo-European languages
- inh Ingush
- ipk ik Inupiaq
- ira Iranian languages
- iro Iroquoian languages
- ita it Italian
- jav jv Javanese
- jbo Lojban
- jpn ja Japanese
- jpr Judeo-Persian
- jrb Judeo-Arabic
- kaa Kara-Kalpak
- kab Kabyle
- kac Kachin; Jingpho
- kal kl Kalaallisut; Greenlandic
- kam Kamba
- kan kn Kannada
- kar Karen languages
- kas ks Kashmiri
- kau kr Kanuri
- kaw Kawi
- kaz kk Kazakh
- kbd Kabardian
- kha Khasi
- khi Khoisan languages
- khm km Central Khmer
- kho Khotanese; Sakan
- kik ki Kikuyu; Gikuyu
- kin rw Kinyarwanda
- kir ky Kirghiz; Kyrgyz
- kmb Kimbundu
- kok Konkani
- kom kv Komi
- kon kg Kongo
- kor ko Korean
- kos Kosraean
- kpe Kpelle
- krc Karachay-Balkar
- krl Karelian
- kro Kru languages
- kru Kurukh
- kua kj Kuanyama; Kwanyama
- kum Kumyk
- kur ku Kurdish
- kut Kutenai
- lad Ladino
- lah Lahnda
- lam Lamba
- lao lo Lao
- lat la Latin
- lav lv Latvian
- lez Lezghian
- lim li Limburgan; Limburger; Limburgish
- lin ln Lingala
- lit lt Lithuanian
- lol Mongo
- loz Lozi
- ltz lb Luxembourgish; Letzeburgesch
- lua Luba-Lulua
- lub lu Luba-Katanga
- lug lg Ganda
- lui Luiseno
- lun Lunda
- luo Luo (Kenya and Tanzania)
- lus Lushai
- mac/mkd mk Macedonian
- mad Madurese
- mag Magahi
- mah mh Marshallese
- mai Maithili
- mak Makasar
- mal ml Malayalam
- man Mandingo
- mao/mri mi Maori
- map Austronesian languages
- mar mr Marathi
- mas Masai
- may/msa ms Malay
- mdf Moksha
- mdr Mandar
- men Mende
- mga Irish, Middle (900-1200)
- mic Mi''kmaq; Micmac
- min Minangkabau
- mis Uncoded languages
- mkh Mon-Khmer languages
- mlg mg Malagasy
- mlt mt Maltese
- mnc Manchu
- mni Manipuri
- mno Manobo languages
- moh Mohawk
- mon mn Mongolian
- mos Mossi
- mul Multiple languages
- mun Munda languages
- mus Creek
- mwl Mirandese
- mwr Marwari
- myn Mayan languages
- myv Erzya
- nah Nahuatl languages
- nai North American Indian languages
- nap Neapolitan
- nau na Nauru
- nav nv Navajo; Navaho
- nbl nr Ndebele, South; South Ndebele
- nde nd Ndebele, North; North Ndebele
- ndo ng Ndonga
- nds Low German; Low Saxon; German, Low; Saxon, Low
- nep ne Nepali
- new Nepal Bhasa; Newari
- nia Nias
- nic Niger-Kordofanian languages
- niu Niuean
- nno nn Norwegian Nynorsk; Nynorsk, Norwegian
- nob nb Bokmal, Norwegian; Norwegian Bokmal
- nog Nogai
- non Norse, Old
- nor no Norwegian
- nqo N''Ko
- nso Pedi; Sepedi; Northern Sotho
- nub Nubian languages
- nwc Classical Newari; Old Newari; Classical Nepal Bhasa
- nya ny Chichewa; Chewa; Nyanja
- nym Nyamwezi
- nyn Nyankole
- nyo Nyoro
- nzi Nzima
- oci oc Occitan (post 1500)
- oji oj Ojibwa
- ori or Oriya
- orm om Oromo
- osa Osage
- oss os Ossetian; Ossetic
- ota Turkish, Ottoman (1500-1928)
- oto Otomian languages
- paa Papuan languages
- pag Pangasinan
- pal Pahlavi
- pam Pampanga; Kapampangan
- pan pa Panjabi; Punjabi
- pap Papiamento
- pau Palauan
- peo Persian, Old (ca.600-400 B.C.)
- per/fas fa Persian
- phi Philippine languages)
- phn Phoenician
- pli pi Pali
- pol pl Polish
- pon Pohnpeian
- por pt Portuguese
- pra Prakrit languages
- pro Provencal, Old (to 1500);Occitan, Old (to 1500)
- pus ps Pushto; Pashto
- qaa-qtz Reserved for local use
- que qu Quechua
- raj Rajasthani
- rap Rapanui
- rar Rarotongan; Cook Islands Maori
- roa Romance languages
- roh rm Romansh
- rom Romany
- rum/ron ro Romanian; Moldavian; Moldovan
- run rn Rundi
- rup Aromanian; Arumanian; Macedo-Romanian
- rus ru Russian
- sad Sandawe
- sag sg Sango
- sah Yakut
- sai South American Indian languages
- sal Salishan languages
- sam Samaritan Aramaic
- san sa Sanskrit
- sas Sasak
- sat Santali
- scn Sicilian
- sco Scots
- sel Selkup
- sem Semitic languages
- sga Irish, Old (to 900)
- sgn Sign Languages
- shn Shan
- sid Sidamo
- sin si Sinhala; Sinhalese
- sio Siouan languages
- sit Sino-Tibetan languages
- sla Slavic languages
- slo/slk sk Slovak
- slv sl Slovenian
- sma Southern Sami
- sme se Northern Sami
- smi Sami languages
- smj Lule Sami
- smn Inari Sami
- smo sm Samoan
- sms Skolt Sami
- sna sn Shona
- snd sd Sindhi
- snk Soninke
- sog Sogdian
- som so Somali
- son Songhai languages
- sot st Sotho, Southern
- spa es Spanish; Castilian
- srd sc Sardinian
- srn Sranan Tongo
- srp sr Serbian
- srr Serer
- ssa Nilo-Saharan languages
- ssw ss Swati
- suk Sukuma
- sun su Sundanese
- sus Susu
- sux Sumerian
- swa sw Swahili
- swe sv Swedish
- syc Classical Syriac
- syr Syriac
- tah ty Tahitian
- tai Tai languages
- tam ta Tamil
- tat tt Tatar
- tel te Telugu
- tem Timne
- ter Tereno
- tet Tetum
- tgk tg Tajik
- tgl tl Tagalog
- tha th Thai
- tib/bod bo Tibetan
- tig Tigre
- tir ti Tigrinya
- tiv Tiv
- tkl Tokelau
- tlh Klingon; tlhIngan-Hol
- tli Tlingit
- tmh Tamashek
- tog Tonga (Nyasa)
- ton to Tonga (Tonga Islands)
- tpi Tok Pisin
- tsi Tsimshian
- tsn tn Tswana
- tso ts Tsonga
- tuk tk Turkmen
- tum Tumbuka
- tup Tupi languages
- tur tr Turkish
- tut Altaic languages
- tvl Tuvalu
- twi tw Twi
- tyv Tuvinian
- udm Udmurt
- uga Ugaritic
- uig ug Uighur; Uyghur
- ukr uk Ukrainian
- umb Umbundu
- und Undetermined
- urd ur Urdu
- uzb uz Uzbek
- vai Vai
- ven ve Venda
- vie vi Vietnamese
- vol vo Volapuk
- vot Votic
- wak Wakashan languages
- wal Wolaitta; Wolaytta
- war Waray
- was Washo
- wel/cym cy Welsh
- wen Sorbian languages
- wln wa Walloon
- wol wo Wolof
- xal Kalmyk; Oirat
- xho xh Xhosa
- yao Yao
- yap Yapese
- yid yi Yiddish
- yor yo Yoruba
- ypk Yupik languages
- zap Zapotec
- zbl Blissymbols; Blissymbolics; Bliss
- zen Zenaga
- zha za Zhuang; Chuang
- znd Zande languages
- zul zu Zulu
- zun Zuni
- zxx No linguistic content; Not applicable
- zza Zaza; Dimili; Dimli; Kirdki; Kirmanjki; Zazaki'!
Item was removed:
- ----- Method: InternalTranslator classSide>>fileReaderServicesForFile:suffix: (in category 'file-services') -----
- fileReaderServicesForFile: fullName suffix: suffix
- "Answer the file services associated with given file"
- ^ (suffix = self translationSuffix) | (suffix = '*')
- ifTrue: [{self serviceMergeLanguageTranslations}]
- ifFalse: [#()]!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>current (in category 'accessing') -----
- current
- ^ self availableForLocaleID: LocaleID current!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>cachedTranslations (in category 'accessing') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3: (in category 'initialize') -----
- iso3: aString
- iso3 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>domainUnregistered: (in category 'accessing') -----
- domainUnregistered: aDomainName
- "notify that new TextDomain is unregistered"
- self translators do: [:each | each domainUnregistered: aDomainName]!
Item was removed:
- ----- Method: LocaleID>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^isoLanguage!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>domainUnregistered: (in category 'accessing') -----
- domainUnregistered: aDomainName
- "notify that new TextDomain is unregistered. Concrete subclass can responds to this event if needed"!
Item was removed:
- ----- Method: InternalTranslator classSide>>newLocaleID: (in category 'accessing') -----
- newLocaleID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!
Item was removed:
- ----- Method: InternalTranslator>>removeUntranslated: (in category 'translation') -----
- removeUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>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: Locale class>>defaultInputInterpreter (in category 'platform specific') -----
- defaultInputInterpreter
- | platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current getSystemAttribute: 1002.
- (platformName = 'Win32' and: [osVersion = 'CE'])
- ifTrue: [^NoInputInterpreter new].
- platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new].
- ^NoInputInterpreter new!
Item was removed:
- ----- Method: InternalTranslator>>fileOutOn:keys:withBOM: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream keys: keys withBOM: bomFlag
- "self current fileOutOn: Transcript. Transcript endEntry"
- self fileOutHeaderOn: aStream withBOM: bomFlag.
- (keys
- ifNil: [generics keys asSortedCollection])
- 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: InternalTranslator>>translations (in category 'accessing') -----
- translations
- ^self generics!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate:inDomain: (in category 'translation') -----
- translate: aString inDomain: aDomainName
- ^ aString!
Item was removed:
- ----- Method: Locale>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- ----- Method: Locale class>>determineCurrentLocale (in category 'private') -----
- determineCurrentLocale
- "For now just return the default locale.
- A smarter way would be to determine the current platforms default locale."
- "Locale determineCurrentLocale"
-
- ^self new determineLocale!
Item was removed:
- ----- Method: Locale class>>isoLocale: (in category 'accessing') -----
- isoLocale: aString
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>availableLanguageLocaleIDs (in category 'accessing') -----
- availableLanguageLocaleIDs
- "Return locale ids for the internal translation dictionary."
- "InternalTranslator availableLanguageLocaleIDs"
- ^ self cachedTranslations values collect:[:each | each localeID]!
Item was removed:
- ----- Method: Locale class>>migrateSystem (in category 'private') -----
- migrateSystem
- "Locale migrateSystem"
- "Do all the necessary operations to switch to the new Locale environment."
-
- LocaleChangeListeners _ nil.
- self
- addLocalChangedListener: HandMorph;
- addLocalChangedListener: Clipboard;
- addLocalChangedListener: Vocabulary;
- addLocalChangedListener: PartsBin;
- addLocalChangedListener: Project;
- addLocalChangedListener: PaintBoxMorph;
- yourself!
Item was removed:
- ----- Method: LocaleID class>>current (in category 'accessing') -----
- current
- ^Locale current localeID!
Item was removed:
- ----- Method: InternalTranslator classSide>>removeLocaleID: (in category 'accessing') -----
- removeLocaleID: localeID
- "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
- self cachedTranslations
- removeKey: localeID
- ifAbsent: [].
- NaturalLanguageTranslator privateStartUp!
Item was removed:
- ----- Method: Locale class>>switchToID: (in category 'accessing') -----
- switchToID: localeID
- "Locale switchToID: (LocaleID isoLanguage: 'de') "
-
- self switchTo: (Locale localeID: localeID)!
Item was removed:
- ----- Method: Locale>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^self localeID isoLanguage!
Item was removed:
- ----- Method: InternalTranslator>>fileOutOn: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream
- "self current fileOutOn: Transcript. Transcript endEntry"
- self fileOutOn: aStream keys: nil withBOM: true.
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3Countries (in category 'private') -----
- iso3Countries
- "ISOLanguageDefinition iso3Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO3Countries ifNil: [self initISOCountries].
- ^ISO3Countries!
Item was removed:
- ----- 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.
- CurrentPlatform := Current := Locale localeID: availableID.
- NaturalLanguageTranslator localeChanged.
- gentlyFlag ifTrue: [self localeChangedGently] ifFalse: [self localeChanged]]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>isDomainLoaded: (in category 'accessing') -----
- isDomainLoaded: aDomainName
- "ask if translation dictionary for the domain has been loaded and available now for use"
- self subclassResponsibility.!
Item was removed:
- ----- Method: Locale class>>currentPlatform:during: (in category 'accessing') -----
- currentPlatform: locale during: aBlock
- "Alter current language platform during a block"
- | backupPlatform |
- backupPlatform := self currentPlatform.
- [self currentPlatform: locale.
- aBlock value]
- ensure: [self currentPlatform: backupPlatform]!
Item was removed:
- ----- Method: Locale>>primCurrencySymbol (in category 'system primitives') -----
- primCurrencySymbol
- "Returns string with currency symbol"
- <primitive: 'primitiveCurrencySymbol' module:'LocalePlugin'>
- ^'$'!
Item was removed:
- ----- Method: InternalTranslator>>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: NaturalLanguageFormTranslator>>generics (in category 'accessing') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!
Item was removed:
- ----- Method: Locale class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- ^self isoLanguage: isoLanguage isoCountry: nil!
Item was removed:
- ----- Method: Locale class>>current (in category 'accessing') -----
- current
- "Current := nil"
- Current ifNil: [
- Current := self determineCurrentLocale.
- "Transcript show: 'Current locale: ' , Current localeID asString; cr"].
- ^Current!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>saveFormsOn: (in category 'i/o') -----
- saveFormsOn: aStream
-
- | rr |
- rr _ ReferenceStream on: aStream.
- rr nextPut: {id isoString. generics}.
- rr close.
- !
Item was removed:
- ----- Method: LocaleID class>>isoLanguage: (in category 'instance creation') -----
- isoLanguage: langString
- ^self isoLanguage: langString isoCountry: nil!
Item was removed:
- ----- 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).
- pair second associationsDo: [:assoc |
- inst name: assoc key form: assoc value.
- ].
- ^ inst.
- !
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3 (in category 'accessing') -----
- iso3
- ^iso3 ifNil: ['']!
Item was removed:
- ----- Method: Locale class>>initialize (in category 'class initialization') -----
- initialize
- "Locale initialize"
-
- Smalltalk addToStartUpList: Locale.
- Preferences addPreference: #useLocale
- categories: #('general') default: false
- balloonHelp: 'Use the system locale to set the system language etc at startup'.!
Item was removed:
- ----- Method: Locale>>primLanguage (in category 'system primitives') -----
- primLanguage
- "returns string with language tag according to ISO 639"
- <primitive:'primitiveLanguage' module: 'LocalePlugin'>
- ^'en'
-
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>extraCountryDefinitions (in category 'private') -----
- extraCountryDefinitions
- ^{
- {'Kids'. 'KIDS'. 'KIDS'.}.
- }!
Item was removed:
- ----- Method: LocaleID>>isoString (in category 'accessing') -----
- isoString
- ^self asString!
Item was removed:
- ----- Method: Locale>>iconForNativeLanguage (in category 'accessing') -----
- iconForNativeLanguage
-
- ^ (NaturalLanguageFormTranslator localeID: self localeID) translate: 'LanguageNameInNativeLanguage'.
- !
Item was removed:
- ----- Method: Locale class>>localeChangedListeners (in category 'notification') -----
- localeChangedListeners
- ^LocaleChangeListeners ifNil: [LocaleChangeListeners _ OrderedCollection new]!
Item was removed:
- ----- Method: InternalTranslator>>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: ISOLanguageDefinition class>>readISOLanguagesFrom: (in category 'private') -----
- readISOLanguagesFrom: stream
- "ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream "
- | languages language code3 index line |
- languages := Dictionary new.
- [stream atEnd
- or: [(line := stream nextLine readStream) atEnd]]
- whileFalse: [
- language := ISOLanguageDefinition new.
- code3 := line upTo: Character tab.
- (index := code3 indexOf: $/) > 0
- ifTrue: [
- language iso3: (code3 copyFrom: 1 to: index-1).
- language iso3Alternate: (code3 copyFrom: index+1 to: code3 size)]
- ifFalse: [language iso3: code3].
- language
- iso2: (line upTo: Character tab);
- language: line upToEnd.
- languages at: language iso3 put: language].
- ^languages!
Item was removed:
- ----- Method: Locale>>fetchISOCountry (in category 'private') -----
- fetchISOCountry
- "Locale current fetchISOCountry"
- | countryCode |
- countryCode := self primCountry
- ifNil: [^ nil].
- ^ countryCode copyUpTo: 0 asCharacter!
Item was removed:
- ----- Method: Locale class>>knownLocales (in category 'private') -----
- knownLocales
- "KnownLocales := nil"
- ^KnownLocales ifNil: [KnownLocales := self initKnownLocales]!
Item was removed:
- ----- Method: LocaleID class>>isoString: (in category 'instance creation') -----
- isoString: isoString
- "Parse the isoString (<language>-<country>) into its components and return the matching LocaleID"
- "LocaleID isoString: 'en' "
- "LocaleID isoString: 'en-us' "
-
- | parts language country |
- parts := isoString findTokens: #($- ).
- language := parts first.
- parts size > 1
- ifTrue: [country := parts second].
- ^self isoLanguage: language isoCountry: country!
Item was removed:
- ----- Method: InternalTranslator classSide>>privateStartUp (in category 'class initialization') -----
- privateStartUp
- self loadAvailableExternalLocales.
- self mergeLegacyTranslators.
- !
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeaderOn: (in category 'user interface') -----
- fileOutHeaderOn: aStream
- aStream binary.
- UTF8TextConverter writeBOMOn: aStream.
- aStream text.
- aStream nextChunkPut: self fileOutHeader;
- cr.
- aStream timeStamp; cr.
- aStream nextPut: $!!.
- aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
- aStream cr!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>localeChanged (in category 'accessing') -----
- localeChanged
- "notify some project starts to use this locale.
- this facility may use the event to load translation data dynamically"
- self current setCurrent
- !
Item was removed:
- ----- Method: Locale>>languageEnvironment (in category 'accessing') -----
- languageEnvironment
- ^LanguageEnvironment localeID: self localeID!
Item was removed:
- ----- Method: LocaleID>>displayCountry (in category 'accessing') -----
- displayCountry
- ^(ISOLanguageDefinition iso2Countries at: self isoCountry asUppercase ifAbsent: [ self isoCountry ]) !
Item was removed:
- ----- Method: LocaleID>>displayLanguage (in category 'accessing') -----
- displayLanguage
- | language |
- language := (ISOLanguageDefinition iso2LanguageTable
- at: self isoLanguage
- ifAbsent: [^ self isoLanguage]) language.
- ^ self isoCountry
- ifNil: [language]
- ifNotNil: [language , ' (' , self displayCountry , ')']!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>default (in category 'accessing') -----
- default
- "Answer translator for backstop"
- "self default translate: 'test'"
- ^ self new
- localeID: (LocaleID isoLanguage: 'en')!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>resetCaches (in category 'class initialization') -----
- resetCaches
- Translators := nil.!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageDefinition: (in category 'accessing') -----
- iso2LanguageDefinition: aString
- ^self iso2LanguageTable at: aString!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2 (in category 'accessing') -----
- iso2
- ^iso2 ifNil: [self iso3]!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageDefinition: (in category 'accessing') -----
- iso3LanguageDefinition: aString
- ^self iso3LanguageTable at: aString!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3Alternate (in category 'accessing') -----
- iso3Alternate
- ^iso3Alternate ifNil: ['']!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initialize (in category 'class initialization') -----
- initialize
- "ISOLanguageDefinition initialize"
-
- ISO3Table := nil.
- ISO2Table := nil!
Item was removed:
- ----- Method: LocaleID>>storeOn: (in category 'printing') -----
- storeOn: aStream
- aStream nextPut: $(.
- aStream nextPutAll: self class name.
- aStream nextPutAll: ' isoString: '.
- aStream nextPutAll: '''' , self printString , ''''.
- aStream nextPut: $).
- !
Item was removed:
- ----- Method: ISOLanguageDefinition>>language (in category 'accessing') -----
- language
- ^language!
Item was removed:
- ----- Method: InternalTranslator>>rawRemoveUntranslated: (in category 'translation') -----
- rawRemoveUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- self changed: #untranslated.!
Item was removed:
- ----- Method: LocaleID>>= (in category 'comparing') -----
- = anotherObject
- self class == anotherObject class
- ifFalse: [^false].
- ^self isoLanguage = anotherObject isoLanguage
- and: [self isoCountry = anotherObject isoCountry]!
Item was removed:
- ----- Method: Locale class>>currentPlatform: (in category 'accessing') -----
- currentPlatform: locale
- CurrentPlatform := locale.
- LanguageEnvironment startUp.
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translateWithoutLoading:toLocaleID: (in category 'translation') -----
- translateWithoutLoading: aString toLocaleID: localeID
- "translate for default domain"
- ^self translateWithoutLoading: aString toLocaleID: localeID inDomain: TextDomainManager defaultDomain.
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator>>atRandom (in category 'accessing') -----
- atRandom
-
- self subclassResponsibility.
- !
Item was removed:
- ----- Method: Locale>>fetchISO2Language (in category 'private') -----
- fetchISO2Language
- "Locale current fetchISO2Language"
- | lang isoLang |
- lang := self primLanguage.
- lang ifNil: [^nil].
- lang := lang copyUpTo: 0 asCharacter.
- lang size == 2
- ifTrue: [^lang].
- isoLang := ISOLanguageDefinition iso3LanguageDefinition: lang.
- ^isoLang
- ifNil: [nil]
- ifNotNil: [isoLang iso2]!
Item was removed:
- ----- Method: LocaleID class>>previous (in category 'accessing') -----
- previous
- ^Locale previous localeID!
Item was removed:
- ----- Method: Locale class>>addLocalChangedListener: (in category 'notification') -----
- addLocalChangedListener: anObjectOrClass
- self localeChangedListeners add: anObjectOrClass!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>startUp: (in category 'class initialization') -----
- startUp: resuming
- resuming
- ifFalse: [^ self].
- self privateStartUp.!
Item was removed:
- ----- Method: Locale>>primCurrencyNotation (in category 'system primitives') -----
- primCurrencyNotation
- "Returns boolean if symbol is pre- (true) or post-fix (false)"
- <primitive: 'primitiveCurrencyNotation' module: 'LocalePlugin'>
- ^true!
Item was removed:
- ----- Method: InternalTranslator>>isDomainLoaded: (in category 'accessing') -----
- isDomainLoaded: aDomainName
- ^true
- !
Item was removed:
- Object subclass: #ISOLanguageDefinition
- instanceVariableNames: 'iso3 iso2 iso3Alternate language'
- classVariableNames: 'ISO2Countries ISO2Table ISO3Countries ISO3Table'
- poolDictionaries: ''
- category: 'GetText-Localization'!
Item was removed:
- ----- Method: InternalTranslator classSide>>cachedTranslations (in category 'private') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was removed:
- ----- Method: InternalTranslator>>checkPhrase:translation: (in category 'translation') -----
- checkPhrase: phrase translation: translation!
Item was removed:
- ----- Method: InternalTranslator>>translate:inDomain: (in category 'translation') -----
- translate: aString inDomain: aDomainName
- | translator |
- ^ self generics
- at: aString
- ifAbsent: [self localeID hasParent
- ifTrue: [translator := self class cachedTranslations
- at: self localeID parent
- ifAbsent: [^ aString].
- translator translate: aString inDomain: aDomainName]
- ifFalse: [aString]]!
Item was removed:
- ----- Method: Locale>>primCountry (in category 'system primitives') -----
- primCountry
- "Returns string with country tag according to ISO 639"
- <primitive: 'primitiveCountry' module: 'LocalePlugin'>
- ^'US'!
Item was removed:
- ----- Method: InternalTranslator classSide>>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 newLocaleID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry).
-
- self loadExternalTranslationsFor: translator!
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeaderOn:withBOM: (in category 'user interface') -----
- fileOutHeaderOn: aStream withBOM: bomFlag
- bomFlag ifTrue: [
- aStream binary.
- UTF8TextConverter writeBOMOn: aStream.
- aStream text.
- ].
- aStream nextChunkPut: self fileOutHeader;
- cr.
- aStream timeStamp; cr.
- aStream nextPut: $!!.
- aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
- aStream cr!
Item was removed:
- Object subclass: #Locale
- instanceVariableNames: 'id shortDate longDate time decimalSymbol digitGrouping currencySymbol currencyNotation measurement offsetLocalToUTC offsetVMToUTC dstActive'
- classVariableNames: 'Current CurrentPlatform KnownLocales LanguageSymbols LocaleChangeListeners PlatformEncodings Previous'
- poolDictionaries: ''
- category: 'GetText-Localization'!
-
- !Locale commentStamp: '<historical>' prior: 0!
- Main comment stating the purpose of this class and relevant relationship to other classes.
-
-
-
- http://www.w3.org/WAI/ER/IG/ert/iso639.htm
- http://www.oasis-open.org/cover/iso639a.html
- See also
- http://oss.software.ibm.com/cvs/icu/~checkout~/icuhtml/design/language_code…
- http://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html#sec3.10
-
- ISO 3166
- http://mitglied.lycos.de/buran/knowhow/codes/locales/
- !
Item was removed:
- ----- Method: Locale class>>currentPlatform (in category 'accessing') -----
- currentPlatform
- "CurrentPlatform := nil"
- CurrentPlatform ifNil: [CurrentPlatform := self determineCurrentLocale].
- ^CurrentPlatform!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>translate: (in category 'utilities') -----
- translate: aString
-
- ^ (self generics
- at: aString ifAbsent: [nil]) deepCopy.
-
- "Do you like to write 'form ifNotNil: [form deepCopy]'?"
- !
Item was removed:
- ----- Method: Locale class>>previous (in category 'accessing') -----
- previous
-
- ^ Previous
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
- loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString
- "merge the translation from the mime literal."
- | stream localeID translator gs rbStream s currentPlatform |
- s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
- s reset.
- gs := GZipReadStream on: s.
- rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
- rbStream converter: UTF8TextConverter new.
- rbStream reset.
- localeID := LocaleID isoString: localeString.
- currentPlatform := Locale currentPlatform.
- [Locale
- currentPlatform: (Locale localeID: localeID).
- stream := ReadStream on: rbStream contents]
- ensure: [Locale currentPlatform: currentPlatform].
- translator := self localeID: localeID.
- translator loadFromStream: stream.
- LanguageEnvironment resetKnownEnvironments!
Item was removed:
- ----- Method: InternalTranslator>>removeTranslationFor: (in category 'translation') -----
- removeTranslationFor: phraseString
- self generics removeKey: phraseString ifAbsent: [].
- self changed: #translations.
- self changed: #untranslated.!
Item was removed:
- ----- Method: Locale>>primVMOffsetToUTC (in category 'system primitives') -----
- primVMOffsetToUTC
- "Returns the offset in minutes between the VM and UTC.
- If the VM does not support UTC times, this is 0.
- Also gives us backward compatibility with old VMs as the primitive will fail and we then can return 0."
- <primitive:'primitiveVMOffsetToUTC' module: 'LocalePlugin'>
- ^0!
Item was removed:
- ----- Method: InternalTranslator classSide>>discardAllTranslations (in category 'class initialization') -----
- discardAllTranslations
- AllKnownPhrases := nil.
- self resetCaches.!
Item was removed:
- ----- Method: LocaleID>>hasParent (in category 'testing') -----
- hasParent
- ^self isoCountry notNil!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageTable (in category 'private') -----
- iso3LanguageTable
- "ISOLanguageDefinition iso3LanguageTable"
-
- ^ISO3Table ifNil: [ISO3Table := self initISO3LanguageTable]!
Item was removed:
- ----- Method: InternalTranslator classSide>>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:
- Object subclass: #NaturalLanguageTranslator
- instanceVariableNames: 'id'
- classVariableNames: 'Translators'
- poolDictionaries: ''
- category: 'GetText-Localization'!
-
- !NaturalLanguageTranslator commentStamp: '<historical>' prior: 0!
- abstract class of natural language translator.
- Class side manages and holds loaded instances of concrete classes.!
Item was removed:
- ----- Method: Locale class>>platformEncodings (in category 'class initialization') -----
- platformEncodings
- PlatformEncodings isEmptyOrNil ifTrue: [ self initializePlatformEncodings ].
- ^PlatformEncodings
- !
Item was removed:
- ----- Method: InternalTranslator>>untranslated (in category 'accessing') -----
- untranslated
- | translations |
- translations := self translations.
- ^self class allKnownPhrases reject: [:each | translations includesKey: each]!
Item was removed:
- ----- Method: LocaleID>>translator (in category 'accessing') -----
- translator
- ^ InternalTranslator localeID: self !
Item was removed:
- ----- Method: InternalTranslator classSide>>mergeLegacyTranslators (in category 'accessing') -----
- mergeLegacyTranslators
- self availableLanguageLocaleIDs
- do: [:localeID | (NaturalLanguageTranslator translators includesKey: localeID)
- ifFalse: [NaturalLanguageTranslator translators
- at: localeID
- put: (self newLocaleID: localeID)]]!
Item was removed:
- ----- Method: Locale>>determineLocale (in category 'accessing') -----
- determineLocale
- self localeID: self determineLocaleID!
Item was removed:
- ----- Method: InternalTranslator classSide>>services (in category 'file-services') -----
- services
- "Answer potential file services associated with this class"
- ^ {self serviceMergeLanguageTranslations}!
Item was removed:
(excessive method size, no diff calculated)
Item was removed:
- ----- Method: InternalTranslator classSide>>resetCaches (in category 'class initialization') -----
- resetCaches
- CachedTranslations := nil.
- !
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>bitmapForJapanese (in category 'as yet unclassified') -----
- bitmapForJapanese
-
- ^ (Form
- extent: 54@17
- depth: 16
- fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 65536 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 1 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 65536 0 0 65536 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 1 65537 65537 65536 1 0 0 0 1 0 0 65536 0 0 1 0 0 0 1 0 1 65537 65537 65537 65537 65537 65537 0 0 0 1 65537 65537 0 0 1 0 1 0 0 0 1 0 0 0 1 0 0 0 0 65537 65536 0 0 0 65537 65537 0 65536 1 0 0 0 65536 1 0 0 0 1 65537 65537 65537 65537 0 0 0 1 1 1 0 0 0 0 0 0 65536 1 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 1 1 1 0 0 0 65537 65537 65537 65537 65537 65537 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 65536 1 0 65536 0 0 0 0 0 0 0 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 65537 65537 1 65537 65537 65536 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 65536 65537 65537 65537 65536 65536 0 65536 1 1 0 0 65536 0 0 65536 0 65536 0 0 1 0 0 0 1 0 1 0 0 1 0 0 1 0 65536 1 1 0 0 65536 0 1 0 0 65536 0 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 65536 0 0 0 65536 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0)
- offset: 0@0)!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>localeID: (in category 'accessing') -----
- localeID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!
Item was removed:
- ----- Method: Locale class>>startUp: (in category 'system startUp') -----
- startUp: resuming
- | newID |
- resuming ifFalse: [^self].
- (Preferences valueOfFlag: #useLocale)
- ifTrue: [
- DateAndTime localTimeZone: (TimeZone
- offset: (Duration minutes: Locale current offsetLocalToUTC)
- name: 'Local Time'
- abbreviation: 'LT').
- newID := self current determineLocaleID.
- newID ~= LocaleID current
- ifTrue: [self switchAndInstallFontToID: newID gently: true]]!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2Countries (in category 'private') -----
- iso2Countries
- "ISOLanguageDefinition iso2Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO2Countries ifNil: [self initISOCountries].
- ^ISO2Countries!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISO3LanguageTable (in category 'private') -----
- initISO3LanguageTable
- "ISOLanguageDefinition initIso3LanguageTable"
-
- | table |
- table := ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream.
- table addAll: self extraISO3Definitions.
- ^table!
Item was removed:
- ----- Method: InternalTranslator>>atRandom (in category 'accessing') -----
- atRandom
-
- ^ generics atRandom value.
- !
Item was removed:
- ----- Method: Locale class>>localeChanged (in category 'notification') -----
- localeChanged
-
- #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
- do: [:key | Smalltalk
- at: key
- ifPresent: [:class | class initialize]].
- PartsBin localeChanged.
- Project localeChanged.
- PaintBoxMorph localeChanged.
- ColorPickerMorph localeChanged.
- Preferences localeChanged!
Item was removed:
- ----- Method: ISOLanguageDefinition>>language: (in category 'initialize') -----
- language: aString
- language := aString!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate: (in category 'translation') -----
- translate: aString
- ^self translate: aString
- inDomain: TextDomainManager defaultDomain!
Item was removed:
- ----- Method: InternalTranslator>>loadFromFileNamed: (in category 'private store-retrieve') -----
- loadFromFileNamed: fileNameString
- "Load translations from an external file"
-
- | stream |
- [stream := FileStream readOnlyFileNamed: fileNameString.
- self loadFromStream: stream]
- ensure: [stream close].
- self changed: #translations.
- self changed: #untranslated.
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator>>domainRegistered: (in category 'accessing') -----
- domainRegistered: aDomainName
- "notify that new TextDomain is registered. Concrete subclass can responds to this event if needed"!
Item was removed:
- ----- Method: Locale>>isoLocale (in category 'accessing') -----
- isoLocale
- "<language>-<country>"
- ^self isoCountry
- ifNil: [self isoLanguage]
- ifNotNil: [self isoLanguage , '-' , self isoCountry]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was removed:
- ----- Method: InternalTranslator classSide>>translationSuffix (in category 'private') -----
- translationSuffix
- ^'translation'!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISOCountries (in category 'private') -----
- initISOCountries
- "ISOLanguageDefinition initISOCountries"
- | iso3166Table |
- iso3166Table := ISOLanguageDefinition buildIso3166CodesTables.
- ISO2Countries := Dictionary new.
- ISO3Countries := Dictionary new.
- iso3166Table do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)].
- self extraCountryDefinitions do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)]!
Item was removed:
- ----- Method: Locale class>>initKnownLocales (in category 'private') -----
- initKnownLocales
- | locales |
- locales := Dictionary new.
-
- "Init the locales for which we have translations"
- InternalTranslator availableLanguageLocaleIDs do: [:id |
- locales at: id put: (Locale new localeID: id)].
- ^locales!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>printOn: (in category 'printing') -----
- printOn: aStream
- aStream nextPutAll: self class name; nextPut: $(; print: self localeID; nextPut: $)!
Item was removed:
- ----- Method: Locale class>>localeChangedGently (in category 'notification') -----
- localeChangedGently
-
- #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
- do: [:key | Smalltalk
- at: key
- ifPresent: [:class | class initialize]].
- PartsBin localeChangedGently.
- Project localeChangedGently.
- PaintBoxMorph localeChangedGently.
- ColorPickerMorph localeChangedGently.
- Preferences localeChangedGently.
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>extraISO3Definitions (in category 'private') -----
- extraISO3Definitions
-
- ^self readISOLanguagesFrom: 'jpk Japanese (Kids)
- ' readStream!
Item was removed:
- ----- Method: InternalTranslator>>generics (in category 'private') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!
Item was removed:
- ----- Method: LocaleID class>>posixName: (in category 'instance creation') -----
- posixName: aString
- ^ self
- isoString: (aString copyReplaceAll: '_' with: '-')!
Item was removed:
- ----- Method: Locale>>primShortDateFormat (in category 'system primitives') -----
- primShortDateFormat
- "Returns the short date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveShortDateFormat' module: 'LocalePlugin'>
- ^'m/d/yy'!
Item was removed:
- Object subclass: #NaturalLanguageFormTranslator
- instanceVariableNames: 'id generics'
- classVariableNames: 'CachedTranslations'
- poolDictionaries: ''
- category: 'GetText-Localization'!
Item was removed:
- ----- 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]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID: (in category 'initialize-release') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: InternalTranslator>>defaultBackgroundColor (in category 'user interface') -----
- defaultBackgroundColor
- "answer the receiver's defaultBackgroundColor for views"
- ^ Color cyan!
Item was removed:
- ----- Method: InternalTranslator>>phrase:translation: (in category 'translation') -----
- phrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- self changed: #translations.
- self changed: #untranslated.!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2: (in category 'initialize') -----
- iso2: aString
- iso2 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>setCurrent (in category 'language switching') -----
- setCurrent
- "notify locale of the translator become current"
- !
Item was removed:
- ----- Method: LocaleID>>isoCountry (in category 'accessing') -----
- isoCountry
- ^isoCountry!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID:inDomain: (in category 'translation') -----
- translate: aString toLocaleID: localeID inDomain: aDomainName
- ^ (self availableForLocaleID: localeID)
- translate: aString inDomain: aDomainName!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>domainRegistered: (in category 'accessing') -----
- domainRegistered: aDomainName
- "notify that new TextDomain is registered"
- self translators do: [:each | each domainRegistered: aDomainName]!
Item was removed:
- ----- Method: Locale>>primTimeFormat (in category 'system primitives') -----
- primTimeFormat
- "Returns string time format
- Format is made up of
- h hour (h 12, H 24), m minute, s seconds, x (am/pm String)
- double symbol is null padded, single not padded (h=6, hh=06)"
- <primitive:'primitiveTimeFormat' module: 'LocalePlugin'>
- ^'h:mmx'!
1
0
Bert Freudenberg uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-bf.16.mcz
==================== Summary ====================
Name: System-bf.16
Author: bf
Time: 24 May 2010, 2:03:24 pm
UUID: edbb42e2-522c-4212-8118-49c8e67eb5ee
Ancestors: System-Richo.15
- move essential classes back from GetText package to System-Localization
=============== Diff against System-Richo.15 ===============
Item was added:
+ ----- Method: InternalTranslator>>translate:inDomain: (in category 'translation') -----
+ translate: aString inDomain: aDomainName
+ | translator |
+ ^ self generics
+ at: aString
+ ifAbsent: [self localeID hasParent
+ ifTrue: [translator := self class cachedTranslations
+ at: self localeID parent
+ ifAbsent: [^ aString].
+ translator translate: aString inDomain: aDomainName]
+ ifFalse: [aString]]!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>localeID: (in category 'initialize-release') -----
+ localeID: anID
+ id := anID!
Item was added:
+ ----- Method: Locale class>>switchAndInstallFontToID:gently: (in category 'accessing') -----
+ switchAndInstallFontToID: localeID gently: gentlyFlag
+
+ | locale result env envFound ret fontInImage menu |
+ "Assumption: Rainbow => can try Pango"
+ "Logic:
+ - in Sugar, we don't bother asking any questions, and we don't bother automatically loading fonts.
+ in Sugar, and if the font is available, use the font.
+ in Sugar, and if the font is not in the image, try to enable Pango.
+ - if the previous step fails, notify the user that you cannot switch to the language.
+ - not in Rainbow,
+ - if the font is in the image, use the font.
+ - if the font is not in the image,
+ - ask to choose:
+ - load font
+ - try to enable pango, if pango is available
+ - or cancel.
+ - if the previous step fails, notify the user that you cannot switch to the language.
+ Details:
+ - how to check non-pango font is available:
+ - if the language environment for the locale doesn't exist, the font is not available.
+ - if font loading fails, it is not available.
+ - how to check if the language environment doesn't exist:
+ - if the locales languageEnvironment is Latin1 but the locale isn't it is not available.
+ "
+ locale := Locale localeID: localeID.
+ env := locale languageEnvironment.
+ result := true.
+ envFound := (Latin1Environment supportedLanguages includes: locale isoLanguage) or: [(env isMemberOf: Latin1Environment) not].
+ fontInImage := envFound and: [env isFontAvailable].
+ SugarLauncher isRunningInSugar ifTrue: [
+ fontInImage ifFalse: [
+ "font is not available in the image. Even don't ask for font installation."
+ Cursor wait showWhile: [
+ Preferences setPreference: #usePangoRenderer toValue: true.
+ TextMorph usePango: true]].
+ ] ifFalse: [
+ fontInImage ifFalse: [
+ menu := MenuMorph new.
+ menu defaultTarget: menu.
+ envFound ifTrue: [menu add: 'load font' translated selector: #modalSelection: argument: #loadFont].
+ RomePluginCanvas pangoIsAvailable ifTrue: [menu add: 'enable Pango' translated selector: #modalSelection: argument: #enablePango].
+ menu add: 'cancel' translated selector: #modalSelection: argument: #cancel.
+ menu addTitle: 'This language needs additional fonts.
+ Do you want to install the fonts?' translated.
+ ret := menu invokeModal.
+ ret = #loadFont ifTrue: [result := env installFont. result ifTrue: [StrikeFont setupDefaultFallbackTextStyle]].
+ ret = #enablePango ifTrue: [
+ (result := RomePluginCanvas pangoIsAvailable) ifTrue: [
+ Cursor wait showWhile: [
+ Preferences setPreference: #usePangoRenderer toValue: true.
+ TextMorph usePango: true]]].
+ (ret ~~ #loadFont and: [ret ~~ #enablePango]) ifTrue: [result := false]]].
+
+ result ifFalse: [self inform: 'Cannot load additional fonts' translated] ifTrue: [self switchTo: locale gently: gentlyFlag].
+ !
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>privateStartUp (in category 'class initialization') -----
+ privateStartUp
+ self resetCaches.
+ GetTextTranslator privateStartUp.
+ InternalTranslator privateStartUp.
+ self localeChanged.!
Item was added:
+ ----- Method: InternalTranslator>>rawPhrase:translation: (in category 'translation') -----
+ rawPhrase: phraseString translation: translationString
+ self generics at: phraseString put: translationString asString.
+ !
Item was added:
+ Object subclass: #Locale
+ instanceVariableNames: 'id shortDate longDate time decimalSymbol digitGrouping currencySymbol currencyNotation measurement offsetLocalToUTC offsetVMToUTC dstActive'
+ classVariableNames: 'Current CurrentPlatform KnownLocales LanguageSymbols LocaleChangeListeners PlatformEncodings Previous'
+ poolDictionaries: ''
+ category: 'System-Localization'!
+
+ !Locale commentStamp: '<historical>' prior: 0!
+ Main comment stating the purpose of this class and relevant relationship to other classes.
+
+
+
+ http://www.w3.org/WAI/ER/IG/ert/iso639.htm
+ http://www.oasis-open.org/cover/iso639a.html
+ See also
+ http://oss.software.ibm.com/cvs/icu/~checkout~/icuhtml/design/language_code…
+ http://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html#sec3.10
+
+ ISO 3166
+ http://mitglied.lycos.de/buran/knowhow/codes/locales/
+ !
Item was added:
+ Object subclass: #LocaleID
+ instanceVariableNames: 'isoLanguage isoCountry'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'System-Localization'!
Item was added:
+ ----- Method: Locale>>primLanguage (in category 'system primitives') -----
+ primLanguage
+ "returns string with language tag according to ISO 639"
+ <primitive:'primitiveLanguage' module: 'LocalePlugin'>
+ ^'en'
+
+ !
Item was added:
+ ----- Method: Locale>>iconForNativeLanguage (in category 'accessing') -----
+ iconForNativeLanguage
+
+ ^ (NaturalLanguageFormTranslator localeID: self localeID) translate: 'LanguageNameInNativeLanguage'.
+ !
Item was added:
+ ----- Method: Locale class>>localeChangedGently (in category 'notification') -----
+ localeChangedGently
+
+ #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
+ do: [:key | Smalltalk
+ at: key
+ ifPresent: [:class | class initialize]].
+ PartsBin localeChangedGently.
+ Project localeChangedGently.
+ PaintBoxMorph localeChangedGently.
+ ColorPickerMorph localeChangedGently.
+ Preferences localeChangedGently.
+ !
Item was added:
+ ----- Method: Locale>>isoLocale (in category 'accessing') -----
+ isoLocale
+ "<language>-<country>"
+ ^self isoCountry
+ ifNil: [self isoLanguage]
+ ifNotNil: [self isoLanguage , '-' , self isoCountry]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>localeID (in category 'accessing') -----
+ localeID
+ ^id!
Item was added:
+ ----- Method: Locale>>primCurrencyNotation (in category 'system primitives') -----
+ primCurrencyNotation
+ "Returns boolean if symbol is pre- (true) or post-fix (false)"
+ <primitive: 'primitiveCurrencyNotation' module: 'LocalePlugin'>
+ ^true!
Item was added:
+ ----- Method: ISOLanguageDefinition>>iso3Alternate: (in category 'initialize') -----
+ iso3Alternate: aString
+ iso3Alternate := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>generics (in category 'accessing') -----
+ generics
+ ^generics ifNil: [generics := Dictionary new]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>cachedTranslations (in category 'accessing') -----
+ cachedTranslations
+ "CachedTranslations := nil"
+ ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was added:
+ ----- Method: Locale>>isoCountry (in category 'accessing') -----
+ isoCountry
+ ^self localeID isoCountry!
Item was added:
(excessive method size, no diff calculated)
Item was added:
+ ----- Method: Locale>>determineLocale (in category 'accessing') -----
+ determineLocale
+ self localeID: self determineLocaleID!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>isDomainLoaded: (in category 'accessing') -----
+ isDomainLoaded: aDomainName
+ "ask if translation dictionary for the domain has been loaded and available now for use"
+ self subclassResponsibility.!
Item was added:
+ ----- Method: LocaleID>>displayLanguage (in category 'accessing') -----
+ displayLanguage
+ | language |
+ language := (ISOLanguageDefinition iso2LanguageTable
+ at: self isoLanguage
+ ifAbsent: [^ self isoLanguage]) language.
+ ^ self isoCountry
+ ifNil: [language]
+ ifNotNil: [language , ' (' , self displayCountry , ')']!
Item was added:
+ ----- 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 added:
+ ----- Method: Locale class>>startUp: (in category 'system startUp') -----
+ startUp: resuming
+ | newID |
+ resuming ifFalse: [^self].
+ (Preferences valueOfFlag: #useLocale)
+ ifTrue: [
+ DateAndTime localTimeZone: (TimeZone
+ offset: (Duration minutes: Locale current offsetLocalToUTC)
+ name: 'Local Time'
+ abbreviation: 'LT').
+ newID := self current determineLocaleID.
+ newID ~= LocaleID current
+ ifTrue: [self switchAndInstallFontToID: newID gently: true]]!
Item was added:
+ ----- Method: LocaleID class>>posixName: (in category 'instance creation') -----
+ posixName: aString
+ ^ self
+ isoString: (aString copyReplaceAll: '_' with: '-')!
Item was added:
+ ----- Method: LocaleID>>hash (in category 'comparing') -----
+ hash
+ ^self isoLanguage hash bitXor: self isoCountry hash!
Item was added:
+ ----- Method: InternalTranslator>>removeUntranslated: (in category 'translation') -----
+ removeUntranslated: untranslated
+
+ self class allKnownPhrases removeKey: untranslated ifAbsent: [].
+ !
Item was added:
+ ----- Method: ISOLanguageDefinition class>>initialize (in category 'class initialization') -----
+ initialize
+ "ISOLanguageDefinition initialize"
+
+ ISO3Table := nil.
+ ISO2Table := nil!
Item was added:
+ ----- Method: Locale>>primShortDateFormat (in category 'system primitives') -----
+ primShortDateFormat
+ "Returns the short date format
+ d day, m month, y year,
+ double symbol is null padded, single not padded (m=6, mm=06)
+ dddd weekday
+ mmmm month name"
+ <primitive:'primitiveShortDateFormat' module: 'LocalePlugin'>
+ ^'m/d/yy'!
Item was added:
+ NaturalLanguageTranslator subclass: #InternalTranslator
+ instanceVariableNames: 'generics'
+ classVariableNames: 'AllKnownPhrases CachedTranslations'
+ poolDictionaries: ''
+ category: 'System-Localization'!
+
+ !InternalTranslator commentStamp: 'tak 10/19/2007 11:12' prior: 0!
+ An InternalTranslator is used a translation dictionary in a image.
+ You can use it without any external translation file.
+
+ Structure:
+ generics Dictionary -- msgid -> msgstr
+ !
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>saveFormsOn: (in category 'i/o') -----
+ saveFormsOn: aStream
+
+ | rr |
+ rr _ ReferenceStream on: aStream.
+ rr nextPut: {id isoString. generics}.
+ rr close.
+ !
Item was added:
+ ----- Method: Locale class>>switchTo: (in category 'accessing') -----
+ switchTo: locale
+ self switchTo: locale gently: false.
+ !
Item was added:
+ ----- 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.
+ CurrentPlatform := Current := Locale localeID: availableID.
+ NaturalLanguageTranslator localeChanged.
+ gentlyFlag ifTrue: [self localeChangedGently] ifFalse: [self localeChanged]]!
Item was added:
+ ----- Method: Locale>>primMeasurement (in category 'system primitives') -----
+ primMeasurement
+ "Returns boolean denoting metric(true) or imperial(false)."
+ <primitive:'primitiveMeasurementMetric' module: 'LocalePlugin'>
+ ^true
+ !
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>availableForLocaleID: (in category 'accessing') -----
+ availableForLocaleID: localeID
+ "Answer available locale ID.
+ If translator is not found for correct locale ID, then isoLanguage is
+ attempted for the key."
+ ^ self translators
+ at: localeID
+ ifAbsent: [localeID hasParent
+ ifTrue: [self translators
+ at: localeID parent
+ ifAbsent: [self default]]
+ ifFalse: [self default]]!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>initialize (in category 'class initialization') -----
+ initialize
+ Smalltalk addToStartUpList: NaturalLanguageTranslator after: FileDirectory.
+ !
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID:inDomain: (in category 'translation') -----
+ translate: aString toLocaleID: localeID inDomain: aDomainName
+ ^ (self availableForLocaleID: localeID)
+ translate: aString inDomain: aDomainName!
Item was added:
+ ----- Method: Locale class>>localeChanged (in category 'notification') -----
+ localeChanged
+
+ #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
+ do: [:key | Smalltalk
+ at: key
+ ifPresent: [:class | class initialize]].
+ PartsBin localeChanged.
+ Project localeChanged.
+ PaintBoxMorph localeChanged.
+ ColorPickerMorph localeChanged.
+ Preferences localeChanged!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>default (in category 'accessing') -----
+ default
+ "Answer translator for backstop"
+ "self default translate: 'test'"
+ ^ self new
+ localeID: (LocaleID isoLanguage: 'en')!
Item was added:
+ ----- Method: InternalTranslator classSide>>privateStartUp (in category 'class initialization') -----
+ privateStartUp
+ self loadAvailableExternalLocales.
+ self mergeLegacyTranslators.
+ !
Item was added:
+ ----- Method: Locale class>>isoLanguage:isoCountry: (in category 'accessing') -----
+ isoLanguage: isoLanguage isoCountry: isoCountry
+ ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was added:
+ ----- 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]!
Item was added:
+ ----- Method: InternalTranslator classSide>>translationSuffix (in category 'private') -----
+ translationSuffix
+ ^'translation'!
Item was added:
+ ----- Method: Locale class>>initKnownLocales (in category 'private') -----
+ initKnownLocales
+ | locales |
+ locales := Dictionary new.
+
+ "Init the locales for which we have translations"
+ InternalTranslator availableLanguageLocaleIDs do: [:id |
+ locales at: id put: (Locale new localeID: id)].
+ ^locales!
Item was added:
+ ----- Method: Locale>>fetchISOCountry (in category 'private') -----
+ fetchISOCountry
+ "Locale current fetchISOCountry"
+ | countryCode |
+ countryCode := self primCountry
+ ifNil: [^ nil].
+ ^ countryCode copyUpTo: 0 asCharacter!
Item was added:
+ ----- Method: Locale>>primDST (in category 'system primitives') -----
+ primDST
+ "Returns boolean if DST (daylight saving time) is active or not"
+ <primitive:'primitiveDaylightSavings' module: 'LocalePlugin'>
+ ^false!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>translate: (in category 'translation') -----
+ translate: aString
+ ^self translate: aString
+ inDomain: TextDomainManager defaultDomain!
Item was added:
+ ----- Method: Locale class>>currentPlatform: (in category 'accessing') -----
+ currentPlatform: locale
+ CurrentPlatform := locale.
+ LanguageEnvironment startUp.
+ !
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso2LanguageDefinition: (in category 'accessing') -----
+ iso2LanguageDefinition: aString
+ ^self iso2LanguageTable at: aString!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID: (in category 'translation') -----
+ translate: aString toLocaleID: localeID
+ "translate for default domain"
+ ^ (self availableForLocaleID: localeID)
+ translate: aString!
Item was added:
+ ----- Method: LocaleID>>translator (in category 'accessing') -----
+ translator
+ ^ InternalTranslator localeID: self !
Item was changed:
SystemOrganization addCategory: #'System-Applications'!
SystemOrganization addCategory: #'System-Change Notification'!
SystemOrganization addCategory: #'System-Changes'!
SystemOrganization addCategory: #'System-Clipboard-Extended'!
SystemOrganization addCategory: #'System-Compiler'!
SystemOrganization addCategory: #'System-Digital Signatures'!
SystemOrganization addCategory: #'System-Download'!
SystemOrganization addCategory: #'System-Environments'!
SystemOrganization addCategory: #'System-Exceptions Kernel'!
SystemOrganization addCategory: #'System-FilePackage'!
SystemOrganization addCategory: #'System-FileRegistry'!
SystemOrganization addCategory: #'System-Finalization'!
+ SystemOrganization addCategory: #'System-Localization'!
SystemOrganization addCategory: #'System-Object Events'!
SystemOrganization addCategory: #'System-Object Storage'!
SystemOrganization addCategory: #'System-Pools'!
SystemOrganization addCategory: #'System-Preferences'!
SystemOrganization addCategory: #'System-Serial Port'!
SystemOrganization addCategory: #'System-Support'!
SystemOrganization addCategory: #'System-Tools'!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>translateWithoutLoading:toLocaleID: (in category 'translation') -----
+ translateWithoutLoading: aString toLocaleID: localeID
+ "translate for default domain"
+ ^self translateWithoutLoading: aString toLocaleID: localeID inDomain: TextDomainManager defaultDomain.
+ !
Item was added:
+ ----- Method: Locale>>fetchISO2Language (in category 'private') -----
+ fetchISO2Language
+ "Locale current fetchISO2Language"
+ | lang isoLang |
+ lang := self primLanguage.
+ lang ifNil: [^nil].
+ lang := lang copyUpTo: 0 asCharacter.
+ lang size == 2
+ ifTrue: [^lang].
+ isoLang := ISOLanguageDefinition iso3LanguageDefinition: lang.
+ ^isoLang
+ ifNil: [nil]
+ ifNotNil: [isoLang iso2]!
Item was added:
+ ----- Method: InternalTranslator>>isDomainLoaded: (in category 'accessing') -----
+ isDomainLoaded: aDomainName
+ ^true
+ !
Item was added:
+ ----- Method: InternalTranslator>>phrase:translation: (in category 'translation') -----
+ phrase: phraseString translation: translationString
+ self generics at: phraseString put: translationString asString.
+ self changed: #translations.
+ self changed: #untranslated.!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>initISO3LanguageTable (in category 'private') -----
+ initISO3LanguageTable
+ "ISOLanguageDefinition initIso3LanguageTable"
+
+ | table |
+ table := ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream.
+ table addAll: self extraISO3Definitions.
+ ^table!
Item was added:
+ ----- Method: InternalTranslator>>fileOutOn:keys:withBOM: (in category 'fileIn/fileOut') -----
+ fileOutOn: aStream keys: keys withBOM: bomFlag
+ "self current fileOutOn: Transcript. Transcript endEntry"
+ self fileOutHeaderOn: aStream withBOM: bomFlag.
+ (keys
+ ifNil: [generics keys asSortedCollection])
+ 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 added:
+ ----- Method: InternalTranslator classSide>>availableLanguageLocaleIDs (in category 'accessing') -----
+ availableLanguageLocaleIDs
+ "Return locale ids for the internal translation dictionary."
+ "InternalTranslator availableLanguageLocaleIDs"
+ ^ self cachedTranslations values collect:[:each | each localeID]!
Item was added:
+ ----- Method: Locale class>>localeID: (in category 'accessing') -----
+ localeID: id
+ ^self knownLocales at: id ifAbsentPut: [Locale new localeID: id]!
Item was added:
+ ----- Method: LocaleID>>isoCountry (in category 'accessing') -----
+ isoCountry
+ ^isoCountry!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: Locale class>>previous (in category 'accessing') -----
+ previous
+
+ ^ Previous
+ !
Item was added:
+ ----- Method: ISOLanguageDefinition class>>readISOLanguagesFrom: (in category 'private') -----
+ readISOLanguagesFrom: stream
+ "ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream "
+ | languages language code3 index line |
+ languages := Dictionary new.
+ [stream atEnd
+ or: [(line := stream nextLine readStream) atEnd]]
+ whileFalse: [
+ language := ISOLanguageDefinition new.
+ code3 := line upTo: Character tab.
+ (index := code3 indexOf: $/) > 0
+ ifTrue: [
+ language iso3: (code3 copyFrom: 1 to: index-1).
+ language iso3Alternate: (code3 copyFrom: index+1 to: code3 size)]
+ ifFalse: [language iso3: code3].
+ language
+ iso2: (line upTo: Character tab);
+ language: line upToEnd.
+ languages at: language iso3 put: language].
+ ^languages!
Item was added:
+ ----- Method: Locale>>determineLocaleID (in category 'accessing') -----
+ determineLocaleID
+ "Locale current determineLocaleID"
+ | isoLang isoCountry |
+ isoLang := self fetchISO2Language
+ ifNil: [^ self localeID].
+ isoCountry := self fetchISOCountry
+ ifNil: [^ LocaleID isoLanguage: isoLang].
+ ^ LocaleID isoLanguage: isoLang isoCountry: isoCountry!
Item was added:
+ ----- Method: InternalTranslator>>translations (in category 'accessing') -----
+ translations
+ ^self generics!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>startUp: (in category 'class initialization') -----
+ startUp: resuming
+ resuming
+ ifFalse: [^ self].
+ self privateStartUp.!
Item was added:
+ ----- Method: InternalTranslator>>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 added:
+ ----- Method: InternalTranslator>>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 added:
+ ----- Method: ISOLanguageDefinition>>iso3Alternate (in category 'accessing') -----
+ iso3Alternate
+ ^iso3Alternate ifNil: ['']!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>removeLocaleID: (in category 'accessing') -----
+ removeLocaleID: localeID
+ "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
+ ^ self translators
+ removeKey: localeID
+ ifAbsent: []!
Item was added:
+ ----- Method: Locale class>>knownLocales (in category 'private') -----
+ knownLocales
+ "KnownLocales := nil"
+ ^KnownLocales ifNil: [KnownLocales := self initKnownLocales]!
Item was added:
+ Object subclass: #ISOLanguageDefinition
+ instanceVariableNames: 'iso3 iso2 iso3Alternate language'
+ classVariableNames: 'ISO2Countries ISO2Table ISO3Countries ISO3Table'
+ poolDictionaries: ''
+ category: 'System-Localization'!
Item was added:
+ ----- Method: Locale>>localeID (in category 'accessing') -----
+ localeID
+ ^id!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>domainRegistered: (in category 'accessing') -----
+ domainRegistered: aDomainName
+ "notify that new TextDomain is registered"
+ self translators do: [:each | each domainRegistered: aDomainName]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>isoLanguage: (in category 'accessing') -----
+ isoLanguage: isoLanguage
+ "Return the generic language translator as there is no information about the country code"
+
+ ^self isoLanguage: isoLanguage isoCountry: nil!
Item was added:
+ ----- Method: Locale>>isoLanguage (in category 'accessing') -----
+ isoLanguage
+ ^self localeID isoLanguage!
Item was added:
+ ----- Method: ISOLanguageDefinition>>language (in category 'accessing') -----
+ language
+ ^language!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>localeChanged (in category 'accessing') -----
+ localeChanged
+ "notify some project starts to use this locale.
+ this facility may use the event to load translation data dynamically"
+ self current setCurrent
+ !
Item was added:
+ ----- Method: LocaleID class>>isoLanguage:isoCountry: (in category 'instance creation') -----
+ isoLanguage: langString isoCountry: countryStringOrNil
+ ^self new isoLanguage: langString isoCountry: countryStringOrNil!
Item was added:
+ ----- Method: Locale>>primTimeFormat (in category 'system primitives') -----
+ primTimeFormat
+ "Returns string time format
+ Format is made up of
+ h hour (h 12, H 24), m minute, s seconds, x (am/pm String)
+ double symbol is null padded, single not padded (h=6, hh=06)"
+ <primitive:'primitiveTimeFormat' module: 'LocalePlugin'>
+ ^'h:mmx'!
Item was added:
+ ----- Method: InternalTranslator>>fileOutHeader (in category 'fileIn/fileOut') -----
+ fileOutHeader
+ ^ '''Translation dictionary'''!
Item was added:
+ ----- Method: ISOLanguageDefinition>>iso2 (in category 'accessing') -----
+ iso2
+ ^iso2 ifNil: [self iso3]!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: Locale>>offsetLocalToUTC (in category 'accessing') -----
+ offsetLocalToUTC
+ ^self primTimezone!
Item was added:
+ ----- Method: InternalTranslator>>nextChunkPut:on: (in category 'fileIn/fileOut') -----
+ nextChunkPut: anObject on: aStream
+ | i remainder terminator |
+ terminator := $!!.
+ remainder := anObject storeString.
+ [(i := remainder indexOf: terminator) = 0]
+ whileFalse: [aStream
+ nextPutAll: (remainder copyFrom: 1 to: i).
+ aStream nextPut: terminator.
+ "double imbedded terminators"
+ remainder := remainder copyFrom: i + 1 to: remainder size].
+ aStream nextPutAll: remainder.
+ aStream nextPut: terminator; cr.!
Item was added:
+ ----- Method: Locale>>primCountry (in category 'system primitives') -----
+ primCountry
+ "Returns string with country tag according to ISO 639"
+ <primitive: 'primitiveCountry' module: 'LocalePlugin'>
+ ^'US'!
Item was added:
+ Object subclass: #NaturalLanguageTranslator
+ instanceVariableNames: 'id'
+ classVariableNames: 'Translators'
+ poolDictionaries: ''
+ category: 'System-Localization'!
+
+ !NaturalLanguageTranslator commentStamp: '<historical>' prior: 0!
+ abstract class of natural language translator.
+ Class side manages and holds loaded instances of concrete classes.!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>domainUnregistered: (in category 'accessing') -----
+ domainUnregistered: aDomainName
+ "notify that new TextDomain is unregistered. Concrete subclass can responds to this event if needed"!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>initISOCountries (in category 'private') -----
+ initISOCountries
+ "ISOLanguageDefinition initISOCountries"
+ | iso3166Table |
+ iso3166Table := ISOLanguageDefinition buildIso3166CodesTables.
+ ISO2Countries := Dictionary new.
+ ISO3Countries := Dictionary new.
+ iso3166Table do: [:entry |
+ ISO2Countries at: (entry at: 2) put: (entry at: 1).
+ ISO3Countries at: (entry at: 3) put: (entry at: 1)].
+ self extraCountryDefinitions do: [:entry |
+ ISO2Countries at: (entry at: 2) put: (entry at: 1).
+ ISO3Countries at: (entry at: 3) put: (entry at: 1)]!
Item was added:
+ ----- Method: LocaleID>>= (in category 'comparing') -----
+ = anotherObject
+ self class == anotherObject class
+ ifFalse: [^false].
+ ^self isoLanguage = anotherObject isoLanguage
+ and: [self isoCountry = anotherObject isoCountry]!
Item was added:
+ ----- Method: ISOLanguageDefinition>>iso2: (in category 'initialize') -----
+ iso2: aString
+ iso2 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>name:form: (in category 'accessing') -----
+ name: formName form: translatedForm
+ self generics at: formName put: translatedForm.
+ !
Item was added:
+ ----- Method: Locale class>>determineCurrentLocale (in category 'private') -----
+ determineCurrentLocale
+ "For now just return the default locale.
+ A smarter way would be to determine the current platforms default locale."
+ "Locale determineCurrentLocale"
+
+ ^self new determineLocale!
Item was added:
+ ----- Method: ISOLanguageDefinition>>iso3 (in category 'accessing') -----
+ iso3
+ ^iso3 ifNil: ['']!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>localeID: (in category 'accessing') -----
+ localeID: anID
+ id := anID!
Item was added:
+ ----- Method: LocaleID class>>isoString: (in category 'instance creation') -----
+ isoString: isoString
+ "Parse the isoString (<language>-<country>) into its components and return the matching LocaleID"
+ "LocaleID isoString: 'en' "
+ "LocaleID isoString: 'en-us' "
+
+ | parts language country |
+ parts := isoString findTokens: #($- ).
+ language := parts first.
+ parts size > 1
+ ifTrue: [country := parts second].
+ ^self isoLanguage: language isoCountry: country!
Item was added:
+ ----- Method: InternalTranslator>>fileOutHeaderOn:withBOM: (in category 'user interface') -----
+ fileOutHeaderOn: aStream withBOM: bomFlag
+ bomFlag ifTrue: [
+ aStream binary.
+ UTF8TextConverter writeBOMOn: aStream.
+ aStream text.
+ ].
+ aStream nextChunkPut: self fileOutHeader;
+ cr.
+ aStream timeStamp; cr.
+ aStream nextPut: $!!.
+ aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
+ aStream cr!
Item was added:
+ ----- Method: LocaleID>>parent (in category 'accessing') -----
+ parent
+ ^self class isoLanguage: self isoLanguage!
Item was added:
+ ----- Method: Locale class>>initializePlatformEncodings (in category 'class initialization') -----
+ initializePlatformEncodings
+ "Locale initializePlatformEncodings"
+
+ | platform |
+ PlatformEncodings isNil ifTrue: [ PlatformEncodings := Dictionary new ].
+
+ platform := PlatformEncodings at: 'default' ifAbsentPut: Dictionary new.
+ platform
+ at: 'default' put: 'iso8859-1';
+ at: 'Win32 CE' put: 'utf-8';
+ yourself.
+
+ platform := PlatformEncodings at: 'ja' ifAbsentPut: Dictionary new.
+ platform
+ at: 'default' put: 'shift-jis';
+ at: 'unix' put: 'euc-jp';
+ at: 'Win32 CE' put: 'utf-8';
+ yourself.
+
+ platform := PlatformEncodings at: 'ko' ifAbsentPut: Dictionary new.
+ platform
+ at: 'default' put: 'euc-kr';
+ at: 'Win32 CE' put: 'utf-8';
+ yourself.
+
+ platform := PlatformEncodings at: 'zh' ifAbsentPut: Dictionary new.
+ platform
+ at: 'default' put: 'gb2312';
+ at: 'unix' put: 'euc-cn';
+ at: 'Win32 CE' put: 'utf-8';
+ yourself.
+ !
Item was added:
+ ----- Method: InternalTranslator>>fileOutHeaderOn: (in category 'user interface') -----
+ fileOutHeaderOn: aStream
+ aStream binary.
+ UTF8TextConverter writeBOMOn: aStream.
+ aStream text.
+ aStream nextChunkPut: self fileOutHeader;
+ cr.
+ aStream timeStamp; cr.
+ aStream nextPut: $!!.
+ aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
+ aStream cr!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso2LanguageTable (in category 'private') -----
+ iso2LanguageTable
+ "ISOLanguageDefinition iso2LanguageTable"
+
+ ISO2Table ifNotNil: [^ISO2Table].
+ ISO2Table := Dictionary new: self iso3LanguageTable basicSize.
+ self iso3LanguageTable do: [:entry |
+ ISO2Table at: entry iso2 put: entry].
+ ^ISO2Table!
Item was added:
+ ----- Method: LocaleID class>>previous (in category 'accessing') -----
+ previous
+ ^Locale previous localeID!
Item was added:
+ ----- Method: InternalTranslator classSide>>removeLocaleID: (in category 'accessing') -----
+ removeLocaleID: localeID
+ "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
+ self cachedTranslations
+ removeKey: localeID
+ ifAbsent: [].
+ NaturalLanguageTranslator privateStartUp!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso3Countries (in category 'private') -----
+ iso3Countries
+ "ISOLanguageDefinition iso3Countries"
+ "ISO2Countries := nil. ISO3Countries := nil"
+
+ ISO3Countries ifNil: [self initISOCountries].
+ ^ISO3Countries!
Item was added:
+ ----- Method: Locale class>>localeChangedListeners (in category 'notification') -----
+ localeChangedListeners
+ ^LocaleChangeListeners ifNil: [LocaleChangeListeners _ OrderedCollection new]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>bitmapForJapanese (in category 'as yet unclassified') -----
+ bitmapForJapanese
+
+ ^ (Form
+ extent: 54@17
+ depth: 16
+ fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 65536 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 1 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 65536 0 0 65536 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 1 65537 65537 65536 1 0 0 0 1 0 0 65536 0 0 1 0 0 0 1 0 1 65537 65537 65537 65537 65537 65537 0 0 0 1 65537 65537 0 0 1 0 1 0 0 0 1 0 0 0 1 0 0 0 0 65537 65536 0 0 0 65537 65537 0 65536 1 0 0 0 65536 1 0 0 0 1 65537 65537 65537 65537 0 0 0 1 1 1 0 0 0 0 0 0 65536 1 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 1 1 1 0 0 0 65537 65537 65537 65537 65537 65537 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 65536 1 0 65536 0 0 0 0 0 0 0 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 65537 65537 1 65537 65537 65536 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 65536 65537 65537 65537 65536 65536 0 65536 1 1 0 0 65536 0 0 65536 0 65536 0 0 1 0 0 0 1 0 1 0 0 1 0 0 1 0 65536 1 1 0 0 65536 0 1 0 0 65536 0 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 65536 0 0 0 65536 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0)
+ offset: 0@0)!
Item was added:
+ ----- Method: InternalTranslator classSide>>allKnownPhrases (in category 'private') -----
+ allKnownPhrases
+ ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]!
Item was added:
+ ----- Method: Locale>>primVMOffsetToUTC (in category 'system primitives') -----
+ primVMOffsetToUTC
+ "Returns the offset in minutes between the VM and UTC.
+ If the VM does not support UTC times, this is 0.
+ Also gives us backward compatibility with old VMs as the primitive will fail and we then can return 0."
+ <primitive:'primitiveVMOffsetToUTC' module: 'LocalePlugin'>
+ ^0!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso2Countries (in category 'private') -----
+ iso2Countries
+ "ISOLanguageDefinition iso2Countries"
+ "ISO2Countries := nil. ISO3Countries := nil"
+
+ ISO2Countries ifNil: [self initISOCountries].
+ ^ISO2Countries!
Item was added:
+ ----- Method: Locale class>>current (in category 'accessing') -----
+ current
+ "Current := nil"
+ Current ifNil: [
+ Current := self determineCurrentLocale.
+ "Transcript show: 'Current locale: ' , Current localeID asString; cr"].
+ ^Current!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>localeID (in category 'accessing') -----
+ localeID
+ ^id!
Item was added:
+ ----- Method: Locale>>primTimezone (in category 'system primitives') -----
+ primTimezone
+ "The offset from UTC in minutes, with positive offsets being towards the east.
+ (San Francisco is in UTC -07*60 and Paris is in UTC +02*60 when daylight savings is in effect)."
+ <primitive:'primitiveTimezoneOffset' module: 'LocalePlugin'>
+ ^0!
Item was added:
+ ----- Method: Locale>>printOn: (in category 'accessing') -----
+ printOn: aStream
+ super printOn: aStream.
+ aStream nextPutAll: '(' , id printString , ')'!
Item was added:
+ ----- Method: InternalTranslator>>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 added:
+ ----- Method: InternalTranslator>>fileOutOn: (in category 'fileIn/fileOut') -----
+ fileOutOn: aStream
+ "self current fileOutOn: Transcript. Transcript endEntry"
+ self fileOutOn: aStream keys: nil withBOM: true.
+ !
Item was added:
+ ----- Method: Locale class>>languageSymbol: (in category 'accessing') -----
+ languageSymbol: languageSymbol
+ "Locale languageSymbol: #Deutsch"
+
+ ^self isoLanguage: (LanguageSymbols at: languageSymbol)!
Item was added:
+ ----- Method: Locale>>languageEnvironment (in category 'accessing') -----
+ languageEnvironment
+ ^LanguageEnvironment localeID: self localeID!
Item was added:
+ ----- Method: Locale class>>defaultEncodingName: (in category 'platform specific') -----
+ defaultEncodingName: languageSymbol
+ | encodings platformName osVersion |
+ platformName := SmalltalkImage current platformName.
+ osVersion := SmalltalkImage current getSystemAttribute: 1002.
+ encodings := self platformEncodings at: languageSymbol
+ ifAbsent: [self platformEncodings at: #default].
+ encodings at: platformName ifPresent: [:encoding | ^encoding].
+ encodings at: platformName , ' ' , osVersion
+ ifPresent: [:encoding | ^encoding].
+ ^encodings at: #default!
Item was added:
+ ----- Method: LocaleID>>isoLanguage (in category 'accessing') -----
+ isoLanguage
+ ^isoLanguage!
Item was added:
+ ----- Method: InternalTranslator classSide>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
+ loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString
+ "merge the translation from the mime literal."
+ | stream localeID translator gs rbStream s currentPlatform |
+ s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
+ s reset.
+ gs := GZipReadStream on: s.
+ rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
+ rbStream converter: UTF8TextConverter new.
+ rbStream reset.
+ localeID := LocaleID isoString: localeString.
+ currentPlatform := Locale currentPlatform.
+ [Locale
+ currentPlatform: (Locale localeID: localeID).
+ stream := ReadStream on: rbStream contents]
+ ensure: [Locale currentPlatform: currentPlatform].
+ translator := self localeID: localeID.
+ translator loadFromStream: stream.
+ LanguageEnvironment resetKnownEnvironments!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: InternalTranslator classSide>>fileReaderServicesForFile:suffix: (in category 'file-services') -----
+ fileReaderServicesForFile: fullName suffix: suffix
+ "Answer the file services associated with given file"
+ ^ (suffix = self translationSuffix) | (suffix = '*')
+ ifTrue: [{self serviceMergeLanguageTranslations}]
+ ifFalse: [#()]!
Item was added:
+ ----- 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 isDomainLoaded: aDomainName) ifFalse: [
+ (InternalTranslator availableLanguageLocaleIDs includes: localeID)
+ ifTrue: [translator _ InternalTranslator localeID: localeID].
+ ].
+ ^translator translate: aString inDomain: aDomainName!
Item was added:
+ ----- Method: InternalTranslator>>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 added:
+ ----- Method: Locale class>>defaultInputInterpreter (in category 'platform specific') -----
+ defaultInputInterpreter
+ | platformName osVersion |
+ platformName := SmalltalkImage current platformName.
+ osVersion := SmalltalkImage current getSystemAttribute: 1002.
+ (platformName = 'Win32' and: [osVersion = 'CE'])
+ ifTrue: [^NoInputInterpreter new].
+ platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new].
+ ^NoInputInterpreter new!
Item was added:
+ ----- Method: Locale class>>stringForLanguageNameIs: (in category 'accessing') -----
+ stringForLanguageNameIs: localeID
+ "Answer a string for a menu determining whether the given
+ symbol is the project's natural language"
+ ^ (self current localeID = localeID
+ ifTrue: ['<yes>']
+ ifFalse: ['<no>'])
+ , localeID displayName!
Item was added:
+ ----- Method: Locale class>>addLocalChangedListener: (in category 'notification') -----
+ addLocalChangedListener: anObjectOrClass
+ self localeChangedListeners add: anObjectOrClass!
Item was added:
+ ----- Method: InternalTranslator classSide>>serviceMergeLanguageTranslations (in category 'file-services') -----
+ serviceMergeLanguageTranslations
+ "Answer a service for merging of translation files"
+ ^ SimpleServiceEntry
+ provider: self
+ label: 'merge the translation file' translatedNoop
+ selector: #mergeTranslationFileNamed:
+ description: 'merge the translation file into the language named like the file' translatedNoop
+ buttonLabel: 'merge' translatedNoop!
Item was added:
+ ----- Method: LocaleID>>isoString (in category 'accessing') -----
+ isoString
+ ^self asString!
Item was added:
+ ----- Method: InternalTranslator classSide>>localeID: (in category 'accessing') -----
+ localeID: localeID
+ "For backward compatibility, see NaturalLanguageTranslator >> fileOutHeaderOn:."
+ ^ self newLocaleID: localeID!
Item was added:
+ ----- Method: ISOLanguageDefinition>>language: (in category 'initialize') -----
+ language: aString
+ language := aString!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>isoLanguages (in category 'private') -----
+ isoLanguages
+ "ISO 639: 3-letter codes"
+ ^'aar aa Afar
+ abk ab Abkhazian
+ ace Achinese
+ ach Acoli
+ ada Adangme
+ ady Adyghe; Adygei
+ afa Afro-Asiatic languages
+ afh Afrihili
+ afr af Afrikaans
+ ain Ainu
+ aka ak Akan
+ akk Akkadian
+ alb/sqi sq Albanian
+ ale Aleut
+ alg Algonquian languages
+ alt Southern Altai
+ amh am Amharic
+ ang English, Old (ca.450-1100)
+ anp Angika
+ apa Apache languages
+ ara ar Arabic
+ arc Official Aramaic (700-300 BCE); Imperial Aramaic (700-300 BCE)
+ arg an Aragonese
+ arm/hye hy Armenian
+ arn Mapudungun; Mapuche
+ arp Arapaho
+ art Artificial languages
+ arw Arawak
+ asm as Assamese
+ ast Asturian; Bable; Leonese; Asturleonese
+ ath Athapascan languages
+ aus Australian languages
+ ava av Avaric
+ ave ae Avestan
+ awa Awadhi
+ aym ay Aymara
+ aze az Azerbaijani
+ bad Banda languages
+ bai Bamileke languages
+ bak ba Bashkir
+ bal Baluchi
+ bam bm Bambara
+ ban Balinese
+ baq/eus eu Basque
+ bas Basa
+ bat Baltic languages
+ bej Beja; Bedawiyet
+ bel be Belarusian
+ bem Bemba
+ ben bn Bengali
+ ber Berber languages)
+ bho Bhojpuri
+ bih bh Bihari
+ bik Bikol
+ bin Bini; Edo
+ bis bi Bislama
+ bla Siksika
+ bnt Bantu languages
+ bos bs Bosnian
+ bra Braj
+ bre br Breton
+ btk Batak languages
+ bua Buriat
+ bug Buginese
+ bul bg Bulgarian
+ bur/mya my Burmese
+ byn Blin; Bilin
+ cad Caddo
+ cai Central American Indian languages
+ car Galibi Carib
+ cat ca Catalan; Valencian
+ cau Caucasian languages
+ ceb Cebuano
+ cel Celtic languages
+ cha ch Chamorro
+ chb Chibcha
+ che ce Chechen
+ chg Chagatai
+ chi/zho zh Chinese
+ chk Chuukese
+ chm Mari
+ chn Chinook jargon
+ cho Choctaw
+ chp Chipewyan; Dene Suline
+ chr Cherokee
+ chu cu Church Slavic; Old Slavonic; Church Slavonic; Old Bulgarian; Old Church Slavonic
+ chv cv Chuvash
+ chy Cheyenne
+ cmc Chamic languages
+ cop Coptic
+ cor kw Cornish
+ cos co Corsican
+ cpe Creoles and pidgins, English based
+ cpf Creoles and pidgins, French-based
+ cpp Creoles and pidgins, Portuguese-based
+ cre cr Cree
+ crh Crimean Tatar; Crimean Turkish
+ crp Creoles and pidgins
+ csb Kashubian
+ cus Cushitic languages
+ cze/ces cs Czech
+ dak Dakota
+ dan da Danish
+ dar Dargwa
+ day Land Dayak languages
+ del Delaware
+ den Slave (Athapascan)
+ dgr Dogrib
+ din Dinka
+ div dv Divehi; Dhivehi; Maldivian
+ doi Dogri
+ dra Dravidian languages
+ dsb Lower Sorbian
+ dua Duala
+ dum Dutch, Middle (ca.1050-1350)
+ dut/nld nl Dutch; Flemish
+ dyu Dyula
+ dzo dz Dzongkha
+ efi Efik
+ egy Egyptian (Ancient)
+ eka Ekajuk
+ elx Elamite
+ eng en English
+ enm English, Middle (1100-1500)
+ epo eo Esperanto
+ est et Estonian
+ ewe ee Ewe
+ ewo Ewondo
+ fan Fang
+ fao fo Faroese
+ fat Fanti
+ fij fj Fijian
+ fil Filipino; Pilipino
+ fin fi Finnish
+ fiu Finno-Ugrian languages)
+ fon Fon
+ fre/fra fr French
+ frm French, Middle (ca.1400-1600)
+ fro French, Old (842-ca.1400)
+ frr Northern Frisian
+ frs Eastern Frisian
+ fry fy Western Frisian
+ ful ff Fulah
+ fur Friulian
+ gaa Ga
+ gay Gayo
+ gba Gbaya
+ gem Germanic languages
+ geo/kat ka Georgian
+ ger/deu de German
+ gez Geez
+ gil Gilbertese
+ gla gd Gaelic; Scottish Gaelic
+ gle ga Irish
+ glg gl Galician
+ glv gv Manx
+ gmh German, Middle High (ca.1050-1500)
+ goh German, Old High (ca.750-1050)
+ gon Gondi
+ gor Gorontalo
+ got Gothic
+ grb Grebo
+ grc Greek, Ancient (to 1453)
+ gre/ell el Greek, Modern (1453-)
+ grn gn Guarani
+ gsw Swiss German; Alemannic; Alsatian
+ guj gu Gujarati
+ gwi Gwich''in
+ hai Haida
+ hat ht Haitian; Haitian Creole
+ hau ha Hausa
+ haw Hawaiian
+ heb he Hebrew
+ her hz Herero
+ hil Hiligaynon
+ him Himachali
+ hin hi Hindi
+ hit Hittite
+ hmn Hmong
+ hmo ho Hiri Motu
+ hrv hr Croatian
+ hsb Upper Sorbian
+ hun hu Hungarian
+ hup Hupa
+ iba Iban
+ ibo ig Igbo
+ ice/isl is Icelandic
+ ido io Ido
+ iii ii Sichuan Yi; Nuosu
+ ijo Ijo languages
+ iku iu Inuktitut
+ ile ie Interlingue; Occidental
+ ilo Iloko
+ ina ia Interlingua (International Auxiliary Language Association)
+ inc Indic languages
+ ind id Indonesian
+ ine Indo-European languages
+ inh Ingush
+ ipk ik Inupiaq
+ ira Iranian languages
+ iro Iroquoian languages
+ ita it Italian
+ jav jv Javanese
+ jbo Lojban
+ jpn ja Japanese
+ jpr Judeo-Persian
+ jrb Judeo-Arabic
+ kaa Kara-Kalpak
+ kab Kabyle
+ kac Kachin; Jingpho
+ kal kl Kalaallisut; Greenlandic
+ kam Kamba
+ kan kn Kannada
+ kar Karen languages
+ kas ks Kashmiri
+ kau kr Kanuri
+ kaw Kawi
+ kaz kk Kazakh
+ kbd Kabardian
+ kha Khasi
+ khi Khoisan languages
+ khm km Central Khmer
+ kho Khotanese; Sakan
+ kik ki Kikuyu; Gikuyu
+ kin rw Kinyarwanda
+ kir ky Kirghiz; Kyrgyz
+ kmb Kimbundu
+ kok Konkani
+ kom kv Komi
+ kon kg Kongo
+ kor ko Korean
+ kos Kosraean
+ kpe Kpelle
+ krc Karachay-Balkar
+ krl Karelian
+ kro Kru languages
+ kru Kurukh
+ kua kj Kuanyama; Kwanyama
+ kum Kumyk
+ kur ku Kurdish
+ kut Kutenai
+ lad Ladino
+ lah Lahnda
+ lam Lamba
+ lao lo Lao
+ lat la Latin
+ lav lv Latvian
+ lez Lezghian
+ lim li Limburgan; Limburger; Limburgish
+ lin ln Lingala
+ lit lt Lithuanian
+ lol Mongo
+ loz Lozi
+ ltz lb Luxembourgish; Letzeburgesch
+ lua Luba-Lulua
+ lub lu Luba-Katanga
+ lug lg Ganda
+ lui Luiseno
+ lun Lunda
+ luo Luo (Kenya and Tanzania)
+ lus Lushai
+ mac/mkd mk Macedonian
+ mad Madurese
+ mag Magahi
+ mah mh Marshallese
+ mai Maithili
+ mak Makasar
+ mal ml Malayalam
+ man Mandingo
+ mao/mri mi Maori
+ map Austronesian languages
+ mar mr Marathi
+ mas Masai
+ may/msa ms Malay
+ mdf Moksha
+ mdr Mandar
+ men Mende
+ mga Irish, Middle (900-1200)
+ mic Mi''kmaq; Micmac
+ min Minangkabau
+ mis Uncoded languages
+ mkh Mon-Khmer languages
+ mlg mg Malagasy
+ mlt mt Maltese
+ mnc Manchu
+ mni Manipuri
+ mno Manobo languages
+ moh Mohawk
+ mon mn Mongolian
+ mos Mossi
+ mul Multiple languages
+ mun Munda languages
+ mus Creek
+ mwl Mirandese
+ mwr Marwari
+ myn Mayan languages
+ myv Erzya
+ nah Nahuatl languages
+ nai North American Indian languages
+ nap Neapolitan
+ nau na Nauru
+ nav nv Navajo; Navaho
+ nbl nr Ndebele, South; South Ndebele
+ nde nd Ndebele, North; North Ndebele
+ ndo ng Ndonga
+ nds Low German; Low Saxon; German, Low; Saxon, Low
+ nep ne Nepali
+ new Nepal Bhasa; Newari
+ nia Nias
+ nic Niger-Kordofanian languages
+ niu Niuean
+ nno nn Norwegian Nynorsk; Nynorsk, Norwegian
+ nob nb Bokmal, Norwegian; Norwegian Bokmal
+ nog Nogai
+ non Norse, Old
+ nor no Norwegian
+ nqo N''Ko
+ nso Pedi; Sepedi; Northern Sotho
+ nub Nubian languages
+ nwc Classical Newari; Old Newari; Classical Nepal Bhasa
+ nya ny Chichewa; Chewa; Nyanja
+ nym Nyamwezi
+ nyn Nyankole
+ nyo Nyoro
+ nzi Nzima
+ oci oc Occitan (post 1500)
+ oji oj Ojibwa
+ ori or Oriya
+ orm om Oromo
+ osa Osage
+ oss os Ossetian; Ossetic
+ ota Turkish, Ottoman (1500-1928)
+ oto Otomian languages
+ paa Papuan languages
+ pag Pangasinan
+ pal Pahlavi
+ pam Pampanga; Kapampangan
+ pan pa Panjabi; Punjabi
+ pap Papiamento
+ pau Palauan
+ peo Persian, Old (ca.600-400 B.C.)
+ per/fas fa Persian
+ phi Philippine languages)
+ phn Phoenician
+ pli pi Pali
+ pol pl Polish
+ pon Pohnpeian
+ por pt Portuguese
+ pra Prakrit languages
+ pro Provencal, Old (to 1500);Occitan, Old (to 1500)
+ pus ps Pushto; Pashto
+ qaa-qtz Reserved for local use
+ que qu Quechua
+ raj Rajasthani
+ rap Rapanui
+ rar Rarotongan; Cook Islands Maori
+ roa Romance languages
+ roh rm Romansh
+ rom Romany
+ rum/ron ro Romanian; Moldavian; Moldovan
+ run rn Rundi
+ rup Aromanian; Arumanian; Macedo-Romanian
+ rus ru Russian
+ sad Sandawe
+ sag sg Sango
+ sah Yakut
+ sai South American Indian languages
+ sal Salishan languages
+ sam Samaritan Aramaic
+ san sa Sanskrit
+ sas Sasak
+ sat Santali
+ scn Sicilian
+ sco Scots
+ sel Selkup
+ sem Semitic languages
+ sga Irish, Old (to 900)
+ sgn Sign Languages
+ shn Shan
+ sid Sidamo
+ sin si Sinhala; Sinhalese
+ sio Siouan languages
+ sit Sino-Tibetan languages
+ sla Slavic languages
+ slo/slk sk Slovak
+ slv sl Slovenian
+ sma Southern Sami
+ sme se Northern Sami
+ smi Sami languages
+ smj Lule Sami
+ smn Inari Sami
+ smo sm Samoan
+ sms Skolt Sami
+ sna sn Shona
+ snd sd Sindhi
+ snk Soninke
+ sog Sogdian
+ som so Somali
+ son Songhai languages
+ sot st Sotho, Southern
+ spa es Spanish; Castilian
+ srd sc Sardinian
+ srn Sranan Tongo
+ srp sr Serbian
+ srr Serer
+ ssa Nilo-Saharan languages
+ ssw ss Swati
+ suk Sukuma
+ sun su Sundanese
+ sus Susu
+ sux Sumerian
+ swa sw Swahili
+ swe sv Swedish
+ syc Classical Syriac
+ syr Syriac
+ tah ty Tahitian
+ tai Tai languages
+ tam ta Tamil
+ tat tt Tatar
+ tel te Telugu
+ tem Timne
+ ter Tereno
+ tet Tetum
+ tgk tg Tajik
+ tgl tl Tagalog
+ tha th Thai
+ tib/bod bo Tibetan
+ tig Tigre
+ tir ti Tigrinya
+ tiv Tiv
+ tkl Tokelau
+ tlh Klingon; tlhIngan-Hol
+ tli Tlingit
+ tmh Tamashek
+ tog Tonga (Nyasa)
+ ton to Tonga (Tonga Islands)
+ tpi Tok Pisin
+ tsi Tsimshian
+ tsn tn Tswana
+ tso ts Tsonga
+ tuk tk Turkmen
+ tum Tumbuka
+ tup Tupi languages
+ tur tr Turkish
+ tut Altaic languages
+ tvl Tuvalu
+ twi tw Twi
+ tyv Tuvinian
+ udm Udmurt
+ uga Ugaritic
+ uig ug Uighur; Uyghur
+ ukr uk Ukrainian
+ umb Umbundu
+ und Undetermined
+ urd ur Urdu
+ uzb uz Uzbek
+ vai Vai
+ ven ve Venda
+ vie vi Vietnamese
+ vol vo Volapuk
+ vot Votic
+ wak Wakashan languages
+ wal Wolaitta; Wolaytta
+ war Waray
+ was Washo
+ wel/cym cy Welsh
+ wen Sorbian languages
+ wln wa Walloon
+ wol wo Wolof
+ xal Kalmyk; Oirat
+ xho xh Xhosa
+ yao Yao
+ yap Yapese
+ yid yi Yiddish
+ yor yo Yoruba
+ ypk Yupik languages
+ zap Zapotec
+ zbl Blissymbols; Blissymbolics; Bliss
+ zen Zenaga
+ zha za Zhuang; Chuang
+ znd Zande languages
+ zul zu Zulu
+ zun Zuni
+ zxx No linguistic content; Not applicable
+ zza Zaza; Dimili; Dimli; Kirdki; Kirmanjki; Zazaki'!
Item was added:
+ ----- Method: Locale class>>isoLanguage: (in category 'accessing') -----
+ isoLanguage: isoLanguage
+ ^self isoLanguage: isoLanguage isoCountry: nil!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: NaturalLanguageTranslator class>>resetCaches (in category 'class initialization') -----
+ resetCaches
+ Translators := nil.!
Item was added:
+ ----- Method: Locale>>primDigitGrouping (in category 'system primitives') -----
+ primDigitGrouping
+ "Returns string with e.g. '.' or ',' (thousands etc)"
+ <primitive:'primitiveDigitGroupingSymbol' module: 'LocalePlugin'>
+ ^','!
Item was added:
+ ----- Method: Locale>>primLongDateFormat (in category 'system primitives') -----
+ primLongDateFormat
+ "Returns the long date format
+ d day, m month, y year,
+ double symbol is null padded, single not padded (m=6, mm=06)
+ dddd weekday
+ mmmm month name"
+ <primitive:'primitiveLongDateFormat' module: 'LocalePlugin'>
+ ^'dddd, mmmm d, yyyy'!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>initializeJapaneseBitmap (in category 'as yet unclassified') -----
+ initializeJapaneseBitmap
+
+ (self localeID: (LocaleID isoString: 'ja')) name: 'LanguageNameInNativeLanguage' form: self bitmapForJapanese.
+ !
Item was added:
+ ----- Method: InternalTranslator>>loadFromFileNamed: (in category 'private store-retrieve') -----
+ loadFromFileNamed: fileNameString
+ "Load translations from an external file"
+
+ | stream |
+ [stream := FileStream readOnlyFileNamed: fileNameString.
+ self loadFromStream: stream]
+ ensure: [stream close].
+ self changed: #translations.
+ self changed: #untranslated.
+ !
Item was added:
+ ----- Method: Locale class>>platformEncodings (in category 'class initialization') -----
+ platformEncodings
+ PlatformEncodings isEmptyOrNil ifTrue: [ self initializePlatformEncodings ].
+ ^PlatformEncodings
+ !
Item was added:
+ ----- Method: NaturalLanguageFormTranslator>>translate: (in category 'utilities') -----
+ translate: aString
+
+ ^ (self generics
+ at: aString ifAbsent: [nil]) deepCopy.
+
+ "Do you like to write 'form ifNotNil: [form deepCopy]'?"
+ !
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso3LanguageDefinition: (in category 'accessing') -----
+ iso3LanguageDefinition: aString
+ ^self iso3LanguageTable at: aString!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>extraCountryDefinitions (in category 'private') -----
+ extraCountryDefinitions
+ ^{
+ {'Kids'. 'KIDS'. 'KIDS'.}.
+ }!
Item was added:
+ ----- Method: InternalTranslator classSide>>services (in category 'file-services') -----
+ services
+ "Answer potential file services associated with this class"
+ ^ {self serviceMergeLanguageTranslations}!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>atRandom (in category 'accessing') -----
+ atRandom
+
+ self subclassResponsibility.
+ !
Item was added:
+ ----- Method: Locale class>>clipboadInterpreter (in category 'accessing') -----
+ clipboadInterpreter
+ ^NoConversionClipboardInterpreter new!
Item was added:
+ ----- Method: LocaleID>>displayCountry (in category 'accessing') -----
+ displayCountry
+ ^(ISOLanguageDefinition iso2Countries at: self isoCountry asUppercase ifAbsent: [ self isoCountry ]) !
Item was added:
+ ----- Method: InternalTranslator>>generics (in category 'private') -----
+ generics
+ ^generics ifNil: [generics := Dictionary new]!
Item was added:
+ ----- Method: InternalTranslator classSide>>cachedTranslations (in category 'private') -----
+ cachedTranslations
+ "CachedTranslations := nil"
+ ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was added:
+ ----- Method: LocaleID class>>current (in category 'accessing') -----
+ current
+ ^Locale current localeID!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>current (in category 'accessing') -----
+ current
+ ^ self availableForLocaleID: LocaleID current!
Item was added:
+ ----- Method: Locale class>>currentPlatform (in category 'accessing') -----
+ currentPlatform
+ "CurrentPlatform := nil"
+ CurrentPlatform ifNil: [CurrentPlatform := self determineCurrentLocale].
+ ^CurrentPlatform!
Item was added:
+ ----- Method: InternalTranslator>>removeTranslationFor: (in category 'translation') -----
+ removeTranslationFor: phraseString
+ self generics removeKey: phraseString ifAbsent: [].
+ self changed: #translations.
+ self changed: #untranslated.!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: Locale>>localeID: (in category 'accessing') -----
+ localeID: anID
+ id := anID!
Item was added:
+ ----- Method: Locale>>primCurrencySymbol (in category 'system primitives') -----
+ primCurrencySymbol
+ "Returns string with currency symbol"
+ <primitive: 'primitiveCurrencySymbol' module:'LocalePlugin'>
+ ^'$'!
Item was added:
+ ----- Method: InternalTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
+ scanFrom: aStream
+ "Read a definition of dictionary.
+ Make sure current locale corresponds my locale id"
+ | aString newTranslations assoc currentPlatform |
+ newTranslations := Dictionary new.
+ currentPlatform := Locale currentPlatform.
+ [Locale
+ currentPlatform: (Locale localeID: id).
+ [aString := aStream nextChunk withSqueakLineEndings.
+ aString size > 0]
+ whileTrue: [assoc := Compiler evaluate: aString.
+ assoc value = ''
+ ifTrue: [self class registerPhrase: assoc key]
+ ifFalse: [newTranslations add: assoc]]]
+ ensure: [Locale currentPlatform: currentPlatform].
+ self mergeTranslations: newTranslations!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>printOn: (in category 'printing') -----
+ printOn: aStream
+ aStream nextPutAll: self class name; nextPut: $(; print: self localeID; nextPut: $)!
Item was added:
+ ----- Method: LocaleID>>printOn: (in category 'printing') -----
+ printOn: stream
+ "<language>-<country>"
+ stream nextPutAll: self isoLanguage.
+ self isoCountry
+ ifNotNil: [stream nextPut: $-; nextPutAll: self isoCountry]!
Item was added:
+ ----- Method: Locale class>>isoLocale: (in category 'accessing') -----
+ isoLocale: aString
+ !
Item was added:
+ ----- Method: ISOLanguageDefinition>>iso3: (in category 'initialize') -----
+ iso3: aString
+ iso3 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>setCurrent (in category 'language switching') -----
+ setCurrent
+ "notify locale of the translator become current"
+ !
Item was added:
+ ----- Method: InternalTranslator classSide>>newLocaleID: (in category 'accessing') -----
+ newLocaleID: localeID
+ ^ self cachedTranslations
+ at: localeID
+ ifAbsentPut: [self new localeID: localeID]!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>extraISO3Definitions (in category 'private') -----
+ extraISO3Definitions
+
+ ^self readISOLanguagesFrom: 'jpk Japanese (Kids)
+ ' readStream!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>translate:inDomain: (in category 'translation') -----
+ translate: aString inDomain: aDomainName
+ ^ aString!
Item was added:
+ Object subclass: #NaturalLanguageFormTranslator
+ instanceVariableNames: 'id generics'
+ classVariableNames: 'CachedTranslations'
+ poolDictionaries: ''
+ category: 'System-Localization'!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>translators (in category 'accessing') -----
+ translators
+ ^ Translators ifNil: [Translators := Dictionary new] !
Item was added:
+ ----- Method: Locale class>>currentPlatform:during: (in category 'accessing') -----
+ currentPlatform: locale during: aBlock
+ "Alter current language platform during a block"
+ | backupPlatform |
+ backupPlatform := self currentPlatform.
+ [self currentPlatform: locale.
+ aBlock value]
+ ensure: [self currentPlatform: backupPlatform]!
Item was added:
+ ----- Method: InternalTranslator classSide>>mergeTranslationFileNamed: (in category 'file-services') -----
+ mergeTranslationFileNamed: fileFullNameString
+ "merge the translation in the file named fileFullNameString"
+
+ | stream localeID translator |
+ stream := FileStream readOnlyFileNamed: fileFullNameString.
+ [localeID := LocaleID isoString: stream localName sansPeriodSuffix.
+ translator := self localeID: localeID.
+ translator loadFromStream: stream]
+ ensure: [stream close].
+ LanguageEnvironment resetKnownEnvironments.
+
+ !
Item was added:
+ ----- Method: InternalTranslator>>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]!
Item was added:
+ ----- Method: InternalTranslator classSide>>mergeLegacyTranslators (in category 'accessing') -----
+ mergeLegacyTranslators
+ self availableLanguageLocaleIDs
+ do: [:localeID | (NaturalLanguageTranslator translators includesKey: localeID)
+ ifFalse: [NaturalLanguageTranslator translators
+ at: localeID
+ put: (self newLocaleID: localeID)]]!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>buildIso3166CodesTables (in category 'private') -----
+ buildIso3166CodesTables
+ "ISOLanguageDefinition buildIso3166CodesTables"
+ | rawdata stream country isoa2 isoa3 unNumeric macName macCode windowsName windowsCode empty table |
+ rawdata := self iso3166Codes.
+ table := OrderedCollection new: 200.
+ stream := rawdata readStream.
+ empty := 160 asCharacter asString.
+ [stream atEnd] whileFalse:
+ [country := stream nextLine.
+ isoa2 := stream nextLine.
+ isoa3 := stream nextLine.
+ unNumeric := stream nextLine.
+ windowsName := stream nextLine.
+ windowsName = empty ifTrue: [windowsName := nil].
+ windowsCode := stream nextLine.
+ windowsCode = empty ifTrue: [windowsCode := nil].
+ macName := stream nextLine.
+ macName = empty ifTrue: [macName := nil].
+ macCode := stream nextLine.
+ macCode = empty ifTrue: [macCode := nil].
+ table add: { country. isoa2. isoa3. unNumeric. windowsName. windowsCode. macName. macCode. }].
+ ^table!
Item was added:
+ ----- Method: InternalTranslator>>untranslated (in category 'accessing') -----
+ untranslated
+ | translations |
+ translations := self translations.
+ ^self class allKnownPhrases reject: [:each | translations includesKey: each]!
Item was added:
+ ----- Method: InternalTranslator classSide>>resetCaches (in category 'class initialization') -----
+ resetCaches
+ CachedTranslations := nil.
+ !
Item was added:
+ ----- Method: Locale class>>switchToID: (in category 'accessing') -----
+ switchToID: localeID
+ "Locale switchToID: (LocaleID isoLanguage: 'de') "
+
+ self switchTo: (Locale localeID: localeID)!
Item was added:
+ ----- Method: LocaleID>>displayName (in category 'accessing') -----
+ displayName
+ "Answer a proper name to represent the receiver in GUI.
+
+ The wording is provided by translations of the magic value
+ '<language display name>'.
+
+ 'English' -> 'English'
+ 'German' -> 'Deutsch'
+ "
+ | magicPhrase translatedMagicPhrase |
+ magicPhrase := '<language display name>'.
+ translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self.
+ ^ translatedMagicPhrase = magicPhrase
+ ifTrue: [self displayLanguage]
+ ifFalse: [translatedMagicPhrase]!
Item was added:
+ ----- Method: NaturalLanguageTranslator>>domainRegistered: (in category 'accessing') -----
+ domainRegistered: aDomainName
+ "notify that new TextDomain is registered. Concrete subclass can responds to this event if needed"!
Item was added:
+ ----- Method: InternalTranslator>>rawRemoveUntranslated: (in category 'translation') -----
+ rawRemoveUntranslated: untranslated
+
+ self class allKnownPhrases removeKey: untranslated ifAbsent: [].
+ self changed: #untranslated.!
Item was added:
+ ----- Method: LocaleID class>>isoLanguage: (in category 'instance creation') -----
+ isoLanguage: langString
+ ^self isoLanguage: langString isoCountry: nil!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>isoLanguage:isoCountry: (in category 'accessing') -----
+ isoLanguage: isoLanguage isoCountry: isoCountry
+ ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was added:
+ ----- Method: Locale>>primDecimalSymbol (in category 'system primitives') -----
+ primDecimalSymbol
+ "Returns string with e.g. '.' or ','"
+ <primitive:'primitiveDecimalSymbol' module: 'LocalePlugin'>
+ ^'.'!
Item was added:
+ ----- Method: LocaleID>>isoLanguage:isoCountry: (in category 'initialize') -----
+ isoLanguage: langString isoCountry: countryStringOrNil
+ isoLanguage := langString.
+ isoCountry := countryStringOrNil!
Item was added:
+ ----- Method: InternalTranslator classSide>>discardAllTranslations (in category 'class initialization') -----
+ discardAllTranslations
+ AllKnownPhrases := nil.
+ self resetCaches.!
Item was added:
+ ----- Method: InternalTranslator>>atRandom (in category 'accessing') -----
+ atRandom
+
+ ^ generics atRandom value.
+ !
Item was added:
+ ----- Method: InternalTranslator>>checkPhrase:translation: (in category 'translation') -----
+ checkPhrase: phrase translation: translation!
Item was added:
+ ----- Method: InternalTranslator>>defaultBackgroundColor (in category 'user interface') -----
+ defaultBackgroundColor
+ "answer the receiver's defaultBackgroundColor for views"
+ ^ Color cyan!
Item was added:
+ ----- Method: LocaleID>>storeOn: (in category 'printing') -----
+ storeOn: aStream
+ aStream nextPut: $(.
+ aStream nextPutAll: self class name.
+ aStream nextPutAll: ' isoString: '.
+ aStream nextPutAll: '''' , self printString , ''''.
+ aStream nextPut: $).
+ !
Item was added:
+ ----- Method: InternalTranslator classSide>>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 newLocaleID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry).
+
+ self loadExternalTranslationsFor: translator!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 added:
+ ----- Method: LocaleID>>hasParent (in category 'testing') -----
+ hasParent
+ ^self isoCountry notNil!
Item was added:
+ ----- Method: InternalTranslator classSide>>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 := langDirName directoryNamed: countryDirName.
+ (countryDir fileNamesMatching: '*.' , self translationSuffix)
+ ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName]
+ ]
+ ].
+ !
Item was added:
+ ----- Method: Locale class>>initialize (in category 'class initialization') -----
+ initialize
+ "Locale initialize"
+
+ Smalltalk addToStartUpList: Locale.
+ Preferences addPreference: #useLocale
+ categories: #('general') default: false
+ balloonHelp: 'Use the system locale to set the system language etc at startup'.!
Item was added:
+ ----- Method: ISOLanguageDefinition class>>iso3LanguageTable (in category 'private') -----
+ iso3LanguageTable
+ "ISOLanguageDefinition iso3LanguageTable"
+
+ ^ISO3Table ifNil: [ISO3Table := self initISO3LanguageTable]!
Item was added:
+ ----- Method: Locale class>>migrateSystem (in category 'private') -----
+ migrateSystem
+ "Locale migrateSystem"
+ "Do all the necessary operations to switch to the new Locale environment."
+
+ LocaleChangeListeners _ nil.
+ self
+ addLocalChangedListener: HandMorph;
+ addLocalChangedListener: Clipboard;
+ addLocalChangedListener: Vocabulary;
+ addLocalChangedListener: PartsBin;
+ addLocalChangedListener: Project;
+ addLocalChangedListener: PaintBoxMorph;
+ yourself!
Item was added:
+ ----- Method: NaturalLanguageTranslator class>>domainUnregistered: (in category 'accessing') -----
+ domainUnregistered: aDomainName
+ "notify that new TextDomain is unregistered"
+ self translators do: [:each | each domainUnregistered: aDomainName]!
Item was added:
+ ----- Method: NaturalLanguageFormTranslator class>>localeID: (in category 'accessing') -----
+ localeID: localeID
+ ^ self cachedTranslations
+ at: localeID
+ ifAbsentPut: [self new localeID: localeID]!
Item was added:
+ ----- 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).
+ pair second associationsDo: [:assoc |
+ inst name: assoc key form: assoc value.
+ ].
+ ^ inst.
+ !
1
0
Hi, I don't know if you notice the same error but every time I click "update
from server" I get a DNU. I clicked "Abandon" and I think the update
finished ok. I don't know how to fix this and I'm not sure of the
consequences of clicking "Abandon".
I attach the log file, maybe that helps. Thanks
Richo
3
3
Bert Freudenberg uploaded a new version of Collections to project Etoys:
http://source.squeak.org/etoys/Collections-bf.7.mcz
==================== Summary ====================
Name: Collections-bf.7
Author: bf
Time: 24 May 2010, 3:38:49 am
UUID: edc52a80-1dda-4f74-bd24-d43771cf6cf5
Ancestors: Collections-Richo.6
- revert Dictionary>>at:ifAbsentPut: to its non-optimized but correct version (fixes DNU when updating)
=============== Diff against Collections-Richo.6 ===============
Item was changed:
----- Method: Dictionary>>at:ifAbsentPut: (in category 'accessing') -----
at: key ifAbsentPut: aBlock
"Return the value at the given key.
If key is not included in the receiver store the result
of evaluating aBlock as new value."
+ ^ self at: key ifAbsent: [self at: key put: aBlock value]!
- | assoc index value |
- index := self findElementOrNil: key.
- assoc := array at: index.
- ^assoc
- ifNil: [ value := aBlock value.
- self atNewIndex: index put: (Association key: key value: value). value]
- ifNotNil: [assoc value].
-
- " optimized version of:
- ^ self at: key ifAbsent: [self at: key put: aBlock value]
- "!
1
0
A new version of MorphicExtras was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/MorphicExtras-Richo.2.mcz
==================== Summary ====================
Name: MorphicExtras-Richo.2
Author: Richo
Time: 23 May 2010, 6:01:41 pm
UUID: 323f82c7-946f-0c42-a622-b63bb86279ff
Ancestors: MorphicExtras-bf.1
* The unregister flaps quads error appeared again.
(see http://lists.squeakland.org/pipermail/etoys-dev/2010-May/004658.html).
This is not the best fix but at least it lets you finish the update.
=============== Diff against MorphicExtras-bf.1 ===============
Item was changed:
----- Method: Flaps class>>unregisterQuadsWithReceiver: (in category 'flaps registry') -----
unregisterQuadsWithReceiver: aReceiver
"delete all quads with receiver aReceiver."
self registeredFlapsQuads
do: [:assoc | assoc value
+ removeAllSuchThat: [:q | (self environment at: (q first) ifAbsent: [nil]) = aReceiver ]]!
- removeAllSuchThat: [:q | (self environment at: (q first)) = aReceiver ]]!
1
0
A new version of Etoys was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Etoys-Richo.11.mcz
==================== Summary ====================
Name: Etoys-Richo.11
Author: Richo
Time: 23 May 2010, 5:51:48 pm
UUID: 1d2477ad-1e0d-454b-aeba-bdb98135a4b3
Ancestors: Etoys-Richo.10
* Textual scripts wasn't working because CompiledMethod>>#decompileString is broken for some cases (I don't know why). Now #decompileString is still broken but textual scripts work.
=============== Diff against Etoys-Richo.10 ===============
Item was changed:
----- Method: UniclassScript>>becomeTextuallyCoded (in category 'textually coded') -----
becomeTextuallyCoded
"Transform the receiver into one which is textually coded"
isTextuallyCoded _ true.
+ lastSourceString _ (playerClass sourceCodeAt: selector) "Save this to compare when going back to tiles"!
- lastSourceString _ (playerClass compiledMethodAt: selector) decompileString "Save this to compare when going back to tiles"!
Item was changed:
----- Method: ScriptEditorMorph>>toggleWhetherShowingTiles (in category 'other') -----
toggleWhetherShowingTiles
"Toggle between showing the method pane and showing the tiles pane"
self showingMethodPane
ifFalse: "currently showing tiles"
[self showSourceInScriptor]
ifTrue: "current showing textual source"
[Preferences universalTiles
ifTrue: [^ self revertToTileVersion].
self savedTileVersionsCount >= 1
ifTrue:
+ [(self userScriptObject lastSourceString = (playerScripted class sourceCodeAt: scriptName))
- [(self userScriptObject lastSourceString = (playerScripted class compiledMethodAt: scriptName) decompileString)
ifFalse:
[(self confirm:
'Caution -- this script was changed
textually; if you revert to tiles at this
point you will lose all the changes you
may have made textually. Do you
really want to do this?' translated) ifFalse: [^ self]].
self revertToTileVersion]
ifFalse:
[Beeper beep]]!
1
0
A new version of System was added to project Etoys:
http://source.squeak.org/etoys/System-Richo.15.mcz
==================== Summary ====================
Name: System-Richo.15
Author: Richo
Time: 22 May 2010, 4:29:40 pm
UUID: 284d8c27-cab8-da47-ac52-cb60cb98acbf
Ancestors: System-Richo.14
* Removed some of the stuff that now belongs to GetText package
=============== Diff against System-Richo.14 ===============
Item was changed:
SystemOrganization addCategory: #'System-Applications'!
- SystemOrganization addCategory: #'System-Archives'!
SystemOrganization addCategory: #'System-Change Notification'!
+ SystemOrganization addCategory: #'System-Changes'!
+ SystemOrganization addCategory: #'System-Clipboard-Extended'!
SystemOrganization addCategory: #'System-Compiler'!
- SystemOrganization addCategory: #'System-Compression'!
SystemOrganization addCategory: #'System-Digital Signatures'!
SystemOrganization addCategory: #'System-Download'!
SystemOrganization addCategory: #'System-Environments'!
- SystemOrganization addCategory: #'System-Exceptions Extensions'!
SystemOrganization addCategory: #'System-Exceptions Kernel'!
+ SystemOrganization addCategory: #'System-FilePackage'!
+ SystemOrganization addCategory: #'System-FileRegistry'!
- SystemOrganization addCategory: #'System-Files'!
SystemOrganization addCategory: #'System-Finalization'!
- SystemOrganization addCategory: #'System-Localization'!
SystemOrganization addCategory: #'System-Object Events'!
SystemOrganization addCategory: #'System-Object Storage'!
SystemOrganization addCategory: #'System-Pools'!
+ SystemOrganization addCategory: #'System-Preferences'!
SystemOrganization addCategory: #'System-Serial Port'!
SystemOrganization addCategory: #'System-Support'!
- SystemOrganization addCategory: #'System-Clipboard-Extended'!
SystemOrganization addCategory: #'System-Tools'!
- SystemOrganization addCategory: #'System-Changes'!
- SystemOrganization addCategory: #'System-FilePackage'!
- SystemOrganization addCategory: #'System-FileRegistry'!
- SystemOrganization addCategory: #'System-Preferences'!
Item was changed:
----- Method: Project>>chooseNaturalLanguage (in category 'language') -----
chooseNaturalLanguage
"Put up a menu allowing the user to choose the natural language for the project"
| aMenu availableLanguages item |
Cursor wait showWhile: [
aMenu _ MenuMorph new defaultTarget: self.
aMenu addTitle: 'choose language' translated.
aMenu lastItem setBalloonText: 'This controls the human language in which tiles should be viewed. It is potentially extensible to be a true localization mechanism, but initially it only works in the classic tile scripting system. Each project has its own private language choice' translated.
Preferences noviceMode
ifFalse:[aMenu addStayUpItem.
].
Preferences eToyFriendly
ifFalse:[aMenu addUpdating: #useLocaleString action: #toggleUseLocale.
aMenu addLine].
availableLanguages := NaturalLanguageTranslator availableLanguageLocaleIDs
asSortedCollection:[:x :y | x displayName < y displayName].
availableLanguages do:
[:localeID |
item _ aMenu addUpdating: #stringForLanguageNameIs: target: Locale selector: #switchAndInstallFontToID:gently: argumentList: {localeID. true} extraIcon: (Locale localeID: localeID) iconForNativeLanguage.
item wordingArgument: localeID.].
].
aMenu popUpInWorld
"Project current chooseNaturalLanguage"!
Item was removed:
- ----- 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.
- strm_ FileStream readOnlyFileNamed: aFileName.
- fileName _ aFileName.
- [
- self loadHeader: strm.
- originalTable _ self loadStringPointers: strm
- offset: originalTableOffset.
-
- originalStrings _ self loadStrings: strm
- pointers: originalTable.
-
- translatedTable _ self loadStringPointers: strm
- offset: translatedTableOffset.
-
- translatedStrings _ self loadStrings: strm
- pointers: translatedTable
- encoding: 'utf8'
- languageEnvironment: (Locale localeID: localeID) languageEnvironment .
-
- translations _ Dictionary new.
- 1 to: nStrings do: [:index |
- | key |
- key _ originalStrings at: index.
- translations at: key put: index.
- ].
- originalTable _ nil.
- ] ensure: [strm close].!
Item was removed:
- ----- Method: InternalTranslator>>translate:inDomain: (in category 'translation') -----
- translate: aString inDomain: aDomainName
- | translator |
- ^ self generics
- at: aString
- ifAbsent: [self localeID hasParent
- ifTrue: [translator := self class cachedTranslations
- at: self localeID parent
- ifAbsent: [^ aString].
- translator translate: aString inDomain: aDomainName]
- ifFalse: [aString]]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID: (in category 'initialize-release') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: Locale class>>switchAndInstallFontToID:gently: (in category 'accessing') -----
- switchAndInstallFontToID: localeID gently: gentlyFlag
-
- | locale result env envFound ret fontInImage menu |
- "Assumption: Rainbow => can try Pango"
- "Logic:
- - in Sugar, we don't bother asking any questions, and we don't bother automatically loading fonts.
- in Sugar, and if the font is available, use the font.
- in Sugar, and if the font is not in the image, try to enable Pango.
- - if the previous step fails, notify the user that you cannot switch to the language.
- - not in Rainbow,
- - if the font is in the image, use the font.
- - if the font is not in the image,
- - ask to choose:
- - load font
- - try to enable pango, if pango is available
- - or cancel.
- - if the previous step fails, notify the user that you cannot switch to the language.
- Details:
- - how to check non-pango font is available:
- - if the language environment for the locale doesn't exist, the font is not available.
- - if font loading fails, it is not available.
- - how to check if the language environment doesn't exist:
- - if the locales languageEnvironment is Latin1 but the locale isn't it is not available.
- "
- locale := Locale localeID: localeID.
- env := locale languageEnvironment.
- result := true.
- envFound := (Latin1Environment supportedLanguages includes: locale isoLanguage) or: [(env isMemberOf: Latin1Environment) not].
- fontInImage := envFound and: [env isFontAvailable].
- SugarLauncher isRunningInSugar ifTrue: [
- fontInImage ifFalse: [
- "font is not available in the image. Even don't ask for font installation."
- Cursor wait showWhile: [
- Preferences setPreference: #usePangoRenderer toValue: true.
- TextMorph usePango: true]].
- ] ifFalse: [
- fontInImage ifFalse: [
- menu := MenuMorph new.
- menu defaultTarget: menu.
- envFound ifTrue: [menu add: 'load font' translated selector: #modalSelection: argument: #loadFont].
- RomePluginCanvas pangoIsAvailable ifTrue: [menu add: 'enable Pango' translated selector: #modalSelection: argument: #enablePango].
- menu add: 'cancel' translated selector: #modalSelection: argument: #cancel.
- menu addTitle: 'This language needs additional fonts.
- Do you want to install the fonts?' translated.
- ret := menu invokeModal.
- ret = #loadFont ifTrue: [result := env installFont. result ifTrue: [StrikeFont setupDefaultFallbackTextStyle]].
- ret = #enablePango ifTrue: [
- (result := RomePluginCanvas pangoIsAvailable) ifTrue: [
- Cursor wait showWhile: [
- Preferences setPreference: #usePangoRenderer toValue: true.
- TextMorph usePango: true]]].
- (ret ~~ #loadFont and: [ret ~~ #enablePango]) ifTrue: [result := false]]].
-
- result ifFalse: [self inform: 'Cannot load additional fonts' translated] ifTrue: [self switchTo: locale gently: gentlyFlag].
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>privateStartUp (in category 'class initialization') -----
- privateStartUp
- self resetCaches.
- GetTextTranslator privateStartUp.
- InternalTranslator privateStartUp.
- self localeChanged.!
Item was removed:
- ----- Method: GetTextTranslator classSide>>systemDefaultLocaleDirs (in category 'translation data layout') -----
- systemDefaultLocaleDirs
- ^SystemDefaultLocaleDirs ifNil: [SystemDefaultLocaleDirs := OrderedCollection new]
- !
Item was removed:
- ----- Method: GetTextTranslator>>atRandom (in category 'accessing') -----
- atRandom
-
- | v |
- moFiles ifEmpty: [^ ''].
- (v := moFiles atRandom value) ifNil: [^ ''].
- ^ v atRandom.
- !
Item was removed:
- ----- Method: InternalTranslator>>rawPhrase:translation: (in category 'translation') -----
- rawPhrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- !
Item was removed:
- Object subclass: #Locale
- instanceVariableNames: 'id shortDate longDate time decimalSymbol digitGrouping currencySymbol currencyNotation measurement offsetLocalToUTC offsetVMToUTC dstActive'
- classVariableNames: 'Current CurrentPlatform KnownLocales LanguageSymbols LocaleChangeListeners PlatformEncodings Previous'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !Locale commentStamp: '<historical>' prior: 0!
- Main comment stating the purpose of this class and relevant relationship to other classes.
-
-
-
- http://www.w3.org/WAI/ER/IG/ert/iso639.htm
- http://www.oasis-open.org/cover/iso639a.html
- See also
- http://oss.software.ibm.com/cvs/icu/~checkout~/icuhtml/design/language_code…
- http://www.w3.org/Protocols/rfc2616/rfc2616-sec3.html#sec3.10
-
- ISO 3166
- http://mitglied.lycos.de/buran/knowhow/codes/locales/
- !
Item was removed:
- Object subclass: #LocaleID
- instanceVariableNames: 'isoLanguage isoCountry'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Localization'!
Item was removed:
- ----- Method: Locale>>primLanguage (in category 'system primitives') -----
- primLanguage
- "returns string with language tag according to ISO 639"
- <primitive:'primitiveLanguage' module: 'LocalePlugin'>
- ^'en'
-
- !
Item was removed:
- ----- Method: MOFile>>loadString:pointer:length: (in category 'private') -----
- loadString: strm pointer: top length: len
- | str |
- str _ ByteString new: len.
- strm position: top.
- strm nextInto: str.
- ^str replaceAll: Lf with: Cr.
- !
Item was removed:
- ----- Method: Locale>>iconForNativeLanguage (in category 'accessing') -----
- iconForNativeLanguage
-
- ^ (NaturalLanguageFormTranslator localeID: self localeID) translate: 'LanguageNameInNativeLanguage'.
- !
Item was removed:
- ----- Method: Locale class>>localeChangedGently (in category 'notification') -----
- localeChangedGently
-
- #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
- do: [:key | Smalltalk
- at: key
- ifPresent: [:class | class initialize]].
- PartsBin localeChangedGently.
- Project localeChangedGently.
- PaintBoxMorph localeChangedGently.
- ColorPickerMorph localeChangedGently.
- Preferences localeChangedGently.
- !
Item was removed:
- ----- Method: Locale>>isoLocale (in category 'accessing') -----
- isoLocale
- "<language>-<country>"
- ^self isoCountry
- ifNil: [self isoLanguage]
- ifNotNil: [self isoLanguage , '-' , self isoCountry]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- ----- Method: Locale>>primCurrencyNotation (in category 'system primitives') -----
- primCurrencyNotation
- "Returns boolean if symbol is pre- (true) or post-fix (false)"
- <primitive: 'primitiveCurrencyNotation' module: 'LocalePlugin'>
- ^true!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3Alternate: (in category 'initialize') -----
- iso3Alternate: aString
- iso3Alternate := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: MOFile>>translatedString: (in category 'private') -----
- translatedString: index
- "KNOWN PROBLEM: conversion is executed everytimes this method called"
- | str |
- str _ translatedStrings at: index.
-
- ^str utf8ToSqueak applyLanguageInfomation: (Locale localeID: localeID) languageEnvironment.
- !
Item was removed:
- ----- Method: GetTextTranslator>>setCurrent (in category 'language switching') -----
- setCurrent
- "ensure actual contents of MOs is loaded on switching language"
- self loadMOFiles!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>generics (in category 'accessing') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>cachedTranslations (in category 'accessing') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was removed:
(excessive method size, no diff calculated)
Item was removed:
- ----- Method: Locale>>isoCountry (in category 'accessing') -----
- isoCountry
- ^self localeID isoCountry!
Item was removed:
- ----- Method: Locale>>determineLocale (in category 'accessing') -----
- determineLocale
- self localeID: self determineLocaleID!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>isDomainLoaded: (in category 'accessing') -----
- isDomainLoaded: aDomainName
- "ask if translation dictionary for the domain has been loaded and available now for use"
- self subclassResponsibility.!
Item was removed:
- ----- Method: GetTextTranslator>>translate:inDomain: (in category 'translation') -----
- translate: aString inDomain: aDomainName
- | mo |
- mo _ self moFileForDomain: aDomainName.
- ^mo isNil
- ifTrue: [aString]
- ifFalse: [mo translationFor: aString]
- !
Item was removed:
- ----- Method: MOFile>>loadStrings:pointers: (in category 'private') -----
- loadStrings: strm pointers: table
- ^self loadStrings: strm pointers: table encoding: nil languageEnvironment: nil
- !
Item was removed:
- ----- Method: LocaleID>>displayLanguage (in category 'accessing') -----
- displayLanguage
- | language |
- language := (ISOLanguageDefinition iso2LanguageTable
- at: self isoLanguage
- ifAbsent: [^ self isoLanguage]) language.
- ^ self isoCountry
- ifNil: [language]
- ifNotNil: [language , ' (' , self displayCountry , ')']!
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: Locale class>>startUp: (in category 'system startUp') -----
- startUp: resuming
- | newID |
- resuming ifFalse: [^self].
- (Preferences valueOfFlag: #useLocale)
- ifTrue: [
- DateAndTime localTimeZone: (TimeZone
- offset: (Duration minutes: Locale current offsetLocalToUTC)
- name: 'Local Time'
- abbreviation: 'LT').
- newID := self current determineLocaleID.
- newID ~= LocaleID current
- ifTrue: [self switchAndInstallFontToID: newID gently: true]]!
Item was removed:
- ----- Method: TextDomainManager classSide>>allMethodsWithTranslations (in category 'accessing') -----
- allMethodsWithTranslations
- "Look for #translated calls"
- | methodsWithTranslations |
- methodsWithTranslations := TranslatedReceiverFinder new stringReceiversWithContext: #translated.
- methodsWithTranslations := methodsWithTranslations, (TranslatedReceiverFinder new
- stringReceiversWithContext: #translatedNoop).
-
- methodsWithTranslations := methodsWithTranslations collect: [:each | each key compiledMethod].
-
- "Look for Etoys tiles and vocabularies"
- methodsWithTranslations := methodsWithTranslations, (EToyVocabulary allPhrasesWithContextToTranslate collect: [:r |
- (MethodReference new setStandardClass: r second methodSymbol: r third) compiledMethod.
- ]).
-
- ^methodsWithTranslations!
Item was removed:
- ----- Method: LocaleID class>>posixName: (in category 'instance creation') -----
- posixName: aString
- ^ self
- isoString: (aString copyReplaceAll: '_' with: '-')!
Item was removed:
- ----- Method: LocaleID>>hash (in category 'comparing') -----
- hash
- ^self isoLanguage hash bitXor: self isoCountry hash!
Item was removed:
- ----- Method: InternalTranslator>>removeUntranslated: (in category 'translation') -----
- removeUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- !
Item was removed:
- ----- Method: GetTextTranslator classSide>>setupLocaleDirs (in category 'translation data layout') -----
- setupLocaleDirs
- | dirs sepa localesDirName |
- sepa := FileDirectory slash.
- SystemDefaultLocaleDirs := nil.
- dirs := self systemDefaultLocaleDirs.
- localesDirName := 'locale'.
- dirs add: (SmalltalkImage current imagePath) , sepa , localesDirName.
- dirs add: (SmalltalkImage current vmPath) , sepa , localesDirName.
- ^dirs!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initialize (in category 'class initialization') -----
- initialize
- "ISOLanguageDefinition initialize"
-
- ISO3Table := nil.
- ISO2Table := nil!
Item was removed:
- ----- Method: Locale>>primShortDateFormat (in category 'system primitives') -----
- primShortDateFormat
- "Returns the short date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveShortDateFormat' module: 'LocalePlugin'>
- ^'m/d/yy'!
Item was removed:
- NaturalLanguageTranslator subclass: #GetTextTranslator
- instanceVariableNames: 'moFiles'
- classVariableNames: 'LocaleDirsForDomain SystemDefaultLocaleDirs UserDefaultLocaleDirs'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !GetTextTranslator commentStamp: '<historical>' prior: 0!
- emulation of gettext runtime
- Known limitation:
- currently don't support prural form.
- !
Item was removed:
- NaturalLanguageTranslator subclass: #InternalTranslator
- instanceVariableNames: 'generics'
- classVariableNames: 'AllKnownPhrases CachedTranslations'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !InternalTranslator commentStamp: 'tak 10/19/2007 11:12' prior: 0!
- An InternalTranslator is used a translation dictionary in a image.
- You can use it without any external translation file.
-
- Structure:
- generics Dictionary -- msgid -> msgstr
- !
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>saveFormsOn: (in category 'i/o') -----
- saveFormsOn: aStream
-
- | rr |
- rr _ ReferenceStream on: aStream.
- rr nextPut: {id isoString. generics}.
- rr close.
- !
Item was removed:
- ----- Method: Locale class>>switchTo: (in category 'accessing') -----
- switchTo: locale
- self switchTo: locale gently: false.
- !
Item was removed:
- ----- 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.
- CurrentPlatform := Current := Locale localeID: availableID.
- NaturalLanguageTranslator localeChanged.
- gentlyFlag ifTrue: [self localeChangedGently] ifFalse: [self localeChanged]]!
Item was removed:
- ----- Method: GetTextTranslator>>domainRegistered: (in category 'accessing') -----
- domainRegistered: aDomainName
- "only current translator actually load the MO, to minimize loading time.
- other translator will load anyway when it goes current"
- (self class current == self)
- ifTrue: [self moFileForDomain: aDomainName].
- !
Item was removed:
- ----- Method: Locale>>primMeasurement (in category 'system primitives') -----
- primMeasurement
- "Returns boolean denoting metric(true) or imperial(false)."
- <primitive:'primitiveMeasurementMetric' module: 'LocalePlugin'>
- ^true
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>availableForLocaleID: (in category 'accessing') -----
- availableForLocaleID: localeID
- "Answer available locale ID.
- If translator is not found for correct locale ID, then isoLanguage is
- attempted for the key."
- ^ self translators
- at: localeID
- ifAbsent: [localeID hasParent
- ifTrue: [self translators
- at: localeID parent
- ifAbsent: [self default]]
- ifFalse: [self default]]!
Item was removed:
- ----- Method: TextDomainManager classSide>>domainForPackage: (in category 'accessing') -----
- domainForPackage: aPackageInfo
- "Package names and text domains are synonyms now"
- ^aPackageInfo name!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>initialize (in category 'class initialization') -----
- initialize
- Smalltalk addToStartUpList: NaturalLanguageTranslator after: FileDirectory.
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID:inDomain: (in category 'translation') -----
- translate: aString toLocaleID: localeID inDomain: aDomainName
- ^ (self availableForLocaleID: localeID)
- translate: aString inDomain: aDomainName!
Item was removed:
- ----- Method: Locale class>>localeChanged (in category 'notification') -----
- localeChanged
-
- #(#ParagraphEditor #BitEditor #FormEditor #StandardSystemController )
- do: [:key | Smalltalk
- at: key
- ifPresent: [:class | class initialize]].
- PartsBin localeChanged.
- Project localeChanged.
- PaintBoxMorph localeChanged.
- ColorPickerMorph localeChanged.
- Preferences localeChanged!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>default (in category 'accessing') -----
- default
- "Answer translator for backstop"
- "self default translate: 'test'"
- ^ self new
- localeID: (LocaleID isoLanguage: 'en')!
Item was removed:
- ----- Method: InternalTranslator classSide>>privateStartUp (in category 'class initialization') -----
- privateStartUp
- self loadAvailableExternalLocales.
- self mergeLegacyTranslators.
- !
Item was removed:
- ----- Method: Locale class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was removed:
- ----- 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]!
Item was removed:
- ----- Method: InternalTranslator classSide>>translationSuffix (in category 'private') -----
- translationSuffix
- ^'translation'!
Item was removed:
- ----- Method: MOFile>>loadHeader: (in category 'private') -----
- loadHeader: strm
- strm binary.
- magic _ strm uint32.
- magic = 16rDE120495
- ifTrue: [isLittleEndian _ true]
- ifFalse: [
- magic = 16r950412DE
- 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.
- !
Item was removed:
- ----- Method: Locale class>>initKnownLocales (in category 'private') -----
- initKnownLocales
- | locales |
- locales := Dictionary new.
-
- "Init the locales for which we have translations"
- InternalTranslator availableLanguageLocaleIDs do: [:id |
- locales at: id put: (Locale new localeID: id)].
- ^locales!
Item was removed:
- ----- Method: Locale>>fetchISOCountry (in category 'private') -----
- fetchISOCountry
- "Locale current fetchISOCountry"
- | countryCode |
- countryCode := self primCountry
- ifNil: [^ nil].
- ^ countryCode copyUpTo: 0 asCharacter!
Item was removed:
- ----- Method: Locale>>primDST (in category 'system primitives') -----
- primDST
- "Returns boolean if DST (daylight saving time) is active or not"
- <primitive:'primitiveDaylightSavings' module: 'LocalePlugin'>
- ^false!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate: (in category 'translation') -----
- translate: aString
- ^self translate: aString
- inDomain: TextDomainManager defaultDomain!
Item was removed:
- ----- Method: Locale class>>currentPlatform: (in category 'accessing') -----
- currentPlatform: locale
- CurrentPlatform := locale.
- LanguageEnvironment startUp.
- !
Item was removed:
- ----- Method: MOFile>>searchByDictionary: (in category 'public') -----
- searchByDictionary: aString
- | index |
- index _ translations at: aString ifAbsent: [^nil].
- ^self translatedString: index
-
- !
Item was removed:
- ----- Method: GetTextTranslator classSide>>setLocaleDir:forDoamin: (in category 'translation data layout') -----
- setLocaleDir: path forDoamin: aDomainName
- self LocaleDirsForDomain
- at: aDomainName
- put: path.!
Item was removed:
- ----- Method: MOFile classSide>>initialize (in category 'class initialization') -----
- initialize
- Cr := Character cr.
- Lf := Character lf.
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageDefinition: (in category 'accessing') -----
- iso2LanguageDefinition: aString
- ^self iso2LanguageTable at: aString!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translate:toLocaleID: (in category 'translation') -----
- translate: aString toLocaleID: localeID
- "translate for default domain"
- ^ (self availableForLocaleID: localeID)
- translate: aString!
Item was removed:
- ----- Method: LocaleID>>translator (in category 'accessing') -----
- translator
- ^ InternalTranslator localeID: self !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translateWithoutLoading:toLocaleID: (in category 'translation') -----
- translateWithoutLoading: aString toLocaleID: localeID
- "translate for default domain"
- ^self translateWithoutLoading: aString toLocaleID: localeID inDomain: TextDomainManager defaultDomain.
- !
Item was removed:
- ----- 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.
- 1 to: stringSize do: [:pos |
- 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.
- !
Item was removed:
- ----- Method: InternalTranslator>>isDomainLoaded: (in category 'accessing') -----
- isDomainLoaded: aDomainName
- ^true
- !
Item was removed:
- ----- Method: Locale>>fetchISO2Language (in category 'private') -----
- fetchISO2Language
- "Locale current fetchISO2Language"
- | lang isoLang |
- lang := self primLanguage.
- lang ifNil: [^nil].
- lang := lang copyUpTo: 0 asCharacter.
- lang size == 2
- ifTrue: [^lang].
- isoLang := ISOLanguageDefinition iso3LanguageDefinition: lang.
- ^isoLang
- ifNil: [nil]
- ifNotNil: [isoLang iso2]!
Item was removed:
- ----- Method: GetTextTranslator classSide>>localeDirsForDomain (in category 'private') -----
- localeDirsForDomain
- ^LocaleDirsForDomain ifNil: [LocaleDirsForDomain _ Dictionary new]!
Item was removed:
- ----- Method: InternalTranslator>>phrase:translation: (in category 'translation') -----
- phrase: phraseString translation: translationString
- self generics at: phraseString put: translationString asString.
- self changed: #translations.
- self changed: #untranslated.!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISO3LanguageTable (in category 'private') -----
- initISO3LanguageTable
- "ISOLanguageDefinition initIso3LanguageTable"
-
- | table |
- table := ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream.
- table addAll: self extraISO3Definitions.
- ^table!
Item was removed:
- ----- Method: GetTextTranslator classSide>>privateStartUp (in category 'class initialization') -----
- privateStartUp
- self setupLocaleDirs.
- self availableLanguageLocaleIDs do: [ :localeID |
- NaturalLanguageTranslator translators
- at: localeID
- put: (self newForLocaleID: localeID).
- ]!
Item was removed:
- ----- Method: InternalTranslator>>fileOutOn:keys:withBOM: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream keys: keys withBOM: bomFlag
- "self current fileOutOn: Transcript. Transcript endEntry"
- self fileOutHeaderOn: aStream withBOM: bomFlag.
- (keys
- ifNil: [generics keys asSortedCollection])
- 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: InternalTranslator classSide>>availableLanguageLocaleIDs (in category 'accessing') -----
- availableLanguageLocaleIDs
- "Return locale ids for the internal translation dictionary."
- "InternalTranslator availableLanguageLocaleIDs"
- ^ self cachedTranslations values collect:[:each | each localeID]!
Item was removed:
- Object subclass: #TextDomainManager
- instanceVariableNames: ''
- classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses Packages'
- poolDictionaries: ''
- category: 'System-Localization'!
- TextDomainManager class
- instanceVariableNames: 'defaultDomain'!
-
- !TextDomainManager commentStamp: 'tk 1/4/2008 16:08' prior: 0!
- I manages mapping from class category to textdomain.
-
- Class variables:
- ClassCategories IdentityDictionary -- classCategory -> domainName
- Classes IdentityDictionary -- class name (a Symbol) -> domainName (a cache only!!)
- DefaultDomain String -- the default domain name
- DomainInfos Dictionary -- domainName -> a TextDomainInfo
- LoneClasses IdentityDictionary -- class name (a Symbol) -> domainName. For classes whose entire category are not all in the same domain (BookMorph and QuickGuideMorph)
-
- TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
- TextDomainManager unregisterDomain: 'DrGeoII'.
-
- TextDomainManager registerClass: #QuickGuideMorph domain: 'quickguides'.
- TextDomainManager registerClass: #QuickGuideHolderMorph domain: 'quickguides'.
- !
- TextDomainManager class
- instanceVariableNames: 'defaultDomain'!
Item was removed:
- ----- Method: Locale class>>localeID: (in category 'accessing') -----
- localeID: id
- ^self knownLocales at: id ifAbsentPut: [Locale new localeID: id]!
Item was removed:
- ----- 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.
- strm_ FileStream readOnlyFileNamed: aFileName.
- fileName _ aFileName.
- [
- self loadHeader: strm.
- self loadHashTable: strm.
- originalTable _ self loadStringPointers: strm
- offset: originalTableOffset.
-
- originalStrings _ self loadStrings: strm
- pointers: originalTable.
-
- translatedTable _ self loadStringPointers: strm
- offset: translatedTableOffset.
-
- translatedStrings _ self loadStrings: strm
- pointers: translatedTable
- encoding: 'utf-8'
- languageEnvironment: (Locale localeID: localeID) languageEnvironment .
- ] ensure: [strm close].!
Item was removed:
- ----- Method: LocaleID>>isoCountry (in category 'accessing') -----
- isoCountry
- ^isoCountry!
Item was removed:
- ----- Method: MOFile>>loadHashTable: (in category 'experimental') -----
- loadHashTable: strm
- | entry |
- hashTable _ IntegerArray ofSize: hashTableSize.
- strm binary.
- strm position: hashTableOffset.
- 1 to: hashTableSize do: [:index |
- entry _ self nextInt32From: strm.
- hashTable at: index put: entry.
- ]!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: Locale class>>previous (in category 'accessing') -----
- previous
-
- ^ Previous
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>domainOfMethod: (in category 'accessing') -----
- domainOfMethod: aCompiledMethod
- ^ aCompiledMethod
- propertyValueAt: self textDomainProperty
- ifAbsent: [self updateDomainOfMethod: aCompiledMethod] !
Item was removed:
- ----- Method: TextDomainManager classSide>>clearAllDomains (in category 'private') -----
- clearAllDomains
- SystemNavigation default
- allCompiledMethodDo: [:each | each
- removeProperty: self textDomainProperty
- ifAbsent: []] !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>readISOLanguagesFrom: (in category 'private') -----
- readISOLanguagesFrom: stream
- "ISOLanguageDefinition readISOLanguagesFrom: ISOLanguageDefinition isoLanguages readStream "
- | languages language code3 index line |
- languages := Dictionary new.
- [stream atEnd
- or: [(line := stream nextLine readStream) atEnd]]
- whileFalse: [
- language := ISOLanguageDefinition new.
- code3 := line upTo: Character tab.
- (index := code3 indexOf: $/) > 0
- ifTrue: [
- language iso3: (code3 copyFrom: 1 to: index-1).
- language iso3Alternate: (code3 copyFrom: index+1 to: code3 size)]
- ifFalse: [language iso3: code3].
- language
- iso2: (line upTo: Character tab);
- language: line upToEnd.
- languages at: language iso3 put: language].
- ^languages!
Item was removed:
- ----- Method: Locale>>determineLocaleID (in category 'accessing') -----
- determineLocaleID
- "Locale current determineLocaleID"
- | isoLang isoCountry |
- isoLang := self fetchISO2Language
- ifNil: [^ self localeID].
- isoCountry := self fetchISOCountry
- ifNil: [^ LocaleID isoLanguage: isoLang].
- ^ LocaleID isoLanguage: isoLang isoCountry: isoCountry!
Item was removed:
- ----- Method: InternalTranslator>>translations (in category 'accessing') -----
- translations
- ^self generics!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>startUp: (in category 'class initialization') -----
- startUp: resuming
- resuming
- ifFalse: [^ self].
- self privateStartUp.!
Item was removed:
- ----- Method: InternalTranslator>>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: GetTextTranslator>>moFileForDomain: (in category 'private') -----
- moFileForDomain: domainName
- ^moFiles at: domainName ifAbsentPut: [self loadMOFileForDomain: domainName]!
Item was removed:
- ----- Method: InternalTranslator>>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: ISOLanguageDefinition>>iso3Alternate (in category 'accessing') -----
- iso3Alternate
- ^iso3Alternate ifNil: ['']!
Item was removed:
- ----- Method: GetTextTranslator classSide>>addSystemDefaultLocaleDir: (in category 'translation data layout') -----
- addSystemDefaultLocaleDir: dir
- "new dir will be put as first"
- self systemDefaultLocaleDirs addFirst: dir!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>removeLocaleID: (in category 'accessing') -----
- removeLocaleID: localeID
- "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
- ^ self translators
- removeKey: localeID
- ifAbsent: []!
Item was removed:
- ----- Method: GetTextTranslator>>isDomainLoaded: (in category 'accessing') -----
- isDomainLoaded: aDomainName
- | mo |
- mo _ moFiles at: aDomainName ifAbsent: [nil].
- ^mo isNil not.
- !
Item was removed:
- ----- Method: Locale class>>knownLocales (in category 'private') -----
- knownLocales
- "KnownLocales := nil"
- ^KnownLocales ifNil: [KnownLocales := self initKnownLocales]!
Item was removed:
- Object subclass: #ISOLanguageDefinition
- instanceVariableNames: 'iso3 iso2 iso3Alternate language'
- classVariableNames: 'ISO2Countries ISO2Table ISO3Countries ISO3Table'
- poolDictionaries: ''
- category: 'System-Localization'!
Item was removed:
- ----- Method: Locale>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- ----- Method: GetTextTranslator classSide>>availableLanguageLocaleIDs (in category 'accessing') -----
- availableLanguageLocaleIDs
- "GetTextTranslator availableLanguageLocaleIDs"
- | ids dirs localeDirForLang directoryNames |
- ids := Set new.
- dirs := Set new.
- dirs addAll: LocaleDirsForDomain values.
- dirs addAll: self defaultLocaleDirs.
- dirs do: [:dir |
- | localesDir |
- localesDir := FileDirectory on: dir.
- directoryNames := [localesDir directoryNames] on: InvalidDirectoryError do: [:e | #()].
- directoryNames
- do: [:langDirName |
- | localeID |
- localeID := LocaleID posixName: langDirName.
- localeDirForLang := localesDir directoryNamed: (self langDirNameForLocaleID: localeID).
- localeDirForLang ifNotNil: [
- (localeDirForLang fileNamesMatching: '*.mo') ifNotEmpty: [ids add: localeID]
- ]
- ].
- ].
- ^ids!
Item was removed:
- ----- Method: MOFile>>nextInt32From: (in category 'private') -----
- nextInt32From: strm
- ^isLittleEndian
- ifTrue: [^strm nextLittleEndianNumber: 4]
- ifFalse: [^strm nextInt32]!
Item was removed:
- ----- Method: TextDomainManager classSide>>updateDomainOfAllMethodsWithTranslations (in category 'private') -----
- updateDomainOfAllMethodsWithTranslations
- self allMethodsWithTranslations do: [:each|
- self updateDomainOfMethod: each
- ]!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>domainRegistered: (in category 'accessing') -----
- domainRegistered: aDomainName
- "notify that new TextDomain is registered"
- self translators do: [:each | each domainRegistered: aDomainName]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- "Return the generic language translator as there is no information about the country code"
-
- ^self isoLanguage: isoLanguage isoCountry: nil!
Item was removed:
- ----- Method: Locale>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^self localeID isoLanguage!
Item was removed:
- ----- Method: ISOLanguageDefinition>>language (in category 'accessing') -----
- language
- ^language!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>localeChanged (in category 'accessing') -----
- localeChanged
- "notify some project starts to use this locale.
- this facility may use the event to load translation data dynamically"
- self current setCurrent
- !
Item was removed:
- ----- Method: LocaleID class>>isoLanguage:isoCountry: (in category 'instance creation') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- ^self new isoLanguage: langString isoCountry: countryStringOrNil!
Item was removed:
- ----- Method: Locale>>primTimeFormat (in category 'system primitives') -----
- primTimeFormat
- "Returns string time format
- Format is made up of
- h hour (h 12, H 24), m minute, s seconds, x (am/pm String)
- double symbol is null padded, single not padded (h=6, hh=06)"
- <primitive:'primitiveTimeFormat' module: 'LocalePlugin'>
- ^'h:mmx'!
Item was removed:
- ----- Method: GetTextTranslator classSide>>userDefaultLocaleDirs (in category 'translation data layout') -----
- userDefaultLocaleDirs
- ^UserDefaultLocaleDirs ifNil: [UserDefaultLocaleDirs := OrderedCollection new]
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>initialize (in category 'class initialization') -----
- initialize
- " TextDomainManager initialize "
- self defaultDomain: 'Etoys'; clearAllDomains!
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeader (in category 'fileIn/fileOut') -----
- fileOutHeader
- ^ '''Translation dictionary'''!
Item was removed:
- ----- Method: GetTextTranslator classSide>>initialize (in category 'class initialization') -----
- initialize
- SystemDefaultLocaleDirs _ OrderedCollection new.
- UserDefaultLocaleDirs _ OrderedCollection new.
- LocaleDirsForDomain _ Dictionary new.!
Item was removed:
- ----- Method: GetTextTranslator>>loadMOFiles (in category 'accessing') -----
- loadMOFiles
- TextDomainManager allKnownDomains
- do: [:domainName |
- self moFileForDomain: domainName
- ].!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2 (in category 'accessing') -----
- iso2
- ^iso2 ifNil: [self iso3]!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: Locale>>offsetLocalToUTC (in category 'accessing') -----
- offsetLocalToUTC
- ^self primTimezone!
Item was removed:
- ----- Method: InternalTranslator>>nextChunkPut:on: (in category 'fileIn/fileOut') -----
- nextChunkPut: anObject on: aStream
- | i remainder terminator |
- terminator := $!!.
- remainder := anObject storeString.
- [(i := remainder indexOf: terminator) = 0]
- whileFalse: [aStream
- nextPutAll: (remainder copyFrom: 1 to: i).
- aStream nextPut: terminator.
- "double imbedded terminators"
- remainder := remainder copyFrom: i + 1 to: remainder size].
- aStream nextPutAll: remainder.
- aStream nextPut: terminator; cr.!
Item was removed:
- ----- Method: MOFile>>testSearchByHash (in category 'experimental') -----
- testSearchByHash
- InternalTranslator allKnownPhrases
- do: [:each |
- self searchByHash: each
- ].
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>textDomainProperty (in category 'private') -----
- textDomainProperty
- ^#textDomain!
Item was removed:
- ----- 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.
- strm binary.
- strm position: tableOffset.
- 1 to: nStrings do: [:index |
- len _ self nextInt32From: strm.
- offset _ self nextInt32From: strm.
- offsetTable at: index put: offset.
- lenTable at: index put: len.
- ].
- tupple _ Array new: 2.
- tupple at: 1 put: offsetTable.
- tupple at: 2 put: lenTable.
- ^tupple
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>defaultDomain (in category 'accessing') -----
- defaultDomain
- "I'm not sure we still need a default domain, AFAIK the default domain will only be used when no domain is found. In that case, wouldn't it be better to just look for a translation in all domains?"
- ^defaultDomain!
Item was removed:
- ----- Method: TextDomainManager classSide>>domainForClass: (in category 'accessing') -----
- domainForClass: aClass
- ^'etoys'!
Item was removed:
- ----- Method: Locale>>primCountry (in category 'system primitives') -----
- primCountry
- "Returns string with country tag according to ISO 639"
- <primitive: 'primitiveCountry' module: 'LocalePlugin'>
- ^'US'!
Item was removed:
- Object subclass: #NaturalLanguageTranslator
- instanceVariableNames: 'id'
- classVariableNames: 'Translators'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !NaturalLanguageTranslator commentStamp: '<historical>' prior: 0!
- abstract class of natural language translator.
- Class side manages and holds loaded instances of concrete classes.!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>domainUnregistered: (in category 'accessing') -----
- domainUnregistered: aDomainName
- "notify that new TextDomain is unregistered. Concrete subclass can responds to this event if needed"!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>initISOCountries (in category 'private') -----
- initISOCountries
- "ISOLanguageDefinition initISOCountries"
- | iso3166Table |
- iso3166Table := ISOLanguageDefinition buildIso3166CodesTables.
- ISO2Countries := Dictionary new.
- ISO3Countries := Dictionary new.
- iso3166Table do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)].
- self extraCountryDefinitions do: [:entry |
- ISO2Countries at: (entry at: 2) put: (entry at: 1).
- ISO3Countries at: (entry at: 3) put: (entry at: 1)]!
Item was removed:
- ----- Method: LocaleID>>= (in category 'comparing') -----
- = anotherObject
- self class == anotherObject class
- ifFalse: [^false].
- ^self isoLanguage = anotherObject isoLanguage
- and: [self isoCountry = anotherObject isoCountry]!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso2: (in category 'initialize') -----
- iso2: aString
- iso2 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: GetTextTranslator classSide>>localeDirForDomain: (in category 'translation data layout') -----
- localeDirForDomain: aDomainName
- "returns registered localeDirectory for the textdomain. returns nil if not registered"
- ^LocaleDirsForDomain at: aDomainName ifAbsent: [nil]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>name:form: (in category 'accessing') -----
- name: formName form: translatedForm
- self generics at: formName put: translatedForm.
- !
Item was removed:
- ----- Method: Locale class>>determineCurrentLocale (in category 'private') -----
- determineCurrentLocale
- "For now just return the default locale.
- A smarter way would be to determine the current platforms default locale."
- "Locale determineCurrentLocale"
-
- ^self new determineLocale!
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3 (in category 'accessing') -----
- iso3
- ^iso3 ifNil: ['']!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: LocaleID class>>isoString: (in category 'instance creation') -----
- isoString: isoString
- "Parse the isoString (<language>-<country>) into its components and return the matching LocaleID"
- "LocaleID isoString: 'en' "
- "LocaleID isoString: 'en-us' "
-
- | parts language country |
- parts := isoString findTokens: #($- ).
- language := parts first.
- parts size > 1
- ifTrue: [country := parts second].
- ^self isoLanguage: language isoCountry: country!
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeaderOn:withBOM: (in category 'user interface') -----
- fileOutHeaderOn: aStream withBOM: bomFlag
- bomFlag ifTrue: [
- aStream binary.
- UTF8TextConverter writeBOMOn: aStream.
- aStream text.
- ].
- aStream nextChunkPut: self fileOutHeader;
- cr.
- aStream timeStamp; cr.
- aStream nextPut: $!!.
- aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
- aStream cr!
Item was removed:
- ----- Method: LocaleID>>parent (in category 'accessing') -----
- parent
- ^self class isoLanguage: self isoLanguage!
Item was removed:
- ----- Method: Locale class>>initializePlatformEncodings (in category 'class initialization') -----
- initializePlatformEncodings
- "Locale initializePlatformEncodings"
-
- | platform |
- PlatformEncodings isNil ifTrue: [ PlatformEncodings := Dictionary new ].
-
- platform := PlatformEncodings at: 'default' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'iso8859-1';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'ja' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'shift-jis';
- at: 'unix' put: 'euc-jp';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'ko' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'euc-kr';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
-
- platform := PlatformEncodings at: 'zh' ifAbsentPut: Dictionary new.
- platform
- at: 'default' put: 'gb2312';
- at: 'unix' put: 'euc-cn';
- at: 'Win32 CE' put: 'utf-8';
- yourself.
- !
Item was removed:
- ----- Method: InternalTranslator>>fileOutHeaderOn: (in category 'user interface') -----
- fileOutHeaderOn: aStream
- aStream binary.
- UTF8TextConverter writeBOMOn: aStream.
- aStream text.
- aStream nextChunkPut: self fileOutHeader;
- cr.
- aStream timeStamp; cr.
- aStream nextPut: $!!.
- aStream nextChunkPut: '(' , self class name , ' localeID: ' , id storeString , ')'.
- aStream cr!
Item was removed:
- ----- Method: GetTextTranslator classSide>>findMOForLocaleID:domain: (in category 'private') -----
- findMOForLocaleID: id domain: aDomainName
- | sepa langSubDir path |
- sepa _ FileDirectory slash.
- langSubDir _ self langDirNameForLocaleID: id.
- (self localeDirsForDomain: aDomainName)
- do: [:each |
- path _ each , sepa , langSubDir, sepa , (self moNameForDomain: aDomainName).
- [(FileDirectory default fileExists: path)
- ifTrue: [^path]] on: InvalidDirectoryError do: [:e | ^nil]].
- ^nil.!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2LanguageTable (in category 'private') -----
- iso2LanguageTable
- "ISOLanguageDefinition iso2LanguageTable"
-
- ISO2Table ifNotNil: [^ISO2Table].
- ISO2Table := Dictionary new: self iso3LanguageTable basicSize.
- self iso3LanguageTable do: [:entry |
- ISO2Table at: entry iso2 put: entry].
- ^ISO2Table!
Item was removed:
- ----- Method: LocaleID class>>previous (in category 'accessing') -----
- previous
- ^Locale previous localeID!
Item was removed:
- ----- Method: InternalTranslator classSide>>removeLocaleID: (in category 'accessing') -----
- removeLocaleID: localeID
- "self removeLocaleID: (LocaleID isoString: 'ja-kids')"
- self cachedTranslations
- removeKey: localeID
- ifAbsent: [].
- NaturalLanguageTranslator privateStartUp!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3Countries (in category 'private') -----
- iso3Countries
- "ISOLanguageDefinition iso3Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO3Countries ifNil: [self initISOCountries].
- ^ISO3Countries!
Item was removed:
- ----- Method: Locale class>>localeChangedListeners (in category 'notification') -----
- localeChangedListeners
- ^LocaleChangeListeners ifNil: [LocaleChangeListeners _ OrderedCollection new]!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>bitmapForJapanese (in category 'as yet unclassified') -----
- bitmapForJapanese
-
- ^ (Form
- extent: 54@17
- depth: 16
- fromArray: #( 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 65536 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 1 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 65536 0 0 65536 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 1 65537 65537 65536 1 0 0 0 1 0 0 65536 0 0 1 0 0 0 1 0 1 65537 65537 65537 65537 65537 65537 0 0 0 1 65537 65537 0 0 1 0 1 0 0 0 1 0 0 0 1 0 0 0 0 65537 65536 0 0 0 65537 65537 0 65536 1 0 0 0 65536 1 0 0 0 1 65537 65537 65537 65537 0 0 0 1 1 1 0 0 0 0 0 0 65536 1 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 1 1 1 0 0 0 65537 65537 65537 65537 65537 65537 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 0 65536 1 0 65536 0 0 0 0 0 0 0 0 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 1 0 1 0 1 0 0 65537 65537 1 65537 65537 65536 0 0 65536 1 0 0 0 1 0 0 0 1 0 0 65536 65537 65537 65537 65536 65536 0 65536 1 1 0 0 65536 0 0 65536 0 65536 0 0 1 0 0 0 1 0 1 0 0 1 0 0 1 0 65536 1 1 0 0 65536 0 1 0 0 65536 0 0 1 65537 65537 65537 65537 0 0 0 0 1 0 0 0 0 65537 65537 1 65537 65537 65536 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 65536 0 0 0 65536 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0)
- offset: 0@0)!
Item was removed:
- ----- Method: InternalTranslator classSide>>allKnownPhrases (in category 'private') -----
- allKnownPhrases
- ^AllKnownPhrases ifNil: [AllKnownPhrases := Dictionary new: 2051]!
Item was removed:
- ----- Method: Locale>>primVMOffsetToUTC (in category 'system primitives') -----
- primVMOffsetToUTC
- "Returns the offset in minutes between the VM and UTC.
- If the VM does not support UTC times, this is 0.
- Also gives us backward compatibility with old VMs as the primitive will fail and we then can return 0."
- <primitive:'primitiveVMOffsetToUTC' module: 'LocalePlugin'>
- ^0!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso2Countries (in category 'private') -----
- iso2Countries
- "ISOLanguageDefinition iso2Countries"
- "ISO2Countries := nil. ISO3Countries := nil"
-
- ISO2Countries ifNil: [self initISOCountries].
- ^ISO2Countries!
Item was removed:
- ----- Method: Locale class>>current (in category 'accessing') -----
- current
- "Current := nil"
- Current ifNil: [
- Current := self determineCurrentLocale.
- "Transcript show: 'Current locale: ' , Current localeID asString; cr"].
- ^Current!
Item was removed:
- ----- Method: MOFile classSide>>fileName:localeID: (in category 'instance creation') -----
- fileName: path localeID: id
- ^self new
- load:path localeID: id!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>localeID (in category 'accessing') -----
- localeID
- ^id!
Item was removed:
- ----- Method: Locale>>primTimezone (in category 'system primitives') -----
- primTimezone
- "The offset from UTC in minutes, with positive offsets being towards the east.
- (San Francisco is in UTC -07*60 and Paris is in UTC +02*60 when daylight savings is in effect)."
- <primitive:'primitiveTimezoneOffset' module: 'LocalePlugin'>
- ^0!
Item was removed:
- ----- Method: GetTextTranslator classSide>>moNameForDomain: (in category 'private') -----
- moNameForDomain: domainName
- ^domainName , '.mo'!
Item was removed:
- ----- Method: Locale>>printOn: (in category 'accessing') -----
- printOn: aStream
- super printOn: aStream.
- aStream nextPutAll: '(' , id printString , ')'!
Item was removed:
- ----- Method: TextDomainManager classSide>>updateDomainOfMethod: (in category 'private') -----
- updateDomainOfMethod: aCompiledMethod
- "First it looks for the package of the method reference (using
- the PackageOrganizer: deadly slow). If the method doesn't
- belong to any package it uses the default domain. Finally it
- stores the text domain of the method using a method
- property, this way we gain performance the next time we
- translate the same method because we avoid the use of
- PackageOrganizer. Have I mentioned it is really slow? :)"
- | package |
- package := PackageOrganizer default
- packageOfMethod: aCompiledMethod methodReference
- ifNone: [].
- ^ aCompiledMethod
- propertyValueAt: self textDomainProperty
- put: (package isNil
- ifTrue: [TextDomainManager defaultDomain]
- ifFalse: [package name])!
Item was removed:
- ----- Method: InternalTranslator>>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: InternalTranslator>>fileOutOn: (in category 'fileIn/fileOut') -----
- fileOutOn: aStream
- "self current fileOutOn: Transcript. Transcript endEntry"
- self fileOutOn: aStream keys: nil withBOM: true.
- !
Item was removed:
- ----- Method: Locale class>>languageSymbol: (in category 'accessing') -----
- languageSymbol: languageSymbol
- "Locale languageSymbol: #Deutsch"
-
- ^self isoLanguage: (LanguageSymbols at: languageSymbol)!
Item was removed:
- ----- Method: Locale>>languageEnvironment (in category 'accessing') -----
- languageEnvironment
- ^LanguageEnvironment localeID: self localeID!
Item was removed:
- ----- Method: Locale class>>defaultEncodingName: (in category 'platform specific') -----
- defaultEncodingName: languageSymbol
- | encodings platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current getSystemAttribute: 1002.
- encodings := self platformEncodings at: languageSymbol
- ifAbsent: [self platformEncodings at: #default].
- encodings at: platformName ifPresent: [:encoding | ^encoding].
- encodings at: platformName , ' ' , osVersion
- ifPresent: [:encoding | ^encoding].
- ^encodings at: #default!
Item was removed:
- ----- Method: LocaleID>>isoLanguage (in category 'accessing') -----
- isoLanguage
- ^isoLanguage!
Item was removed:
- ----- Method: InternalTranslator classSide>>loadForLocaleIsoString:fromGzippedMimeLiteral: (in category 'file-services') -----
- loadForLocaleIsoString: localeString fromGzippedMimeLiteral: mimeString
- "merge the translation from the mime literal."
- | stream localeID translator gs rbStream s currentPlatform |
- s := Base64MimeConverter mimeDecodeToBytes: mimeString readStream.
- s reset.
- gs := GZipReadStream on: s.
- rbStream := MultiByteBinaryOrTextStream with: gs contents asString.
- rbStream converter: UTF8TextConverter new.
- rbStream reset.
- localeID := LocaleID isoString: localeString.
- currentPlatform := Locale currentPlatform.
- [Locale
- currentPlatform: (Locale localeID: localeID).
- stream := ReadStream on: rbStream contents]
- ensure: [Locale currentPlatform: currentPlatform].
- translator := self localeID: localeID.
- translator loadFromStream: stream.
- LanguageEnvironment resetKnownEnvironments!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: InternalTranslator classSide>>fileReaderServicesForFile:suffix: (in category 'file-services') -----
- fileReaderServicesForFile: fullName suffix: suffix
- "Answer the file services associated with given file"
- ^ (suffix = self translationSuffix) | (suffix = '*')
- ifTrue: [{self serviceMergeLanguageTranslations}]
- ifFalse: [#()]!
Item was removed:
- ----- Method: GetTextTranslator classSide>>newForLocaleID: (in category 'instance creation') -----
- newForLocaleID: id
- ^self new localeID: id!
Item was removed:
- ----- 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 isDomainLoaded: aDomainName) ifFalse: [
- (InternalTranslator availableLanguageLocaleIDs includes: localeID)
- ifTrue: [translator _ InternalTranslator localeID: localeID].
- ].
- ^translator translate: aString inDomain: aDomainName!
Item was removed:
- ----- Method: InternalTranslator>>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: Locale class>>defaultInputInterpreter (in category 'platform specific') -----
- defaultInputInterpreter
- | platformName osVersion |
- platformName := SmalltalkImage current platformName.
- osVersion := SmalltalkImage current getSystemAttribute: 1002.
- (platformName = 'Win32' and: [osVersion = 'CE'])
- ifTrue: [^NoInputInterpreter new].
- platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new].
- ^NoInputInterpreter new!
Item was removed:
- ----- Method: Locale class>>stringForLanguageNameIs: (in category 'accessing') -----
- stringForLanguageNameIs: localeID
- "Answer a string for a menu determining whether the given
- symbol is the project's natural language"
- ^ (self current localeID = localeID
- ifTrue: ['<yes>']
- ifFalse: ['<no>'])
- , localeID displayName!
Item was removed:
- ----- Method: Locale class>>addLocalChangedListener: (in category 'notification') -----
- addLocalChangedListener: anObjectOrClass
- self localeChangedListeners add: anObjectOrClass!
Item was removed:
- ----- Method: InternalTranslator classSide>>serviceMergeLanguageTranslations (in category 'file-services') -----
- serviceMergeLanguageTranslations
- "Answer a service for merging of translation files"
- ^ SimpleServiceEntry
- provider: self
- label: 'merge the translation file' translatedNoop
- selector: #mergeTranslationFileNamed:
- description: 'merge the translation file into the language named like the file' translatedNoop
- buttonLabel: 'merge' translatedNoop!
Item was removed:
- ----- Method: LocaleID>>isoString (in category 'accessing') -----
- isoString
- ^self asString!
Item was removed:
- ----- Method: InternalTranslator classSide>>localeID: (in category 'accessing') -----
- localeID: localeID
- "For backward compatibility, see NaturalLanguageTranslator >> fileOutHeaderOn:."
- ^ self newLocaleID: localeID!
Item was removed:
- ----- Method: ISOLanguageDefinition>>language: (in category 'initialize') -----
- language: aString
- language := aString!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>isoLanguages (in category 'private') -----
- isoLanguages
- "ISO 639: 3-letter codes"
- ^'aar aa Afar
- abk ab Abkhazian
- ace Achinese
- ach Acoli
- ada Adangme
- ady Adyghe; Adygei
- afa Afro-Asiatic languages
- afh Afrihili
- afr af Afrikaans
- ain Ainu
- aka ak Akan
- akk Akkadian
- alb/sqi sq Albanian
- ale Aleut
- alg Algonquian languages
- alt Southern Altai
- amh am Amharic
- ang English, Old (ca.450-1100)
- anp Angika
- apa Apache languages
- ara ar Arabic
- arc Official Aramaic (700-300 BCE); Imperial Aramaic (700-300 BCE)
- arg an Aragonese
- arm/hye hy Armenian
- arn Mapudungun; Mapuche
- arp Arapaho
- art Artificial languages
- arw Arawak
- asm as Assamese
- ast Asturian; Bable; Leonese; Asturleonese
- ath Athapascan languages
- aus Australian languages
- ava av Avaric
- ave ae Avestan
- awa Awadhi
- aym ay Aymara
- aze az Azerbaijani
- bad Banda languages
- bai Bamileke languages
- bak ba Bashkir
- bal Baluchi
- bam bm Bambara
- ban Balinese
- baq/eus eu Basque
- bas Basa
- bat Baltic languages
- bej Beja; Bedawiyet
- bel be Belarusian
- bem Bemba
- ben bn Bengali
- ber Berber languages)
- bho Bhojpuri
- bih bh Bihari
- bik Bikol
- bin Bini; Edo
- bis bi Bislama
- bla Siksika
- bnt Bantu languages
- bos bs Bosnian
- bra Braj
- bre br Breton
- btk Batak languages
- bua Buriat
- bug Buginese
- bul bg Bulgarian
- bur/mya my Burmese
- byn Blin; Bilin
- cad Caddo
- cai Central American Indian languages
- car Galibi Carib
- cat ca Catalan; Valencian
- cau Caucasian languages
- ceb Cebuano
- cel Celtic languages
- cha ch Chamorro
- chb Chibcha
- che ce Chechen
- chg Chagatai
- chi/zho zh Chinese
- chk Chuukese
- chm Mari
- chn Chinook jargon
- cho Choctaw
- chp Chipewyan; Dene Suline
- chr Cherokee
- chu cu Church Slavic; Old Slavonic; Church Slavonic; Old Bulgarian; Old Church Slavonic
- chv cv Chuvash
- chy Cheyenne
- cmc Chamic languages
- cop Coptic
- cor kw Cornish
- cos co Corsican
- cpe Creoles and pidgins, English based
- cpf Creoles and pidgins, French-based
- cpp Creoles and pidgins, Portuguese-based
- cre cr Cree
- crh Crimean Tatar; Crimean Turkish
- crp Creoles and pidgins
- csb Kashubian
- cus Cushitic languages
- cze/ces cs Czech
- dak Dakota
- dan da Danish
- dar Dargwa
- day Land Dayak languages
- del Delaware
- den Slave (Athapascan)
- dgr Dogrib
- din Dinka
- div dv Divehi; Dhivehi; Maldivian
- doi Dogri
- dra Dravidian languages
- dsb Lower Sorbian
- dua Duala
- dum Dutch, Middle (ca.1050-1350)
- dut/nld nl Dutch; Flemish
- dyu Dyula
- dzo dz Dzongkha
- efi Efik
- egy Egyptian (Ancient)
- eka Ekajuk
- elx Elamite
- eng en English
- enm English, Middle (1100-1500)
- epo eo Esperanto
- est et Estonian
- ewe ee Ewe
- ewo Ewondo
- fan Fang
- fao fo Faroese
- fat Fanti
- fij fj Fijian
- fil Filipino; Pilipino
- fin fi Finnish
- fiu Finno-Ugrian languages)
- fon Fon
- fre/fra fr French
- frm French, Middle (ca.1400-1600)
- fro French, Old (842-ca.1400)
- frr Northern Frisian
- frs Eastern Frisian
- fry fy Western Frisian
- ful ff Fulah
- fur Friulian
- gaa Ga
- gay Gayo
- gba Gbaya
- gem Germanic languages
- geo/kat ka Georgian
- ger/deu de German
- gez Geez
- gil Gilbertese
- gla gd Gaelic; Scottish Gaelic
- gle ga Irish
- glg gl Galician
- glv gv Manx
- gmh German, Middle High (ca.1050-1500)
- goh German, Old High (ca.750-1050)
- gon Gondi
- gor Gorontalo
- got Gothic
- grb Grebo
- grc Greek, Ancient (to 1453)
- gre/ell el Greek, Modern (1453-)
- grn gn Guarani
- gsw Swiss German; Alemannic; Alsatian
- guj gu Gujarati
- gwi Gwich''in
- hai Haida
- hat ht Haitian; Haitian Creole
- hau ha Hausa
- haw Hawaiian
- heb he Hebrew
- her hz Herero
- hil Hiligaynon
- him Himachali
- hin hi Hindi
- hit Hittite
- hmn Hmong
- hmo ho Hiri Motu
- hrv hr Croatian
- hsb Upper Sorbian
- hun hu Hungarian
- hup Hupa
- iba Iban
- ibo ig Igbo
- ice/isl is Icelandic
- ido io Ido
- iii ii Sichuan Yi; Nuosu
- ijo Ijo languages
- iku iu Inuktitut
- ile ie Interlingue; Occidental
- ilo Iloko
- ina ia Interlingua (International Auxiliary Language Association)
- inc Indic languages
- ind id Indonesian
- ine Indo-European languages
- inh Ingush
- ipk ik Inupiaq
- ira Iranian languages
- iro Iroquoian languages
- ita it Italian
- jav jv Javanese
- jbo Lojban
- jpn ja Japanese
- jpr Judeo-Persian
- jrb Judeo-Arabic
- kaa Kara-Kalpak
- kab Kabyle
- kac Kachin; Jingpho
- kal kl Kalaallisut; Greenlandic
- kam Kamba
- kan kn Kannada
- kar Karen languages
- kas ks Kashmiri
- kau kr Kanuri
- kaw Kawi
- kaz kk Kazakh
- kbd Kabardian
- kha Khasi
- khi Khoisan languages
- khm km Central Khmer
- kho Khotanese; Sakan
- kik ki Kikuyu; Gikuyu
- kin rw Kinyarwanda
- kir ky Kirghiz; Kyrgyz
- kmb Kimbundu
- kok Konkani
- kom kv Komi
- kon kg Kongo
- kor ko Korean
- kos Kosraean
- kpe Kpelle
- krc Karachay-Balkar
- krl Karelian
- kro Kru languages
- kru Kurukh
- kua kj Kuanyama; Kwanyama
- kum Kumyk
- kur ku Kurdish
- kut Kutenai
- lad Ladino
- lah Lahnda
- lam Lamba
- lao lo Lao
- lat la Latin
- lav lv Latvian
- lez Lezghian
- lim li Limburgan; Limburger; Limburgish
- lin ln Lingala
- lit lt Lithuanian
- lol Mongo
- loz Lozi
- ltz lb Luxembourgish; Letzeburgesch
- lua Luba-Lulua
- lub lu Luba-Katanga
- lug lg Ganda
- lui Luiseno
- lun Lunda
- luo Luo (Kenya and Tanzania)
- lus Lushai
- mac/mkd mk Macedonian
- mad Madurese
- mag Magahi
- mah mh Marshallese
- mai Maithili
- mak Makasar
- mal ml Malayalam
- man Mandingo
- mao/mri mi Maori
- map Austronesian languages
- mar mr Marathi
- mas Masai
- may/msa ms Malay
- mdf Moksha
- mdr Mandar
- men Mende
- mga Irish, Middle (900-1200)
- mic Mi''kmaq; Micmac
- min Minangkabau
- mis Uncoded languages
- mkh Mon-Khmer languages
- mlg mg Malagasy
- mlt mt Maltese
- mnc Manchu
- mni Manipuri
- mno Manobo languages
- moh Mohawk
- mon mn Mongolian
- mos Mossi
- mul Multiple languages
- mun Munda languages
- mus Creek
- mwl Mirandese
- mwr Marwari
- myn Mayan languages
- myv Erzya
- nah Nahuatl languages
- nai North American Indian languages
- nap Neapolitan
- nau na Nauru
- nav nv Navajo; Navaho
- nbl nr Ndebele, South; South Ndebele
- nde nd Ndebele, North; North Ndebele
- ndo ng Ndonga
- nds Low German; Low Saxon; German, Low; Saxon, Low
- nep ne Nepali
- new Nepal Bhasa; Newari
- nia Nias
- nic Niger-Kordofanian languages
- niu Niuean
- nno nn Norwegian Nynorsk; Nynorsk, Norwegian
- nob nb Bokmal, Norwegian; Norwegian Bokmal
- nog Nogai
- non Norse, Old
- nor no Norwegian
- nqo N''Ko
- nso Pedi; Sepedi; Northern Sotho
- nub Nubian languages
- nwc Classical Newari; Old Newari; Classical Nepal Bhasa
- nya ny Chichewa; Chewa; Nyanja
- nym Nyamwezi
- nyn Nyankole
- nyo Nyoro
- nzi Nzima
- oci oc Occitan (post 1500)
- oji oj Ojibwa
- ori or Oriya
- orm om Oromo
- osa Osage
- oss os Ossetian; Ossetic
- ota Turkish, Ottoman (1500-1928)
- oto Otomian languages
- paa Papuan languages
- pag Pangasinan
- pal Pahlavi
- pam Pampanga; Kapampangan
- pan pa Panjabi; Punjabi
- pap Papiamento
- pau Palauan
- peo Persian, Old (ca.600-400 B.C.)
- per/fas fa Persian
- phi Philippine languages)
- phn Phoenician
- pli pi Pali
- pol pl Polish
- pon Pohnpeian
- por pt Portuguese
- pra Prakrit languages
- pro Provencal, Old (to 1500);Occitan, Old (to 1500)
- pus ps Pushto; Pashto
- qaa-qtz Reserved for local use
- que qu Quechua
- raj Rajasthani
- rap Rapanui
- rar Rarotongan; Cook Islands Maori
- roa Romance languages
- roh rm Romansh
- rom Romany
- rum/ron ro Romanian; Moldavian; Moldovan
- run rn Rundi
- rup Aromanian; Arumanian; Macedo-Romanian
- rus ru Russian
- sad Sandawe
- sag sg Sango
- sah Yakut
- sai South American Indian languages
- sal Salishan languages
- sam Samaritan Aramaic
- san sa Sanskrit
- sas Sasak
- sat Santali
- scn Sicilian
- sco Scots
- sel Selkup
- sem Semitic languages
- sga Irish, Old (to 900)
- sgn Sign Languages
- shn Shan
- sid Sidamo
- sin si Sinhala; Sinhalese
- sio Siouan languages
- sit Sino-Tibetan languages
- sla Slavic languages
- slo/slk sk Slovak
- slv sl Slovenian
- sma Southern Sami
- sme se Northern Sami
- smi Sami languages
- smj Lule Sami
- smn Inari Sami
- smo sm Samoan
- sms Skolt Sami
- sna sn Shona
- snd sd Sindhi
- snk Soninke
- sog Sogdian
- som so Somali
- son Songhai languages
- sot st Sotho, Southern
- spa es Spanish; Castilian
- srd sc Sardinian
- srn Sranan Tongo
- srp sr Serbian
- srr Serer
- ssa Nilo-Saharan languages
- ssw ss Swati
- suk Sukuma
- sun su Sundanese
- sus Susu
- sux Sumerian
- swa sw Swahili
- swe sv Swedish
- syc Classical Syriac
- syr Syriac
- tah ty Tahitian
- tai Tai languages
- tam ta Tamil
- tat tt Tatar
- tel te Telugu
- tem Timne
- ter Tereno
- tet Tetum
- tgk tg Tajik
- tgl tl Tagalog
- tha th Thai
- tib/bod bo Tibetan
- tig Tigre
- tir ti Tigrinya
- tiv Tiv
- tkl Tokelau
- tlh Klingon; tlhIngan-Hol
- tli Tlingit
- tmh Tamashek
- tog Tonga (Nyasa)
- ton to Tonga (Tonga Islands)
- tpi Tok Pisin
- tsi Tsimshian
- tsn tn Tswana
- tso ts Tsonga
- tuk tk Turkmen
- tum Tumbuka
- tup Tupi languages
- tur tr Turkish
- tut Altaic languages
- tvl Tuvalu
- twi tw Twi
- tyv Tuvinian
- udm Udmurt
- uga Ugaritic
- uig ug Uighur; Uyghur
- ukr uk Ukrainian
- umb Umbundu
- und Undetermined
- urd ur Urdu
- uzb uz Uzbek
- vai Vai
- ven ve Venda
- vie vi Vietnamese
- vol vo Volapuk
- vot Votic
- wak Wakashan languages
- wal Wolaitta; Wolaytta
- war Waray
- was Washo
- wel/cym cy Welsh
- wen Sorbian languages
- wln wa Walloon
- wol wo Wolof
- xal Kalmyk; Oirat
- xho xh Xhosa
- yao Yao
- yap Yapese
- yid yi Yiddish
- yor yo Yoruba
- ypk Yupik languages
- zap Zapotec
- zbl Blissymbols; Blissymbolics; Bliss
- zen Zenaga
- zha za Zhuang; Chuang
- znd Zande languages
- zul zu Zulu
- zun Zuni
- zxx No linguistic content; Not applicable
- zza Zaza; Dimili; Dimli; Kirdki; Kirmanjki; Zazaki'!
Item was removed:
- ----- Method: Locale class>>isoLanguage: (in category 'accessing') -----
- isoLanguage: isoLanguage
- ^self isoLanguage: isoLanguage isoCountry: nil!
Item was removed:
- ----- Method: InternalTranslator classSide>>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:
- Object subclass: #MOFile
- instanceVariableNames: 'localeID fileName isLittleEndian magic revision nStrings originalTableOffset translatedTableOffset hashTableSize hashTableOffset hashTable originalStrings translatedStrings translations'
- classVariableNames: 'Cr Lf'
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !MOFile commentStamp: '<historical>' prior: 0!
- Wrapper for MO file of gettext.
- Known limitation:
- currently don't support prural form.
- translation strings have to be encoded in utf-8.
-
- Implementation notes:
- Testing on XO showed emulation of hash search without plugin + on demand loading is slow.
- The test also showed conversion of utf8 string to Squeak's String is really slow (especially for non-latin language).
- so in this version, all of original/translated strings are loaded on initiaization,
- but "translated strings" is left as ByteString on loading time, to reduce loading time.
- After that the translated string is converted on demand.
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>resetCaches (in category 'class initialization') -----
- resetCaches
- Translators := nil.!
Item was removed:
- ----- Method: Locale>>primDigitGrouping (in category 'system primitives') -----
- primDigitGrouping
- "Returns string with e.g. '.' or ',' (thousands etc)"
- <primitive:'primitiveDigitGroupingSymbol' module: 'LocalePlugin'>
- ^','!
Item was removed:
- ----- Method: GetTextTranslator classSide>>defaultLocaleDirs (in category 'translation data layout') -----
- defaultLocaleDirs
- | dirs |
- dirs _ OrderedCollection new.
- UserDefaultLocaleDirs ifNotNil: [dirs addAll: UserDefaultLocaleDirs].
- dirs addAll: self systemDefaultLocaleDirs.
- ^dirs
- !
Item was removed:
- ----- 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 ).
- nstr = 0 ifTrue: [^nil].
- key _ self originalString: nstr.
- key = aString ifTrue: [^self translatedString: nstr].
- index >= (hashTableSize - incr)
- ifTrue: [index _ index - (hashTableSize - incr) ]
- ifFalse:[index _ index + incr].
- ] doWhileTrue: true.!
Item was removed:
- ----- Method: Locale>>primLongDateFormat (in category 'system primitives') -----
- primLongDateFormat
- "Returns the long date format
- d day, m month, y year,
- double symbol is null padded, single not padded (m=6, mm=06)
- dddd weekday
- mmmm month name"
- <primitive:'primitiveLongDateFormat' module: 'LocalePlugin'>
- ^'dddd, mmmm d, yyyy'!
Item was removed:
- ----- Method: MOFile>>translateByHash: (in category 'experimental') -----
- translateByHash: aString
- | trans |
- trans _ self searchByHash: aString.
- trans isNil ifTrue: [^aString]
- ifFalse: [^trans].
- !
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>initializeJapaneseBitmap (in category 'as yet unclassified') -----
- initializeJapaneseBitmap
-
- (self localeID: (LocaleID isoString: 'ja')) name: 'LanguageNameInNativeLanguage' form: self bitmapForJapanese.
- !
Item was removed:
- ----- Method: InternalTranslator>>loadFromFileNamed: (in category 'private store-retrieve') -----
- loadFromFileNamed: fileNameString
- "Load translations from an external file"
-
- | stream |
- [stream := FileStream readOnlyFileNamed: fileNameString.
- self loadFromStream: stream]
- ensure: [stream close].
- self changed: #translations.
- self changed: #untranslated.
- !
Item was removed:
- ----- Method: MOFile>>originalString: (in category 'private') -----
- originalString: index
- ^originalStrings at: index.
- !
Item was removed:
- ----- Method: Locale class>>platformEncodings (in category 'class initialization') -----
- platformEncodings
- PlatformEncodings isEmptyOrNil ifTrue: [ self initializePlatformEncodings ].
- ^PlatformEncodings
- !
Item was removed:
- ----- Method: NaturalLanguageFormTranslator>>translate: (in category 'utilities') -----
- translate: aString
-
- ^ (self generics
- at: aString ifAbsent: [nil]) deepCopy.
-
- "Do you like to write 'form ifNotNil: [form deepCopy]'?"
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageDefinition: (in category 'accessing') -----
- iso3LanguageDefinition: aString
- ^self iso3LanguageTable at: aString!
Item was removed:
- ----- 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.
- 1 to: nStrings do: [:index |
- rawStr _ self loadString: strm
- pointer: (offsetTable at: index)
- length: (lenTable at: index).
- 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 removed:
- ----- Method: ISOLanguageDefinition class>>extraCountryDefinitions (in category 'private') -----
- extraCountryDefinitions
- ^{
- {'Kids'. 'KIDS'. 'KIDS'.}.
- }!
Item was removed:
- ----- Method: InternalTranslator classSide>>services (in category 'file-services') -----
- services
- "Answer potential file services associated with this class"
- ^ {self serviceMergeLanguageTranslations}!
Item was removed:
- ----- Method: GetTextTranslator>>domainUnregistered: (in category 'accessing') -----
- domainUnregistered: aDomainName
- moFiles removeKey: aDomainName ifAbsent: [^self]
- !
Item was removed:
- ----- Method: NaturalLanguageTranslator>>atRandom (in category 'accessing') -----
- atRandom
-
- self subclassResponsibility.
- !
Item was removed:
- ----- Method: MOFile>>testSearchByDictionary (in category 'experimental') -----
- testSearchByDictionary
- InternalTranslator allKnownPhrases
- do: [:each |
- self searchByDictionary: each
- ].
- !
Item was removed:
- ----- Method: Locale class>>clipboadInterpreter (in category 'accessing') -----
- clipboadInterpreter
- ^NoConversionClipboardInterpreter new!
Item was removed:
- ----- Method: LocaleID>>displayCountry (in category 'accessing') -----
- displayCountry
- ^(ISOLanguageDefinition iso2Countries at: self isoCountry asUppercase ifAbsent: [ self isoCountry ]) !
Item was removed:
- ----- Method: InternalTranslator>>generics (in category 'private') -----
- generics
- ^generics ifNil: [generics := Dictionary new]!
Item was removed:
- ----- Method: MOFile>>fileName: (in category 'public') -----
- fileName: path
- fileName _ path!
Item was removed:
- ----- Method: InternalTranslator classSide>>cachedTranslations (in category 'private') -----
- cachedTranslations
- "CachedTranslations := nil"
- ^CachedTranslations ifNil: [CachedTranslations := Dictionary new]!
Item was removed:
- ----- Method: LocaleID class>>current (in category 'accessing') -----
- current
- ^Locale current localeID!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>current (in category 'accessing') -----
- current
- ^ self availableForLocaleID: LocaleID current!
Item was removed:
- ----- Method: Locale class>>currentPlatform (in category 'accessing') -----
- currentPlatform
- "CurrentPlatform := nil"
- CurrentPlatform ifNil: [CurrentPlatform := self determineCurrentLocale].
- ^CurrentPlatform!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: InternalTranslator>>removeTranslationFor: (in category 'translation') -----
- removeTranslationFor: phraseString
- self generics removeKey: phraseString ifAbsent: [].
- self changed: #translations.
- self changed: #untranslated.!
Item was removed:
- ----- Method: GetTextTranslator classSide>>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.
- dir ifNotNil: [dirs add: dir].
- dirs addAll: self defaultLocaleDirs.
- ^dirs!
Item was removed:
- ----- Method: Locale>>localeID: (in category 'accessing') -----
- localeID: anID
- id := anID!
Item was removed:
- ----- Method: Locale>>primCurrencySymbol (in category 'system primitives') -----
- primCurrencySymbol
- "Returns string with currency symbol"
- <primitive: 'primitiveCurrencySymbol' module:'LocalePlugin'>
- ^'$'!
Item was removed:
- ----- Method: InternalTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
- scanFrom: aStream
- "Read a definition of dictionary.
- Make sure current locale corresponds my locale id"
- | aString newTranslations assoc currentPlatform |
- newTranslations := Dictionary new.
- currentPlatform := Locale currentPlatform.
- [Locale
- currentPlatform: (Locale localeID: id).
- [aString := aStream nextChunk withSqueakLineEndings.
- aString size > 0]
- whileTrue: [assoc := Compiler evaluate: aString.
- assoc value = ''
- ifTrue: [self class registerPhrase: assoc key]
- ifFalse: [newTranslations add: assoc]]]
- ensure: [Locale currentPlatform: currentPlatform].
- self mergeTranslations: newTranslations!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>printOn: (in category 'printing') -----
- printOn: aStream
- aStream nextPutAll: self class name; nextPut: $(; print: self localeID; nextPut: $)!
Item was removed:
- ----- Method: LocaleID>>printOn: (in category 'printing') -----
- printOn: stream
- "<language>-<country>"
- stream nextPutAll: self isoLanguage.
- self isoCountry
- ifNotNil: [stream nextPut: $-; nextPutAll: self isoCountry]!
Item was removed:
- ----- Method: Locale class>>isoLocale: (in category 'accessing') -----
- isoLocale: aString
- !
Item was removed:
- ----- Method: GetTextTranslator>>loadMOFileForDomain: (in category 'private') -----
- loadMOFileForDomain: aDomainName
- | moName |
- moName _ self class findMOForLocaleID: self localeID
- domain: aDomainName.
- moName notNil
- ifTrue: [^MOFile new load: moName
- localeID: self localeID]
- ifFalse: [^nil]
- !
Item was removed:
- ----- Method: ISOLanguageDefinition>>iso3: (in category 'initialize') -----
- iso3: aString
- iso3 := aString ifEmpty: [nil] ifNotEmpty: [aString]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>setCurrent (in category 'language switching') -----
- setCurrent
- "notify locale of the translator become current"
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>allKnownDomains (in category 'accessing') -----
- allKnownDomains
- "Every package has it's own text domain now so it's not necessary to keep a registry of all domains, we can simply return all the packages in the image.
- PROBLEM: If a package doesn't contain translations, it won't have a mo file but the GetTextTranslator will try to load it anyway. This happens when we switch languages. So far I tested it briefly and it seems to work..."
- ^PackageOrganizer default packageNames!
Item was removed:
- ----- Method: InternalTranslator classSide>>newLocaleID: (in category 'accessing') -----
- newLocaleID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!
Item was removed:
- ----- Method: MOFile>>atRandom (in category 'public') -----
- atRandom
-
- ^ self translatedString:nStrings atRandom.
- !
Item was removed:
- ----- Method: ISOLanguageDefinition class>>extraISO3Definitions (in category 'private') -----
- extraISO3Definitions
-
- ^self readISOLanguagesFrom: 'jpk Japanese (Kids)
- ' readStream!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>translate:inDomain: (in category 'translation') -----
- translate: aString inDomain: aDomainName
- ^ aString!
Item was removed:
- Object subclass: #NaturalLanguageFormTranslator
- instanceVariableNames: 'id generics'
- classVariableNames: 'CachedTranslations'
- poolDictionaries: ''
- category: 'System-Localization'!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>translators (in category 'accessing') -----
- translators
- ^ Translators ifNil: [Translators := Dictionary new] !
Item was removed:
- ----- Method: Locale class>>currentPlatform:during: (in category 'accessing') -----
- currentPlatform: locale during: aBlock
- "Alter current language platform during a block"
- | backupPlatform |
- backupPlatform := self currentPlatform.
- [self currentPlatform: locale.
- aBlock value]
- ensure: [self currentPlatform: backupPlatform]!
Item was removed:
- ----- Method: InternalTranslator classSide>>mergeTranslationFileNamed: (in category 'file-services') -----
- mergeTranslationFileNamed: fileFullNameString
- "merge the translation in the file named fileFullNameString"
-
- | stream localeID translator |
- stream := FileStream readOnlyFileNamed: fileFullNameString.
- [localeID := LocaleID isoString: stream localName sansPeriodSuffix.
- translator := self localeID: localeID.
- translator loadFromStream: stream]
- ensure: [stream close].
- LanguageEnvironment resetKnownEnvironments.
-
- !
Item was removed:
- ----- Method: InternalTranslator>>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]!
Item was removed:
- ----- Method: MOFile>>translationFor: (in category 'public') -----
- translationFor: aString
- aString size = 0 ifTrue: [^ '']. "Gettext header"
- ^ (self searchByDictionary: aString) ifNil: [aString]
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>mergeLegacyTranslators (in category 'accessing') -----
- mergeLegacyTranslators
- self availableLanguageLocaleIDs
- do: [:localeID | (NaturalLanguageTranslator translators includesKey: localeID)
- ifFalse: [NaturalLanguageTranslator translators
- at: localeID
- put: (self newLocaleID: localeID)]]!
Item was removed:
- ----- Method: GetTextTranslator classSide>>langDirNameForLocaleID: (in category 'private') -----
- langDirNameForLocaleID: id
- "returns relative path from locale directory to actual directory containing MOs"
- ^(id posixName) , (FileDirectory slash) , 'LC_MESSAGES'!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>buildIso3166CodesTables (in category 'private') -----
- buildIso3166CodesTables
- "ISOLanguageDefinition buildIso3166CodesTables"
- | rawdata stream country isoa2 isoa3 unNumeric macName macCode windowsName windowsCode empty table |
- rawdata := self iso3166Codes.
- table := OrderedCollection new: 200.
- stream := rawdata readStream.
- empty := 160 asCharacter asString.
- [stream atEnd] whileFalse:
- [country := stream nextLine.
- isoa2 := stream nextLine.
- isoa3 := stream nextLine.
- unNumeric := stream nextLine.
- windowsName := stream nextLine.
- windowsName = empty ifTrue: [windowsName := nil].
- windowsCode := stream nextLine.
- windowsCode = empty ifTrue: [windowsCode := nil].
- macName := stream nextLine.
- macName = empty ifTrue: [macName := nil].
- macCode := stream nextLine.
- macCode = empty ifTrue: [macCode := nil].
- table add: { country. isoa2. isoa3. unNumeric. windowsName. windowsCode. macName. macCode. }].
- ^table!
Item was removed:
- ----- Method: TextDomainManager classSide>>defaultDomain: (in category 'accessing') -----
- defaultDomain: aDomainName
- defaultDomain := aDomainName!
Item was removed:
- ----- Method: InternalTranslator>>untranslated (in category 'accessing') -----
- untranslated
- | translations |
- translations := self translations.
- ^self class allKnownPhrases reject: [:each | translations includesKey: each]!
Item was removed:
- ----- Method: InternalTranslator classSide>>resetCaches (in category 'class initialization') -----
- resetCaches
- CachedTranslations := nil.
- !
Item was removed:
- ----- Method: Locale class>>switchToID: (in category 'accessing') -----
- switchToID: localeID
- "Locale switchToID: (LocaleID isoLanguage: 'de') "
-
- self switchTo: (Locale localeID: localeID)!
Item was removed:
- ----- Method: LocaleID>>displayName (in category 'accessing') -----
- displayName
- "Answer a proper name to represent the receiver in GUI.
-
- The wording is provided by translations of the magic value
- '<language display name>'.
-
- 'English' -> 'English'
- 'German' -> 'Deutsch'
- "
- | magicPhrase translatedMagicPhrase |
- magicPhrase := '<language display name>'.
- translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self.
- ^ translatedMagicPhrase = magicPhrase
- ifTrue: [self displayLanguage]
- ifFalse: [translatedMagicPhrase]!
Item was removed:
- ----- Method: NaturalLanguageTranslator>>domainRegistered: (in category 'accessing') -----
- domainRegistered: aDomainName
- "notify that new TextDomain is registered. Concrete subclass can responds to this event if needed"!
Item was removed:
- ----- Method: InternalTranslator>>rawRemoveUntranslated: (in category 'translation') -----
- rawRemoveUntranslated: untranslated
-
- self class allKnownPhrases removeKey: untranslated ifAbsent: [].
- self changed: #untranslated.!
Item was removed:
- ----- Method: LocaleID class>>isoLanguage: (in category 'instance creation') -----
- isoLanguage: langString
- ^self isoLanguage: langString isoCountry: nil!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>isoLanguage:isoCountry: (in category 'accessing') -----
- isoLanguage: isoLanguage isoCountry: isoCountry
- ^self localeID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry)!
Item was removed:
- ----- Method: Locale>>primDecimalSymbol (in category 'system primitives') -----
- primDecimalSymbol
- "Returns string with e.g. '.' or ','"
- <primitive:'primitiveDecimalSymbol' module: 'LocalePlugin'>
- ^'.'!
Item was removed:
- ----- Method: LocaleID>>isoLanguage:isoCountry: (in category 'initialize') -----
- isoLanguage: langString isoCountry: countryStringOrNil
- isoLanguage := langString.
- isoCountry := countryStringOrNil!
Item was removed:
- ----- Method: InternalTranslator classSide>>discardAllTranslations (in category 'class initialization') -----
- discardAllTranslations
- AllKnownPhrases := nil.
- self resetCaches.!
Item was removed:
- ----- 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.
- strm_ FileStream readOnlyFileNamed: aFileName.
- fileName _ aFileName.
- [
- self loadHeader: strm.
- originalTable _ self loadStringPointers: strm
- offset: originalTableOffset.
-
- originalStrings _ self loadStrings: strm
- pointers: originalTable.
-
- translatedTable _ self loadStringPointers: strm
- offset: translatedTableOffset.
-
- translatedStrings _ self loadStrings: strm
- pointers: translatedTable.
-
- translations _ Dictionary new: nStrings * 2. "make too enough room to avoid #grow"
- 1 to: nStrings do: [:index |
- | key |
- key _ originalStrings at: index.
- translations at: key put: index.
- ].
- originalStrings _ nil.
- ] ensure: [strm close].!
Item was removed:
- ----- Method: InternalTranslator>>atRandom (in category 'accessing') -----
- atRandom
-
- ^ generics atRandom value.
- !
Item was removed:
- ----- Method: InternalTranslator>>checkPhrase:translation: (in category 'translation') -----
- checkPhrase: phrase translation: translation!
Item was removed:
- ----- Method: InternalTranslator>>defaultBackgroundColor (in category 'user interface') -----
- defaultBackgroundColor
- "answer the receiver's defaultBackgroundColor for views"
- ^ Color cyan!
Item was removed:
- ----- Method: LocaleID>>storeOn: (in category 'printing') -----
- storeOn: aStream
- aStream nextPut: $(.
- aStream nextPutAll: self class name.
- aStream nextPutAll: ' isoString: '.
- aStream nextPutAll: '''' , self printString , ''''.
- aStream nextPut: $).
- !
Item was removed:
- ----- Method: InternalTranslator classSide>>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 newLocaleID: (LocaleID isoLanguage: isoLanguage isoCountry: isoCountry).
-
- self loadExternalTranslationsFor: translator!
Item was removed:
- ----- Method: InternalTranslator classSide>>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: GetTextTranslator>>initialize (in category 'initialize-release') -----
- initialize
- moFiles _ Dictionary new.!
Item was removed:
- ----- Method: LocaleID>>hasParent (in category 'testing') -----
- hasParent
- ^self isoCountry notNil!
Item was removed:
- ----- Method: GetTextTranslator>>reloadMOFiles (in category 'accessing') -----
- reloadMOFiles
- moFiles _ Dictionary new.
- self loadMOFiles.!
Item was removed:
- ----- Method: InternalTranslator classSide>>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 := langDirName directoryNamed: countryDirName.
- (countryDir fileNamesMatching: '*.' , self translationSuffix)
- ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName]
- ]
- ].
- !
Item was removed:
- ----- Method: Locale class>>initialize (in category 'class initialization') -----
- initialize
- "Locale initialize"
-
- Smalltalk addToStartUpList: Locale.
- Preferences addPreference: #useLocale
- categories: #('general') default: false
- balloonHelp: 'Use the system locale to set the system language etc at startup'.!
Item was removed:
- ----- Method: ISOLanguageDefinition class>>iso3LanguageTable (in category 'private') -----
- iso3LanguageTable
- "ISOLanguageDefinition iso3LanguageTable"
-
- ^ISO3Table ifNil: [ISO3Table := self initISO3LanguageTable]!
Item was removed:
- ----- Method: Locale class>>migrateSystem (in category 'private') -----
- migrateSystem
- "Locale migrateSystem"
- "Do all the necessary operations to switch to the new Locale environment."
-
- LocaleChangeListeners _ nil.
- self
- addLocalChangedListener: HandMorph;
- addLocalChangedListener: Clipboard;
- addLocalChangedListener: Vocabulary;
- addLocalChangedListener: PartsBin;
- addLocalChangedListener: Project;
- addLocalChangedListener: PaintBoxMorph;
- yourself!
Item was removed:
- ----- Method: NaturalLanguageTranslator class>>domainUnregistered: (in category 'accessing') -----
- domainUnregistered: aDomainName
- "notify that new TextDomain is unregistered"
- self translators do: [:each | each domainUnregistered: aDomainName]!
Item was removed:
- ----- Method: MOFile>>fileName (in category 'public') -----
- fileName
- ^fileName!
Item was removed:
- ----- Method: NaturalLanguageFormTranslator class>>localeID: (in category 'accessing') -----
- localeID: localeID
- ^ self cachedTranslations
- at: localeID
- ifAbsentPut: [self new localeID: localeID]!
Item was removed:
- ----- 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).
- pair second associationsDo: [:assoc |
- inst name: assoc key form: assoc value.
- ].
- ^ inst.
- !
1
0
A new version of System was added to project Etoys:
http://source.squeak.org/etoys/System-Richo.14.mcz
==================== Summary ====================
Name: System-Richo.14
Author: Richo
Time: 18 May 2010, 11:18:11 am
UUID: 41194def-f628-b449-9345-410709ac8424
Ancestors: System-Richo.12, System-bf.13
* Added TextDomainManager>>#domainForClass:. This method should be removed later, but I can't load the package without it.
=============== Diff against System-Richo.12 ===============
Item was changed:
----- Method: BooleanPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferencesPanel
"Return a button that controls the setting of prefSymbol. It will keep up to date even if the preference value is changed in a different place"
| outerButton aButton str miniWrapper |
outerButton := AlignmentMorph newRow height: 24.
outerButton color: (aColor ifNil: [Color r: 0.645 g: 1.0 b: 1.0]).
outerButton hResizing: (aPreferencesPanel ifNil: [#shrinkWrap] ifNotNil: [#spaceFill]).
outerButton vResizing: #shrinkWrap.
outerButton addMorph: (aButton := UpdatingThreePhaseButtonMorph checkBox).
aButton
target: self preference;
actionSelector: #togglePreferenceValue;
getSelector: #preferenceValue.
outerButton addTransparentSpacerOfSize: (2 @ 0).
+ str := StringMorph contents: self preference name font: Preferences standardButtonFont.
- str := StringMorph contents: self preference name font: (StrikeFont familyName: 'NewYork' size: 12).
self preference localToProject ifTrue:
[str emphasis: 1].
miniWrapper := AlignmentMorph newRow hResizing: #shrinkWrap; vResizing: #shrinkWrap.
+ miniWrapper layoutInset: 0.
miniWrapper beTransparent addMorphBack: str lock.
aPreferencesPanel
ifNotNil: "We're in a Preferences panel"
[miniWrapper on: #mouseDown send: #offerPreferenceNameMenu:with:in: to: self withValue: aPreferencesPanel.
miniWrapper on: #mouseEnter send: #menuButtonMouseEnter: to: miniWrapper.
miniWrapper on: #mouseLeave send: #menuButtonMouseLeave: to: miniWrapper.
miniWrapper setBalloonText: 'Click here for a menu of options regarding this preference. Click on the checkbox to the left to toggle the setting of this preference' translated]
ifNil: "We're a naked button, not in a panel"
[miniWrapper setBalloonText: self preference helpString translated; setProperty: #balloonTarget toValue: aButton].
outerButton addMorphBack: miniWrapper.
outerButton setNameTo: self preference name.
aButton setBalloonText: self preference helpString.
^ outerButton
+ !
-
- "(Preferences preferenceAt: #balloonHelpEnabled) view tearOffButton"!
Item was changed:
----- Method: Preferences class>>openNewPreferencesPanel (in category 'preferences panel') -----
openNewPreferencesPanel
"Create and open a new Preferences Panel"
+ | window |
+ window := self preferencesControlPanel.
+ self currentWorld addMorphFront: window.
+ window center: self currentWorld center.
+ window activateAndForceLabelToShow.
- self openFactoredPanelWithWidth: 370
"Preferences openNewPreferencesPanel"!
Item was changed:
----- Method: Preferences class>>initializePreferencePanel:in: (in category 'preferences panel') -----
initializePreferencePanel: aPanel in: aPasteUpMorph
"Initialize the given Preferences panel. in the given pasteup, which is the top-level panel installed in the container window. Also used to reset it after some change requires reformulation"
| tabbedPalette controlPage aColor aFont maxEntriesPerCategory tabsMorph anExtent prefObjects cc |
aPasteUpMorph removeAllMorphs.
+ aFont := Preferences standardListFont.
- aFont := StrikeFont familyName: 'NewYork' size: 19.
-
aColor := aPanel defaultBackgroundColor.
tabbedPalette := TabbedPalette newSticky.
tabbedPalette dropEnabled: false.
(tabsMorph := tabbedPalette tabsMorph) color: aColor darker;
highlightColor: Color red regularColor: Color brown darker darker.
tabbedPalette on: #mouseDown send: #yourself to: #().
maxEntriesPerCategory := 0.
self listOfCategories do:
[:aCat |
controlPage := AlignmentMorph newColumn beSticky color: aColor.
controlPage on: #mouseDown send: #yourself to: #().
controlPage dropEnabled: false.
Preferences alternativeWindowLook ifTrue:
[cc := Color transparent.
controlPage color: cc].
controlPage borderColor: aColor;
layoutInset: 4.
(prefObjects := self preferenceObjectsInCategory: aCat) do:
[:aPreference | | button |
button _ aPreference representativeButtonWithColor: cc inPanel: aPanel.
button ifNotNil: [controlPage addMorphBack: button]].
controlPage setNameTo: aCat asString.
aCat = #?
ifTrue: [aPanel addHelpItemsTo: controlPage].
tabbedPalette addTabFor: controlPage font: aFont.
aCat = 'search results' ifTrue:
[(tabbedPalette tabNamed: aCat) setBalloonText:
'Use the ? category to find preferences by keyword; the results of your search will show up here' translated].
maxEntriesPerCategory := maxEntriesPerCategory max: prefObjects size].
tabbedPalette selectTabNamed: '?'.
tabsMorph rowsNoWiderThan: aPasteUpMorph width.
aPasteUpMorph on: #mouseDown send: #yourself to: #().
+ anExtent := aPasteUpMorph width @ (490 max: (25 + tabsMorph height + (24 * maxEntriesPerCategory))).
- anExtent := aPasteUpMorph width @ (490 max: (25 + tabsMorph height + (20 * maxEntriesPerCategory))).
aPasteUpMorph extent: anExtent.
aPasteUpMorph color: aColor.
aPasteUpMorph addMorphBack: tabbedPalette.!
Item was added:
+ ----- Method: CurrentProjectRefactoring classSide>>currentInterruptName:preemptedProcess: (in category 'revectoring to current') -----
+ currentInterruptName: aString preemptedProcess: theInterruptedProcess
+
+ ^ Project interruptName: aString preemptedProcess: theInterruptedProcess!
Item was changed:
----- Method: Utilities class>>versionNumberAndDateFromConfig: (in category 'fetching updates') -----
versionNumberAndDateFromConfig: anMCConfiguration
"Answer the latest date found in anMCConfiguration (or the associated working copy), and the sum of its version numbers."
| versionNumbers versionDates |
versionNumbers := anMCConfiguration dependencies collect: [:d |
(d versionInfo name copyAfterLast: $.) asInteger].
versionDates := anMCConfiguration dependencies collect: [:d |
d versionInfo date
+ ifNil: [((d package workingCopy ancestry findAncestor: d versionInfo)
+ ifNotNilDo: [:v | v date])
+ ifNil: [Date fromDays: 0]]].
- ifNil: [d package workingCopy ancestors first date
- ifNil: [Date fromDays: 0]]].
^{versionNumbers sum. versionDates max}.
!
Item was added:
+ ----- Method: TextDomainManager classSide>>domainForClass: (in category 'accessing') -----
+ domainForClass: aClass
+ ^'etoys'!
Item was changed:
----- Method: SystemDictionary>>recreateSpecialObjectsArray (in category 'special objects') -----
recreateSpecialObjectsArray
"Smalltalk recreateSpecialObjectsArray"
"The Special Objects Array is an array of object pointers used
by the
Squeak virtual machine. Its contents are critical and
unchecked, so don't even think of playing here unless you
know what you are doing."
| newArray |
newArray := Array new: 50.
"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: 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 respondsTo: #actualDisplay)
+ ifTrue: [Display actualDisplay] ifFalse: [Display]).
- newArray at: 15 put: Display.
newArray at: 16 put: Message.
newArray at: 17 put: CompiledMethod.
+ newArray at: 18 put: (self specialObjectsArray at: 18).
- 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.
+ "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 ).
- "*unused*"
- "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."
+ newArray at: 25 put: ((0 to: 255) collect: [:ascii | Character value: ascii]).
- newArray
- at: 25
- put: ((0 to: 255)
- collect: [:ascii | Character value: ascii]).
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"
- "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).
- newArray
- at: 30
- put: (self specialObjectsArray at: 30).
"(delay Semaphore)"
+ newArray at: 31 put: (self specialObjectsArray at: 31).
- 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: 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)"
- "Note: This must be fixed once we start using context
- prototypes"
- newArray
- at: 36
- put: (self specialObjectsArray at: 36).
"(MethodContext new: CompiledMethod fullFrameSize)."
+ newArray at: 36 put: (self specialObjectsArray at: 36). "Is the prototype MethodContext (unused by the VM)"
newArray at: 37 put: nil.
- newArray
- at: 38
- put: (self specialObjectsArray at: 38).
"(BlockContext new: CompiledMethod fullFrameSize)."
+ newArray at: 38 put: (self specialObjectsArray at: 38). "Is the prototype BlockContext (unused by the VM)"
+ newArray at: 39 put: (self specialObjectsArray at: 39). "preserve external semaphores"
- newArray at: 39 put: Array new.
"array of objects referred to by external code"
newArray at: 40 put: PseudoContext.
newArray at: 41 put: TranslatedMethod.
"finalization Semaphore"
+ newArray at: 42 put: ((self specialObjectsArray at: 42) ifNil: [Semaphore new]).
- 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: []).
- 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:.
+ "Now replace the interpreter's reference in one atomic operation"
- "Now replace the interpreter's reference in one atomic
- operation"
self specialObjectsArray become: newArray!
Item was changed:
----- Method: Project class>>interruptName: (in category 'utilities') -----
interruptName: labelString
"Create a Notifier on the active scheduling process with the given label."
- | preemptedProcess projectProcess suspendingList |
- Smalltalk isMorphic ifFalse:
- [^ ScheduledControllers interruptName: labelString].
- ActiveHand ifNotNil:[ActiveHand interrupted].
- ActiveWorld _ World. "reinstall active globals"
- ActiveHand _ World primaryHand.
- ActiveHand interrupted. "make sure this one's interrupted too"
- ActiveEvent _ nil.
+ ^ self interruptName: labelString preemptedProcess: nil
- projectProcess _ self uiProcess. "we still need the accessor for a while"
- preemptedProcess _ Processor preemptedProcess.
- "Only debug preempted process if its priority is >= projectProcess' priority"
- preemptedProcess priority < projectProcess priority ifTrue:[
- (suspendingList _ projectProcess suspendingList) == nil
- ifTrue: [projectProcess == Processor activeProcess
- ifTrue: [projectProcess suspend]]
- ifFalse: [suspendingList remove: projectProcess ifAbsent: [].
- projectProcess offList].
- preemptedProcess _ projectProcess.
- ] ifFalse:[
- preemptedProcess _ projectProcess suspend offList.
- ].
- Debugger openInterrupt: labelString onProcess: preemptedProcess
!
Item was changed:
----- Method: Preferences class>>preferencesControlPanel (in category 'preferences panel') -----
preferencesControlPanel
"Answer a Preferences control panel window"
"Preferences preferencesControlPanel openInHand"
| window playfield aPanel |
aPanel _ PreferencesPanel new.
+ playfield _ PasteUpMorph new width: 450.
- playfield _ PasteUpMorph new width: 325.
playfield dropEnabled: false.
window _ (SystemWindow labelled: 'Preferences' translated) model: aPanel.
self initializePreferencePanel: aPanel in: playfield.
window on: #keyStroke send: #keyStroke: to: aPanel.
window bounds: (100 @ 100 - (0 @ window labelHeight + window borderWidth) extent: playfield extent + (2 * window borderWidth)).
window addMorph: playfield frame: (0 @ 0 extent: 1 @ 1).
window updatePaneColors.
window setProperty: #minimumExtent toValue: playfield extent + (12@15).
^ window!
Item was changed:
----- Method: SystemDictionary>>lowSpaceWatcher (in category 'memory space') -----
lowSpaceWatcher
+ "Wait until the low space semaphore is signalled, then take appropriate actions."
+
+ | free preemptedProcess |
- "Wait until the low space semaphore is signalled, then take
- appropriate actions."
- | free |
self garbageCollectMost <= self lowSpaceThreshold
ifTrue: [self garbageCollect <= self lowSpaceThreshold
ifTrue: ["free space must be above threshold before
starting low space watcher"
^ Beeper beep]].
+
+ Smalltalk specialObjectsArray at: 23 put: nil. "process causing low space will be saved here"
LowSpaceSemaphore := Semaphore new.
self primLowSpaceSemaphore: LowSpaceSemaphore.
+ self primSignalAtBytesLeft: self lowSpaceThreshold. "enable low space interrupts"
+
+ LowSpaceSemaphore wait. "wait for a low space condition..."
+
+ self primSignalAtBytesLeft: 0. "disable low space interrupts"
- self primSignalAtBytesLeft: self lowSpaceThreshold.
- "enable low space interrupts"
- LowSpaceSemaphore wait.
- "wait for a low space condition..."
- self primSignalAtBytesLeft: 0.
- "disable low space interrupts"
self primLowSpaceSemaphore: nil.
LowSpaceProcess := nil.
+
+ "The process that was active at the time of the low space interrupt."
+ preemptedProcess := Smalltalk specialObjectsArray at: 23.
+ Smalltalk specialObjectsArray at: 23 put: nil.
+
+ "Note: user now unprotected until the low space watcher is re-installed"
+
- "Note: user now unprotected until the low space watcher is
- re-installed "
self memoryHogs isEmpty
ifFalse: [free := self bytesLeft.
self memoryHogs
+ do: [ :hog | hog freeSomeSpace ].
- do: [:hog | hog freeSomeSpace].
self bytesLeft > free
+ ifTrue: [ ^ self installLowSpaceWatcher ]].
- ifTrue: [^ self installLowSpaceWatcher]].
self isMorphic
+ ifTrue: [CurrentProjectRefactoring
+ currentInterruptName: 'Space is low'
+ preemptedProcess: preemptedProcess]
+ ifFalse: [ScheduledControllers
+ interruptName: 'Space is low'
+ preemptedProcess: preemptedProcess]
+ !
- ifTrue: [CurrentProjectRefactoring currentInterruptName: 'Space is low']
- ifFalse: [ScheduledControllers interruptName: 'Space is low']!
Item was added:
+ ----- Method: Utilities class>>defaultRepositoryChangeLogOn: (in category 'fetching updates') -----
+ defaultRepositoryChangeLogOn: aStream
+ "Transcript clear. Utilities defaultRepositoryChangeLogOn: Transcript"
+ | repo updates latest previous latestVersion previousVersion added removed latestPackages previousPackages prevDep prevInfo latestInfo |
+ repo := MCRepositoryGroup default repositories detect: [:r |
+ r description = MCMcmUpdater defaultUpdateURL].
+ updates := repo allFileNames select: [:each | 'update-*.mcm' match: each].
+ updates := updates asSortedCollection:
+ [:a :b | a splitInteger second > b splitInteger second].
+ latest := repo versionFromFileNamed: updates first.
+ previous := repo versionFromFileNamed: updates second.
+ latestVersion := self versionNumberAndDateFromConfig: latest.
+ previousVersion := self versionNumberAndDateFromConfig: previous.
+ aStream nextPutAll: 'Changes from v'; print: previousVersion first;
+ nextPutAll: ' of '; print: previousVersion second;
+ nextPutAll: ' to v'; print: latestVersion first;
+ nextPutAll: ' of '; print: latestVersion second;
+ nextPutAll: ':'; cr.
+ aStream flush.
+ latestPackages := latest dependencies collect: [:dep | dep package].
+ previousPackages := previous dependencies collect: [:dep | dep package].
+ added := latestPackages difference: previousPackages.
+ removed := previousPackages difference: latestPackages.
+ added ifNotEmpty: [
+ aStream nextPutAll: 'Added packages:'.
+ added do: [:each | aStream space; nextPutAll: each name].
+ aStream cr].
+ removed ifNotEmpty: [
+ aStream nextPutAll: 'Removed packages:'.
+ removed do: [:each | aStream space; nextPutAll: each name].
+ aStream cr].
+ latest dependencies do: [:latestDep |
+ prevDep := previous dependencies detect: [:p | latestDep package = p package] ifNone: [].
+ (prevDep notNil and: [prevDep versionInfo ~= latestDep versionInfo])
+ ifTrue: [
+ aStream nextPutAll: '--------------------'; cr.
+ prevInfo := prevDep package workingCopy ancestry findAncestor: prevDep versionInfo.
+ latestInfo := latestDep package workingCopy ancestry findAncestor: latestDep versionInfo.
+ (latestInfo allAncestorsOnPathTo: prevInfo) reverse, {latestInfo}
+ do: [:ver | aStream nextPutAll: ver name; cr; nextPutAll: ver message; cr]
+ separatedBy: [aStream cr]]].
+ aStream flush
+ !
Item was added:
+ ----- Method: Project class>>interruptName:preemptedProcess: (in category 'utilities') -----
+ interruptName: labelString preemptedProcess: theInterruptedProcess
+ "Create a Notifier on the active scheduling process with the given label."
+ | preemptedProcess projectProcess |
+ Smalltalk isMorphic ifFalse:
+ [^ ScheduledControllers interruptName: labelString].
+ ActiveHand ifNotNil:[ActiveHand interrupted].
+ ActiveWorld := World. "reinstall active globals"
+ ActiveHand := World primaryHand.
+ ActiveHand interrupted. "make sure this one's interrupted too"
+ ActiveEvent := nil.
+
+ projectProcess := self uiProcess. "we still need the accessor for a while"
+ preemptedProcess := theInterruptedProcess ifNil: [Processor preemptedProcess].
+ "Only debug preempted process if its priority is >= projectProcess' priority"
+ preemptedProcess priority < projectProcess priority
+ ifTrue:[preemptedProcess := projectProcess].
+ preemptedProcess suspend.
+ Debugger openInterrupt: labelString onProcess: preemptedProcess
+ !
Item was removed:
- ----- Method: Preferences class>>openFactoredPanelWithWidth: (in category 'preferences panel') -----
- openFactoredPanelWithWidth: aWidth
- "Open up a preferences panel of the given width"
-
- "Preferences openFactoredPanelWithWidth: 325"
- | window playfield aPanel |
-
- aPanel _ PreferencesPanel new.
- playfield _ PasteUpMorph new width: aWidth.
- playfield dropEnabled: false.
- self initializePreferencePanel: aPanel in: playfield.
- self couldOpenInMorphic
- ifTrue: [window _ (SystemWindow labelled: 'Preferences' translated)
- model: aPanel.
- window on: #keyStroke send: #keyStroke: to: aPanel.
- window
- bounds: (100 @ 100 - (0 @ window labelHeight + window borderWidth) extent: playfield extent + (2 * window borderWidth)).
- window
- addMorph: playfield
- frame: (0 @ 0 extent: 1 @ 1).
- window updatePaneColors.
- window setProperty: #minimumExtent toValue: playfield extent + (12@15).
- self currentWorld addMorphFront: window.
- window center: self currentWorld center.
- window activateAndForceLabelToShow]
- ifFalse:
- [(window _ MVCWiWPasteUpMorph newWorldForProject: nil) addMorph: playfield.
- MorphWorldView
- openOn: window
- label: 'Preferences' translated
- extent: playfield extent]!
1
0
A new version of System was added to project Etoys:
http://source.squeak.org/etoys/System-Richo.12.mcz
==================== Summary ====================
Name: System-Richo.12
Author: Richo
Time: 13 May 2010, 4:10:15 pm
UUID: 3188de42-860f-5949-9f9a-12f540c657b7
Ancestors: System-Richo.11
* Removed a lot of stuff used for Localization.
* Modified TextDomainManager to use method properties to store the text domain of each method. This happens in a lazy way. It's also posible to preconfigure the method properties of all methods with translations but it takes forever and it ends up with a Space Low warning (see TextDomainManager class>>updateDomainOfAllMethodsWithTranslations)
=============== Diff against System-bf.9 ===============
Item was added:
+ ----- Method: TextDomainManager classSide>>allMethodsWithTranslations (in category 'accessing') -----
+ allMethodsWithTranslations
+ "Look for #translated calls"
+ | methodsWithTranslations |
+ methodsWithTranslations := TranslatedReceiverFinder new stringReceiversWithContext: #translated.
+ methodsWithTranslations := methodsWithTranslations, (TranslatedReceiverFinder new
+ stringReceiversWithContext: #translatedNoop).
+
+ methodsWithTranslations := methodsWithTranslations collect: [:each | each key compiledMethod].
+
+ "Look for Etoys tiles and vocabularies"
+ methodsWithTranslations := methodsWithTranslations, (EToyVocabulary allPhrasesWithContextToTranslate collect: [:r |
+ (MethodReference new setStandardClass: r second methodSymbol: r third) compiledMethod.
+ ]).
+
+ ^methodsWithTranslations!
Item was added:
+ ----- Method: TextDomainManager classSide>>domainForPackage: (in category 'accessing') -----
+ domainForPackage: aPackageInfo
+ "Package names and text domains are synonyms now"
+ ^aPackageInfo name!
Item was changed:
Object subclass: #TextDomainManager
instanceVariableNames: ''
+ classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses Packages'
- classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses'
poolDictionaries: ''
category: 'System-Localization'!
+ TextDomainManager class
+ instanceVariableNames: 'defaultDomain'!
!TextDomainManager commentStamp: 'tk 1/4/2008 16:08' prior: 0!
I manages mapping from class category to textdomain.
Class variables:
ClassCategories IdentityDictionary -- classCategory -> domainName
Classes IdentityDictionary -- class name (a Symbol) -> domainName (a cache only!!)
DefaultDomain String -- the default domain name
DomainInfos Dictionary -- domainName -> a TextDomainInfo
LoneClasses IdentityDictionary -- class name (a Symbol) -> domainName. For classes whose entire category are not all in the same domain (BookMorph and QuickGuideMorph)
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
TextDomainManager unregisterDomain: 'DrGeoII'.
TextDomainManager registerClass: #QuickGuideMorph domain: 'quickguides'.
TextDomainManager registerClass: #QuickGuideHolderMorph domain: 'quickguides'.
!
+ TextDomainManager class
+ instanceVariableNames: 'defaultDomain'!
Item was added:
+ ----- Method: TextDomainManager classSide>>domainOfMethod: (in category 'accessing') -----
+ domainOfMethod: aCompiledMethod
+ ^ aCompiledMethod
+ propertyValueAt: self textDomainProperty
+ ifAbsent: [self updateDomainOfMethod: aCompiledMethod] !
Item was added:
+ ----- Method: TextDomainManager classSide>>clearAllDomains (in category 'private') -----
+ clearAllDomains
+ SystemNavigation default
+ allCompiledMethodDo: [:each | each
+ removeProperty: self textDomainProperty
+ ifAbsent: []] !
Item was added:
+ ----- Method: TextDomainManager classSide>>updateDomainOfAllMethodsWithTranslations (in category 'private') -----
+ updateDomainOfAllMethodsWithTranslations
+ self allMethodsWithTranslations do: [:each|
+ self updateDomainOfMethod: each
+ ]!
Item was changed:
----- Method: TextDomainManager classSide>>initialize (in category 'class initialization') -----
initialize
" TextDomainManager initialize "
+ self defaultDomain: 'Etoys'; clearAllDomains!
-
- ClassCategories _ IdentityDictionary new.
- Classes _ IdentityDictionary new.
- DomainInfos _ Dictionary new.
- self defaultDomain: 'etoys'.
- self registerClass: #QuickGuideMorph domain: 'quickguides'.
- self registerClass: #QuickGuideHolderMorph domain: 'quickguides'.
- !
Item was added:
+ ----- Method: TextDomainManager classSide>>textDomainProperty (in category 'private') -----
+ textDomainProperty
+ ^#textDomain!
Item was changed:
----- Method: TextDomainManager classSide>>defaultDomain (in category 'accessing') -----
defaultDomain
+ "I'm not sure we still need a default domain, AFAIK the default domain will only be used when no domain is found. In that case, wouldn't it be better to just look for a translation in all domains?"
+ ^defaultDomain!
- ^DefaultDomain!
Item was added:
+ ----- Method: TextDomainManager classSide>>updateDomainOfMethod: (in category 'private') -----
+ updateDomainOfMethod: aCompiledMethod
+ "First it looks for the package of the method reference (using
+ the PackageOrganizer: deadly slow). If the method doesn't
+ belong to any package it uses the default domain. Finally it
+ stores the text domain of the method using a method
+ property, this way we gain performance the next time we
+ translate the same method because we avoid the use of
+ PackageOrganizer. Have I mentioned it is really slow? :)"
+ | package |
+ package := PackageOrganizer default
+ packageOfMethod: aCompiledMethod methodReference
+ ifNone: [].
+ ^ aCompiledMethod
+ propertyValueAt: self textDomainProperty
+ put: (package isNil
+ ifTrue: [TextDomainManager defaultDomain]
+ ifFalse: [package name])!
Item was changed:
----- Method: TextDomainManager classSide>>allKnownDomains (in category 'accessing') -----
allKnownDomains
+ "Every package has it's own text domain now so it's not necessary to keep a registry of all domains, we can simply return all the packages in the image.
+ PROBLEM: If a package doesn't contain translations, it won't have a mo file but the GetTextTranslator will try to load it anyway. This happens when we switch languages. So far I tested it briefly and it seems to work..."
+ ^PackageOrganizer default packageNames!
- | domains |
- domains _ Set new.
- domains addAll: ClassCategories values.
- domains add: self defaultDomain.
- ^domains
- !
Item was changed:
----- Method: TextDomainManager classSide>>defaultDomain: (in category 'accessing') -----
defaultDomain: aDomainName
+ defaultDomain := aDomainName!
- DefaultDomain _ aDomainName!
Item was removed:
- ----- Method: TextDomainManager classSide>>unregisterDomain: (in category 'accessing') -----
- unregisterDomain: domainName
- DomainInfos removeKey: domainName.
- self refresh.
- NaturalLanguageTranslator domainUnregistered: domainName.
- !
Item was removed:
- ----- Method: TextDomainInfo>>categories (in category 'accessing') -----
- categories
- ^categories!
Item was removed:
- ----- Method: TextDomainInfo>>category:matches: (in category 'private') -----
- category: categoryName matches: prefix
- ^ categoryName notNil and: [categoryName = prefix or: [categoryName beginsWith: prefix, '-']]!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerCategoryPrefix:domain: (in category 'accessing') -----
- registerCategoryPrefix: aString domain: aDomainName
- | domInfo |
- domInfo _ self domainInfoFor: aDomainName.
- domInfo categoryPrefixes add: aString.
- self refresh.!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerClass:domain: (in category 'accessing') -----
- registerClass: className domain: aDomainName
-
- LoneClasses ifNil: [LoneClasses _ IdentityDictionary new].
- LoneClasses at: className put: aDomainName.
- self refresh. "moves it to Classes"
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>refresh (in category 'private') -----
- refresh
- ClassCategories _ IdentityDictionary new.
- Classes _ IdentityDictionary new.
- DomainInfos keysAndValuesDo: [:domainName :domainInfo |
- domainInfo matchedSystemCategories do: [:cat |
- ClassCategories at: cat ifPresent: [self error: 'category ', (cat asString) , ' belongs to multiple domains'].
- ClassCategories at: cat put: domainName.
- (SystemOrganization listAtCategoryNamed: cat ) do: [ :cls |
- Classes at: cls put: domainName.
- ]
- ]
- ].
- Classes addAll: LoneClasses.!
Item was removed:
- ----- Method: TextDomainManager classSide>>domainInfoFor: (in category 'private') -----
- domainInfoFor: domainName
- ^DomainInfos at: domainName ifAbsentPut: [ self registerDomain: domainName]!
Item was removed:
- ----- Method: TextDomainManager classSide>>domainInfos (in category 'private') -----
- domainInfos
- ^DomainInfos!
Item was removed:
- ----- Method: TextDomainManager classSide>>domainForClassCategory: (in category 'accessing') -----
- domainForClassCategory: aCategorySymbol
- ^ClassCategories at: aCategorySymbol ifAbsent: [self defaultDomain]!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerClassCategory:domain: (in category 'accessing') -----
- registerClassCategory: categorySymbol domain: aDomainName
- | domInfo |
- domInfo _ self domainInfoFor: aDomainName.
- domInfo categories add: categorySymbol.
- self refresh.
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>domainForClass: (in category 'accessing') -----
- domainForClass: aClass
- ^Classes at: aClass theNonMetaClass name ifAbsent: [self defaultDomain]!
Item was removed:
- Object subclass: #TextDomainInfo
- instanceVariableNames: 'categoryPrefixes categories'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'System-Localization'!
-
- !TextDomainInfo commentStamp: '<historical>' prior: 0!
- I hold criteria for deciding wheter a systemCategory belongs to domain.
- - categoryPrefixes is collection of prefix of class category.
- - categories is for specifying fine grained criterion.
- !
Item was removed:
- ----- Method: TextDomainInfo>>initialize (in category 'initialize-release') -----
- initialize
- categoryPrefixes _ Set new.
- categories _ IdentitySet new.
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>registerDomain: (in category 'accessing') -----
- registerDomain: domainName
- | domInfo |
- domInfo _ TextDomainInfo new.
- DomainInfos at: domainName put: domInfo.
- NaturalLanguageTranslator domainRegistered: domainName.
- ^domInfo!
Item was removed:
- ----- Method: TextDomainInfo>>categoryPrefixes (in category 'accessing') -----
- categoryPrefixes
- ^categoryPrefixes!
Item was removed:
- ----- Method: TextDomainInfo>>includesCategory: (in category 'accessing') -----
- includesCategory: categorySymbol
- (categories includes: categorySymbol) ifTrue: [^true].
- categoryPrefixes do: [:each |
- (self category: categorySymbol matches: each) ifTrue: [^true]
- ].
-
- ^false.!
Item was removed:
- ----- Method: TextDomainInfo>>matchedSystemCategories (in category 'accessing') -----
- matchedSystemCategories
- ^SystemOrganization categories
- select: [:cat | self includesCategory: cat]!
1
0
A new version of System was added to project Etoys:
http://source.squeak.org/etoys/System-Richo.10.mcz
==================== Summary ====================
Name: System-Richo.10
Author: Richo
Time: 10 May 2010, 9:14:25 pm
UUID: 6bae6ba9-1fe6-6d4c-9e1d-0a5be5d2b702
Ancestors: System-bf.9
* A few changes to TextDomainManager and TextDomainInfo to link the text domain of a method with its package instead of its class or class category. Please note that I kinda removed the old behavior, except for the method #domainForClass: which is still needed for String>>#translated but this will change soon.
=============== Diff against System-bf.9 ===============
Item was added:
+ ----- Method: TextDomainInfo>>matchedPackages (in category 'accessing') -----
+ matchedPackages
+ "Returns all the packages with this domain"
+ ^PackageInfo allPackages select: [:package | self includesPackage: package name]!
Item was added:
+ ----- Method: TextDomainManager classSide>>domainForPackage: (in category 'accessing') -----
+ domainForPackage: aPackageInfo
+ ^self domainForPackageNamed: aPackageInfo name!
Item was added:
+ ----- Method: TextDomainManager classSide>>registerPackage:domain: (in category 'accessing') -----
+ registerPackage: aPackageName domain: aDomainName
+ | domInfo |
+ domInfo _ self domainInfoFor: aDomainName.
+ domInfo packages add: aPackageName asSymbol.
+ "self refresh."
+ Packages at: aPackageName put: aDomainName
+ !
Item was changed:
----- Method: TextDomainManager classSide>>refresh (in category 'private') -----
refresh
+ Packages := Dictionary new.
- ClassCategories _ IdentityDictionary new.
- Classes _ IdentityDictionary new.
DomainInfos keysAndValuesDo: [:domainName :domainInfo |
+ domainInfo matchedPackages do: [:package |
+ Packages at: package name ifPresent: [:err| self error: 'Package ', (package name asString) , ' belongs to multiple domains'].
+ Packages at: package name put: domainName.
- domainInfo matchedSystemCategories do: [:cat |
- ClassCategories at: cat ifPresent: [self error: 'category ', (cat asString) , ' belongs to multiple domains'].
- ClassCategories at: cat put: domainName.
- (SystemOrganization listAtCategoryNamed: cat ) do: [ :cls |
- Classes at: cls put: domainName.
]
]
+ !
- ].
- Classes addAll: LoneClasses.!
Item was changed:
Object subclass: #TextDomainManager
instanceVariableNames: ''
+ classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses Packages'
- classVariableNames: 'ClassCategories Classes DefaultDomain DomainInfos LoneClasses'
poolDictionaries: ''
category: 'System-Localization'!
!TextDomainManager commentStamp: 'tk 1/4/2008 16:08' prior: 0!
I manages mapping from class category to textdomain.
Class variables:
ClassCategories IdentityDictionary -- classCategory -> domainName
Classes IdentityDictionary -- class name (a Symbol) -> domainName (a cache only!!)
DefaultDomain String -- the default domain name
DomainInfos Dictionary -- domainName -> a TextDomainInfo
LoneClasses IdentityDictionary -- class name (a Symbol) -> domainName. For classes whose entire category are not all in the same domain (BookMorph and QuickGuideMorph)
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'.
TextDomainManager unregisterDomain: 'DrGeoII'.
TextDomainManager registerClass: #QuickGuideMorph domain: 'quickguides'.
TextDomainManager registerClass: #QuickGuideHolderMorph domain: 'quickguides'.
!
Item was changed:
----- Method: TextDomainManager classSide>>initialize (in category 'class initialization') -----
initialize
" TextDomainManager initialize "
ClassCategories _ IdentityDictionary new.
Classes _ IdentityDictionary new.
+ Packages := Dictionary new.
DomainInfos _ Dictionary new.
+ self defaultDomain: 'others'.
+ "self registerClass: #QuickGuideMorph domain: 'quickguides'.
+ self registerClass: #QuickGuideHolderMorph domain: 'quickguides'."!
- self defaultDomain: 'etoys'.
- self registerClass: #QuickGuideMorph domain: 'quickguides'.
- self registerClass: #QuickGuideHolderMorph domain: 'quickguides'.
- !
Item was added:
+ ----- Method: TextDomainInfo>>packages (in category 'accessing') -----
+ packages
+ ^packages!
Item was changed:
Object subclass: #TextDomainInfo
+ instanceVariableNames: 'categoryPrefixes categories packages'
- instanceVariableNames: 'categoryPrefixes categories'
classVariableNames: ''
poolDictionaries: ''
category: 'System-Localization'!
!TextDomainInfo commentStamp: '<historical>' prior: 0!
I hold criteria for deciding wheter a systemCategory belongs to domain.
- categoryPrefixes is collection of prefix of class category.
- categories is for specifying fine grained criterion.
!
Item was added:
+ ----- Method: TextDomainInfo>>includesPackage: (in category 'accessing') -----
+ includesPackage: packageName
+ ^packages includes: packageName!
Item was changed:
----- Method: TextDomainInfo>>initialize (in category 'initialize-release') -----
initialize
categoryPrefixes _ Set new.
categories _ IdentitySet new.
+ packages := Set new. !
- !
Item was changed:
----- Method: TextDomainManager classSide>>allKnownDomains (in category 'accessing') -----
allKnownDomains
| domains |
domains _ Set new.
+ domains addAll: Packages values.
- domains addAll: ClassCategories values.
domains add: self defaultDomain.
^domains
!
Item was added:
+ ----- Method: TextDomainManager classSide>>domainForPackageNamed: (in category 'accessing') -----
+ domainForPackageNamed: packageName
+ ^Packages at: packageName ifAbsent: [self defaultDomain]!
Item was removed:
- ----- Method: TextDomainInfo>>category:matches: (in category 'private') -----
- category: categoryName matches: prefix
- ^ categoryName notNil and: [categoryName = prefix or: [categoryName beginsWith: prefix, '-']]!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerCategoryPrefix:domain: (in category 'accessing') -----
- registerCategoryPrefix: aString domain: aDomainName
- | domInfo |
- domInfo _ self domainInfoFor: aDomainName.
- domInfo categoryPrefixes add: aString.
- self refresh.!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerClass:domain: (in category 'accessing') -----
- registerClass: className domain: aDomainName
-
- LoneClasses ifNil: [LoneClasses _ IdentityDictionary new].
- LoneClasses at: className put: aDomainName.
- self refresh. "moves it to Classes"
- !
Item was removed:
- ----- Method: TextDomainManager classSide>>domainForClassCategory: (in category 'accessing') -----
- domainForClassCategory: aCategorySymbol
- ^ClassCategories at: aCategorySymbol ifAbsent: [self defaultDomain]!
Item was removed:
- ----- Method: TextDomainManager classSide>>registerClassCategory:domain: (in category 'accessing') -----
- registerClassCategory: categorySymbol domain: aDomainName
- | domInfo |
- domInfo _ self domainInfoFor: aDomainName.
- domInfo categories add: categorySymbol.
- self refresh.
- !
Item was removed:
- ----- Method: TextDomainInfo>>includesCategory: (in category 'accessing') -----
- includesCategory: categorySymbol
- (categories includes: categorySymbol) ifTrue: [^true].
- categoryPrefixes do: [:each |
- (self category: categorySymbol matches: each) ifTrue: [^true]
- ].
-
- ^false.!
Item was removed:
- ----- Method: TextDomainInfo>>matchedSystemCategories (in category 'accessing') -----
- matchedSystemCategories
- ^SystemOrganization categories
- select: [:cat | self includesCategory: cat]!
1
0