vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
21 lines
489 B
ObjectPascal
21 lines
489 B
ObjectPascal
{ Example for use of GNU gettext.
|
|
This file is in the public domain.
|
|
|
|
Source code of the Pascal program. }
|
|
|
|
program hello;
|
|
{$mode delphi}
|
|
|
|
uses gettext, { translateresourcestrings }
|
|
sysutils; { format }
|
|
|
|
resourcestring
|
|
hello_world = 'Hello, world!';
|
|
running_as = 'This program is running as process number %d.';
|
|
|
|
begin
|
|
translateresourcestrings({$i %LOCALEDIR%}+'/%s/LC_MESSAGES/hello-pascal.mo');
|
|
writeln(hello_world);
|
|
writeln(format(running_as,[GetProcessID]));
|
|
end.
|