1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150 | with
freeType_C,
interfaces.C,
ada.Containers.hashed_Maps;
limited
with
freetype.Face;
private
with
freeType_C.FT_Face,
ada.unchecked_Conversion;
package freetype.charMap
--
-- 'charMap' takes care of specifying the encoding for a font and mapping
-- character codes to glyph indices.
--
-- It doesn't preprocess all indices, only on an as needed basis. This may
-- seem like a performance penalty but it is quicker than using the 'raw'
-- freetype calls and will save significant amounts of memory when dealing
-- with unicode encoding.
--
is
type Item is tagged private;
---------
-- Types
--
use Interfaces;
subtype GlyphIndex is C.long;
subtype CharacterCode is C.unsigned_long;
function to_characterCode (From : in Character) return characterCode;
---------
-- Forge
--
function to_charMap (parent_Face : access Face.item'Class) return Item;
procedure destruct (Self : in out Item);
--------------
-- Attributes
--
function Encoding (Self : in Item) return freeType_C.FT_Encoding;
--
-- Queries for the current character map code.
--
-- Returns the current character map code.
function CharMap (Self : access Item; Encoding : in freeType_C.FT_Encoding) return Boolean;
--
-- Sets the character map for the face. If an error occurs the object is not modified.
--
-- Valid encodings as at Freetype 2.0.4
-- - ft_encoding_none
-- - ft_encoding_symbol
-- - ft_encoding_unicode
-- - ft_encoding_latin_2
-- - ft_encoding_sjis
-- - ft_encoding_gb2312
-- - ft_encoding_big5
-- - ft_encoding_wansung
-- - ft_encoding_johab
-- - ft_encoding_adobe_standard
-- - ft_encoding_adobe_expert
-- - ft_encoding_adobe_custom
-- - ft_encoding_apple_roman
--
-- Encoding: The Freetype encoding symbol.
--
-- Returns true if charmap was valid and set correctly.
function GlyphListIndex (Self : in Item; Character : in CharacterCode) return GlyphIndex;
--
-- Get the Glyph Container index of the input character.
--
-- Character: The character code of the requested glyph in the current encoding (eg apple roman).
--
-- Returns the FTGlyphContainer index for the character or zero if it wasn't found.
function FontIndex (Self : in Item; Character : in characterCode) return GlyphIndex;
--
-- Get the font glyph index of the input character.
--
-- Character: The character code of the requested glyph in the current encoding (eg apple roman).
--
-- Returns the glyph index for the character.
procedure insertIndex (Self : in out Item; Character : in characterCode;
ContainerIndex : in ada.Containers.Count_type);
--
-- Set the FTGlyphContainer index of the character code.
--
-- Character: The character code of the requested glyph in the current encoding eg apple roman.
-- containerIndex: The index into the Glyph Container of the character code.
function Error (Self : in Item) return freeType_C.FT_Error;
--
-- Queries for errors.
--
-- Returns the current error code. Zero means no error.
private
function Hash is new ada.unchecked_Conversion (CharacterCode, ada.Containers.Hash_type);
use type CharacterCode,
GlyphIndex;
package char_Maps_of_glyph_index is new ada.Containers.hashed_Maps (CharacterCode,
GlyphIndex,
Hash,
"=");
subtype char_Map_of_glyph_index is char_Maps_of_glyph_index.Map;
--
-- A structure that maps glyph indices to character codes/
max_Precomputed : constant := 128;
type Cache is array (characterCode range 1 .. max_Precomputed) of freeType_C.FT_UInt;
type Item is tagged
record
ftEncoding : freeType_C.FT_Encoding; -- Current character map code.
ftFace : freeType_C.FT_Face.item; -- The current Freetype face.
charMap : char_Maps_of_glyph_index.Map;
charIndexCache : Cache; -- Precomputed font indices.
Err : freeType_C.FT_Error; -- Current error code.
end record;
end freetype.charMap;
|