mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 22:09:16 +02:00
AmigaOS4: locale.library unit
git-svn-id: trunk@36204 -
This commit is contained in:
marcus
parent
535c990233
commit
20a8228c9a
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6488,6 +6488,7 @@ packages/os4units/src/inputevent.pas svneol=native#text/pascal
|
|||||||
packages/os4units/src/intuition.pas svneol=native#text/pascal
|
packages/os4units/src/intuition.pas svneol=native#text/pascal
|
||||||
packages/os4units/src/keymap.pas svneol=native#text/pascal
|
packages/os4units/src/keymap.pas svneol=native#text/pascal
|
||||||
packages/os4units/src/layers.pas svneol=native#text/pascal
|
packages/os4units/src/layers.pas svneol=native#text/pascal
|
||||||
|
packages/os4units/src/locale.pas svneol=native#text/pascal
|
||||||
packages/os4units/src/mui.pas svneol=native#text/pascal
|
packages/os4units/src/mui.pas svneol=native#text/pascal
|
||||||
packages/os4units/src/picasso96api.pas svneol=native#text/pascal
|
packages/os4units/src/picasso96api.pas svneol=native#text/pascal
|
||||||
packages/os4units/src/timer.pas svneol=native#text/pascal
|
packages/os4units/src/timer.pas svneol=native#text/pascal
|
||||||
|
|||||||
@ -49,6 +49,7 @@ begin
|
|||||||
T:=P.Targets.AddUnit('icon.pas');
|
T:=P.Targets.AddUnit('icon.pas');
|
||||||
T:=P.Targets.AddUnit('picasso96api.pas');
|
T:=P.Targets.AddUnit('picasso96api.pas');
|
||||||
T:=P.Targets.AddUnit('cybergraphics.pas');
|
T:=P.Targets.AddUnit('cybergraphics.pas');
|
||||||
|
T:=P.Targets.AddUnit('locale.pas');
|
||||||
|
|
||||||
{$ifndef ALLPACKAGES}
|
{$ifndef ALLPACKAGES}
|
||||||
Run;
|
Run;
|
||||||
|
|||||||
341
packages/os4units/src/locale.pas
Normal file
341
packages/os4units/src/locale.pas
Normal file
@ -0,0 +1,341 @@
|
|||||||
|
{
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2017 by Free Pascal development team
|
||||||
|
|
||||||
|
locale.library functions
|
||||||
|
|
||||||
|
See the file COPYING.FPC, included in this distribution,
|
||||||
|
for details about the copyright.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
|
||||||
|
{$PACKRECORDS 2}
|
||||||
|
|
||||||
|
unit locale;
|
||||||
|
|
||||||
|
interface
|
||||||
|
uses
|
||||||
|
exec, amigados, utility;
|
||||||
|
|
||||||
|
const
|
||||||
|
// constants for GetLocaleStr()
|
||||||
|
LANG_CODE = 0; // ISO-639-2/T 3-letter lowercase language code (e.g. "eng"). Added in V50
|
||||||
|
|
||||||
|
DAY_1 = 1; // Sunday
|
||||||
|
DAY_2 = 2; // Monday
|
||||||
|
DAY_3 = 3; // Tuesday
|
||||||
|
DAY_4 = 4; // Wednesday
|
||||||
|
DAY_5 = 5; // Thursday
|
||||||
|
DAY_6 = 6; // Friday
|
||||||
|
DAY_7 = 7; // Saturday
|
||||||
|
|
||||||
|
ABDAY_1 = 8; // Sun
|
||||||
|
ABDAY_2 = 9; // Mon
|
||||||
|
ABDAY_3 = 10; // Tue
|
||||||
|
ABDAY_4 = 11; // Wed
|
||||||
|
ABDAY_5 = 12; // Thu
|
||||||
|
ABDAY_6 = 13; // Fri
|
||||||
|
ABDAY_7 = 14; // Sat
|
||||||
|
|
||||||
|
MON_1 = 15; // January
|
||||||
|
MON_2 = 16; // February
|
||||||
|
MON_3 = 17; // March
|
||||||
|
MON_4 = 18; // April
|
||||||
|
MON_5 = 19; // May
|
||||||
|
MON_6 = 20; // June
|
||||||
|
MON_7 = 21; // July
|
||||||
|
MON_8 = 22; // August
|
||||||
|
MON_9 = 23; // September
|
||||||
|
MON_10 = 24; // October
|
||||||
|
MON_11 = 25; // November
|
||||||
|
MON_12 = 26; // December
|
||||||
|
|
||||||
|
ABMON_1 = 27; // Jan
|
||||||
|
ABMON_2 = 28; // Feb
|
||||||
|
ABMON_3 = 29; // Mar
|
||||||
|
ABMON_4 = 30; // Apr
|
||||||
|
ABMON_5 = 31; // May
|
||||||
|
ABMON_6 = 32; // Jun
|
||||||
|
ABMON_7 = 33; // Jul
|
||||||
|
ABMON_8 = 34; // Aug
|
||||||
|
ABMON_9 = 35; // Sep
|
||||||
|
ABMON_10 = 36; // Oct
|
||||||
|
ABMON_11 = 37; // Nov
|
||||||
|
ABMON_12 = 38; // Dec
|
||||||
|
|
||||||
|
YESSTR = 39; // affirmative response for yes/no queries
|
||||||
|
NOSTR = 40; // negative response for yes/no queries
|
||||||
|
|
||||||
|
AM_STR = 41; // AM
|
||||||
|
PM_STR = 42; // PM
|
||||||
|
|
||||||
|
SOFTHYPHEN = 43; // soft hyphenation
|
||||||
|
HARDHYPHEN = 44; // hard hyphenation
|
||||||
|
|
||||||
|
OPENQUOTE = 45; // start of quoted block
|
||||||
|
CLOSEQUOTE = 46; // end of quoted block
|
||||||
|
|
||||||
|
YESTERDAYSTR = 47; // Yesterday
|
||||||
|
TODAYSTR = 48; // Today
|
||||||
|
TOMORROWSTR = 49; // Tomorrow
|
||||||
|
FUTURESTR = 50; // Future
|
||||||
|
|
||||||
|
LANG_NAME = 51; // native name of this language in this language and charset. Added in V50.
|
||||||
|
|
||||||
|
// Added in V50: Alternate forms of weekday names to be used
|
||||||
|
// in date strings, some languages need those. Fallback are
|
||||||
|
// the normal weekday names for standalone usage.
|
||||||
|
ALTDAY_1 = 52; // Sunday
|
||||||
|
ALTDAY_2 = 53; // Monday
|
||||||
|
ALTDAY_3 = 54; // Tuesday
|
||||||
|
ALTDAY_4 = 55; // Wednesday
|
||||||
|
ALTDAY_5 = 56; // Thursday
|
||||||
|
ALTDAY_6 = 57; // Friday
|
||||||
|
ALTDAY_7 = 58; // Saturday
|
||||||
|
|
||||||
|
// Added in V50: Alternate forms of month names to be used
|
||||||
|
// in date strings, some languages need those. Fallback are
|
||||||
|
// the normal month names for standalone usage.
|
||||||
|
ALTMON_1 = 59; // January
|
||||||
|
ALTMON_2 = 60; // February
|
||||||
|
ALTMON_3 = 61; // March
|
||||||
|
ALTMON_4 = 62; // April
|
||||||
|
ALTMON_5 = 63; // May
|
||||||
|
ALTMON_6 = 64; // June
|
||||||
|
ALTMON_7 = 65; // July
|
||||||
|
ALTMON_8 = 66; // August
|
||||||
|
ALTMON_9 = 67; // September
|
||||||
|
ALTMON_10 = 68; // October
|
||||||
|
ALTMON_11 = 69; // November
|
||||||
|
ALTMON_12 = 70; // December
|
||||||
|
|
||||||
|
MAXSTRMSG = 71; { current number of defined strings }
|
||||||
|
|
||||||
|
|
||||||
|
//***************************************************************************
|
||||||
|
|
||||||
|
type
|
||||||
|
// OpenLibrary("locale.library",0) returns a pointer to this structure
|
||||||
|
PLocaleBase = ^TLocaleBase;
|
||||||
|
TLocaleBase = record
|
||||||
|
lb_LibNode: TLibrary;
|
||||||
|
lb_SysPatches: Boolean; // True if locale installed its patches
|
||||||
|
end;
|
||||||
|
|
||||||
|
{***************************************************************************}
|
||||||
|
|
||||||
|
type
|
||||||
|
// This structure must only be allocated by locale.library and is READ-ONLY!
|
||||||
|
PLocale = ^TLocale;
|
||||||
|
TLocale = record
|
||||||
|
loc_LocaleName: STRPTR; // locale's name
|
||||||
|
loc_LanguageName: STRPTR; // language of this locale
|
||||||
|
loc_PrefLanguages: array[0..9] of STRPTR; // preferred languages
|
||||||
|
loc_Flags: LongWord; // always 0 for now
|
||||||
|
|
||||||
|
loc_CodeSet: LongWord; // IANA charset number. V50+ default charset
|
||||||
|
loc_CountryCode: LongWord; // user's country code
|
||||||
|
loc_TelephoneCode: LongWord; // country's telephone code
|
||||||
|
loc_GMTOffset: LongWord; // minutes from GMT
|
||||||
|
loc_MeasuringSystem: Byte; // what measuring system?
|
||||||
|
loc_CalendarType: Byte; // what calendar type?
|
||||||
|
loc_Reserved0: array[0..1] of Byte;
|
||||||
|
|
||||||
|
loc_DateTimeFormat: STRPTR; // regular date & time format
|
||||||
|
loc_DateFormat: STRPTR; // date format by itself
|
||||||
|
loc_TimeFormat: STRPTR; // time format by itself
|
||||||
|
|
||||||
|
loc_ShortDateTimeFormat: STRPTR; // short date & time format
|
||||||
|
loc_ShortDateFormat: STRPTR; // short date format by itself
|
||||||
|
loc_ShortTimeFormat: STRPTR; // short time format by itself
|
||||||
|
|
||||||
|
// for numeric values
|
||||||
|
loc_DecimalPoint: STRPTR; // character before the decimals
|
||||||
|
loc_GroupSeparator: STRPTR; // separates groups of digits
|
||||||
|
loc_FracGroupSeparator: STRPTR; // separates groups of digits
|
||||||
|
loc_Grouping: PByte; // size of each group
|
||||||
|
loc_FracGrouping: PByte; // size of each group
|
||||||
|
|
||||||
|
// for monetary values
|
||||||
|
loc_MonDecimalPoint: STRPTR;
|
||||||
|
loc_MonGroupSeparator: STRPTR;
|
||||||
|
loc_MonFracGroupSeparator: STRPTR;
|
||||||
|
loc_MonGrouping: PByte;
|
||||||
|
loc_MonFracGrouping: PByte;
|
||||||
|
loc_MonFracDigits: Byte; // digits after the decimal point
|
||||||
|
loc_MonIntFracDigits : Byte; // for international representation
|
||||||
|
loc_Reserved1: array[0..1] of Byte;
|
||||||
|
|
||||||
|
// for currency symbols
|
||||||
|
loc_MonCS: STRPTR; // currency symbol
|
||||||
|
loc_MonSmallCS: STRPTR; // symbol for small amounts
|
||||||
|
loc_MonIntCS: STRPTR; // internationl (ISO 4217) code
|
||||||
|
|
||||||
|
{ for positive monetary values }
|
||||||
|
loc_MonPositiveSign: STRPTR; // indicate positive money value
|
||||||
|
loc_MonPositiveSpaceSep: Byte; // determine if separated by space
|
||||||
|
loc_MonPositiveSignPos: Byte; // position of positive sign
|
||||||
|
loc_MonPositiveCSPos: Byte; // position of currency symbol
|
||||||
|
loc_Reserved2: Byte;
|
||||||
|
|
||||||
|
//{ for negative monetary values }
|
||||||
|
loc_MonNegativeSign: STRPTR; // indicate negative money value
|
||||||
|
loc_MonNegativeSpaceSep: STRPTR; // determine if separated by space
|
||||||
|
loc_MonNegativeSignPos: STRPTR; // position of negative sign
|
||||||
|
loc_MonNegativeCSPos: STRPTR; // position of currency symbol
|
||||||
|
loc_Reserved3: Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
// constants for Locale.loc_MeasuringSystem
|
||||||
|
MS_ISO = 0; // international metric system
|
||||||
|
MS_AMERICAN = 1; // american system
|
||||||
|
MS_IMPERIAL = 2; // imperial system
|
||||||
|
MS_BRITISH = 3; // british system
|
||||||
|
|
||||||
|
// constants for Locale.loc_CalendarType
|
||||||
|
CT_7SUN = 0; // 7 days a week, Sunday is the first day
|
||||||
|
CT_7MON = 1; // 7 days a week, Monday is the first day
|
||||||
|
CT_7TUE = 2; // 7 days a week, Tuesday is the first day
|
||||||
|
CT_7WED = 3; // 7 days a week, Wednesday is the first day
|
||||||
|
CT_7THU = 4; // 7 days a week, Thursday is the first day
|
||||||
|
CT_7FRI = 5; // 7 days a week, Friday is the first day
|
||||||
|
CT_7SAT = 6; // 7 days a week, Saturday is the first day
|
||||||
|
|
||||||
|
// constants for Locale.loc_MonPositiveSpaceSep and Locale.loc_MonNegativeSpaceSep
|
||||||
|
SS_NOSPACE = 0; // cur. symbol is NOT separated from value with a space
|
||||||
|
SS_SPACE = 1; // cur. symbol IS separated from value with a space
|
||||||
|
|
||||||
|
// constants for Locale.loc_MonPositiveSignPos and Locale.loc_MonNegativeSignPos }
|
||||||
|
SP_PARENS = 0; // () surround the quantity and currency_symbol
|
||||||
|
SP_PREC_ALL = 1; // sign string comes before amount and symbol
|
||||||
|
SP_SUCC_ALL = 2; // sign string comes after amount and symbol
|
||||||
|
SP_PREC_CURR = 3; // sign string comes right before currency symbol
|
||||||
|
SP_SUCC_CURR = 4; // sign string comes right after currency symbol
|
||||||
|
|
||||||
|
// constants for Locale.loc_MonPositiveCSPos and Locale.loc_MonNegativeCSPos
|
||||||
|
CSP_PRECEDES = 0; // currency symbol comes before value
|
||||||
|
CSP_SUCCEEDS = 1; // currency symbol comes after value
|
||||||
|
|
||||||
|
{ elements of the byte arrays pointed to by:
|
||||||
|
Locale.loc_Grouping
|
||||||
|
Locale.loc_FracGrouping
|
||||||
|
Locale.loc_MonGrouping
|
||||||
|
Locale.loc_MonFracGrouping
|
||||||
|
are interpreted as follows:
|
||||||
|
|
||||||
|
255 indicates that no further grouping is to be performed
|
||||||
|
0 indicates that the previous element is to be repeatedly used
|
||||||
|
for the remainder of the digits
|
||||||
|
<other> the number of digits that comprises the current group}
|
||||||
|
|
||||||
|
|
||||||
|
//***************************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
// Tags for OpenCatalog()
|
||||||
|
OC_TagBase = TAG_USER + $90000;
|
||||||
|
OC_BuiltInLanguage = OC_TagBase + 1; // language of built-in strings
|
||||||
|
OC_BuiltInCodeSet = OC_TagBase + 2; // code set of built-in strings
|
||||||
|
OC_Version = OC_TagBase + 3; // catalog version number required
|
||||||
|
OC_Language = OC_TagBase + 4; // preferred language of catalog
|
||||||
|
OC_WantedCodeSet = OC_TagBase + 5; // code set of font to be used (V50)
|
||||||
|
OC_BuiltInVersion = OC_TagBase + 6; // version of builtin strings (V52.3)
|
||||||
|
OC_PreferExternal = OC_TagBase + 7; // replace builtin language? (V53.4)
|
||||||
|
|
||||||
|
|
||||||
|
//***************************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
// Comparison types for StrnCmp()
|
||||||
|
SC_ASCII = 0;
|
||||||
|
SC_COLLATE1 = 1;
|
||||||
|
SC_COLLATE2 = 2;
|
||||||
|
|
||||||
|
|
||||||
|
//***************************************************************************
|
||||||
|
|
||||||
|
type
|
||||||
|
// This structure must only be allocated by locale.library and is READ-ONLY!
|
||||||
|
PCatalog = ^TCatalog;
|
||||||
|
TCatalog = record
|
||||||
|
cat_Link: TNode; // for internal linkage
|
||||||
|
cat_Pad: Word; // to longword align
|
||||||
|
cat_Language: STRPTR; // language of the catalog
|
||||||
|
cat_CodeSet: LongWord; // currently always 0
|
||||||
|
cat_Version: Word; // version of the catalog
|
||||||
|
cat_Revision: Word; // revision of the catalog
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
LocaleBase: PLocaleBase = nil;
|
||||||
|
ILocale: PInterface = nil;
|
||||||
|
|
||||||
|
const
|
||||||
|
LOCALENAME: PChar = 'locale.library';
|
||||||
|
|
||||||
|
function LocaleObtain(): LongWord; syscall ILocale 60;
|
||||||
|
function LocaleRelease(): LongWord; syscall ILocale 64;
|
||||||
|
procedure LocaleExpunge(); syscall ILocale 68;
|
||||||
|
function LocaleClone(): PInterface; syscall ILocale 72;
|
||||||
|
// 76 Private 1
|
||||||
|
procedure CloseCatalog(Catalog: PCatalog); syscall ILocale 80;
|
||||||
|
procedure CloseLocale(Locale: PLocale); syscall ILocale 84;
|
||||||
|
function ConvToLower(Locale: PLocale; Character: LongWord): LongWord; syscall ILocale 88;
|
||||||
|
function ConvToUpper(Locale: PLocale; Character: LongWord): LongWord; syscall ILocale 92;
|
||||||
|
procedure FormatDate(Locale: PLocale; FmtTemplate: STRPTR; Date: PDateStamp; PutCharFunc: PHook); syscall ILocale 96;
|
||||||
|
function FormatString(Locale: PLocale; FmtTemplate: STRPTR; DataStream: APTR; PutCharFunc: PHook): POINTER; syscall ILocale 100;
|
||||||
|
function GetCatalogStr(Catalog: PCatalog; StringNum: LongInt; DefaultString: STRPTR): PChar; syscall ILocale 104;
|
||||||
|
function GetLocaleStr(Locale: PLocale; StringNum: LongWord): PChar; syscall ILocale 108;
|
||||||
|
function IsAlNum(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 112;
|
||||||
|
function IsAlpha(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 116;
|
||||||
|
function IsCntrl(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 120;
|
||||||
|
function IsDigit(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 124;
|
||||||
|
function IsGraph(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 128;
|
||||||
|
function IsLower(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 132;
|
||||||
|
function IsPrint(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 136;
|
||||||
|
function IsPunct(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 140;
|
||||||
|
function IsSpace(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 144;
|
||||||
|
function IsUpper(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 148;
|
||||||
|
function IsXDigit(Locale: PLocale; Character: LongWord): LongBool; syscall ILocale 152;
|
||||||
|
function OpenCatalogA(Locale: PLocale; Name: PChar; Tags: PTagItem): PCatalog; syscall ILocale 156;
|
||||||
|
// 160 OpenCatalog
|
||||||
|
function OpenLocale(Name: STRPTR): PLocale; syscall ILocale 164;
|
||||||
|
function ParseDate(Locale: PLocale; Date: PDateStamp; FmtTemplate: STRPTR; GetCharFunc: PHook): LongBool; syscall ILocale 168;
|
||||||
|
// 172 Private2
|
||||||
|
function StrConvert(Locale: PLocale; String1: STRPTR; Buffer: APTR; BufferSize: LongWord; Typ: LongWord): LongWord; syscall ILocale 176;
|
||||||
|
function StrnCmp(Locale: PLocale; String1: STRPTR; String2: STRPTR; Length: LongInt; Typ: LongWord): LongInt; syscall ILocale 180;
|
||||||
|
function Locale_DateToStr(DateTime: PDateTime): LongInt; syscall ILocale 184;
|
||||||
|
function Locale_StrToDate(DateTime: PDateTime): LongInt; syscall ILocale 188;
|
||||||
|
function IsBlank(Locale: PLocale; Character: LongWord): LongInt; syscall ILocale 192;
|
||||||
|
function FormatString32(Locale: Plocale; FmtTemplate: STRPTR; DataStream: APTR; PutCharFunc: PHook): APTR; syscall ILocale 196;
|
||||||
|
|
||||||
|
function OpenCatalog(Locale: PLocale; Name: STRPTR; const Args: array of PtrUInt): PCatalog; inline;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function OpenCatalog(Locale: PLocale; Name: STRPTR; const Args: array of PtrUInt): PCatalog;
|
||||||
|
begin
|
||||||
|
OpenCatalog := OpenCatalogA(Locale, Name, @Args);
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
LIBVERSION: LongWord = 0;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
LocaleBase := PLocaleBase(OpenLibrary(LOCALENAME, LIBVERSION));
|
||||||
|
if Assigned(LocaleBase) then
|
||||||
|
ILocale := GetInterface(PLibrary(LocaleBase), 'main', 1, nil);
|
||||||
|
finalization
|
||||||
|
if Assigned(ILocale) then
|
||||||
|
DropInterface(ILocale);
|
||||||
|
if Assigned(LocaleBase) then
|
||||||
|
CloseLibrary(PLibrary(LocaleBase));
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user