mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 22:38:03 +02:00
455 lines
12 KiB
ObjectPascal
455 lines
12 KiB
ObjectPascal
(*******************************************************************
|
|
*
|
|
* ttcmap.pas 1.0
|
|
*
|
|
* Character Mappings unit.
|
|
*
|
|
* Copyright 1996, 1997 by
|
|
* David Turner, Robert Wilhelm, and Werner Lemberg.
|
|
*
|
|
* This file is part of the FreeType project, and may only be used
|
|
* modified and distributed under the terms of the FreeType project
|
|
* license, LICENSE.TXT. By continuing to use, modify or distribute
|
|
* this file you indicate that you have read the license and
|
|
* understand and accept it fully.
|
|
*
|
|
******************************************************************)
|
|
|
|
unit TTCMap;
|
|
|
|
interface
|
|
|
|
{$R-} // TODO: Fix out-of-bounds accesses.
|
|
|
|
uses TTTypes;
|
|
|
|
type
|
|
(********************************************************************)
|
|
(* *)
|
|
(* CHARACTER MAPPINGS SUBTABLES *)
|
|
(* *)
|
|
(********************************************************************)
|
|
|
|
(* FORMAT 0 *)
|
|
|
|
(* Apple standard character to glyph index mapping table *)
|
|
(* the glyphIdArray for this format has 256 entries *)
|
|
|
|
TCMap0 = record
|
|
glyphIdArray : PUShort;
|
|
end;
|
|
|
|
(* FORMAT 2 *)
|
|
|
|
(* the format 2 table contains a variable-length array of subHeaders *)
|
|
(* (at most 256 entries) whose size must be determined algorithmically *)
|
|
TCMap2SubHeader = record
|
|
firstCode : UShort; (* first valid low byte *)
|
|
entryCount : UShort; (* number of valid low bytes *)
|
|
idDelta : Short; (* delta value to glyphIndex *)
|
|
idRangeOffset : UShort; (* offset fr. here to 1stCode *)
|
|
end;
|
|
|
|
TCMap2SubHeaders = array[0..100] of TCMap2SubHeader;
|
|
PCMap2SubHeaders = ^TCMap2SubHeaders;
|
|
|
|
(* Format 2 is used for mixed 8/16bit encodings (usually CJK fonts) *)
|
|
TCMap2 = record
|
|
subHeaderKeys : PUShort;
|
|
(* high byte mapping table *)
|
|
(* value = subHeader index * 8 *)
|
|
subHeaders : PCMap2SubHeaders;
|
|
glyphIdArray : PUShort;
|
|
numGlyphId : Int;
|
|
end;
|
|
|
|
(* FORMAT 4 *)
|
|
|
|
(*The format 4 table contains segCount segments *)
|
|
TCMap4Segment = record
|
|
endCount : UShort;
|
|
startCount : UShort;
|
|
idDelta : UShort;
|
|
idRangeOffset : UShort;
|
|
end;
|
|
TCMap4Segments = array[0..100] of TCMap4Segment;
|
|
PCMap4Segments = ^TCMap4Segments;
|
|
|
|
(* Microsoft standard character to glyph index mapping table *)
|
|
TCMap4 = record
|
|
segCountX2 : UShort; (* segments number * 2 *)
|
|
searchRange : UShort; (* these parameters can be used *)
|
|
entrySelector : UShort; (* for a binary search *)
|
|
rangeShift : UShort;
|
|
segments : PCMap4Segments;
|
|
glyphIdArray : PUShort;
|
|
numGlyphId : Int;
|
|
end;
|
|
|
|
(* FORMAT 6 *)
|
|
|
|
(* trimmed table mapping (for representing one subrange) *)
|
|
TCMap6 = record
|
|
firstCode : UShort; (* first character code of subrange *)
|
|
entryCount : UShort; (* num. of character codes in subrange *)
|
|
|
|
glyphIdArray : PUShort;
|
|
end;
|
|
|
|
(* CHARMAP TABLE *)
|
|
|
|
PCMapTable = ^TCMapTable;
|
|
TCMapTable = record
|
|
platformID : UShort;
|
|
platformEncodingID : UShort;
|
|
|
|
Format : word;
|
|
Length : word;
|
|
Version : word;
|
|
Loaded : Boolean;
|
|
CannotLoad: Boolean;
|
|
StreamPtr: ^TT_Stream;
|
|
Offset : Long;
|
|
|
|
case Byte of
|
|
0 : ( cmap0 : TCMap0 );
|
|
2 : ( cmap2 : TCMap2 );
|
|
4 : ( cmap4 : TCMap4 );
|
|
6 : ( cmap6 : TCMap6 );
|
|
end;
|
|
|
|
TCMapTables = array[0..9] of TCMapTable;
|
|
PCMapTables = ^TCMapTables;
|
|
|
|
|
|
function CharMap_Load( var cmap : TCMapTable ) : TError;
|
|
|
|
procedure CharMap_Free( var cmap : TCMapTable );
|
|
|
|
function CharMap_Index( var cmap : TCMapTable; charCode : Long ) : UShort;
|
|
|
|
implementation
|
|
|
|
uses
|
|
TTError, TTMemory, TTFile;
|
|
|
|
function CharMap_Load( var cmap : TCMapTable ) : TError;
|
|
var
|
|
num_SH, u : UShort;
|
|
i : Int;
|
|
num_segs : Int;
|
|
ftstream: TFreeTypeStream;
|
|
label
|
|
Fail, SimpleExit;
|
|
begin
|
|
CharMap_Load := Failure;
|
|
|
|
if cmap.loaded then
|
|
begin
|
|
CharMap_Load := Success;
|
|
exit;
|
|
end;
|
|
|
|
if TT_Use_Stream(cmap.StreamPtr^, ftstream) then exit;
|
|
|
|
if ftstream.SeekFile( cmap.offset ) then goto SimpleExit;
|
|
|
|
case cmap.format of
|
|
|
|
0: with cmap.cmap0 do
|
|
if Alloc( glyphIdArray, 256 ) or
|
|
ftstream.ReadFile( glyphIdArray^, 256 ) then goto Fail;
|
|
|
|
2: begin
|
|
num_SH := 0;
|
|
with cmap.cmap2 do
|
|
begin
|
|
if Alloc( subHeaderKeys, 256*sizeof(UShort) ) or
|
|
ftstream.AccessFrame( 512 ) then goto Fail;
|
|
|
|
for i := 0 to 255 do
|
|
begin
|
|
u := ftstream.GET_UShort shr 3;
|
|
subHeaderKeys^[i] := u;
|
|
|
|
if num_SH < u then num_SH := u;
|
|
end;
|
|
|
|
ftstream.ForgetFrame;
|
|
|
|
(* now load sub headers *)
|
|
numGlyphId := ((cmap.length - 2*(256+3) - num_SH*8) and $FFFF)
|
|
div 2;
|
|
|
|
if Alloc( subHeaders, (num_SH+1)*sizeof(TCMap2SubHeader) ) or
|
|
ftstream.AccessFrame( (num_SH+1)*8 ) then goto Fail;
|
|
|
|
for i := 0 to num_SH do with subHeaders^[i] do
|
|
begin
|
|
firstCode := ftstream.GET_UShort;
|
|
entryCount := ftstream.GET_UShort;
|
|
idDelta := ftstream.GET_UShort;
|
|
(* we apply the location offset immediately *)
|
|
idRangeOffset := ftstream.GET_UShort - (num_SH-i)*8 - 2;
|
|
end;
|
|
|
|
ftstream.ForgetFrame;
|
|
|
|
(* load glyph ids *)
|
|
if Alloc( glyphIdArray, numGlyphId*sizeof(UShort) ) or
|
|
ftstream.AccessFrame( numGlyphId*2 ) then goto Fail;
|
|
|
|
for i := 0 to numGlyphId-1 do
|
|
glyphIdArray^[i] := ftstream.GET_UShort;
|
|
|
|
ftstream.ForgetFrame;
|
|
end;
|
|
end;
|
|
|
|
4: with cmap.cmap4 do
|
|
begin
|
|
if ftstream.AccessFrame(8) then goto Fail;
|
|
|
|
segCountX2 := ftstream.Get_UShort;
|
|
searchRange := ftstream.Get_UShort;
|
|
entrySelector := ftstream.Get_UShort;
|
|
rangeShift := ftstream.Get_UShort;
|
|
|
|
num_segs := segCountX2 shr 1;
|
|
|
|
ftstream.ForgetFrame;
|
|
|
|
(* load segments *)
|
|
if Alloc( segments, num_segs*sizeof(TCMap4Segment) ) or
|
|
ftstream.AccessFrame( (num_segs*4+1)*2 ) then goto Fail;
|
|
|
|
for i := 0 to num_segs-1 do
|
|
segments^[i].endCount := ftstream.Get_UShort;
|
|
|
|
ftstream.Get_UShort;
|
|
|
|
for i := 0 to num_segs-1 do
|
|
segments^[i].startCount := ftstream.Get_UShort;
|
|
|
|
for i := 0 to num_segs-1 do
|
|
segments^[i].idDelta := ftstream.GET_Short;
|
|
|
|
for i := 0 to num_segs-1 do
|
|
segments^[i].idRangeOffset := ftstream.GET_UShort;
|
|
|
|
ftstream.ForgetFrame;
|
|
|
|
numGlyphId := (( cmap.length - (16+8*num_segs) ) and $FFFF)
|
|
div 2;
|
|
|
|
(* load glyph ids *)
|
|
if Alloc( glyphIdArray, numGlyphId*sizeof(UShort) ) or
|
|
ftstream.AccessFrame( numGlyphId*2 ) then goto Fail;
|
|
|
|
for i := 0 to numGlyphId-1 do
|
|
glyphIdArray^[i] := ftstream.Get_UShort;
|
|
|
|
ftstream.ForgetFrame;
|
|
end;
|
|
|
|
6: with cmap.cmap6 do
|
|
begin
|
|
if ftstream.AccessFrame(4) then goto Fail;
|
|
|
|
firstCode := ftstream.GET_UShort;
|
|
entryCount := ftstream.GET_UShort;
|
|
|
|
ftstream.ForgetFrame;
|
|
|
|
if Alloc( glyphIdArray, entryCount*sizeof(Short) ) or
|
|
ftstream.AccessFrame( entryCount*2 ) then goto Fail;
|
|
|
|
for i := 0 to entryCount-1 do
|
|
glyphIdArray^[i] := ftstream.GET_UShort;
|
|
|
|
ftstream.ForgetFrame;
|
|
end;
|
|
|
|
else
|
|
error := TT_Err_Invalid_Charmap_Format;
|
|
goto SimpleExit;
|
|
end;
|
|
|
|
CharMap_Load := success;
|
|
cmap.Loaded := True;
|
|
goto SimpleExit;
|
|
|
|
Fail:
|
|
CharMap_Free( cmap );
|
|
exit;
|
|
|
|
SimpleExit:
|
|
TT_Done_Stream(cmap.StreamPtr^);
|
|
|
|
end;
|
|
|
|
|
|
procedure CharMap_Free( var cmap : TCMapTable );
|
|
begin
|
|
with cmap do
|
|
case format of
|
|
|
|
0 : begin
|
|
Free( cmap.cmap0.glyphIdArray );
|
|
end;
|
|
|
|
2 : begin
|
|
Free( cmap.cmap2.glyphIdArray );
|
|
Free( cmap.cmap2.subHeaders );
|
|
Free( cmap.cmap2.glyphIdArray );
|
|
end;
|
|
|
|
4 : begin
|
|
Free( cmap.cmap4.segments );
|
|
Free( cmap.cmap4.glyphIdArray );
|
|
cmap.cmap4.segCountX2 := 0;
|
|
end;
|
|
|
|
6 : begin
|
|
Free( cmap.cmap6.glyphIdArray );
|
|
cmap.cmap6.entryCount := 0;
|
|
end;
|
|
end;
|
|
|
|
cmap.loaded := False;
|
|
cmap.format := 0;
|
|
cmap.length := 0;
|
|
cmap.version := 0;
|
|
cmap.StreamPtr := nil;
|
|
end;
|
|
|
|
|
|
function code_to_index0( charCode : UShort; var cmap0 : TCMap0 ) : UShort;
|
|
begin
|
|
code_to_index0 := 0;
|
|
if charCode < 256 then
|
|
code_to_index0 := cmap0.glyphIdArray^[charCode]
|
|
end;
|
|
|
|
|
|
|
|
function code_to_index2( charCode : UShort; var cmap2 : TCMap2 ) : UShort;
|
|
var
|
|
index1, idx, offset : UShort;
|
|
begin
|
|
code_to_index2 := 0;
|
|
|
|
if charCode < 256 then idx := charCode
|
|
else idx := charCode shr 8;
|
|
|
|
index1 := cmap2.subHeaderKeys^[idx];
|
|
|
|
if index1 = 0 then
|
|
begin
|
|
if charCode < 256 then
|
|
code_to_index2 := cmap2.glyphIdArray^[charCode]; (* 8Bit charcode *)
|
|
end
|
|
else
|
|
begin
|
|
if charCode < 256 then
|
|
exit;
|
|
|
|
idx := charCode and 255;
|
|
with cmap2.subHeaders^[index1] do
|
|
begin
|
|
if ( idx < firstCode ) or
|
|
( idx >= firstCode + entryCount ) then exit;
|
|
|
|
offset := idRangeOffset div 2 + idx - firstCode;
|
|
|
|
if offset >= cmap2.numGlyphId then exit;
|
|
|
|
idx := cmap2.glyphIdArray^[offset];
|
|
if idx <> 0 then
|
|
code_to_index2 := (idx + idDelta) and $FFFF;
|
|
end
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
function code_to_index4( charCode : UShort; var cmap4 : TCMap4 ) : UShort;
|
|
var
|
|
i, index1, num_segs, rangeStart : Int;
|
|
label
|
|
Found;
|
|
begin
|
|
code_to_index4 := 0;
|
|
num_segs := cmap4.segCountX2 div 2;
|
|
i := 0;
|
|
|
|
while ( i < num_segs ) do with cmap4.segments^[i] do
|
|
begin
|
|
if charCode <= endCount then goto Found;
|
|
inc(i);
|
|
end;
|
|
|
|
exit;
|
|
|
|
Found:
|
|
with cmap4.segments^[i] do
|
|
begin
|
|
|
|
if charCode < startCount then
|
|
exit;
|
|
|
|
if idRangeOffset = 0 then
|
|
code_to_index4 := (charCode + idDelta) and $FFFF
|
|
else
|
|
begin
|
|
//the offset in glyphIdArray is given in bytes from the
|
|
//position after idRangeOffset value itself
|
|
rangeStart := idRangeOffset div 2 - (num_segs-i);
|
|
index1 := rangeStart + (charCode - startCount);
|
|
|
|
if ( index1 < cmap4.numGlyphId ) and
|
|
( cmap4.glyphIdArray^[index1] <> 0 ) then
|
|
|
|
code_to_index4 := (cmap4.glyphIdArray^[index1] + idDelta) and $FFFF;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
function code_to_index6( charCode : UShort; var cmap6 : TCMap6 ) : UShort;
|
|
begin
|
|
code_to_index6 := 0;
|
|
with cmap6 do
|
|
begin
|
|
|
|
if ( charCode < firstCode ) or
|
|
( charCode >= firstCode + entryCount ) then exit;
|
|
|
|
code_to_index6 := glyphIdArray^[charCode-firstCode];
|
|
end
|
|
end;
|
|
|
|
|
|
function CharMap_Index( var cmap : TCMapTable;
|
|
charCode : Long ) : UShort;
|
|
begin
|
|
CharMap_Index := 0;
|
|
|
|
if not cmap.Loaded then
|
|
if cmap.CannotLoad then exit
|
|
else if CharMap_Load( cmap ) then
|
|
begin
|
|
cmap.CannotLoad:= true;
|
|
exit;
|
|
end;
|
|
|
|
case cmap.format of
|
|
0: CharMap_Index := code_to_index0( charCode, cmap.cmap0 );
|
|
2: CharMap_Index := code_to_index2( charCode, cmap.cmap2 );
|
|
4: CharMap_Index := code_to_index4( charCode, cmap.cmap4 );
|
|
6: CharMap_Index := code_to_index6( charCode, cmap.cmap6 );
|
|
end;
|
|
end;
|
|
|
|
end.
|