blob: a4e44298efa8ae0415804f8905a9e8461a67512c (
plain)
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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
// included by pango.pp
{$IFDEF read_interface_types}
{ Logical attributes of a character.
}
{ Can break line in front of character }
{ Must break line in front of character }
{ Can break here when doing char wrap }
{ Whitespace character }
{ cursor can appear in front of character (i.e. this is a grapheme
boundary, or the first character in the text)
}
{ Note that in degenerate cases, you could have both start/theEnd set on
some text, most likely for sentences (e.g. no space after a period, so
the next sentence starts right away)
}
{ first character in a word }
{ is first non-word char after a word }
{ There are two ways to divide sentences. The first assigns all
intersentence whitespace/control/format chars to some sentence,
so all chars are in some sentence; is_sentence_boundary denotes
the boundaries there. The second way doesn't assign
between-sentence spaces, etc. to any sentence, so
is_sentence_start/is_sentence_end mark the boundaries of those
sentences.
}
{ first character in a sentence }
{ first non-sentence char after a sentence }
PPangoLogAttr = ^TPangoLogAttr;
TPangoLogAttr = record
flag0 : word;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_functions}
const
bm_TPangoLogAttr_is_line_break = $1;
bp_TPangoLogAttr_is_line_break = 0;
bm_TPangoLogAttr_is_mandatory_break = $2;
bp_TPangoLogAttr_is_mandatory_break = 1;
bm_TPangoLogAttr_is_char_break = $4;
bp_TPangoLogAttr_is_char_break = 2;
bm_TPangoLogAttr_is_white = $8;
bp_TPangoLogAttr_is_white = 3;
bm_TPangoLogAttr_is_cursor_position = $10;
bp_TPangoLogAttr_is_cursor_position = 4;
bm_TPangoLogAttr_is_word_start = $20;
bp_TPangoLogAttr_is_word_start = 5;
bm_TPangoLogAttr_is_word_end = $40;
bp_TPangoLogAttr_is_word_end = 6;
bm_TPangoLogAttr_is_sentence_boundary = $80;
bp_TPangoLogAttr_is_sentence_boundary = 7;
bm_TPangoLogAttr_is_sentence_start = $100;
bp_TPangoLogAttr_is_sentence_start = 8;
bm_TPangoLogAttr_is_sentence_end = $200;
bp_TPangoLogAttr_is_sentence_end = 9;
function is_line_break(var a : TPangoLogAttr) : guint;
procedure set_is_line_break(var a : TPangoLogAttr; __is_line_break : guint);
function is_mandatory_break(var a : TPangoLogAttr) : guint;
procedure set_is_mandatory_break(var a : TPangoLogAttr; __is_mandatory_break : guint);
function is_char_break(var a : TPangoLogAttr) : guint;
procedure set_is_char_break(var a : TPangoLogAttr; __is_char_break : guint);
function is_white(var a : TPangoLogAttr) : guint;
procedure set_is_white(var a : TPangoLogAttr; __is_white : guint);
function is_cursor_position(var a : TPangoLogAttr) : guint;
procedure set_is_cursor_position(var a : TPangoLogAttr; __is_cursor_position : guint);
function is_word_start(var a : TPangoLogAttr) : guint;
procedure set_is_word_start(var a : TPangoLogAttr; __is_word_start : guint);
function is_word_end(var a : TPangoLogAttr) : guint;
procedure set_is_word_end(var a : TPangoLogAttr; __is_word_end : guint);
function is_sentence_boundary(var a : TPangoLogAttr) : guint;
procedure set_is_sentence_boundary(var a : TPangoLogAttr; __is_sentence_boundary : guint);
function is_sentence_start(var a : TPangoLogAttr) : guint;
procedure set_is_sentence_start(var a : TPangoLogAttr; __is_sentence_start : guint);
function is_sentence_end(var a : TPangoLogAttr) : guint;
procedure set_is_sentence_end(var a : TPangoLogAttr; __is_sentence_end : guint);
{ Determine information about cluster/word/line breaks in a string
of Unicode text.
}
procedure pango_break(text:Pgchar; length:longint; analysis:PPangoAnalysis; attrs:PPangoLogAttr; attrs_len:longint); cdecl; external pangolib;
procedure pango_find_paragraph_boundary(text:Pgchar; length:gint; paragraph_delimiter_index:Pgint; next_paragraph_start:Pgint); cdecl; external pangolib;
procedure pango_get_log_attrs(text:Pchar; length:longint; level:longint; language:PPangoLanguage; log_attrs:PPangoLogAttr;
attrs_len:longint); cdecl; external pangolib;
{$ifdef PANGO_ENABLE_ENGINE}
{ This is the default break algorithm, used if no language
engine overrides it. Normally you should use pango_break()
instead; this function is mostly useful for chaining up
from a language engine override.
}
procedure pango_default_break(text:Pgchar; length:longint; analysis:PPangoAnalysis; attrs:PPangoLogAttr; attrs_len:longint); cdecl; external pangolib;
{$endif PANGO_ENABLE_ENGINE}
{$endif read_interface_functions}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function is_line_break(var a : TPangoLogAttr) : guint;
begin
is_line_break:=(a.flag0 and bm_TPangoLogAttr_is_line_break) shr bp_TPangoLogAttr_is_line_break;
end;
procedure set_is_line_break(var a : TPangoLogAttr; __is_line_break : guint);
begin
a.flag0:=a.flag0 or ((__is_line_break shl bp_TPangoLogAttr_is_line_break) and bm_TPangoLogAttr_is_line_break);
end;
function is_mandatory_break(var a : TPangoLogAttr) : guint;
begin
is_mandatory_break:=(a.flag0 and bm_TPangoLogAttr_is_mandatory_break) shr bp_TPangoLogAttr_is_mandatory_break;
end;
procedure set_is_mandatory_break(var a : TPangoLogAttr; __is_mandatory_break : guint);
begin
a.flag0:=a.flag0 or ((__is_mandatory_break shl bp_TPangoLogAttr_is_mandatory_break) and bm_TPangoLogAttr_is_mandatory_break);
end;
function is_char_break(var a : TPangoLogAttr) : guint;
begin
is_char_break:=(a.flag0 and bm_TPangoLogAttr_is_char_break) shr bp_TPangoLogAttr_is_char_break;
end;
procedure set_is_char_break(var a : TPangoLogAttr; __is_char_break : guint);
begin
a.flag0:=a.flag0 or ((__is_char_break shl bp_TPangoLogAttr_is_char_break) and bm_TPangoLogAttr_is_char_break);
end;
function is_white(var a : TPangoLogAttr) : guint;
begin
is_white:=(a.flag0 and bm_TPangoLogAttr_is_white) shr bp_TPangoLogAttr_is_white;
end;
procedure set_is_white(var a : TPangoLogAttr; __is_white : guint);
begin
a.flag0:=a.flag0 or ((__is_white shl bp_TPangoLogAttr_is_white) and bm_TPangoLogAttr_is_white);
end;
function is_cursor_position(var a : TPangoLogAttr) : guint;
begin
is_cursor_position:=(a.flag0 and bm_TPangoLogAttr_is_cursor_position) shr bp_TPangoLogAttr_is_cursor_position;
end;
procedure set_is_cursor_position(var a : TPangoLogAttr; __is_cursor_position : guint);
begin
a.flag0:=a.flag0 or ((__is_cursor_position shl bp_TPangoLogAttr_is_cursor_position) and bm_TPangoLogAttr_is_cursor_position);
end;
function is_word_start(var a : TPangoLogAttr) : guint;
begin
is_word_start:=(a.flag0 and bm_TPangoLogAttr_is_word_start) shr bp_TPangoLogAttr_is_word_start;
end;
procedure set_is_word_start(var a : TPangoLogAttr; __is_word_start : guint);
begin
a.flag0:=a.flag0 or ((__is_word_start shl bp_TPangoLogAttr_is_word_start) and bm_TPangoLogAttr_is_word_start);
end;
function is_word_end(var a : TPangoLogAttr) : guint;
begin
is_word_end:=(a.flag0 and bm_TPangoLogAttr_is_word_end) shr bp_TPangoLogAttr_is_word_end;
end;
procedure set_is_word_end(var a : TPangoLogAttr; __is_word_end : guint);
begin
a.flag0:=a.flag0 or ((__is_word_end shl bp_TPangoLogAttr_is_word_end) and bm_TPangoLogAttr_is_word_end);
end;
function is_sentence_boundary(var a : TPangoLogAttr) : guint;
begin
is_sentence_boundary:=(a.flag0 and bm_TPangoLogAttr_is_sentence_boundary) shr bp_TPangoLogAttr_is_sentence_boundary;
end;
procedure set_is_sentence_boundary(var a : TPangoLogAttr; __is_sentence_boundary : guint);
begin
a.flag0:=a.flag0 or ((__is_sentence_boundary shl bp_TPangoLogAttr_is_sentence_boundary) and bm_TPangoLogAttr_is_sentence_boundary);
end;
function is_sentence_start(var a : TPangoLogAttr) : guint;
begin
is_sentence_start:=(a.flag0 and bm_TPangoLogAttr_is_sentence_start) shr bp_TPangoLogAttr_is_sentence_start;
end;
procedure set_is_sentence_start(var a : TPangoLogAttr; __is_sentence_start : guint);
begin
a.flag0:=a.flag0 or ((__is_sentence_start shl bp_TPangoLogAttr_is_sentence_start) and bm_TPangoLogAttr_is_sentence_start);
end;
function is_sentence_end(var a : TPangoLogAttr) : guint;
begin
is_sentence_end:=(a.flag0 and bm_TPangoLogAttr_is_sentence_end) shr bp_TPangoLogAttr_is_sentence_end;
end;
procedure set_is_sentence_end(var a : TPangoLogAttr; __is_sentence_end : guint);
begin
a.flag0:=a.flag0 or ((__is_sentence_end shl bp_TPangoLogAttr_is_sentence_end) and bm_TPangoLogAttr_is_sentence_end);
end;
{$ENDIF read_implementation}
|
