mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-08 11:19:36 +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/keymap.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/picasso96api.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('picasso96api.pas');
|
||||
T:=P.Targets.AddUnit('cybergraphics.pas');
|
||||
T:=P.Targets.AddUnit('locale.pas');
|
||||
|
||||
{$ifndef ALLPACKAGES}
|
||||
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