mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-22 09:01:35 +02:00
70 lines
1.8 KiB
ObjectPascal
70 lines
1.8 KiB
ObjectPascal
{ Unicode DUCET unit.
|
|
|
|
Copyright (c) 2013 by Inoussa OUEDRAOGO
|
|
|
|
The source code is distributed under the Library GNU
|
|
General Public License with the following modification:
|
|
|
|
- object files and libraries linked into an application may be
|
|
distributed without source code.
|
|
|
|
If you didn't receive a copy of the file COPYING, contact:
|
|
Free Software Foundation
|
|
675 Mass Ave
|
|
Cambridge, MA 02139
|
|
USA
|
|
|
|
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.
|
|
}
|
|
|
|
unit unicodeducet;
|
|
{$ifndef VER2_4}
|
|
{$mode objfpc}
|
|
{$H+}
|
|
{$PACKENUM 1}
|
|
{$SCOPEDENUMS ON}
|
|
{$modeswitch advancedrecords}
|
|
|
|
interface
|
|
|
|
{$endif VER2_4}
|
|
|
|
implementation
|
|
{$ifndef VER2_4}
|
|
uses
|
|
unicodedata;
|
|
|
|
{$INCLUDE ucadata.inc}
|
|
{$IFDEF ENDIAN_LITTLE}
|
|
{$INCLUDE ucadata_le.inc}
|
|
{$ENDIF ENDIAN_LITTLE}
|
|
{$IFDEF ENDIAN_BIG}
|
|
{$INCLUDE ucadata_be.inc}
|
|
{$ENDIF ENDIAN_BIG}
|
|
|
|
const
|
|
UCA_DataBookRecord : TUCA_DataBook = (
|
|
Base : nil;
|
|
Version : VERSION_STRING;
|
|
CollationName : 'DUCET';//'Default Unicode Collation Element Table (DUCET)';
|
|
VariableWeight : TUCA_VariableKind(VARIABLE_WEIGHT);
|
|
Backwards : (BACKWARDS_0,BACKWARDS_1,BACKWARDS_2,BACKWARDS_3);
|
|
BMP_Table1 : @UCA_TABLE_1[0];
|
|
BMP_Table2 : @UCA_TABLE_2[0];
|
|
OBMP_Table1 : @UCAO_TABLE_1[0];
|
|
OBMP_Table2 : @UCAO_TABLE_2[0];
|
|
PropCount : PROP_COUNT;
|
|
Props : PUCA_PropItemRec(@UCA_PROPS[0]);
|
|
VariableLowLimit : VARIABLE_LOW_LIMIT;
|
|
VariableHighLimit : VARIABLE_HIGH_LIMIT;
|
|
);
|
|
|
|
initialization
|
|
RegisterCollation(@UCA_DataBookRecord);
|
|
{$endif VER2_4}
|
|
|
|
end.
|
|
|