Coverage Report

Created: 2018-09-25 14:53

/src/mozilla-central/intl/icu/source/common/ushape.cpp
Line
Count
Source (jump to first uncovered line)
1
// © 2016 and later: Unicode, Inc. and others.
2
// License & terms of use: http://www.unicode.org/copyright.html
3
/*
4
 ******************************************************************************
5
 *
6
 *   Copyright (C) 2000-2016, International Business Machines
7
 *   Corporation and others.  All Rights Reserved.
8
 *
9
 ******************************************************************************
10
 *   file name:  ushape.cpp
11
 *   encoding:   UTF-8
12
 *   tab size:   8 (not used)
13
 *   indentation:4
14
 *
15
 *   created on: 2000jun29
16
 *   created by: Markus W. Scherer
17
 *
18
 *   Arabic letter shaping implemented by Ayman Roshdy
19
 */
20
21
#include "unicode/utypes.h"
22
#include "unicode/uchar.h"
23
#include "unicode/ustring.h"
24
#include "unicode/ushape.h"
25
#include "cmemory.h"
26
#include "putilimp.h"
27
#include "ustr_imp.h"
28
#include "ubidi_props.h"
29
#include "uassert.h"
30
31
/*
32
 * This implementation is designed for 16-bit Unicode strings.
33
 * The main assumption is that the Arabic characters and their
34
 * presentation forms each fit into a single UChar.
35
 * With UTF-8, they occupy 2 or 3 bytes, and more than the ASCII
36
 * characters.
37
 */
38
39
/*
40
 * ### TODO in general for letter shaping:
41
 * - the letter shaping code is UTF-16-unaware; needs update
42
 *   + especially invertBuffer()?!
43
 * - needs to handle the "Arabic Tail" that is used in some legacy codepages
44
 *   as a glyph fragment of wide-glyph letters
45
 *   + IBM Unicode conversion tables map it to U+200B (ZWSP)
46
 *   + IBM Egypt has proposed to encode the tail in Unicode among Arabic Presentation Forms
47
 *   + Unicode 3.2 added U+FE73 ARABIC TAIL FRAGMENT
48
 */
49
50
/* definitions for Arabic letter shaping ------------------------------------ */
51
52
0
#define IRRELEVANT 4
53
0
#define LAMTYPE    16
54
0
#define ALEFTYPE   32
55
0
#define LINKR      1
56
0
#define LINKL      2
57
0
#define APRESENT   8
58
0
#define SHADDA     64
59
0
#define CSHADDA    128
60
0
#define COMBINE    (SHADDA+CSHADDA)
61
62
0
#define HAMZAFE_CHAR       0xfe80
63
0
#define HAMZA06_CHAR       0x0621
64
0
#define YEH_HAMZA_CHAR     0x0626
65
0
#define YEH_HAMZAFE_CHAR   0xFE89
66
0
#define LAMALEF_SPACE_SUB  0xFFFF
67
0
#define TASHKEEL_SPACE_SUB 0xFFFE
68
0
#define NEW_TAIL_CHAR      0xFE73
69
0
#define OLD_TAIL_CHAR      0x200B
70
0
#define LAM_CHAR           0x0644
71
0
#define SPACE_CHAR         0x0020
72
0
#define SHADDA_CHAR        0xFE7C
73
0
#define TATWEEL_CHAR       0x0640
74
0
#define SHADDA_TATWEEL_CHAR  0xFE7D
75
0
#define SHADDA06_CHAR      0x0651
76
77
0
#define SHAPE_MODE   0
78
0
#define DESHAPE_MODE 1
79
80
struct uShapeVariables {
81
     UChar tailChar;
82
     uint32_t uShapeLamalefBegin;
83
     uint32_t uShapeLamalefEnd;
84
     uint32_t uShapeTashkeelBegin;
85
     uint32_t uShapeTashkeelEnd;
86
     int spacesRelativeToTextBeginEnd;
87
};
88
89
static const uint8_t tailFamilyIsolatedFinal[] = {
90
    /* FEB1 */ 1,
91
    /* FEB2 */ 1,
92
    /* FEB3 */ 0,
93
    /* FEB4 */ 0,
94
    /* FEB5 */ 1,
95
    /* FEB6 */ 1,
96
    /* FEB7 */ 0,
97
    /* FEB8 */ 0,
98
    /* FEB9 */ 1,
99
    /* FEBA */ 1,
100
    /* FEBB */ 0,
101
    /* FEBC */ 0,
102
    /* FEBD */ 1,
103
    /* FEBE */ 1
104
};
105
106
static const uint8_t tashkeelMedial[] = {
107
    /* FE70 */ 0,
108
    /* FE71 */ 1,
109
    /* FE72 */ 0,
110
    /* FE73 */ 0,
111
    /* FE74 */ 0,
112
    /* FE75 */ 0,
113
    /* FE76 */ 0,
114
    /* FE77 */ 1,
115
    /* FE78 */ 0,
116
    /* FE79 */ 1,
117
    /* FE7A */ 0,
118
    /* FE7B */ 1,
119
    /* FE7C */ 0,
120
    /* FE7D */ 1,
121
    /* FE7E */ 0,
122
    /* FE7F */ 1
123
};
124
125
static const UChar yehHamzaToYeh[] =
126
{
127
/* isolated*/ 0xFEEF,
128
/* final   */ 0xFEF0
129
};
130
131
static const uint8_t IrrelevantPos[] = {
132
    0x0, 0x2, 0x4, 0x6,
133
    0x8, 0xA, 0xC, 0xE
134
};
135
136
137
static const UChar convertLamAlef[] =
138
{
139
/*FEF5*/    0x0622,
140
/*FEF6*/    0x0622,
141
/*FEF7*/    0x0623,
142
/*FEF8*/    0x0623,
143
/*FEF9*/    0x0625,
144
/*FEFA*/    0x0625,
145
/*FEFB*/    0x0627,
146
/*FEFC*/    0x0627
147
};
148
149
static const UChar araLink[178]=
150
{
151
  1           + 32 + 256 * 0x11,/*0x0622*/
152
  1           + 32 + 256 * 0x13,/*0x0623*/
153
  1                + 256 * 0x15,/*0x0624*/
154
  1           + 32 + 256 * 0x17,/*0x0625*/
155
  1 + 2            + 256 * 0x19,/*0x0626*/
156
  1           + 32 + 256 * 0x1D,/*0x0627*/
157
  1 + 2            + 256 * 0x1F,/*0x0628*/
158
  1                + 256 * 0x23,/*0x0629*/
159
  1 + 2            + 256 * 0x25,/*0x062A*/
160
  1 + 2            + 256 * 0x29,/*0x062B*/
161
  1 + 2            + 256 * 0x2D,/*0x062C*/
162
  1 + 2            + 256 * 0x31,/*0x062D*/
163
  1 + 2            + 256 * 0x35,/*0x062E*/
164
  1                + 256 * 0x39,/*0x062F*/
165
  1                + 256 * 0x3B,/*0x0630*/
166
  1                + 256 * 0x3D,/*0x0631*/
167
  1                + 256 * 0x3F,/*0x0632*/
168
  1 + 2            + 256 * 0x41,/*0x0633*/
169
  1 + 2            + 256 * 0x45,/*0x0634*/
170
  1 + 2            + 256 * 0x49,/*0x0635*/
171
  1 + 2            + 256 * 0x4D,/*0x0636*/
172
  1 + 2            + 256 * 0x51,/*0x0637*/
173
  1 + 2            + 256 * 0x55,/*0x0638*/
174
  1 + 2            + 256 * 0x59,/*0x0639*/
175
  1 + 2            + 256 * 0x5D,/*0x063A*/
176
  0, 0, 0, 0, 0,                /*0x063B-0x063F*/
177
  1 + 2,                        /*0x0640*/
178
  1 + 2            + 256 * 0x61,/*0x0641*/
179
  1 + 2            + 256 * 0x65,/*0x0642*/
180
  1 + 2            + 256 * 0x69,/*0x0643*/
181
  1 + 2       + 16 + 256 * 0x6D,/*0x0644*/
182
  1 + 2            + 256 * 0x71,/*0x0645*/
183
  1 + 2            + 256 * 0x75,/*0x0646*/
184
  1 + 2            + 256 * 0x79,/*0x0647*/
185
  1                + 256 * 0x7D,/*0x0648*/
186
  1                + 256 * 0x7F,/*0x0649*/
187
  1 + 2            + 256 * 0x81,/*0x064A*/
188
         4         + 256 * 1,   /*0x064B*/
189
         4 + 128   + 256 * 1,   /*0x064C*/
190
         4 + 128   + 256 * 1,   /*0x064D*/
191
         4 + 128   + 256 * 1,   /*0x064E*/
192
         4 + 128   + 256 * 1,   /*0x064F*/
193
         4 + 128   + 256 * 1,   /*0x0650*/
194
         4 + 64    + 256 * 3,   /*0x0651*/
195
         4         + 256 * 1,   /*0x0652*/
196
         4         + 256 * 7,   /*0x0653*/
197
         4         + 256 * 8,   /*0x0654*/
198
         4         + 256 * 8,   /*0x0655*/
199
         4         + 256 * 1,   /*0x0656*/
200
  0, 0, 0, 0, 0,                /*0x0657-0x065B*/
201
  1                + 256 * 0x85,/*0x065C*/
202
  1                + 256 * 0x87,/*0x065D*/
203
  1                + 256 * 0x89,/*0x065E*/
204
  1                + 256 * 0x8B,/*0x065F*/
205
  0, 0, 0, 0, 0,                /*0x0660-0x0664*/
206
  0, 0, 0, 0, 0,                /*0x0665-0x0669*/
207
  0, 0, 0, 0, 0, 0,             /*0x066A-0x066F*/
208
         4         + 256 * 6,   /*0x0670*/
209
  1        + 8     + 256 * 0x00,/*0x0671*/
210
  1            + 32,            /*0x0672*/
211
  1            + 32,            /*0x0673*/
212
  0,                            /*0x0674*/
213
  1            + 32,            /*0x0675*/
214
  1, 1,                         /*0x0676-0x0677*/
215
  1 + 2,                        /*0x0678*/
216
  1 + 2 + 8        + 256 * 0x16,/*0x0679*/
217
  1 + 2 + 8        + 256 * 0x0E,/*0x067A*/
218
  1 + 2 + 8        + 256 * 0x02,/*0x067B*/
219
  1+2, 1+2,                     /*0x67C-0x067D*/
220
  1+2+8+256 * 0x06, 1+2, 1+2, 1+2, 1+2, 1+2, /*0x067E-0x0683*/
221
  1+2, 1+2, 1+2+8+256 * 0x2A, 1+2,           /*0x0684-0x0687*/
222
  1     + 8        + 256 * 0x38,/*0x0688*/
223
  1, 1, 1,                      /*0x0689-0x068B*/
224
  1     + 8        + 256 * 0x34,/*0x068C*/
225
  1     + 8        + 256 * 0x32,/*0x068D*/
226
  1     + 8        + 256 * 0x36,/*0x068E*/
227
  1, 1,                         /*0x068F-0x0690*/
228
  1     + 8        + 256 * 0x3C,/*0x0691*/
229
  1, 1, 1, 1, 1, 1, 1+8+256 * 0x3A, 1,       /*0x0692-0x0699*/
230
  1+2, 1+2, 1+2, 1+2, 1+2, 1+2, /*0x069A-0x06A3*/
231
  1+2, 1+2, 1+2, 1+2,           /*0x069A-0x06A3*/
232
  1+2, 1+2, 1+2, 1+2, 1+2, 1+2+8+256 * 0x3E, /*0x06A4-0x06AD*/
233
  1+2, 1+2, 1+2, 1+2,           /*0x06A4-0x06AD*/
234
  1+2, 1+2+8+256 * 0x42, 1+2, 1+2, 1+2, 1+2, /*0x06AE-0x06B7*/
235
  1+2, 1+2, 1+2, 1+2,           /*0x06AE-0x06B7*/
236
  1+2, 1+2,                     /*0x06B8-0x06B9*/
237
  1     + 8        + 256 * 0x4E,/*0x06BA*/
238
  1 + 2 + 8        + 256 * 0x50,/*0x06BB*/
239
  1+2, 1+2,                     /*0x06BC-0x06BD*/
240
  1 + 2 + 8        + 256 * 0x5A,/*0x06BE*/
241
  1+2,                          /*0x06BF*/
242
  1     + 8        + 256 * 0x54,/*0x06C0*/
243
  1 + 2 + 8        + 256 * 0x56,/*0x06C1*/
244
  1, 1, 1,                      /*0x06C2-0x06C4*/
245
  1     + 8        + 256 * 0x90,/*0x06C5*/
246
  1     + 8        + 256 * 0x89,/*0x06C6*/
247
  1     + 8        + 256 * 0x87,/*0x06C7*/
248
  1     + 8        + 256 * 0x8B,/*0x06C8*/
249
  1     + 8        + 256 * 0x92,/*0x06C9*/
250
  1,                            /*0x06CA*/
251
  1     + 8        + 256 * 0x8E,/*0x06CB*/
252
  1 + 2 + 8        + 256 * 0xAC,/*0x06CC*/
253
  1,                            /*0x06CD*/
254
  1+2, 1+2,                     /*0x06CE-0x06CF*/
255
  1 + 2 + 8        + 256 * 0x94,/*0x06D0*/
256
  1+2,                          /*0x06D1*/
257
  1     + 8        + 256 * 0x5E,/*0x06D2*/
258
  1     + 8        + 256 * 0x60 /*0x06D3*/
259
};
260
261
static const uint8_t presALink[] = {
262
/***********0*****1*****2*****3*****4*****5*****6*****7*****8*****9*****A*****B*****C*****D*****E*****F*/
263
/*FB5*/    0,    1,    0,    0,    0,    0,    0,    1,    2,1 + 2,    0,    0,    0,    0,    0,    0,
264
/*FB6*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
265
/*FB7*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    1,    2,1 + 2,    0,    0,
266
/*FB8*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    1,    0,    0,    0,    1,
267
/*FB9*/    2,1 + 2,    0,    1,    2,1 + 2,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
268
/*FBA*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
269
/*FBB*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
270
/*FBC*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
271
/*FBD*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
272
/*FBE*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
273
/*FBF*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    1,    2,1 + 2,
274
/*FC0*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
275
/*FC1*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
276
/*FC2*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
277
/*FC3*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
278
/*FC4*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
279
/*FC5*/    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    4,    4,
280
/*FC6*/    4,    4,    4
281
};
282
283
static const uint8_t presBLink[]=
284
{
285
/***********0*****1*****2*****3*****4*****5*****6*****7*****8*****9*****A*****B*****C*****D*****E*****F*/
286
/*FE7*/1 + 2,1 + 2,1 + 2,    0,1 + 2,    0,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,1 + 2,
287
/*FE8*/    0,    0,    1,    0,    1,    0,    1,    0,    1,    0,    1,    2,1 + 2,    0,    1,    0,
288
/*FE9*/    1,    2,1 + 2,    0,    1,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,
289
/*FEA*/1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    0,    1,    0,    1,    0,
290
/*FEB*/    1,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,
291
/*FEC*/1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,
292
/*FED*/1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,
293
/*FEE*/1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    2,1 + 2,    0,    1,    0,
294
/*FEF*/    1,    0,    1,    2,1 + 2,    0,    1,    0,    1,    0,    1,    0,    1,    0,    0,    0
295
};
296
297
static const UChar convertFBto06[] =
298
{
299
/***********0******1******2******3******4******5******6******7******8******9******A******B******C******D******E******F***/
300
/*FB5*/   0x671, 0x671, 0x67B, 0x67B, 0x67B, 0x67B, 0x67E, 0x67E, 0x67E, 0x67E,     0,     0,     0,     0, 0x67A, 0x67A,
301
/*FB6*/   0x67A, 0x67A,     0,     0,     0,     0, 0x679, 0x679, 0x679, 0x679,     0,     0,     0,     0,     0,     0,
302
/*FB7*/       0,     0,     0,     0,     0,     0,     0,     0,     0,     0, 0x686, 0x686, 0x686, 0x686,     0,     0,
303
/*FB8*/       0,     0, 0x68D, 0x68D, 0x68C, 0x68C, 0x68E, 0x68E, 0x688, 0x688, 0x698, 0x698, 0x691, 0x691, 0x6A9, 0x6A9,
304
/*FB9*/   0x6A9, 0x6A9, 0x6AF, 0x6AF, 0x6AF, 0x6AF,     0,     0,     0,     0,     0,     0,     0,     0, 0x6BA, 0x6BA,
305
/*FBA*/   0x6BB, 0x6BB, 0x6BB, 0x6BB, 0x6C0, 0x6C0, 0x6C1, 0x6C1, 0x6C1, 0x6C1, 0x6BE, 0x6BE, 0x6BE, 0x6BE, 0x6d2, 0x6D2,
306
/*FBB*/   0x6D3, 0x6D3,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
307
/*FBC*/       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
308
/*FBD*/       0,     0,     0,     0,     0,     0,     0, 0x6C7, 0x6C7, 0x6C6, 0x6C6, 0x6C8, 0x6C8,     0, 0x6CB, 0x6CB,
309
/*FBE*/   0x6C5, 0x6C5, 0x6C9, 0x6C9, 0x6D0, 0x6D0, 0x6D0, 0x6D0,     0,     0,     0,     0,     0,     0,     0,     0,
310
/*FBF*/       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,     0, 0x6CC, 0x6CC, 0x6CC, 0x6CC
311
};
312
313
static const UChar convertFEto06[] =
314
{
315
/***********0******1******2******3******4******5******6******7******8******9******A******B******C******D******E******F***/
316
/*FE7*/   0x64B, 0x64B, 0x64C, 0x64C, 0x64D, 0x64D, 0x64E, 0x64E, 0x64F, 0x64F, 0x650, 0x650, 0x651, 0x651, 0x652, 0x652,
317
/*FE8*/   0x621, 0x622, 0x622, 0x623, 0x623, 0x624, 0x624, 0x625, 0x625, 0x626, 0x626, 0x626, 0x626, 0x627, 0x627, 0x628,
318
/*FE9*/   0x628, 0x628, 0x628, 0x629, 0x629, 0x62A, 0x62A, 0x62A, 0x62A, 0x62B, 0x62B, 0x62B, 0x62B, 0x62C, 0x62C, 0x62C,
319
/*FEA*/   0x62C, 0x62D, 0x62D, 0x62D, 0x62D, 0x62E, 0x62E, 0x62E, 0x62E, 0x62F, 0x62F, 0x630, 0x630, 0x631, 0x631, 0x632,
320
/*FEB*/   0x632, 0x633, 0x633, 0x633, 0x633, 0x634, 0x634, 0x634, 0x634, 0x635, 0x635, 0x635, 0x635, 0x636, 0x636, 0x636,
321
/*FEC*/   0x636, 0x637, 0x637, 0x637, 0x637, 0x638, 0x638, 0x638, 0x638, 0x639, 0x639, 0x639, 0x639, 0x63A, 0x63A, 0x63A,
322
/*FED*/   0x63A, 0x641, 0x641, 0x641, 0x641, 0x642, 0x642, 0x642, 0x642, 0x643, 0x643, 0x643, 0x643, 0x644, 0x644, 0x644,
323
/*FEE*/   0x644, 0x645, 0x645, 0x645, 0x645, 0x646, 0x646, 0x646, 0x646, 0x647, 0x647, 0x647, 0x647, 0x648, 0x648, 0x649,
324
/*FEF*/   0x649, 0x64A, 0x64A, 0x64A, 0x64A, 0x65C, 0x65C, 0x65D, 0x65D, 0x65E, 0x65E, 0x65F, 0x65F
325
};
326
327
static const uint8_t shapeTable[4][4][4]=
328
{
329
  { {0,0,0,0}, {0,0,0,0}, {0,1,0,3}, {0,1,0,1} },
330
  { {0,0,2,2}, {0,0,1,2}, {0,1,1,2}, {0,1,1,3} },
331
  { {0,0,0,0}, {0,0,0,0}, {0,1,0,3}, {0,1,0,3} },
332
  { {0,0,1,2}, {0,0,1,2}, {0,1,1,2}, {0,1,1,3} }
333
};
334
335
/*
336
 * This function shapes European digits to Arabic-Indic digits
337
 * in-place, writing over the input characters.
338
 * Since we know that we are only looking for BMP code points,
339
 * we can safely just work with code units (again, at least UTF-16).
340
 */
341
static void
342
_shapeToArabicDigitsWithContext(UChar *s, int32_t length,
343
                                UChar digitBase,
344
0
                                UBool isLogical, UBool lastStrongWasAL) {
345
0
    int32_t i;
346
0
    UChar c;
347
0
348
0
    digitBase-=0x30;
349
0
350
0
    /* the iteration direction depends on the type of input */
351
0
    if(isLogical) {
352
0
        for(i=0; i<length; ++i) {
353
0
            c=s[i];
354
0
            switch(ubidi_getClass(c)) {
355
0
            case U_LEFT_TO_RIGHT: /* L */
356
0
            case U_RIGHT_TO_LEFT: /* R */
357
0
                lastStrongWasAL=FALSE;
358
0
                break;
359
0
            case U_RIGHT_TO_LEFT_ARABIC: /* AL */
360
0
                lastStrongWasAL=TRUE;
361
0
                break;
362
0
            case U_EUROPEAN_NUMBER: /* EN */
363
0
                if(lastStrongWasAL && (uint32_t)(c-0x30)<10) {
364
0
                    s[i]=(UChar)(digitBase+c); /* digitBase+(c-0x30) - digitBase was modified above */
365
0
                }
366
0
                break;
367
0
            default :
368
0
                break;
369
0
            }
370
0
        }
371
0
    } else {
372
0
        for(i=length; i>0; /* pre-decrement in the body */) {
373
0
            c=s[--i];
374
0
            switch(ubidi_getClass(c)) {
375
0
            case U_LEFT_TO_RIGHT: /* L */
376
0
            case U_RIGHT_TO_LEFT: /* R */
377
0
                lastStrongWasAL=FALSE;
378
0
                break;
379
0
            case U_RIGHT_TO_LEFT_ARABIC: /* AL */
380
0
                lastStrongWasAL=TRUE;
381
0
                break;
382
0
            case U_EUROPEAN_NUMBER: /* EN */
383
0
                if(lastStrongWasAL && (uint32_t)(c-0x30)<10) {
384
0
                    s[i]=(UChar)(digitBase+c); /* digitBase+(c-0x30) - digitBase was modified above */
385
0
                }
386
0
                break;
387
0
            default :
388
0
                break;
389
0
            }
390
0
        }
391
0
    }
392
0
}
393
394
/*
395
 *Name     : invertBuffer
396
 *Function : This function inverts the buffer, it's used
397
 *           in case the user specifies the buffer to be
398
 *           U_SHAPE_TEXT_DIRECTION_LOGICAL
399
 */
400
static void
401
0
invertBuffer(UChar *buffer, int32_t size, uint32_t /*options*/, int32_t lowlimit, int32_t highlimit) {
402
0
    UChar temp;
403
0
    int32_t i=0,j=0;
404
0
    for(i=lowlimit,j=size-highlimit-1;i<j;i++,j--) {
405
0
        temp = buffer[i];
406
0
        buffer[i] = buffer[j];
407
0
        buffer[j] = temp;
408
0
    }
409
0
}
410
411
/*
412
 *Name     : changeLamAlef
413
 *Function : Converts the Alef characters into an equivalent
414
 *           LamAlef location in the 0x06xx Range, this is an
415
 *           intermediate stage in the operation of the program
416
 *           later it'll be converted into the 0xFExx LamAlefs
417
 *           in the shaping function.
418
 */
419
static inline UChar
420
0
changeLamAlef(UChar ch) {
421
0
    switch(ch) {
422
0
    case 0x0622 :
423
0
        return 0x065C;
424
0
    case 0x0623 :
425
0
        return 0x065D;
426
0
    case 0x0625 :
427
0
        return 0x065E;
428
0
    case 0x0627 :
429
0
        return 0x065F;
430
0
    }
431
0
    return 0;
432
0
}
433
434
/*
435
 *Name     : getLink
436
 *Function : Resolves the link between the characters as
437
 *           Arabic characters have four forms :
438
 *           Isolated, Initial, Middle and Final Form
439
 */
440
static UChar
441
0
getLink(UChar ch) {
442
0
    if(ch >= 0x0622 && ch <= 0x06D3) {
443
0
        return(araLink[ch-0x0622]);
444
0
    } else if(ch == 0x200D) {
445
0
        return(3);
446
0
    } else if(ch >= 0x206D && ch <= 0x206F) {
447
0
        return(4);
448
0
    }else if(ch >= 0xFB50 && ch <= 0xFC62) {
449
0
        return(presALink[ch-0xFB50]);
450
0
    } else if(ch >= 0xFE70 && ch <= 0xFEFC) {
451
0
        return(presBLink[ch-0xFE70]);
452
0
    }else {
453
0
        return(0);
454
0
    }
455
0
}
456
457
/*
458
 *Name     : countSpaces
459
 *Function : Counts the number of spaces
460
 *           at each end of the logical buffer
461
 */
462
static void
463
0
countSpaces(UChar *dest, int32_t size, uint32_t /*options*/, int32_t *spacesCountl, int32_t *spacesCountr) {
464
0
    int32_t i = 0;
465
0
    int32_t countl = 0,countr = 0;
466
0
    while((dest[i] == SPACE_CHAR) && (countl < size)) {
467
0
       countl++;
468
0
       i++;
469
0
    }
470
0
    if (countl < size) {  /* the entire buffer is not all space */
471
0
        while(dest[size-1] == SPACE_CHAR) {
472
0
            countr++;
473
0
            size--;
474
0
        }
475
0
    }
476
0
    *spacesCountl = countl;
477
0
    *spacesCountr = countr;
478
0
}
479
480
/*
481
 *Name     : isTashkeelChar
482
 *Function : Returns 1 for Tashkeel characters in 06 range else return 0
483
 */
484
static inline int32_t
485
0
isTashkeelChar(UChar ch) {
486
0
    return (int32_t)( ch>=0x064B && ch<= 0x0652 );
487
0
}
488
489
/*
490
 *Name     : isTashkeelCharFE
491
 *Function : Returns 1 for Tashkeel characters in FE range else return 0
492
 */
493
static inline int32_t
494
0
isTashkeelCharFE(UChar ch) {
495
0
    return (int32_t)( ch>=0xFE70 && ch<= 0xFE7F );
496
0
}
497
498
/*
499
 *Name     : isAlefChar
500
 *Function : Returns 1 for Alef characters else return 0
501
 */
502
static inline int32_t
503
0
isAlefChar(UChar ch) {
504
0
    return (int32_t)( (ch==0x0622)||(ch==0x0623)||(ch==0x0625)||(ch==0x0627) );
505
0
}
506
507
/*
508
 *Name     : isLamAlefChar
509
 *Function : Returns 1 for LamAlef characters else return 0
510
 */
511
static inline int32_t
512
0
isLamAlefChar(UChar ch) {
513
0
    return (int32_t)((ch>=0xFEF5)&&(ch<=0xFEFC) );
514
0
}
515
516
/*BIDI
517
 *Name     : isTailChar
518
 *Function : returns 1 if the character matches one of the tail characters (0xfe73 or 0x200b) otherwise returns 0
519
 */
520
521
static inline int32_t
522
0
isTailChar(UChar ch) {
523
0
    if(ch == OLD_TAIL_CHAR || ch == NEW_TAIL_CHAR){
524
0
            return 1;
525
0
    }else{
526
0
            return 0;
527
0
    }
528
0
}
529
530
/*BIDI
531
 *Name     : isSeenTailFamilyChar
532
 *Function : returns 1 if the character is a seen family isolated character
533
 *           in the FE range otherwise returns 0
534
 */
535
536
static inline int32_t
537
0
isSeenTailFamilyChar(UChar ch) {
538
0
    if(ch >= 0xfeb1 && ch < 0xfebf){
539
0
            return tailFamilyIsolatedFinal [ch - 0xFEB1];
540
0
    }else{
541
0
            return 0;
542
0
    }
543
0
}
544
545
 /* Name     : isSeenFamilyChar
546
  * Function : returns 1 if the character is a seen family character in the Unicode
547
  *            06 range otherwise returns 0
548
 */
549
550
static inline int32_t
551
0
isSeenFamilyChar(UChar  ch){
552
0
    if(ch >= 0x633 && ch <= 0x636){
553
0
        return 1;
554
0
    }else {
555
0
        return 0;
556
0
    }
557
0
}
558
559
/*Start of BIDI*/
560
/*
561
 *Name     : isAlefMaksouraChar
562
 *Function : returns 1 if the character is a Alef Maksoura Final or isolated
563
 *           otherwise returns 0
564
 */
565
static inline int32_t
566
0
isAlefMaksouraChar(UChar ch) {
567
0
    return (int32_t)( (ch == 0xFEEF) || ( ch == 0xFEF0) || (ch == 0x0649));
568
0
}
569
570
/*
571
 * Name     : isYehHamzaChar
572
 * Function : returns 1 if the character is a yehHamza isolated or yehhamza
573
 *            final is found otherwise returns 0
574
 */
575
static inline int32_t
576
0
isYehHamzaChar(UChar ch) {
577
0
    if((ch==0xFE89)||(ch==0xFE8A)){
578
0
        return 1;
579
0
    }else{
580
0
        return 0;
581
0
    }
582
0
}
583
584
 /*
585
 * Name: isTashkeelOnTatweelChar
586
 * Function: Checks if the Tashkeel Character is on Tatweel or not,if the
587
 *           Tashkeel on tatweel (FE range), it returns 1 else if the
588
 *           Tashkeel with shadda on tatweel (FC range)return 2 otherwise
589
 *           returns 0
590
 */
591
static inline int32_t
592
0
isTashkeelOnTatweelChar(UChar ch){
593
0
    if(ch >= 0xfe70 && ch <= 0xfe7f && ch != NEW_TAIL_CHAR && ch != 0xFE75 && ch != SHADDA_TATWEEL_CHAR)
594
0
    {
595
0
        return tashkeelMedial [ch - 0xFE70];
596
0
    }else if( (ch >= 0xfcf2 && ch <= 0xfcf4) || (ch == SHADDA_TATWEEL_CHAR)) {
597
0
        return 2;
598
0
    }else{
599
0
        return 0;
600
0
    }
601
0
}
602
603
/*
604
 * Name: isIsolatedTashkeelChar
605
 * Function: Checks if the Tashkeel Character is in the isolated form
606
 *           (i.e. Unicode FE range) returns 1 else if the Tashkeel
607
 *           with shadda is in the isolated form (i.e. Unicode FC range)
608
 *           returns 2 otherwise returns 0
609
 */
610
static inline int32_t
611
0
isIsolatedTashkeelChar(UChar ch){
612
0
    if(ch >= 0xfe70 && ch <= 0xfe7f && ch != NEW_TAIL_CHAR && ch != 0xFE75){
613
0
        return (1 - tashkeelMedial [ch - 0xFE70]);
614
0
    }else if(ch >= 0xfc5e && ch <= 0xfc63){
615
0
        return 1;
616
0
    }else{
617
0
        return 0;
618
0
    }
619
0
}
620
621
622
623
624
/*
625
 *Name     : calculateSize
626
 *Function : This function calculates the destSize to be used in preflighting
627
 *           when the destSize is equal to 0
628
 *           It is used also to calculate the new destsize in case the
629
 *           destination buffer will be resized.
630
 */
631
632
static int32_t
633
calculateSize(const UChar *source, int32_t sourceLength,
634
0
int32_t destSize,uint32_t options) {
635
0
    int32_t i = 0;
636
0
637
0
    int lamAlefOption = 0;
638
0
    int tashkeelOption = 0;
639
0
640
0
    destSize = sourceLength;
641
0
642
0
    if (((options&U_SHAPE_LETTERS_MASK) == U_SHAPE_LETTERS_SHAPE ||
643
0
        ((options&U_SHAPE_LETTERS_MASK) == U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED )) &&
644
0
        ((options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_RESIZE )){
645
0
            lamAlefOption = 1;
646
0
    }
647
0
    if((options&U_SHAPE_LETTERS_MASK) == U_SHAPE_LETTERS_SHAPE &&
648
0
       ((options&U_SHAPE_TASHKEEL_MASK) == U_SHAPE_TASHKEEL_RESIZE ) ){
649
0
            tashkeelOption = 1;
650
0
        }
651
0
652
0
    if(lamAlefOption || tashkeelOption){
653
0
        if((options&U_SHAPE_TEXT_DIRECTION_MASK)==U_SHAPE_TEXT_DIRECTION_VISUAL_LTR) {
654
0
            for(i=0;i<sourceLength;i++) {
655
0
                if( ((isAlefChar(source[i]))&& (i<(sourceLength-1)) &&(source[i+1] == LAM_CHAR)) || (isTashkeelCharFE(source[i])) ) {
656
0
                        destSize--;
657
0
                    }
658
0
                }
659
0
            }else if((options&U_SHAPE_TEXT_DIRECTION_MASK)==U_SHAPE_TEXT_DIRECTION_LOGICAL) {
660
0
                for(i=0;i<sourceLength;i++) {
661
0
                    if( ( (source[i] == LAM_CHAR) && (i<(sourceLength-1)) && (isAlefChar(source[i+1]))) || (isTashkeelCharFE(source[i])) ) {
662
0
                        destSize--;
663
0
                    }
664
0
                }
665
0
            }
666
0
        }
667
0
668
0
    if ((options&U_SHAPE_LETTERS_MASK) == U_SHAPE_LETTERS_UNSHAPE){
669
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_RESIZE){
670
0
            for(i=0;i<sourceLength;i++) {
671
0
                if(isLamAlefChar(source[i]))
672
0
                destSize++;
673
0
            }
674
0
        }
675
0
    }
676
0
677
0
    return destSize;
678
0
}
679
680
/*
681
 *Name     : handleTashkeelWithTatweel
682
 *Function : Replaces Tashkeel as following:
683
 *            Case 1 :if the Tashkeel on tatweel, replace it with Tatweel.
684
 *            Case 2 :if the Tashkeel aggregated with Shadda on Tatweel, replace
685
 *                   it with Shadda on Tatweel.
686
 *            Case 3: if the Tashkeel is isolated replace it with Space.
687
 *
688
 */
689
static int32_t
690
handleTashkeelWithTatweel(UChar *dest, int32_t sourceLength,
691
             int32_t /*destSize*/, uint32_t /*options*/,
692
0
             UErrorCode * /*pErrorCode*/) {
693
0
                 int i;
694
0
                 for(i = 0; i < sourceLength; i++){
695
0
                     if((isTashkeelOnTatweelChar(dest[i]) == 1)){
696
0
                         dest[i] = TATWEEL_CHAR;
697
0
                    }else if((isTashkeelOnTatweelChar(dest[i]) == 2)){
698
0
                         dest[i] = SHADDA_TATWEEL_CHAR;
699
0
                    }else if(isIsolatedTashkeelChar(dest[i]) && dest[i] != SHADDA_CHAR){
700
0
                         dest[i] = SPACE_CHAR;
701
0
                    }
702
0
                 }
703
0
                 return sourceLength;
704
0
}
705
706
707
708
/*
709
 *Name     : handleGeneratedSpaces
710
 *Function : The shapeUnicode function converts Lam + Alef into LamAlef + space,
711
 *           and Tashkeel to space.
712
 *           handleGeneratedSpaces function puts these generated spaces
713
 *           according to the options the user specifies. LamAlef and Tashkeel
714
 *           spaces can be replaced at begin, at end, at near or decrease the
715
 *           buffer size.
716
 *
717
 *           There is also Auto option for LamAlef and tashkeel, which will put
718
 *           the spaces at end of the buffer (or end of text if the user used
719
 *           the option U_SHAPE_SPACES_RELATIVE_TO_TEXT_BEGIN_END).
720
 *
721
 *           If the text type was visual_LTR and the option
722
 *           U_SHAPE_SPACES_RELATIVE_TO_TEXT_BEGIN_END was selected the END
723
 *           option will place the space at the beginning of the buffer and
724
 *           BEGIN will place the space at the end of the buffer.
725
 */
726
727
static int32_t
728
handleGeneratedSpaces(UChar *dest, int32_t sourceLength,
729
                    int32_t destSize,
730
                    uint32_t options,
731
0
                    UErrorCode *pErrorCode,struct uShapeVariables shapeVars ) {
732
0
733
0
    int32_t i = 0, j = 0;
734
0
    int32_t count = 0;
735
0
    UChar *tempbuffer=NULL;
736
0
737
0
    int lamAlefOption = 0;
738
0
    int tashkeelOption = 0;
739
0
    int shapingMode = SHAPE_MODE;
740
0
741
0
    if (shapingMode == 0){
742
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_RESIZE ){
743
0
            lamAlefOption = 1;
744
0
        }
745
0
        if ( (options&U_SHAPE_TASHKEEL_MASK) == U_SHAPE_TASHKEEL_RESIZE ){
746
0
            tashkeelOption = 1;
747
0
        }
748
0
    }
749
0
750
0
    tempbuffer = (UChar *)uprv_malloc((sourceLength+1)*U_SIZEOF_UCHAR);
751
0
    /* Test for NULL */
752
0
    if(tempbuffer == NULL) {
753
0
        *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
754
0
        return 0;
755
0
    }
756
0
757
0
758
0
    if (lamAlefOption || tashkeelOption){
759
0
        uprv_memset(tempbuffer, 0, (sourceLength+1)*U_SIZEOF_UCHAR);
760
0
761
0
        i = j = 0; count = 0;
762
0
        while(i < sourceLength) {
763
0
            if ( (lamAlefOption && dest[i] == LAMALEF_SPACE_SUB) ||
764
0
               (tashkeelOption && dest[i] == TASHKEEL_SPACE_SUB) ){
765
0
                j--;
766
0
                count++;
767
0
            } else {
768
0
                tempbuffer[j] = dest[i];
769
0
            }
770
0
            i++;
771
0
            j++;
772
0
        }
773
0
774
0
        while(count >= 0) {
775
0
            tempbuffer[i] = 0x0000;
776
0
            i--;
777
0
            count--;
778
0
        }
779
0
780
0
        u_memcpy(dest, tempbuffer, sourceLength);
781
0
        destSize = u_strlen(dest);
782
0
    }
783
0
784
0
      lamAlefOption = 0;
785
0
786
0
    if (shapingMode == 0){
787
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_NEAR ){
788
0
            lamAlefOption = 1;
789
0
        }
790
0
    }
791
0
792
0
    if (lamAlefOption){
793
0
        /* Lam+Alef is already shaped into LamAlef + FFFF */
794
0
        i = 0;
795
0
        while(i < sourceLength) {
796
0
            if(lamAlefOption&&dest[i] == LAMALEF_SPACE_SUB){
797
0
                dest[i] = SPACE_CHAR;
798
0
            }
799
0
            i++;
800
0
        }
801
0
        destSize = sourceLength;
802
0
    }
803
0
    lamAlefOption = 0;
804
0
    tashkeelOption = 0;
805
0
806
0
    if (shapingMode == 0) {
807
0
        if ( ((options&U_SHAPE_LAMALEF_MASK) == shapeVars.uShapeLamalefBegin) ||
808
0
              (((options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_AUTO )
809
0
              && (shapeVars.spacesRelativeToTextBeginEnd==1)) ) {
810
0
            lamAlefOption = 1;
811
0
        }
812
0
        if ( (options&U_SHAPE_TASHKEEL_MASK) == shapeVars.uShapeTashkeelBegin ) {
813
0
            tashkeelOption = 1;
814
0
        }
815
0
    }
816
0
817
0
    if(lamAlefOption || tashkeelOption){
818
0
        uprv_memset(tempbuffer, 0, (sourceLength+1)*U_SIZEOF_UCHAR);
819
0
        
820
0
        i = j = sourceLength; count = 0;
821
0
        
822
0
        while(i >= 0) {
823
0
            if ( (lamAlefOption && dest[i] == LAMALEF_SPACE_SUB) ||
824
0
                 (tashkeelOption && dest[i] == TASHKEEL_SPACE_SUB) ){
825
0
                j++;
826
0
                count++;
827
0
            }else {
828
0
                tempbuffer[j] = dest[i];
829
0
            }
830
0
            i--;
831
0
            j--;
832
0
        }
833
0
834
0
        for(i=0 ;i < count; i++){
835
0
                tempbuffer[i] = SPACE_CHAR;
836
0
        }
837
0
838
0
        u_memcpy(dest, tempbuffer, sourceLength);
839
0
        destSize = sourceLength;
840
0
    }
841
0
842
0
843
0
844
0
    lamAlefOption = 0;
845
0
    tashkeelOption = 0;
846
0
847
0
    if (shapingMode == 0) {
848
0
        if ( ((options&U_SHAPE_LAMALEF_MASK) == shapeVars.uShapeLamalefEnd) ||
849
0
              (((options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_AUTO )
850
0
              && (shapeVars.spacesRelativeToTextBeginEnd==0)) ) {
851
0
            lamAlefOption = 1;
852
0
        }
853
0
        if ( (options&U_SHAPE_TASHKEEL_MASK) == shapeVars.uShapeTashkeelEnd ){
854
0
            tashkeelOption = 1;
855
0
        }
856
0
    }
857
0
858
0
    if(lamAlefOption || tashkeelOption){
859
0
        uprv_memset(tempbuffer, 0, (sourceLength+1)*U_SIZEOF_UCHAR);
860
0
861
0
        i = j = 0; count = 0;
862
0
        while(i < sourceLength) {
863
0
            if ( (lamAlefOption && dest[i] == LAMALEF_SPACE_SUB) ||
864
0
                 (tashkeelOption && dest[i] == TASHKEEL_SPACE_SUB) ){
865
0
                j--;
866
0
                count++;
867
0
            }else {
868
0
                tempbuffer[j] = dest[i];
869
0
            }
870
0
            i++;
871
0
            j++;
872
0
        }
873
0
874
0
        while(count >= 0) {
875
0
            tempbuffer[i] = SPACE_CHAR;
876
0
            i--;
877
0
            count--;
878
0
        }
879
0
880
0
        u_memcpy(dest, tempbuffer, sourceLength);
881
0
        destSize = sourceLength;
882
0
    }
883
0
884
0
885
0
    if(tempbuffer){
886
0
        uprv_free(tempbuffer);
887
0
    }
888
0
889
0
    return destSize;
890
0
}
891
892
/*
893
 *Name     :expandCompositCharAtBegin
894
 *Function :Expands the LamAlef character to Lam and Alef consuming the required
895
 *         space from beginning of the buffer. If the text type was visual_LTR
896
 *         and the option U_SHAPE_SPACES_RELATIVE_TO_TEXT_BEGIN_END was selected
897
 *         the spaces will be located at end of buffer.
898
 *         If there are no spaces to expand the LamAlef, an error
899
 *         will be set to U_NO_SPACE_AVAILABLE as defined in utypes.h
900
 */
901
902
static int32_t
903
0
expandCompositCharAtBegin(UChar *dest, int32_t sourceLength, int32_t destSize,UErrorCode *pErrorCode) {
904
0
    int32_t      i = 0,j = 0;
905
0
    int32_t      countl = 0;
906
0
    UChar    *tempbuffer=NULL;
907
0
908
0
    tempbuffer = (UChar *)uprv_malloc((sourceLength+1)*U_SIZEOF_UCHAR);
909
0
910
0
    /* Test for NULL */
911
0
    if(tempbuffer == NULL) {
912
0
        *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
913
0
        return 0;
914
0
    }
915
0
916
0
        uprv_memset(tempbuffer, 0, (sourceLength+1)*U_SIZEOF_UCHAR);
917
0
918
0
        i = 0;
919
0
        while(dest[i] == SPACE_CHAR) {
920
0
            countl++;
921
0
            i++;
922
0
        }
923
0
924
0
        i = j = sourceLength-1;
925
0
926
0
        while(i >= 0 && j >= 0) {
927
0
            if( countl>0 && isLamAlefChar(dest[i])) {
928
0
                tempbuffer[j] = LAM_CHAR;
929
0
                /* to ensure the array index is within the range */
930
0
                U_ASSERT(dest[i] >= 0xFEF5u
931
0
                    && dest[i]-0xFEF5u < UPRV_LENGTHOF(convertLamAlef));
932
0
                tempbuffer[j-1] = convertLamAlef[ dest[i] - 0xFEF5 ];
933
0
                j--;
934
0
                countl--;
935
0
            }else {
936
0
                 if( countl == 0 && isLamAlefChar(dest[i]) ) {
937
0
                     *pErrorCode=U_NO_SPACE_AVAILABLE;
938
0
                     }
939
0
                 tempbuffer[j] = dest[i];
940
0
            }
941
0
            i--;
942
0
            j--;
943
0
        }
944
0
        u_memcpy(dest, tempbuffer, sourceLength);
945
0
946
0
        uprv_free(tempbuffer);
947
0
948
0
        destSize = sourceLength;
949
0
        return destSize;
950
0
}
951
952
/*
953
 *Name     : expandCompositCharAtEnd
954
 *Function : Expands the LamAlef character to Lam and Alef consuming the
955
 *           required space from end of the buffer. If the text type was
956
 *           Visual LTR and the option U_SHAPE_SPACES_RELATIVE_TO_TEXT_BEGIN_END
957
 *           was used, the spaces will be consumed from begin of buffer. If
958
 *           there are no spaces to expand the LamAlef, an error
959
 *           will be set to U_NO_SPACE_AVAILABLE as defined in utypes.h
960
 */
961
962
static int32_t
963
0
expandCompositCharAtEnd(UChar *dest, int32_t sourceLength, int32_t destSize,UErrorCode *pErrorCode) {
964
0
    int32_t      i = 0,j = 0;
965
0
966
0
    int32_t      countr = 0;
967
0
    int32_t  inpsize = sourceLength;
968
0
969
0
    UChar    *tempbuffer=NULL;
970
0
    tempbuffer = (UChar *)uprv_malloc((sourceLength+1)*U_SIZEOF_UCHAR);
971
0
972
0
    /* Test for NULL */
973
0
    if(tempbuffer == NULL) {
974
0
        *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
975
0
         return 0;
976
0
    }
977
0
978
0
    uprv_memset(tempbuffer, 0, (sourceLength+1)*U_SIZEOF_UCHAR);
979
0
980
0
    while(dest[inpsize-1] == SPACE_CHAR) {
981
0
        countr++;
982
0
        inpsize--;
983
0
    }
984
0
985
0
    i = sourceLength - countr - 1;
986
0
    j = sourceLength - 1;
987
0
988
0
    while(i >= 0 && j >= 0) {
989
0
        if( countr>0 && isLamAlefChar(dest[i]) ) {
990
0
            tempbuffer[j] = LAM_CHAR;
991
0
            tempbuffer[j-1] = convertLamAlef[ dest[i] - 0xFEF5 ];
992
0
            j--;
993
0
            countr--;
994
0
        }else {
995
0
            if ((countr == 0) && isLamAlefChar(dest[i]) ) {
996
0
                *pErrorCode=U_NO_SPACE_AVAILABLE;
997
0
            }
998
0
            tempbuffer[j] = dest[i];
999
0
        }
1000
0
        i--;
1001
0
        j--;
1002
0
    }
1003
0
1004
0
    if(countr > 0) {
1005
0
        u_memmove(tempbuffer, tempbuffer+countr, sourceLength);
1006
0
        if(u_strlen(tempbuffer) < sourceLength) {
1007
0
            for(i=sourceLength-1;i>=sourceLength-countr;i--) {
1008
0
                tempbuffer[i] = SPACE_CHAR;
1009
0
            }
1010
0
        }
1011
0
    }
1012
0
    u_memcpy(dest, tempbuffer, sourceLength);
1013
0
1014
0
    uprv_free(tempbuffer);
1015
0
1016
0
    destSize = sourceLength;
1017
0
    return destSize;
1018
0
}
1019
1020
/*
1021
 *Name     : expandCompositCharAtNear
1022
 *Function : Expands the LamAlef character into Lam + Alef, YehHamza character
1023
 *           into Yeh + Hamza, SeenFamily character into SeenFamily character
1024
 *           + Tail, while consuming the space next to the character.
1025
 *           If there are no spaces next to the character, an error
1026
 *           will be set to U_NO_SPACE_AVAILABLE as defined in utypes.h
1027
 */
1028
1029
static int32_t
1030
expandCompositCharAtNear(UChar *dest, int32_t sourceLength, int32_t destSize,UErrorCode *pErrorCode,
1031
0
                         int yehHamzaOption, int seenTailOption, int lamAlefOption, struct uShapeVariables shapeVars) {
1032
0
    int32_t      i = 0;
1033
0
1034
0
1035
0
    UChar    lamalefChar, yehhamzaChar;
1036
0
1037
0
    for(i = 0 ;i<=sourceLength-1;i++) {
1038
0
            if (seenTailOption && isSeenTailFamilyChar(dest[i])) {
1039
0
                if ((i>0) && (dest[i-1] == SPACE_CHAR) ) {
1040
0
                    dest[i-1] = shapeVars.tailChar;
1041
0
                }else {
1042
0
                    *pErrorCode=U_NO_SPACE_AVAILABLE;
1043
0
                }
1044
0
            }else if(yehHamzaOption && (isYehHamzaChar(dest[i])) ) {
1045
0
                if ((i>0) && (dest[i-1] == SPACE_CHAR) ) {
1046
0
                    yehhamzaChar = dest[i];
1047
0
                    dest[i] = yehHamzaToYeh[yehhamzaChar - YEH_HAMZAFE_CHAR];
1048
0
                    dest[i-1] = HAMZAFE_CHAR;
1049
0
                }else {
1050
0
1051
0
                    *pErrorCode=U_NO_SPACE_AVAILABLE;
1052
0
                }
1053
0
            }else if(lamAlefOption && isLamAlefChar(dest[i+1])) {
1054
0
                if(dest[i] == SPACE_CHAR){
1055
0
                    lamalefChar = dest[i+1];
1056
0
                    dest[i+1] = LAM_CHAR;
1057
0
                    dest[i] = convertLamAlef[ lamalefChar - 0xFEF5 ];
1058
0
                }else {
1059
0
                    *pErrorCode=U_NO_SPACE_AVAILABLE;
1060
0
                }
1061
0
            }
1062
0
       }
1063
0
       destSize = sourceLength;
1064
0
       return destSize;
1065
0
}
1066
 /*
1067
 * Name     : expandCompositChar
1068
 * Function : LamAlef, need special handling, since it expands from one
1069
 *            character into two characters while shaping or deshaping.
1070
 *            In order to expand it, near or far spaces according to the
1071
 *            options user specifies. Also buffer size can be increased.
1072
 *
1073
 *            For SeenFamily characters and YehHamza only the near option is
1074
 *            supported, while for LamAlef we can take spaces from begin, end,
1075
 *            near or even increase the buffer size.
1076
 *            There is also the Auto option for LamAlef only, which will first
1077
 *            search for a space at end, begin then near, respectively.
1078
 *            If there are no spaces to expand these characters, an error will be set to
1079
 *            U_NO_SPACE_AVAILABLE as defined in utypes.h
1080
 */
1081
1082
static int32_t
1083
expandCompositChar(UChar *dest, int32_t sourceLength,
1084
              int32_t destSize,uint32_t options,
1085
0
              UErrorCode *pErrorCode, int shapingMode,struct uShapeVariables shapeVars) {
1086
0
1087
0
    int32_t      i = 0,j = 0;
1088
0
1089
0
    UChar    *tempbuffer=NULL;
1090
0
    int yehHamzaOption = 0;
1091
0
    int seenTailOption = 0;
1092
0
    int lamAlefOption = 0;
1093
0
1094
0
    if (shapingMode == 1){
1095
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_AUTO){
1096
0
1097
0
            if(shapeVars.spacesRelativeToTextBeginEnd == 0) {
1098
0
                destSize = expandCompositCharAtEnd(dest, sourceLength, destSize, pErrorCode);
1099
0
1100
0
                if(*pErrorCode == U_NO_SPACE_AVAILABLE) {
1101
0
                    *pErrorCode = U_ZERO_ERROR;
1102
0
                    destSize = expandCompositCharAtBegin(dest, sourceLength, destSize, pErrorCode);
1103
0
                }
1104
0
            }else {
1105
0
                destSize = expandCompositCharAtBegin(dest, sourceLength, destSize, pErrorCode);
1106
0
1107
0
                if(*pErrorCode == U_NO_SPACE_AVAILABLE) {
1108
0
                    *pErrorCode = U_ZERO_ERROR;
1109
0
                    destSize = expandCompositCharAtEnd(dest, sourceLength, destSize, pErrorCode);
1110
0
                }
1111
0
            }
1112
0
1113
0
            if(*pErrorCode == U_NO_SPACE_AVAILABLE) {
1114
0
                *pErrorCode = U_ZERO_ERROR;
1115
0
                destSize = expandCompositCharAtNear(dest, sourceLength, destSize, pErrorCode, yehHamzaOption,
1116
0
                                                seenTailOption, 1,shapeVars);
1117
0
            }
1118
0
        }
1119
0
    }
1120
0
1121
0
    if (shapingMode == 1){
1122
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == shapeVars.uShapeLamalefEnd){
1123
0
            destSize = expandCompositCharAtEnd(dest, sourceLength, destSize, pErrorCode);
1124
0
        }
1125
0
    }
1126
0
1127
0
    if (shapingMode == 1){
1128
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == shapeVars.uShapeLamalefBegin){
1129
0
            destSize = expandCompositCharAtBegin(dest, sourceLength, destSize, pErrorCode);
1130
0
        }
1131
0
    }
1132
0
1133
0
    if (shapingMode == 0){
1134
0
         if ((options&U_SHAPE_YEHHAMZA_MASK) == U_SHAPE_YEHHAMZA_TWOCELL_NEAR){
1135
0
             yehHamzaOption = 1;
1136
0
         }
1137
0
         if ((options&U_SHAPE_SEEN_MASK) == U_SHAPE_SEEN_TWOCELL_NEAR){
1138
0
            seenTailOption = 1;
1139
0
         }
1140
0
    }
1141
0
    if (shapingMode == 1) {
1142
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_NEAR) {
1143
0
            lamAlefOption = 1;
1144
0
        }
1145
0
    }
1146
0
1147
0
1148
0
    if (yehHamzaOption || seenTailOption || lamAlefOption){
1149
0
        destSize = expandCompositCharAtNear(dest, sourceLength, destSize, pErrorCode, yehHamzaOption,
1150
0
                                            seenTailOption,lamAlefOption,shapeVars);
1151
0
    }
1152
0
1153
0
1154
0
    if (shapingMode == 1){
1155
0
        if ( (options&U_SHAPE_LAMALEF_MASK) == U_SHAPE_LAMALEF_RESIZE){
1156
0
            destSize = calculateSize(dest,sourceLength,destSize,options);
1157
0
            tempbuffer = (UChar *)uprv_malloc((destSize+1)*U_SIZEOF_UCHAR);
1158
0
1159
0
            /* Test for NULL */
1160
0
            if(tempbuffer == NULL) {
1161
0
                *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
1162
0
                return 0;
1163
0
            }
1164
0
1165
0
            uprv_memset(tempbuffer, 0, (destSize+1)*U_SIZEOF_UCHAR);
1166
0
1167
0
            i = j = 0;
1168
0
            while(i < destSize && j < destSize) {
1169
0
                if(isLamAlefChar(dest[i]) ) {
1170
0
                    tempbuffer[j] = convertLamAlef[ dest[i] - 0xFEF5 ];
1171
0
                    tempbuffer[j+1] = LAM_CHAR;
1172
0
                    j++;
1173
0
                }else {
1174
0
                    tempbuffer[j] = dest[i];
1175
0
                }
1176
0
                i++;
1177
0
                j++;
1178
0
            }
1179
0
1180
0
            u_memcpy(dest, tempbuffer, destSize);
1181
0
        }
1182
0
    }
1183
0
1184
0
    if(tempbuffer) {
1185
0
        uprv_free(tempbuffer);
1186
0
    }
1187
0
    return destSize;
1188
0
}
1189
1190
/*
1191
 *Name     : shapeUnicode
1192
 *Function : Converts an Arabic Unicode buffer in 06xx Range into a shaped
1193
 *           arabic Unicode buffer in FExx Range
1194
 */
1195
static int32_t
1196
shapeUnicode(UChar *dest, int32_t sourceLength,
1197
             int32_t destSize,uint32_t options,
1198
             UErrorCode *pErrorCode,
1199
0
             int tashkeelFlag, struct uShapeVariables shapeVars) {
1200
0
1201
0
    int32_t          i, iend;
1202
0
    int32_t          step;
1203
0
    int32_t          lastPos,Nx, Nw;
1204
0
    unsigned int     Shape;
1205
0
    int32_t          lamalef_found = 0;
1206
0
    int32_t seenfamFound = 0, yehhamzaFound =0, tashkeelFound  = 0;
1207
0
    UChar            prevLink = 0, lastLink = 0, currLink, nextLink = 0;
1208
0
    UChar            wLamalef;
1209
0
1210
0
    /*
1211
0
     * Converts the input buffer from FExx Range into 06xx Range
1212
0
     * to make sure that all characters are in the 06xx range
1213
0
     * even the lamalef is converted to the special region in
1214
0
     * the 06xx range
1215
0
     */
1216
0
    if ((options & U_SHAPE_PRESERVE_PRESENTATION_MASK)  == U_SHAPE_PRESERVE_PRESENTATION_NOOP) {
1217
0
        for (i = 0; i < sourceLength; i++) {
1218
0
            UChar inputChar  = dest[i];
1219
0
            if ( (inputChar >= 0xFB50) && (inputChar <= 0xFBFF)) {
1220
0
                UChar c = convertFBto06 [ (inputChar - 0xFB50) ];
1221
0
                if (c != 0)
1222
0
                    dest[i] = c;
1223
0
            } else if ( (inputChar >= 0xFE70) && (inputChar <= 0xFEFC)) {
1224
0
                dest[i] = convertFEto06 [ (inputChar - 0xFE70) ] ;
1225
0
            } else {
1226
0
                dest[i] = inputChar ;
1227
0
            }
1228
0
        }
1229
0
    }
1230
0
1231
0
1232
0
    /* sets the index to the end of the buffer, together with the step point to -1 */
1233
0
    i = sourceLength - 1;
1234
0
    iend = -1;
1235
0
    step = -1;
1236
0
1237
0
    /*
1238
0
     * This function resolves the link between the characters .
1239
0
     * Arabic characters have four forms :
1240
0
     * Isolated Form, Initial Form, Middle Form and Final Form
1241
0
     */
1242
0
    currLink = getLink(dest[i]);
1243
0
1244
0
    lastPos = i;
1245
0
    Nx = -2, Nw = 0;
1246
0
1247
0
    while (i != iend) {
1248
0
        /* If high byte of currLink > 0 then more than one shape */
1249
0
        if ((currLink & 0xFF00) > 0 || (getLink(dest[i]) & IRRELEVANT) != 0) {
1250
0
            Nw = i + step;
1251
0
            while (Nx < 0) {         /* we need to know about next char */
1252
0
                if(Nw == iend) {
1253
0
                    nextLink = 0;
1254
0
                    Nx = 3000;
1255
0
                } else {
1256
0
                    nextLink = getLink(dest[Nw]);
1257
0
                    if((nextLink & IRRELEVANT) == 0) {
1258
0
                        Nx = Nw;
1259
0
                    } else {
1260
0
                        Nw = Nw + step;
1261
0
                    }
1262
0
                }
1263
0
            }
1264
0
1265
0
            if ( ((currLink & ALEFTYPE) > 0)  &&  ((lastLink & LAMTYPE) > 0) ) {
1266
0
                lamalef_found = 1;
1267
0
                wLamalef = changeLamAlef(dest[i]); /*get from 0x065C-0x065f */
1268
0
                if ( wLamalef != 0) {
1269
0
                    dest[i] = LAMALEF_SPACE_SUB;            /* The default case is to drop the Alef and replace */
1270
0
                    dest[lastPos] =wLamalef;     /* it by LAMALEF_SPACE_SUB which is the last character in the  */
1271
0
                    i=lastPos;                   /* unicode private use area, this is done to make   */
1272
0
                }                                /* sure that removeLamAlefSpaces() handles only the */
1273
0
                lastLink = prevLink;             /* spaces generated during lamalef generation.      */
1274
0
                currLink = getLink(wLamalef);    /* LAMALEF_SPACE_SUB is added here and is replaced by spaces   */
1275
0
            }                                    /* in removeLamAlefSpaces()                         */
1276
0
1277
0
            if ((i > 0) && (dest[i-1] == SPACE_CHAR)){
1278
0
                if ( isSeenFamilyChar(dest[i])) {
1279
0
                    seenfamFound = 1;
1280
0
                } else if (dest[i] == YEH_HAMZA_CHAR) {
1281
0
                    yehhamzaFound = 1;
1282
0
                }
1283
0
            }
1284
0
            else if(i==0){
1285
0
                if ( isSeenFamilyChar(dest[i])){
1286
0
                    seenfamFound = 1;
1287
0
                } else if (dest[i] == YEH_HAMZA_CHAR) {
1288
0
                    yehhamzaFound = 1;
1289
0
                }
1290
0
            }
1291
0
1292
0
            /*
1293
0
             * get the proper shape according to link ability of neighbors
1294
0
             * and of character; depends on the order of the shapes
1295
0
             * (isolated, initial, middle, final) in the compatibility area
1296
0
             */
1297
0
            Shape = shapeTable[nextLink & (LINKR + LINKL)]
1298
0
                              [lastLink & (LINKR + LINKL)]
1299
0
                              [currLink & (LINKR + LINKL)];
1300
0
1301
0
            if ((currLink & (LINKR+LINKL)) == 1) {
1302
0
                Shape &= 1;
1303
0
            } else if(isTashkeelChar(dest[i])) {
1304
0
                if( (lastLink & LINKL) && (nextLink & LINKR) && (tashkeelFlag == 1) &&
1305
0
                     dest[i] != 0x064C && dest[i] != 0x064D )
1306
0
                {
1307
0
                    Shape = 1;
1308
0
                    if( (nextLink&ALEFTYPE) == ALEFTYPE && (lastLink&LAMTYPE) == LAMTYPE ) {
1309
0
                        Shape = 0;
1310
0
                    }
1311
0
                } else if(tashkeelFlag == 2 && dest[i] == SHADDA06_CHAR){
1312
0
                    Shape = 1;
1313
0
                } else {
1314
0
                    Shape = 0;
1315
0
                }
1316
0
            }
1317
0
            if ((dest[i] ^ 0x0600) < 0x100) {
1318
0
                if ( isTashkeelChar(dest[i]) ){
1319
0
                    if (tashkeelFlag == 2  && dest[i] != SHADDA06_CHAR){
1320
0
                        dest[i] = TASHKEEL_SPACE_SUB;
1321
0
                        tashkeelFound  = 1;
1322
0
                    } else {
1323
0
                        /* to ensure the array index is within the range */
1324
0
                        U_ASSERT(dest[i] >= 0x064Bu
1325
0
                            && dest[i]-0x064Bu < UPRV_LENGTHOF(IrrelevantPos));
1326
0
                        dest[i] =  0xFE70 + IrrelevantPos[(dest[i] - 0x064B)] + Shape;
1327
0
                    }
1328
0
                }else if ((currLink & APRESENT) > 0) {
1329
0
                    dest[i] = (UChar)(0xFB50 + (currLink >> 8) + Shape);
1330
0
                }else if ((currLink >> 8) > 0 && (currLink & IRRELEVANT) == 0) {
1331
0
                    dest[i] = (UChar)(0xFE70 + (currLink >> 8) + Shape);
1332
0
                }
1333
0
            }
1334
0
        }
1335
0
1336
0
        /* move one notch forward */
1337
0
        if ((currLink & IRRELEVANT) == 0) {
1338
0
            prevLink = lastLink;
1339
0
            lastLink = currLink;
1340
0
            lastPos = i;
1341
0
        }
1342
0
1343
0
        i = i + step;
1344
0
        if (i == Nx) {
1345
0
            currLink = nextLink;
1346
0
            Nx = -2;
1347
0
        } else if(i != iend) {
1348
0
            currLink = getLink(dest[i]);
1349
0
        }
1350
0
    }
1351
0
    destSize = sourceLength;
1352
0
    if ( (lamalef_found != 0 ) || (tashkeelFound  != 0) ){
1353
0
        destSize = handleGeneratedSpaces(dest,sourceLength,destSize,options,pErrorCode, shapeVars);
1354
0
    }
1355
0
1356
0
    if ( (seenfamFound != 0) || (yehhamzaFound != 0) ) {
1357
0
        destSize = expandCompositChar(dest, sourceLength,destSize,options,pErrorCode, SHAPE_MODE,shapeVars);
1358
0
    }
1359
0
    return destSize;
1360
0
}
1361
1362
/*
1363
 *Name     : deShapeUnicode
1364
 *Function : Converts an Arabic Unicode buffer in FExx Range into unshaped
1365
 *           arabic Unicode buffer in 06xx Range
1366
 */
1367
static int32_t
1368
deShapeUnicode(UChar *dest, int32_t sourceLength,
1369
               int32_t destSize,uint32_t options,
1370
0
               UErrorCode *pErrorCode, struct uShapeVariables shapeVars) {
1371
0
    int32_t i = 0;
1372
0
    int32_t lamalef_found = 0;
1373
0
    int32_t yehHamzaComposeEnabled = 0;
1374
0
    int32_t seenComposeEnabled = 0;
1375
0
1376
0
    yehHamzaComposeEnabled = ((options&U_SHAPE_YEHHAMZA_MASK) == U_SHAPE_YEHHAMZA_TWOCELL_NEAR) ? 1 : 0;
1377
0
    seenComposeEnabled = ((options&U_SHAPE_SEEN_MASK) == U_SHAPE_SEEN_TWOCELL_NEAR)? 1 : 0;
1378
0
1379
0
    /*
1380
0
     *This for loop changes the buffer from the Unicode FE range to
1381
0
     *the Unicode 06 range
1382
0
     */
1383
0
1384
0
    for(i = 0; i < sourceLength; i++) {
1385
0
        UChar  inputChar = dest[i];
1386
0
        if ( (inputChar >= 0xFB50) && (inputChar <= 0xFBFF)) { /* FBxx Arabic range */
1387
0
            UChar c = convertFBto06 [ (inputChar - 0xFB50) ];
1388
0
            if (c != 0)
1389
0
                dest[i] = c;
1390
0
        } else if( (yehHamzaComposeEnabled == 1) && ((inputChar == HAMZA06_CHAR) || (inputChar == HAMZAFE_CHAR))
1391
0
                && (i < (sourceLength - 1)) && isAlefMaksouraChar(dest[i+1] )) {
1392
0
                 dest[i] = SPACE_CHAR;
1393
0
                 dest[i+1] = YEH_HAMZA_CHAR;
1394
0
        } else if ( (seenComposeEnabled == 1) && (isTailChar(inputChar)) && (i< (sourceLength - 1))
1395
0
                        && (isSeenTailFamilyChar(dest[i+1])) ) {
1396
0
                dest[i] = SPACE_CHAR;
1397
0
        } else if (( inputChar >= 0xFE70) && (inputChar <= 0xFEF4 )) { /* FExx Arabic range */
1398
0
                dest[i] = convertFEto06 [ (inputChar - 0xFE70) ];
1399
0
        } else {
1400
0
            dest[i] = inputChar ;
1401
0
        }
1402
0
1403
0
        if( isLamAlefChar(dest[i]) )
1404
0
            lamalef_found = 1;
1405
0
    }
1406
0
1407
0
   destSize = sourceLength;
1408
0
   if (lamalef_found != 0){
1409
0
          destSize = expandCompositChar(dest,sourceLength,destSize,options,pErrorCode,DESHAPE_MODE, shapeVars);
1410
0
   }
1411
0
   return destSize;
1412
0
}
1413
1414
/*
1415
 ****************************************
1416
 * u_shapeArabic
1417
 ****************************************
1418
 */
1419
1420
U_CAPI int32_t U_EXPORT2
1421
u_shapeArabic(const UChar *source, int32_t sourceLength,
1422
              UChar *dest, int32_t destCapacity,
1423
              uint32_t options,
1424
0
              UErrorCode *pErrorCode) {
1425
0
1426
0
    int32_t destLength;
1427
0
    struct  uShapeVariables shapeVars = { OLD_TAIL_CHAR,U_SHAPE_LAMALEF_BEGIN,U_SHAPE_LAMALEF_END,U_SHAPE_TASHKEEL_BEGIN,U_SHAPE_TASHKEEL_END,0};
1428
0
1429
0
    /* usual error checking */
1430
0
    if(pErrorCode==NULL || U_FAILURE(*pErrorCode)) {
1431
0
        return 0;
1432
0
    }
1433
0
1434
0
    /* make sure that no reserved options values are used; allow dest==NULL only for preflighting */
1435
0
    if( source==NULL || sourceLength<-1 || (dest==NULL && destCapacity!=0) || destCapacity<0 ||
1436
0
                (((options&U_SHAPE_TASHKEEL_MASK) > 0) &&
1437
0
                 ((options&U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED) == U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED) ) ||
1438
0
                (((options&U_SHAPE_TASHKEEL_MASK) > 0) &&
1439
0
                 ((options&U_SHAPE_LETTERS_MASK) == U_SHAPE_LETTERS_UNSHAPE)) ||
1440
0
                (options&U_SHAPE_DIGIT_TYPE_RESERVED)==U_SHAPE_DIGIT_TYPE_RESERVED ||
1441
0
                (options&U_SHAPE_DIGITS_MASK)==U_SHAPE_DIGITS_RESERVED ||
1442
0
                ((options&U_SHAPE_LAMALEF_MASK) != U_SHAPE_LAMALEF_RESIZE  &&
1443
0
                (options&U_SHAPE_AGGREGATE_TASHKEEL_MASK) != 0) ||
1444
0
                ((options&U_SHAPE_AGGREGATE_TASHKEEL_MASK) == U_SHAPE_AGGREGATE_TASHKEEL &&
1445
0
                (options&U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED) != U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED)
1446
0
    )
1447
0
    {
1448
0
        *pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
1449
0
        return 0;
1450
0
    }
1451
0
    /* Validate  lamalef options */
1452
0
    if(((options&U_SHAPE_LAMALEF_MASK) > 0)&&
1453
0
              !(((options & U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_BEGIN) ||
1454
0
                ((options & U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_END ) ||
1455
0
                ((options & U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_RESIZE )||
1456
0
                 ((options & U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_AUTO) ||
1457
0
                 ((options & U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_NEAR)))
1458
0
    {
1459
0
         *pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
1460
0
        return 0;
1461
0
    }
1462
0
    /* Validate  Tashkeel options */
1463
0
    if(((options&U_SHAPE_TASHKEEL_MASK) > 0)&&
1464
0
                   !(((options & U_SHAPE_TASHKEEL_MASK)==U_SHAPE_TASHKEEL_BEGIN) ||
1465
0
                     ((options & U_SHAPE_TASHKEEL_MASK)==U_SHAPE_TASHKEEL_END )
1466
0
                    ||((options & U_SHAPE_TASHKEEL_MASK)==U_SHAPE_TASHKEEL_RESIZE )||
1467
0
                    ((options & U_SHAPE_TASHKEEL_MASK)==U_SHAPE_TASHKEEL_REPLACE_BY_TATWEEL)))
1468
0
    {
1469
0
         *pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
1470
0
        return 0;
1471
0
    }
1472
0
    /* determine the source length */
1473
0
    if(sourceLength==-1) {
1474
0
        sourceLength=u_strlen(source);
1475
0
    }
1476
0
    if(sourceLength<=0) {
1477
0
        return u_terminateUChars(dest, destCapacity, 0, pErrorCode);
1478
0
    }
1479
0
1480
0
    /* check that source and destination do not overlap */
1481
0
    if( dest!=NULL &&
1482
0
        ((source<=dest && dest<source+sourceLength) ||
1483
0
         (dest<=source && source<dest+destCapacity))) {
1484
0
        *pErrorCode=U_ILLEGAL_ARGUMENT_ERROR;
1485
0
        return 0;
1486
0
    }
1487
0
1488
0
    /* Does Options contain the new Seen Tail Unicode code point option */
1489
0
    if ( (options&U_SHAPE_TAIL_TYPE_MASK) == U_SHAPE_TAIL_NEW_UNICODE){
1490
0
        shapeVars.tailChar = NEW_TAIL_CHAR;
1491
0
    }else {
1492
0
        shapeVars.tailChar = OLD_TAIL_CHAR;
1493
0
    }
1494
0
1495
0
    if((options&U_SHAPE_LETTERS_MASK)!=U_SHAPE_LETTERS_NOOP) {
1496
0
        UChar buffer[300];
1497
0
        UChar *tempbuffer, *tempsource = NULL;
1498
0
        int32_t outputSize, spacesCountl=0, spacesCountr=0;
1499
0
1500
0
        if((options&U_SHAPE_AGGREGATE_TASHKEEL_MASK)>0) {
1501
0
            int32_t logical_order = (options&U_SHAPE_TEXT_DIRECTION_MASK) == U_SHAPE_TEXT_DIRECTION_LOGICAL;
1502
0
            int32_t aggregate_tashkeel =
1503
0
                        (options&(U_SHAPE_AGGREGATE_TASHKEEL_MASK+U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED)) ==
1504
0
                        (U_SHAPE_AGGREGATE_TASHKEEL+U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED);
1505
0
            int step=logical_order?1:-1;
1506
0
            int j=logical_order?-1:2*sourceLength;
1507
0
            int i=logical_order?-1:sourceLength;
1508
0
            int end=logical_order?sourceLength:-1;
1509
0
            int aggregation_possible = 1;
1510
0
            UChar prev = 0;
1511
0
            UChar prevLink, currLink = 0;
1512
0
            int newSourceLength = 0;
1513
0
            tempsource = (UChar *)uprv_malloc(2*sourceLength*U_SIZEOF_UCHAR);
1514
0
            if(tempsource == NULL) {
1515
0
                *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
1516
0
                return 0;
1517
0
            }
1518
0
1519
0
            while ((i+=step) != end) {
1520
0
                prevLink = currLink;
1521
0
                currLink = getLink(source[i]);
1522
0
                if (aggregate_tashkeel && ((prevLink|currLink)&COMBINE) == COMBINE && aggregation_possible) {
1523
0
                    aggregation_possible = 0;
1524
0
                    tempsource[j] = (prev<source[i]?prev:source[i])-0x064C+0xFC5E;
1525
0
                    currLink = getLink(tempsource[j]);
1526
0
                } else {
1527
0
                    aggregation_possible = 1;
1528
0
                    tempsource[j+=step] = source[i];
1529
0
                    prev = source[i];
1530
0
                    newSourceLength++;
1531
0
                }
1532
0
            }
1533
0
            source = tempsource+(logical_order?0:j);
1534
0
            sourceLength = newSourceLength;
1535
0
        }
1536
0
1537
0
        /* calculate destination size */
1538
0
        /* TODO: do we ever need to do this pure preflighting? */
1539
0
        if(((options&U_SHAPE_LAMALEF_MASK)==U_SHAPE_LAMALEF_RESIZE) ||
1540
0
           ((options&U_SHAPE_TASHKEEL_MASK)==U_SHAPE_TASHKEEL_RESIZE)) {
1541
0
            outputSize=calculateSize(source,sourceLength,destCapacity,options);
1542
0
        } else {
1543
0
            outputSize=sourceLength;
1544
0
        }
1545
0
1546
0
        if(outputSize>destCapacity) {
1547
0
            *pErrorCode=U_BUFFER_OVERFLOW_ERROR;
1548
0
                if (tempsource != NULL) uprv_free(tempsource);
1549
0
            return outputSize;
1550
0
        }
1551
0
1552
0
        /*
1553
0
         * need a temporary buffer of size max(outputSize, sourceLength)
1554
0
         * because at first we copy source->temp
1555
0
         */
1556
0
        if(sourceLength>outputSize) {
1557
0
            outputSize=sourceLength;
1558
0
        }
1559
0
1560
0
        /* Start of Arabic letter shaping part */
1561
0
        if(outputSize<=UPRV_LENGTHOF(buffer)) {
1562
0
            outputSize=UPRV_LENGTHOF(buffer);
1563
0
            tempbuffer=buffer;
1564
0
        } else {
1565
0
            tempbuffer = (UChar *)uprv_malloc(outputSize*U_SIZEOF_UCHAR);
1566
0
1567
0
            /*Test for NULL*/
1568
0
            if(tempbuffer == NULL) {
1569
0
                *pErrorCode = U_MEMORY_ALLOCATION_ERROR;
1570
0
                if (tempsource != NULL) uprv_free(tempsource);
1571
0
                return 0;
1572
0
            }
1573
0
        }
1574
0
        u_memcpy(tempbuffer, source, sourceLength);
1575
0
        if (tempsource != NULL){
1576
0
            uprv_free(tempsource);
1577
0
        }
1578
0
1579
0
        if(sourceLength<outputSize) {
1580
0
            uprv_memset(tempbuffer+sourceLength, 0, (outputSize-sourceLength)*U_SIZEOF_UCHAR);
1581
0
        }
1582
0
1583
0
        if((options&U_SHAPE_TEXT_DIRECTION_MASK) == U_SHAPE_TEXT_DIRECTION_LOGICAL) {
1584
0
            countSpaces(tempbuffer,sourceLength,options,&spacesCountl,&spacesCountr);
1585
0
            invertBuffer(tempbuffer,sourceLength,options,spacesCountl,spacesCountr);
1586
0
        }
1587
0
1588
0
        if((options&U_SHAPE_TEXT_DIRECTION_MASK) == U_SHAPE_TEXT_DIRECTION_VISUAL_LTR) {
1589
0
            if((options&U_SHAPE_SPACES_RELATIVE_TO_TEXT_MASK) == U_SHAPE_SPACES_RELATIVE_TO_TEXT_BEGIN_END) {
1590
0
                shapeVars.spacesRelativeToTextBeginEnd = 1;
1591
0
                shapeVars.uShapeLamalefBegin = U_SHAPE_LAMALEF_END;
1592
0
                shapeVars.uShapeLamalefEnd = U_SHAPE_LAMALEF_BEGIN;
1593
0
                shapeVars.uShapeTashkeelBegin = U_SHAPE_TASHKEEL_END;
1594
0
                shapeVars.uShapeTashkeelEnd = U_SHAPE_TASHKEEL_BEGIN;
1595
0
            }
1596
0
        }
1597
0
1598
0
        switch(options&U_SHAPE_LETTERS_MASK) {
1599
0
        case U_SHAPE_LETTERS_SHAPE :
1600
0
             if( (options&U_SHAPE_TASHKEEL_MASK)> 0
1601
0
                 && ((options&U_SHAPE_TASHKEEL_MASK) !=U_SHAPE_TASHKEEL_REPLACE_BY_TATWEEL)) {
1602
0
                /* Call the shaping function with tashkeel flag == 2 for removal of tashkeel */
1603
0
                destLength = shapeUnicode(tempbuffer,sourceLength,destCapacity,options,pErrorCode,2,shapeVars);
1604
0
             }else {
1605
0
                /* default Call the shaping function with tashkeel flag == 1 */
1606
0
                destLength = shapeUnicode(tempbuffer,sourceLength,destCapacity,options,pErrorCode,1,shapeVars);
1607
0
1608
0
                /*After shaping text check if user wants to remove tashkeel and replace it with tatweel*/
1609
0
                if( (options&U_SHAPE_TASHKEEL_MASK) == U_SHAPE_TASHKEEL_REPLACE_BY_TATWEEL){
1610
0
                  destLength = handleTashkeelWithTatweel(tempbuffer,destLength,destCapacity,options,pErrorCode);
1611
0
                }
1612
0
            }
1613
0
            break;
1614
0
        case U_SHAPE_LETTERS_SHAPE_TASHKEEL_ISOLATED :
1615
0
            /* Call the shaping function with tashkeel flag == 0 */
1616
0
            destLength = shapeUnicode(tempbuffer,sourceLength,destCapacity,options,pErrorCode,0,shapeVars);
1617
0
            break;
1618
0
1619
0
        case U_SHAPE_LETTERS_UNSHAPE :
1620
0
            /* Call the deshaping function */
1621
0
            destLength = deShapeUnicode(tempbuffer,sourceLength,destCapacity,options,pErrorCode,shapeVars);
1622
0
            break;
1623
0
        default :
1624
0
            /* will never occur because of validity checks above */
1625
0
            destLength = 0;
1626
0
            break;
1627
0
        }
1628
0
1629
0
        /*
1630
0
         * TODO: (markus 2002aug01)
1631
0
         * For as long as we always preflight the outputSize above
1632
0
         * we should U_ASSERT(outputSize==destLength)
1633
0
         * except for the adjustment above before the tempbuffer allocation
1634
0
         */
1635
0
1636
0
        if((options&U_SHAPE_TEXT_DIRECTION_MASK) == U_SHAPE_TEXT_DIRECTION_LOGICAL) {
1637
0
            countSpaces(tempbuffer,destLength,options,&spacesCountl,&spacesCountr);
1638
0
            invertBuffer(tempbuffer,destLength,options,spacesCountl,spacesCountr);
1639
0
        }
1640
0
        u_memcpy(dest, tempbuffer, uprv_min(destLength, destCapacity));
1641
0
1642
0
        if(tempbuffer!=buffer) {
1643
0
            uprv_free(tempbuffer);
1644
0
        }
1645
0
1646
0
        if(destLength>destCapacity) {
1647
0
            *pErrorCode=U_BUFFER_OVERFLOW_ERROR;
1648
0
            return destLength;
1649
0
        }
1650
0
1651
0
        /* End of Arabic letter shaping part */
1652
0
    } else {
1653
0
        /*
1654
0
         * No letter shaping:
1655
0
         * just make sure the destination is large enough and copy the string.
1656
0
         */
1657
0
        if(destCapacity<sourceLength) {
1658
0
            /* this catches preflighting, too */
1659
0
            *pErrorCode=U_BUFFER_OVERFLOW_ERROR;
1660
0
            return sourceLength;
1661
0
        }
1662
0
        u_memcpy(dest, source, sourceLength);
1663
0
        destLength=sourceLength;
1664
0
    }
1665
0
1666
0
    /*
1667
0
     * Perform number shaping.
1668
0
     * With UTF-16 or UTF-32, the length of the string is constant.
1669
0
     * The easiest way to do this is to operate on the destination and
1670
0
     * "shape" the digits in-place.
1671
0
     */
1672
0
    if((options&U_SHAPE_DIGITS_MASK)!=U_SHAPE_DIGITS_NOOP) {
1673
0
        UChar digitBase;
1674
0
        int32_t i;
1675
0
1676
0
        /* select the requested digit group */
1677
0
        switch(options&U_SHAPE_DIGIT_TYPE_MASK) {
1678
0
        case U_SHAPE_DIGIT_TYPE_AN:
1679
0
            digitBase=0x660; /* Unicode: "Arabic-Indic digits" */
1680
0
            break;
1681
0
        case U_SHAPE_DIGIT_TYPE_AN_EXTENDED:
1682
0
            digitBase=0x6f0; /* Unicode: "Eastern Arabic-Indic digits (Persian and Urdu)" */
1683
0
            break;
1684
0
        default:
1685
0
            /* will never occur because of validity checks above */
1686
0
            digitBase=0;
1687
0
            break;
1688
0
        }
1689
0
1690
0
        /* perform the requested operation */
1691
0
        switch(options&U_SHAPE_DIGITS_MASK) {
1692
0
        case U_SHAPE_DIGITS_EN2AN:
1693
0
            /* add (digitBase-'0') to each European (ASCII) digit code point */
1694
0
            digitBase-=0x30;
1695
0
            for(i=0; i<destLength; ++i) {
1696
0
                if(((uint32_t)dest[i]-0x30)<10) {
1697
0
                    dest[i]+=digitBase;
1698
0
                }
1699
0
            }
1700
0
            break;
1701
0
        case U_SHAPE_DIGITS_AN2EN:
1702
0
            /* subtract (digitBase-'0') from each Arabic digit code point */
1703
0
            for(i=0; i<destLength; ++i) {
1704
0
                if(((uint32_t)dest[i]-(uint32_t)digitBase)<10) {
1705
0
                    dest[i]-=digitBase-0x30;
1706
0
                }
1707
0
            }
1708
0
            break;
1709
0
        case U_SHAPE_DIGITS_ALEN2AN_INIT_LR:
1710
0
            _shapeToArabicDigitsWithContext(dest, destLength,
1711
0
                                            digitBase,
1712
0
                                            (UBool)((options&U_SHAPE_TEXT_DIRECTION_MASK)==U_SHAPE_TEXT_DIRECTION_LOGICAL),
1713
0
                                            FALSE);
1714
0
            break;
1715
0
        case U_SHAPE_DIGITS_ALEN2AN_INIT_AL:
1716
0
            _shapeToArabicDigitsWithContext(dest, destLength,
1717
0
                                            digitBase,
1718
0
                                            (UBool)((options&U_SHAPE_TEXT_DIRECTION_MASK)==U_SHAPE_TEXT_DIRECTION_LOGICAL),
1719
0
                                            TRUE);
1720
0
            break;
1721
0
        default:
1722
0
            /* will never occur because of validity checks above */
1723
0
            break;
1724
0
        }
1725
0
    }
1726
0
1727
0
    return u_terminateUChars(dest, destCapacity, destLength, pErrorCode);
1728
0
}