De-I18n

[zamtmn]

I translate my prog with po files and TranslateResourceStrings/TranslateUnitResourceStrings, but I need receive original value some resorcestrings. Сan I do this in run time without doubling constants in program sources?

[Kays]

[…] I need receive original value some resorcestrings. Сan I do this in run time without doubling constants in program sources?

Yesno. Yes, the data is there but the necessary function objPas.getResourceStringDefaultValue was removed in revision 31687. The documentation was updated accordingly just a year ago.

If you just need the default value at one instance, I’d go for the following pattern.

Code: Pascal  [Select][+][-]

1. const
2.         boom = 'Boom!'
3. resourcestring
4.         bang = boom;

[zamtmn]

@Kays
Thank you for such a detailed answer!

>>I’d go for the following pattern.
This will cause an increase in constants, and the use of different constant names for the original\current values
I will try to use my own translation procedures and build a TDictionary(Current,Original) values

[PascalDragon]

Yesno. Yes, the data is there but the necessary function objPas.getResourceStringDefaultValue was removed in revision 31687.

The data that ObjPas.GetResourceStringDefaultValue worked on wasn't generated since FPC 2.6.4 anymore (and due to the RESSTRSECTIONS the function wasn't available either). The current data format is similar, but different. If someone provides a patch to introduce missing functionality it will probably be included.

[zamtmn]

PascalDragon
Can I use something map class inside objpas?

[PascalDragon]

No, only what is provided by the System unit is available. ObjPas is a low level core unit and any other Object Pascal unit (modes ObjFPC and Delphi) depends on it.

[Kays]

This will cause an increase in constants, and the use of different constant names for the original\current values

Use scopes if you don’t like that:

Code: Pascal  [Select][+][-]

1. unit defaultMessages;
2. interface
3. const
4.         foo = 'Foobarable';
5. implementation
6. end.

Code: Pascal  [Select][+][-]

1. unit megawaffle;
2. interface
3. uses
4.         defaultMessages;
5. resourceString
6.         foo = foo;
7. implementation
8. end.

Thus in megaWaffle the identifier foo refers to the possibly translated message, and the FQI defaultMessages.foo always refers to the untranslated version.

The data that ObjPas.GetResourceStringDefaultValue worked on wasn't generated since FPC 2.6.4 anymore […]

I see. I couldn’t’ve guessed that from the commit message. Thanks for the clarification.

[zamtmn]

Kays
I think it should look like

Code: Pascal  [Select][+][-]

1. resourceString
2.   foo = 'test';
3. ...
4.   writeln(foo);
5.   writeln(GetResourceStringDefaultValue(foo));

No additional const, no TableIndex, no StringIndex

PascalDragon
That is, no already written structures with a quick search will not be used here((
Maybe I can change the TResourceIterator signature, and build a dictionary at a higher level, for example in lazutils.Translations?