freepascal.compiler/rtl/objpas/unicodeducet.pas

{   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.