~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to src/Gettext.pck.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-16 20:20:24 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220816202024-9trlk02ioq73bo3z
WIP bundle

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
'From Cuis 6.0 [latest update: #5347] on 3 July 2022 at 12:39:35 pm'!
 
1
'From Cuis 6.0 [latest update: #5448] on 16 August 2022 at 10:08:09 pm'!
2
2
'Description '!
3
 
!provides: 'Gettext' 1 19!
 
3
!provides: 'Gettext' 1 21!
4
4
!requires: 'System-Locales' 1 4 nil!
5
5
SystemOrganization addCategory: 'Gettext'!
6
6
 
501
501
        tupple at: 2 put:  lenTable.
502
502
        ^tupple! !
503
503
 
504
 
!MOFile methodsFor: 'private' stamp: 'hlsf 3/11/2022 10:31:38'!
 
504
!MOFile methodsFor: 'private' stamp: 'drgeo 8/16/2022 22:07:41'!
505
505
loadStrings: strm pointers: table
506
506
"We convert string encoding at load time.
507
507
Currently, we do not take care to set the leadingChar for a languageEnvironment"
517
517
                rawStr _  (String new: byteLength) writeStream.
518
518
                strm position:  start.
519
519
                [strm position < endPos] whileTrue: [rawStr nextPut: strm next].
520
 
                strings at: index put: (String fromUtf8: rawStr contents asByteArray    )].
 
520
                strings at: index put: (String fromUtf8Bytes: rawStr contents asByteArray       )].
521
521
        ^strings.! !
522
522
 
523
523
!MOFile class methodsFor: 'class initialization'!
560
560
        "notify locale of the translator become current"
561
561
! !
562
562
 
563
 
!NaturalLanguageTranslator class methodsFor: 'class initialization'!
 
563
!NaturalLanguageTranslator class methodsFor: 'class initialization' stamp: 'hlsf 8/16/2022 11:09:35'!
564
564
initialize
565
 
        (Smalltalk classNamed: #SessionManager)
566
 
                ifNotNil: [:sessionManagerClass|
567
 
                        sessionManagerClass default
568
 
                                registerSystemClassNamed: self name
569
 
                                atPriority: 100]
570
 
                ifNil: [Smalltalk addToStartUpList: NaturalLanguageTranslator after: FileLocator].
 
565
        Smalltalk addToStartUpList: NaturalLanguageTranslator
571
566
        
572
567
        ! !
573
568
 
665
660
        ^ (self availableForLocaleID: localeID)
666
661
                translate: aString inDomain: aDomainName! !
667
662
 
668
 
!NaturalLanguageTranslator class methodsFor: 'cleanup'!
669
 
cleanUp
670
 
        AllKnownPhrases _ nil! !
671
 
 
672
663
!GetTextTranslator methodsFor: 'accessing'!
673
664
domainRegistered: aDomainName
674
665
        "only current translator actually load the MO, to minimize loading time.