mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-01 17:30:21 +02:00
AROS: added locale library unit
git-svn-id: trunk@34519 -
This commit is contained in:
marcus
parent
bc6819aa91
commit
97a4c7b9f7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -1185,6 +1185,7 @@ packages/arosunits/src/inputevent.pas svneol=native#text/plain
|
|||||||
packages/arosunits/src/intuition.pas svneol=native#text/plain
|
packages/arosunits/src/intuition.pas svneol=native#text/plain
|
||||||
packages/arosunits/src/keymap.pas svneol=native#text/plain
|
packages/arosunits/src/keymap.pas svneol=native#text/plain
|
||||||
packages/arosunits/src/layers.pas svneol=native#text/plain
|
packages/arosunits/src/layers.pas svneol=native#text/plain
|
||||||
|
packages/arosunits/src/locale.pas svneol=native#text/pascal
|
||||||
packages/arosunits/src/longarray.pas svneol=native#text/plain
|
packages/arosunits/src/longarray.pas svneol=native#text/plain
|
||||||
packages/arosunits/src/mui.pas svneol=native#text/plain
|
packages/arosunits/src/mui.pas svneol=native#text/plain
|
||||||
packages/arosunits/src/tagsarray.pas svneol=native#text/plain
|
packages/arosunits/src/tagsarray.pas svneol=native#text/plain
|
||||||
|
|||||||
@ -52,6 +52,7 @@ begin
|
|||||||
T:=P.Targets.AddUnit('asl.pas');
|
T:=P.Targets.AddUnit('asl.pas');
|
||||||
T:=P.Targets.AddUnit('mui.pas');
|
T:=P.Targets.AddUnit('mui.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;
|
||||||
|
|||||||
262
packages/arosunits/src/locale.pas
Normal file
262
packages/arosunits/src/locale.pas
Normal file
@ -0,0 +1,262 @@
|
|||||||
|
{
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2016 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;
|
||||||
|
|
||||||
|
type
|
||||||
|
PLocaleBase = ^TLocaleBase;
|
||||||
|
TLocaleBase = record
|
||||||
|
lb_LibNode: TLibrary;
|
||||||
|
lb_SysPatches: WordBool;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ This structure must only be allocated by locale.library and is READ-ONLY! }
|
||||||
|
PLocale = ^TLocale;
|
||||||
|
TLocale = record
|
||||||
|
// Basics
|
||||||
|
loc_LocaleName: STRPTR; // Name of locale
|
||||||
|
loc_LanguageName: STRPTR; // Language of locale
|
||||||
|
loc_PrefLanguages: array[0..9] of STRPTR; // Preferred languages as array
|
||||||
|
loc_Flags: LongWord; // Locale Flags (LOCF_*)
|
||||||
|
loc_CodeSet: LongWord;
|
||||||
|
// Country
|
||||||
|
loc_CountryCode: LongWord; // country code
|
||||||
|
loc_TelephoneCode: LongWord; // telephone code of country
|
||||||
|
loc_GMTOffset: LongInt; // distance to GMT in minutes
|
||||||
|
loc_MeasuringSystem: Byte; // Used measuring system (MS_*)
|
||||||
|
loc_CalendarType: Byte; // Define start of the Week (CT_*)
|
||||||
|
loc_Reserved0: array[0..1] of Byte;
|
||||||
|
// DateTime
|
||||||
|
loc_DateTimeFormat, // Long date, time format
|
||||||
|
loc_DateFormat, // Long date format
|
||||||
|
loc_TimeFormat, // Long time format
|
||||||
|
loc_ShortDateTimeFormat, // Short date, time format
|
||||||
|
loc_ShortDateFormat, // Short date format
|
||||||
|
loc_ShortTimeFormat, // Short time format
|
||||||
|
// Numerics
|
||||||
|
loc_DecimalPoint: STRPTR; // Decimalseparator
|
||||||
|
loc_GroupSeparator: STRPTR; // Thousandseparator
|
||||||
|
loc_FracGroupSeparator: STRPTR; // Additional separator
|
||||||
|
loc_Grouping: PByte; // Size of loc_FracGroupSeparator group
|
||||||
|
loc_FracGrouping: PByte; // Size of loc_FracGroupSeparator group
|
||||||
|
// Currency Format
|
||||||
|
loc_MonDecimalPoint: STRPTR;
|
||||||
|
loc_MonGroupSeparator: STRPTR;
|
||||||
|
loc_MonFracGroupSeparator: STRPTR;
|
||||||
|
loc_MonGrouping: PByte;
|
||||||
|
loc_MonFracGrouping: PByte;
|
||||||
|
loc_MonFracDigits: Byte; // Numbers of places after loc_MonDecimalPoint
|
||||||
|
loc_MonIntFracDigits: Byte;
|
||||||
|
loc_Reserved1: array[0..1] of Byte;
|
||||||
|
// Currency symbol
|
||||||
|
loc_MonCS: STRPTR; // Currency symbol (e.g. $)
|
||||||
|
loc_MonSmallCS: STRPTR; // Symbol for small amounts (eg. cent)
|
||||||
|
loc_MonIntCS: STRPTR; // Internationl (ISO 4217) code (e.g. EUR/USD/GBP)
|
||||||
|
|
||||||
|
loc_MonPositiveSign: STRPTR; // for positive money value
|
||||||
|
loc_MonPositiveSpaceSep: Byte; // Separated by space (SS_*)
|
||||||
|
loc_MonPositiveSignPos: Byte; // Position of positive sign (SP_*)
|
||||||
|
loc_MonPositiveCSPos: Byte; // Position of currency symbol (CSP_*)
|
||||||
|
loc_Reserved2: Byte;
|
||||||
|
|
||||||
|
loc_MonNegativeSign: STRPTR; // for negative money values
|
||||||
|
loc_MonNegativeSpaceSep: Byte; // Separated by space (SS_*)
|
||||||
|
loc_MonNegativeSignPos: Byte; // Position of negative sign (SP_*)
|
||||||
|
loc_MonNegativeCSPos: Byte; // Position of currency symbol (CSP_*)
|
||||||
|
loc_Reserved3: Byte;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
const
|
||||||
|
// Flags for loc_Flags
|
||||||
|
LOCF_GMT_CLOCK = 1 shl 16; // Hardware clock stores GMT, AROS specific
|
||||||
|
|
||||||
|
// Values for loc_MeasuringSystem
|
||||||
|
MS_ISO = 0;
|
||||||
|
MS_AMERICAN = 1;
|
||||||
|
MS_IMPERIAL = 2;
|
||||||
|
MS_BRITISH = 3;
|
||||||
|
|
||||||
|
// Values for loc_CalendarType
|
||||||
|
CT_7SUN = 0; // First day is Sunday
|
||||||
|
CT_7MON = 1; // First day is Monday
|
||||||
|
CT_7TUE = 2; // First day is Tuesday
|
||||||
|
CT_7WED = 3; // First day is Wednesday
|
||||||
|
CT_7THU = 4; // First day is Thursday
|
||||||
|
CT_7FRI = 5; // First day is Friday
|
||||||
|
CT_7SAT = 6; // First day is Saturday
|
||||||
|
|
||||||
|
// Values for loc_MonPositiveSpaceSep and loc_MonNegativeSpaceSep
|
||||||
|
SS_NOSPACE = 0; // No space between currency symbol and value
|
||||||
|
SS_SPACE = 1; // Set a space between currency symbol and value
|
||||||
|
|
||||||
|
// Values for loc_MonPositiveSignPos and loc_MonNegativeSignPos
|
||||||
|
SP_PARENS = 0; // () surround the quantity and currency_symbol
|
||||||
|
SP_PREC_ALL = 1; // sign before value and symbol
|
||||||
|
SP_SUCC_ALL = 2; // sign after value and symbol
|
||||||
|
SP_PREC_CURR = 3; // sign right before currency symbol
|
||||||
|
SP_SUCC_CURR = 4; // sign right after currency symbol
|
||||||
|
|
||||||
|
// Values for loc_MonPositiveCSPos and loc_MonNegativeCSPos
|
||||||
|
CSP_PRECEDES = 0; // currency symbol before value
|
||||||
|
CSP_SUCCEEDS = 1; // currency symbol after value
|
||||||
|
|
||||||
|
// 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
|
||||||
|
|
||||||
|
// Comparison types for StrnCmp()
|
||||||
|
SC_ASCII = 0;
|
||||||
|
SC_COLLATE1 = 1;
|
||||||
|
SC_COLLATE2 = 2;
|
||||||
|
|
||||||
|
// Internal String-Numbers GetLocaleStr()
|
||||||
|
// Days of Week
|
||||||
|
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
|
||||||
|
// Abbreviated Days of Week
|
||||||
|
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
|
||||||
|
// Months
|
||||||
|
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
|
||||||
|
// Abbreviated Months
|
||||||
|
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
|
||||||
|
// Question
|
||||||
|
YESSTR = 39; // affirmative response for yes/no queries
|
||||||
|
NOSTR = 40; // negative response for yes/no queries
|
||||||
|
// 12 hour clock
|
||||||
|
AM_STR = 41;
|
||||||
|
PM_STR = 42;
|
||||||
|
// Hyphen
|
||||||
|
SOFTHYPHEN = 43;
|
||||||
|
HARDHYPHEN = 44;
|
||||||
|
// Quotes
|
||||||
|
OPENQUOTE = 45; // Open quote
|
||||||
|
CLOSEQUOTE = 46; // Close quote
|
||||||
|
// relative day names
|
||||||
|
YESTERDAYSTR = 47; // Yesterday
|
||||||
|
TODAYSTR = 48; // Today
|
||||||
|
TOMORROWSTR = 49; // Tomorrow
|
||||||
|
FUTURESTR = 50; // Future
|
||||||
|
|
||||||
|
LANG_NAME = 51; // V50
|
||||||
|
MAXSTRMSG = 52; // current number of defined strings
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
|
const
|
||||||
|
LOCALENAME: PChar = 'locale.library';
|
||||||
|
|
||||||
|
procedure CloseCatalog(Catalog: PCatalog); syscall LocaleBase 6;
|
||||||
|
procedure CloseLocale(Locale: PLocale); syscall LocaleBase 7;
|
||||||
|
function ConvToLower(Locale: PLocale; Character: LongWord): LongWord; syscall LocaleBase 8;
|
||||||
|
function ConvToUpper(Locale: PLocale; Character: LongWord): LongWord; syscall LocaleBase 9;
|
||||||
|
procedure FormatDate(Locale: PLocale; FormatString: STRPTR; Date: PDateStamp; Hook: PHook); syscall LocaleBase 10;
|
||||||
|
function FormatString(Locale: PLocale; FmtTemplate: STRPTR; DataStream: APTR; PutCharFunc: PHook): APTR; syscall LocaleBase 11;
|
||||||
|
function GetCatalogStr(Catalog: PCatalog; StringNum: LongWord; DefaultString: STRPTR): STRPTR; syscall LocaleBase 12;
|
||||||
|
function GetLocaleStr(Locale: PLocale; StringNum: LongWord): STRPTR; syscall LocaleBase 13;
|
||||||
|
function IsAlNum(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 14;
|
||||||
|
function IsAlpha(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 15;
|
||||||
|
function IsCntrl(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 16;
|
||||||
|
function IsDigit(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 17;
|
||||||
|
function IsGraph(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 18;
|
||||||
|
function IsLower(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 19;
|
||||||
|
function IsPrint(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 20;
|
||||||
|
function IsPunct(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 21;
|
||||||
|
function IsSpace(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 22;
|
||||||
|
function IsUpper(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 23;
|
||||||
|
function IsXDigit(Locale: PLocale; Character: LongWord): LongBool; syscall LocaleBase 24;
|
||||||
|
function OpenCatalogA(Locale: PLocale; Name: STRPTR; Tags: PTagItem): PCatalog; syscall LocaleBase 25;
|
||||||
|
function OpenLocale(Name: STRPTR): PLocale; syscall LocaleBase 26;
|
||||||
|
function ParseDate(Locale: PLocale; Date: PDateStamp; FmtTemplate: STRPTR; GetCharFunc: PHook): LongBool; syscall LocaleBase 27;
|
||||||
|
function LocalePrefsUpdate(Locale: PLocale): PLocale; syscall LocaleBase 28;
|
||||||
|
function StrConvert(Locale: PLocale; String1: STRPTR; Buffer: APTR; BufferSize: LongWord; Typ: LongWord): LongWord; syscall LocaleBase 29;
|
||||||
|
function StrnCmp(Locale: PLocale; String1: STRPTR; String2: STRPTR; Length: LongInt; Typ: LongWord): LongInt; syscall LocaleBase 30;
|
||||||
|
|
||||||
|
function OpenCatalog(Locale: PLocale; Name: STRPTR; const Tags: array of PtrUInt): PCatalog;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
function OpenCatalog(Locale: PLocale; Name: STRPTR; const Tags: array of PtrUInt): PCatalog;
|
||||||
|
begin
|
||||||
|
OpenCatalog := OpenCatalogA(Locale, Name, @Tags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
const
|
||||||
|
LIBVERSION = 0;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
LocaleBase := PLocaleBase(OpenLibrary(LOCALENAME, LIBVERSION));
|
||||||
|
finalization
|
||||||
|
if Assigned(LocaleBase) then
|
||||||
|
CloseLibrary(PLibrary(LocaleBase));
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user