"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libview' }"

"{ NameSpace: Smalltalk }"

Dictionary subclass:#ResourcePack

	instanceVariableNames:'packsClassName packsFileName fileReadFailed superPack projectPack'

	classVariableNames:'Packs FailedToLoadPacks DebugModifications'

	poolDictionaries:''

	category:'Interface-Internationalization'

!

!ResourcePack class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This class supports easy customization of smalltalk code (i.e. internationalization

    and viewStyle adaption).

    ResourcePacks are class specific, meaning that every subclass of View

    which is created when the first instance of the view/app is created,

    and cached in a class-instVar (so the file is only read once).

    The resourcePack consists of a mapping from strings to values, which are

    then used in labels, buttons, menus etc.

    The resourcePack initializes itself from a file found in 'resources/<className>.rs',

    where 'className' is built by the usual abbreviation mechanism (see abbrev-files).

    Conditional mappings are possible, by including lines as:

    in the resourcefile. Example:

    file 'foo.rs':

    the corresponding resource-strings are accessed (from methods within the class)

    using:

    returning the mapped string (i.e. 'Abbruch' if the global Language is set

    to #de)..

    If no corresponding entry is found in the resources, the key is returned;

    alternatively, use:

    which returns 'bar', if no resource definition for 'foo' is found.

    Translations can also include arguments, such as:

    This scheme has the advantage, that you can write your programs using your

    native language strings. Later, when new languages are to be supported,

    simply create a resource file for the class and add translations for

    all those strings. (find the keys by looking at users of resource or senders

    of 'string:*').

    Notice, that the grammar of different languages may imply a reordering,

    so the above string becomes the german 'wollen Sie %1 wirklich löschen';

    so using percent-placeholders is much better than simple concatenations of

    arguments to the question.

    applications binary).

    Also, unsupported languages' strings are simply left unchanged - if you

    write your application in (say) english, and only plan to use it in english,

    no additional work is required (i.e you don't even need a resource file then).

    (which is better than nothing or empty button labels ;-)

    Notice, that you can also translate engish to english, by providing an en.rs file.

    This is sometimes useful to fix typing errors or bad syntax in the english,

    as sometimes made by the programmer, without a need to recompile or to also adjust other

    language translations.

    Finally, this scheme is also compatible to a pure enum-key based translation mechanism,

    as typically used in the C-world.

    For example:

    Summary:

    Debugging:

    [author:]

"

!

examples

"

    normally, resources are found in files named after their classes sourcefile

    For example, the FileBrowsers resources are found in 'FBrowser.rs'.

    For the examples below, we process resources from a constant string;

	this is NOT representative.

									[exBegin]

	|stream res|

	stream := ReadStream on:'

foo  ''the translation for foo''

#if Language == #de

bar  ''die deutsche uebersetzung von bar''

baz  ''baz hat den Wert %1''

#endif

#if Language == #fr

bar  ''bar en francaise''

baz  ''%1, c''''est baz''

#endif

'.

	res := ResourcePack new readFromResourceStream:stream in:nil.

	Transcript showCR:'baz is translated to: ' , (res string:'baz' with:'1234').

	Transcript showCR:'bar is translated to: ' , (res string:'bar').

	Transcript showCR:'foo is translated to: ' , (res string:'foo').

	Transcript showCR:'fooBar is translated to: ' , (res string:'fooBar').

									[exEnd]

    set the Language to french:

									[exBegin]

	Language := #fr

									[exEnd]

    and repeat the above.

    back to english:

									[exBegin]

									[exEnd]

    back to german:

									[exBegin]

									[exEnd]

"

! !

!ResourcePack class methodsFor:'initialization'!

flushCachedResourcePacks

    "forget all cached resources - needed after a style change"

    Packs := nil.

    self initialize

    "

     ResourcePack flushCachedResourcePacks

    "

!

initialize

    Packs isNil ifTrue:[

    ].

    "

     ResourcePack initialize

    "

    "Modified: / 28-09-2011 / 15:53:21 / cg"

! !

!ResourcePack class methodsFor:'instance creation'!

for:aClass

    "get the full resource definitions for aClass (i.e. with super packs).

     Also leave the resulting pack in the cache for faster access next time."

    ^ self for:aClass cached:false

    "

     ResourcePack for:CodeView

     ResourcePack for:SmallSense::SettingsAppl

     Workspace classResources

    "

    "Modified: / 18-09-2006 / 19:02:57 / cg"

!

for:aClass cached:cached

    "get the full resource definitions for aClass (i.e. with super packs).

     Also leave the resulting pack in the cache for faster access next time."

    |nm pack rsrcDir baseName|

    nm := aClass resourcePackName.

    cached ifTrue:[

    ].

    baseName := (Smalltalk fileNameForClass:nm) , '.rs'.

    rsrcDir := aClass resourceDirectory.

"/ CHECK this

"/    (rsrcDir notNil and:[rsrcDir suffix = 'rs']) ifTrue:[

"/        rsrcDir := rsrcDir head asFilename.

"/    ].

    ] ifFalse:[

    ].

    aClass superclass notNil ifTrue:[

    ].

    pack packsClassOrFileName:nm.

    cached ifTrue:[

    ].

    pack projectPack:(self forPackage:(aClass resourcePackage) cached:true).

    ^ pack

     ResourcePack forPackage:'bosch:dapasx' cached:true

     ResourcePack for:CodeView

     Workspace classResources

    "

    "Modified: / 01-11-2010 / 09:09:43 / cg"

!

    "get the full resource definitions given a package id (such as stx:libbasic').

     Also leave the resulting pack in the cache for faster access next time."

    ^ self forPackage:package cached:true

    "

    "

    "Modified: / 18-09-2006 / 18:45:31 / cg"

!

forPackage:package cached:cached

    "get the full resource definitions given a package id (such as stx:libbasic').

     Also optionally leave the resulting pack in the cache for faster access next time."

    ^ self forPackage:package resourceFileName:'resources.rs' cached:cached

    "

    "

    "Modified: / 19-10-2006 / 23:18:28 / cg"

!

forPackage:package resourceFileName:resourceFileName cached:cached

    "get the full resource definitions given a package id (such as stx:libbasic').

     Also optionally leave the resulting pack in the cache for faster access next time.

     Remember failed packs, to avoid retrying reading the file again and again"

    |fullName pack rsrcDir file|

    fullName := package , '/resources/',resourceFileName.

    cached ifTrue:[

    ].

    rsrcDir := Smalltalk projectDirectoryForPackage:package.

    rsrcDir isNil ifTrue:[

    ] ifFalse:[

    ].

    pack := self fromFile:resourceFileName directory:rsrcDir cached:cached.

    pack packsClassOrFileName:fullName.

    ^ pack

    "

    "

    "Modified: / 28-09-2011 / 15:55:30 / cg"

!

fromFile:aFileName

    "get the resource definitions from a file in the default directory."

    ^ self fromFile:aFileName directory:'resources'

    "

     ResourcePack fromFile:'SBrowser.rs'

     ResourcePack fromFile:'FBrowser.rs'

     ResourcePack fromFile:'Smalltalk.rs'

     ResourcePack fromFile:'Smalltalk.rs' asFilename

     ResourcePack fromFile:'../../libtool/resources/AboutBox_ru.rs' asFilename

    "

!

fromFile:aFileName directory:dirName

    "get the resource definitions from a file in a directory."

    ^ self fromFile:aFileName directory:dirName cached:false

!

fromFile:aFileName directory:dirName cached:cached

    "get the resource definitions from a file in a directory.

     Uncached low-level entry."

    |newPack|

    newPack := self new.

    newPack readFromFile:aFileName directory:dirName.

    cached ifTrue:[

    ].

    ^ newPack

! !

!ResourcePack class methodsFor:'private'!

addToCache:aPack

    |idx|

    Packs isNil ifTrue:[

    ].

    idx := Packs identityIndexOf:nil.

    idx == 0 ifTrue:[

    ].

    idx == 0 ifTrue:[

    ].

    aPack at:'__language__' put:(UserPreferences current language,'_',UserPreferences current languageTerritory).

    Packs at:idx put:aPack.

    "Modified: / 18-09-2006 / 19:12:12 / cg"

!

searchCacheFor:aClassOrFileName

    |sz "{ Class: SmallInteger }" lang|

    Packs isNil ifTrue:[

    ].

    lang := (UserPreferences current language,'_',UserPreferences current languageTerritory).

    sz := Packs size.

    1 to:sz do:[:idx |

    ].

    ^ nil

    "

    "

    "Modified: / 18-09-2006 / 19:13:13 / cg"

! !

!ResourcePack class methodsFor:'utilities'!

extractEncodingFromLine:lineString

    |rest encoding|

    (lineString startsWith:'encoding') ifFalse:[^ nil].

    rest := lineString copyFrom:9.

    rest := rest withoutSeparators.

    (rest startsWith:'#') ifTrue:[

    ].

    (rest startsWith:'''') ifTrue:[