annotate src/farsi.c @ 15290:424f2596f582 v8.1.0653

patch 8.1.0653: arglist test fails on MS-windows commit https://github.com/vim/vim/commit/3de8c2d1f027410db6a06f0fcd3355d96c8b8596 Author: Bram Moolenaar <Bram@vim.org> Date: Fri Dec 28 19:29:35 2018 +0100 patch 8.1.0653: arglist test fails on MS-windows Problem: Arglist test fails on MS-windows. Solution: Only use a file name with a double quote on Unix.
author Bram Moolenaar <Bram@vim.org>
date Fri, 28 Dec 2018 19:30:06 +0100
parents e45c6e4d78af
children dd725a8ab112
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 9403
diff changeset
1 /* vi:set ts=8 sts=4 sw=4 noet:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 * Do ":help uganda" in Vim to read copying and usage conditions.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 * Do ":help credits" in Vim to see a list of people who contributed.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 * See README.txt for an overview of the Vim source code.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 * farsi.c: functions for Farsi language
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13
9403
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
14 #include "vim.h"
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
15
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
16 #if defined(FEAT_FKMAP) || defined(PROTO)
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
17
7801
a1e71a01dbd6 commit https://github.com/vim/vim/commit/d25c16e2f2776d50245bf31d6e4d5364f12d188e
Christian Brabandt <cb@256bit.org>
parents: 4352
diff changeset
18 static int F_is_TyB_TyC_TyD(int src, int offset);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
21 * Convert the given Farsi character into a _X or _X_ type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
22 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
24 toF_Xor_X_(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
30 case BE: return _BE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
31 case PE: return _PE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
32 case TE: return _TE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
33 case SE: return _SE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
34 case JIM: return _JIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
35 case CHE: return _CHE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
36 case HE_J: return _HE_J;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
37 case XE: return _XE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
38 case SIN: return _SIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
39 case SHIN: return _SHIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
40 case SAD: return _SAD;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
41 case ZAD: return _ZAD;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
42 case AYN: return _AYN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
43 case AYN_: return _AYN_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
44 case GHAYN: return _GHAYN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
45 case GHAYN_: return _GHAYN_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
46 case FE: return _FE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
47 case GHAF: return _GHAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
48 case KAF: return _KAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
49 case GAF: return _GAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
50 case LAM: return _LAM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
51 case MIM: return _MIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
52 case NOON: return _NOON;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
53 case YE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
54 case YE_: return _YE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
55 case YEE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
56 case YEE_: return _YEE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57 case IE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
58 case IE_: return _IE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
59 case F_HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 tempc = _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
61
1880
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
62 if (p_ri && (curwin->w_cursor.col + 1
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
63 < (colnr_T)STRLEN(ml_get_curline())))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68 tempc = _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 if (!p_ri && STRLEN(ml_get_curline()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
76 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
77 tempc = _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
78
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82 return tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
88 * Convert the given Farsi character into Farsi capital character.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
89 */
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
90 static int
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
91 toF_TyA(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
92 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
93 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
94 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
95 case ALEF_: return ALEF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
96 case ALEF_U_H_: return ALEF_U_H;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
97 case _BE: return BE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
98 case _PE: return PE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
99 case _TE: return TE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
100 case _SE: return SE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
101 case _JIM: return JIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
102 case _CHE: return CHE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
103 case _HE_J: return HE_J;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
104 case _XE: return XE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
105 case _SIN: return SIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
106 case _SHIN: return SHIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
107 case _SAD: return SAD;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
108 case _ZAD: return ZAD;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
109 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
110 case AYN_:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
111 case _AYN_: return AYN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
112 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
113 case GHAYN_:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
114 case _GHAYN_: return GHAYN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
115 case _FE: return FE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
116 case _GHAF: return GHAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
117 /* I am not sure what it is !!! case _KAF_H: */
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
118 case _KAF: return KAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
119 case _GAF: return GAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
120 case _LAM: return LAM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
121 case _MIM: return MIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
122 case _NOON: return NOON;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 case _YE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
124 case YE_: return YE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 case _YEE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
126 case YEE_: return YEE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
127 case TEE_: return TEE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
128 case _IE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
129 case IE_: return IE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
130 case _HE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
131 case _HE_: return F_HE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
133 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
134 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
135
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
136 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
137 * Is the character under the cursor+offset in the given buffer a join type.
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
138 * That is a character that is combined with the others.
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
139 * Note: the offset is used only for command line buffer.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
140 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
141 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
142 F_is_TyB_TyC_TyD(int src, int offset)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
143 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
144 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
145
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
146 if (src == SRC_EDT)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
147 c = gchar_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
148 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
149 c = cmd_gchar(AT_CURSOR+offset);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
150
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
151 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
152 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
153 case _LAM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
154 case _BE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 case _PE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 case _TE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
157 case _SE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 case _JIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 case _CHE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 case _HE_J:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 case _XE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 case _SIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 case _SHIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 case _SAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 case _ZAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 case _TA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 case _ZA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
168 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169 case _AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
170 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
171 case _GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172 case _FE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 case _GHAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 case _KAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 case _KAF_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 case _GAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 case _MIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178 case _NOON:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 case _YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 case _YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 case _IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
185 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
190 * Is the Farsi character one of the terminating only type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
191 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
193 F_is_TyE(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
196 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
197 case ALEF_A:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
198 case ALEF_D_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
199 case DAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 case ZAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
201 case RE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 case ZE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 case JE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204 case WAW:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 case WAW_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
206 case HAMZE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
208 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
211
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
212 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
213 * Is the Farsi character one of the none leading type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
214 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
216 F_is_TyC_TyD(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
217 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
218 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
219 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 case ALEF_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
221 case ALEF_U_H_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
222 case _AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
223 case AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
224 case _GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
225 case GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
226 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
227 case YE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
228 case IE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
229 case TEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
230 case YEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
231 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
232 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
233 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
234 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
235
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
236 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
237 * Convert a none leading Farsi char into a leading type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
238 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
239 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
240 toF_TyB(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
241 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
242 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
243 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
244 case ALEF_: return ALEF;
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
245 case ALEF_U_H_: return ALEF_U_H;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
246 case _AYN_: return _AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
247 case AYN_: return AYN; /* exception - there are many of them */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
248 case _GHAYN_: return _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
249 case GHAYN_: return GHAYN; /* exception - there are many of them */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
250 case _HE_: return _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
251 case YE_: return YE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
252 case IE_: return IE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
253 case TEE_: return TEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
254 case YEE_: return YEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
255 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
256 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
257 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
258
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
259
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
260 static void
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
261 put_and_redo(int c)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
262 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
263 pchar_cursor(c);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
264 AppendCharToRedobuff(K_BS);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
265 AppendCharToRedobuff(c);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
266 }
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
267
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
268 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
269 * Overwrite the current redo and cursor characters + left adjust.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
270 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
271 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
272 put_curr_and_l_to_X(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
273 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
274 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
275
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
276 if (curwin->w_p_rl && p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
277 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
278
1880
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
279 if ((curwin->w_cursor.col < (colnr_T)STRLEN(ml_get_curline())))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
280 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
281 if ((p_ri && curwin->w_cursor.col) || !p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
282 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
283 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
284 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
285 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
286 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
287
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
288 if (F_is_TyC_TyD((tempc = gchar_cursor())))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
289 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
290 pchar_cursor(toF_TyB(tempc));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
291 AppendCharToRedobuff(K_BS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
292 AppendCharToRedobuff(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
293 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
294
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
295 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
296 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
297 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
298 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
299 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
300 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 put_and_redo(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
306 * Change the char. under the cursor to a X_ or X type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
307 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
308 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
309 chg_c_toX_orX(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
310 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 int tempc, curc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
312
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 switch ((curc = gchar_cursor()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 case _BE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
316 tempc = BE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
317 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
318 case _PE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
319 tempc = PE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
321 case _TE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
322 tempc = TE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 case _SE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 tempc = SE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 case _JIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 tempc = JIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 case _CHE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 tempc = CHE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
333 case _HE_J:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
334 tempc = HE_J;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
335 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
336 case _XE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
337 tempc = XE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
338 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
339 case _SIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
340 tempc = SIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
341 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
342 case _SHIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343 tempc = SHIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
345 case _SAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346 tempc = SAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 case _ZAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
349 tempc = ZAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
350 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
351 case _FE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
352 tempc = FE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
353 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 case _GHAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
355 tempc = GHAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
357 case _KAF_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
358 case _KAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
359 tempc = KAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
360 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
361 case _GAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
362 tempc = GAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
363 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
364 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
365 tempc = AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
366 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
367 case _AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
368 tempc = AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
369 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
370 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
371 tempc = GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
372 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
373 case _GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
374 tempc = GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
375 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
376 case _LAM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
377 tempc = LAM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
378 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
379 case _MIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
380 tempc = MIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
381 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
382 case _NOON:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
383 tempc = NOON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
384 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
385 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
386 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
387 tempc = F_HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
388 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
389 case _YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
390 case _IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391 case _YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
392 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
393 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
394 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
395 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
396 tempc = (curc == _YE ? YE_ :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
397 (curc == _IE ? IE_ : YEE_));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
398 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
399 tempc = (curc == _YE ? YE :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
400 (curc == _IE ? IE : YEE));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
401 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 if (curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
407 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
408 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
409 tempc = (curc == _YE ? YE_ :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
410 (curc == _IE ? IE_ : YEE_));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
411 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 tempc = (curc == _YE ? YE :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413 (curc == _IE ? IE : YEE));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
414 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417 tempc = (curc == _YE ? YE :
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 (curc == _IE ? IE : YEE));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
419 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
420 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
421 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
422 tempc = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
423 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
424
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425 if (tempc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
426 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
427 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
430 * Change the char. under the cursor to a _X_ or X_ type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
431 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
432 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
433 chg_c_to_X_orX_(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437 switch (gchar_cursor())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 case ALEF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440 tempc = ALEF_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 case ALEF_U_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443 tempc = ALEF_U_H_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
444 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
445 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
446 tempc = _AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
447 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
448 case AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
449 tempc = AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
450 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452 tempc = _GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
454 case GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
455 tempc = GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
456 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 tempc = _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
459 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
460 case YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
461 tempc = YE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
462 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
463 case IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
464 tempc = IE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
465 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
466 case TEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
467 tempc = TEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
468 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
469 case YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
470 tempc = YEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
471 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
472 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
473 tempc = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476 if (tempc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
477 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
478 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
481 * Change the char. under the cursor to a _X_ or _X type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
482 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 static void
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
484 chg_c_to_X_or_X(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
486 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 tempc = gchar_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
489
1880
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
490 if (curwin->w_cursor.col + 1 < (colnr_T)STRLEN(ml_get_curline()))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
491 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
492 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
493
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
494 if ((tempc == F_HE) && (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
495 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
496 tempc = _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
497
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
498 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
499
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
500 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
501 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
502 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
503
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
504 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
505 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
506
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
507 if ((tempc = toF_Xor_X_(tempc)) != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
508 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
509 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
510
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
511 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
512 * Change the character left to the cursor to a _X_ or X_ type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
513 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
514 static void
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
515 chg_l_to_X_orX_(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
517 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
518
1880
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
519 if (curwin->w_cursor.col != 0 &&
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
520 (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(ml_get_curline())))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 if (!curwin->w_cursor.col && p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
524 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
531 switch (gchar_cursor())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533 case ALEF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
534 tempc = ALEF_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536 case ALEF_U_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 tempc = ALEF_U_H_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
539 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
540 tempc = _AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
541 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 case AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 tempc = AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
544 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
546 tempc = _GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 case GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 tempc = GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
552 tempc = _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
553 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
554 case YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
555 tempc = YE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 case IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558 tempc = IE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 case TEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 tempc = TEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
562 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 case YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 tempc = YEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 tempc = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
569
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 if (tempc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
580 * Change the character left to the cursor to a X or _X type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
581 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 static void
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
583 chg_l_toXor_X(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586
1880
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
587 if (curwin->w_cursor.col != 0 &&
e5602d92da8c updated for version 7.2-177
vimboss
parents: 1624
diff changeset
588 (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(ml_get_curline())))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591 if (!curwin->w_cursor.col && p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 switch (gchar_cursor())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
601 case ALEF_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602 tempc = ALEF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604 case ALEF_U_H_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 tempc = ALEF_U_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 case _AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 tempc = _AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 case AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
611 tempc = AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
612 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
613 case _GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614 tempc = _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616 case GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 tempc = GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 tempc = _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622 case YE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623 tempc = YE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
624 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 case IE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626 tempc = IE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
627 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
628 case TEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
629 tempc = TEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
631 case YEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
632 tempc = YEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
633 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
634 default:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
635 tempc = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
636 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
638 if (tempc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
639 put_and_redo(tempc);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
640
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
641 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
642 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
643 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
644 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
645 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
648 * Change the character right to the cursor to a _X or _X_ type
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
649 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
650 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
651 chg_r_to_Xor_X_(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
652 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
653 int tempc, c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
654
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
655 if (curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
657 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
658 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
660 tempc = gchar_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
661
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
662 if ((c = toF_Xor_X_(tempc)) != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
663 put_and_redo(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
664
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
665 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
666 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
667
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
668 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
669 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
670
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
671 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
672 * Map Farsi keyboard when in fkmap mode.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
673 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
674 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
675 fkmap(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
676 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
677 int tempc;
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
678 int insert_mode = (State & INSERT);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
679 static int revins = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
680
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
681 if (IS_SPECIAL(c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
682 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
683
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
684 if (insert_mode)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
685 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
686 if (VIM_ISDIGIT(c) || ((c == '.' || c == '+' || c == '-' ||
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
687 c == '^' || c == '%' || c == '#' || c == '=') && revins))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
688 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
689 /* Numbers are entered left-to-right. */
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
690 if (!revins)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
691 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
692 if (curwin->w_cursor.col)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
693 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
694 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
695 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
696
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
697 chg_c_toX_orX ();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
698 chg_l_toXor_X ();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
699
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
700 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
701 inc_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
702 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
703 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
704
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
705 arrow_used = TRUE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
706 (void)stop_arrow();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
707
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
708 if (!curwin->w_p_rl && revins)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
709 inc_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
710
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
711 ++revins;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
712 p_ri = 1;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
713 }
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
714 else if (revins)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
715 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
716 /* Stop entering number. */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
717 arrow_used = TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
718 (void)stop_arrow();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
719
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
720 revins = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
721 if (curwin->w_p_rl)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
722 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
723 while ((F_isdigit(gchar_cursor())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
724 || (gchar_cursor() == F_PERIOD
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
725 || gchar_cursor() == F_PLUS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
726 || gchar_cursor() == F_MINUS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
727 || gchar_cursor() == F_MUL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
728 || gchar_cursor() == F_DIVIDE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
729 || gchar_cursor() == F_PERCENT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
730 || gchar_cursor() == F_EQUALS))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731 && gchar_cursor() != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
732 ++curwin->w_cursor.col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
733 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
734 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736 if (curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 while ((F_isdigit(gchar_cursor())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 || (gchar_cursor() == F_PERIOD
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 || gchar_cursor() == F_PLUS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
740 || gchar_cursor() == F_MINUS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
741 || gchar_cursor() == F_MUL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
742 || gchar_cursor() == F_DIVIDE
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743 || gchar_cursor() == F_PERCENT
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 || gchar_cursor() == F_EQUALS))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 && --curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
746 ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
748 if (!F_isdigit(gchar_cursor()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
749 ++curwin->w_cursor.col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
751 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
752 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 if (!revins)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
755 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
756 if (curwin->w_p_rl)
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
757 p_ri = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 if (!curwin->w_p_rl)
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
759 p_ri = 1;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
762 if ((c < 0x100) && (isalpha(c) || c == '&' || c == '^' || c == ';' ||
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
763 c == '\''|| c == ',' || c == '[' ||
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
764 c == ']' || c == '{' || c == '}'))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
765 chg_r_to_Xor_X_();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
766
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 tempc = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
768
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
769 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
770 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
771 case '`':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
772 case ' ':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
773 case '.':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
774 case '!':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
775 case '"':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
776 case '$':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
777 case '%':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
778 case '^':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
779 case '&':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
780 case '/':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
781 case '(':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
782 case ')':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
783 case '=':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784 case '\\':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
785 case '?':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
786 case '+':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
787 case '-':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788 case '_':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789 case '*':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
790 case ':':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
791 case '#':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
792 case '~':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
793 case '@':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
794 case '<':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
795 case '>':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
796 case '{':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
797 case '}':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
798 case '|':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
799 case '0':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
800 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
801 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
802 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
803 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
804 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
805 case '6':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
806 case '7':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
807 case '8':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
808 case '9':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
809 case 'B':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
810 case 'E':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
811 case 'F':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
812 case 'H':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
813 case 'I':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
814 case 'K':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
815 case 'L':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
816 case 'M':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
817 case 'O':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
818 case 'P':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
819 case 'Q':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
820 case 'R':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
821 case 'T':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
822 case 'U':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
823 case 'W':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
824 case 'Y':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
825 case NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
826 case TAB:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
827
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
828 if (p_ri && c == NL && curwin->w_cursor.col && insert_mode)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
829 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
830 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
831 * If the char before the cursor is _X_ or X_ do not change
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
832 * the one under the cursor with X type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
833 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
834 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
835
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
836 if (F_isalpha(gchar_cursor()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
837 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
838 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
839 return NL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
840 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
841
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
842 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
843 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
844
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
845 if (!p_ri && !curwin->w_cursor.col)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
846 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
847 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
848 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
849 case '0': return FARSI_0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
850 case '1': return FARSI_1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
851 case '2': return FARSI_2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
852 case '3': return FARSI_3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
853 case '4': return FARSI_4;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
854 case '5': return FARSI_5;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
855 case '6': return FARSI_6;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
856 case '7': return FARSI_7;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
857 case '8': return FARSI_8;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
858 case '9': return FARSI_9;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
859 case 'B': return F_PSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
860 case 'E': return JAZR_N;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
861 case 'F': return ALEF_D_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
862 case 'H': return ALEF_A;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
863 case 'I': return TASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
864 case 'K': return F_LQUOT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
865 case 'L': return F_RQUOT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
866 case 'M': return HAMZE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
867 case 'O': return '[';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
868 case 'P': return ']';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
869 case 'Q': return OO;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
870 case 'R': return MAD_N;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
871 case 'T': return OW;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
872 case 'U': return MAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
873 case 'W': return OW_OW;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
874 case 'Y': return JAZR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
875 case '`': return F_PCN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
876 case '!': return F_EXCL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
877 case '@': return F_COMMA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
878 case '#': return F_DIVIDE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
879 case '$': return F_CURRENCY;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
880 case '%': return F_PERCENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
881 case '^': return F_MUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
882 case '&': return F_BCOMMA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
883 case '*': return F_STAR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
884 case '(': return F_LPARENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
885 case ')': return F_RPARENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
886 case '-': return F_MINUS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
887 case '_': return F_UNDERLINE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
888 case '=': return F_EQUALS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
889 case '+': return F_PLUS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
890 case '\\': return F_BSLASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
891 case '|': return F_PIPE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
892 case ':': return F_DCOLON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
893 case '"': return F_SEMICOLON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
894 case '.': return F_PERIOD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
895 case '/': return F_SLASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
896 case '<': return F_LESS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
897 case '>': return F_GREATER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
898 case '?': return F_QUESTION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
899 case ' ': return F_BLANK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
900 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
901 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
902 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
903
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
904 if (insert_mode)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
905 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
906 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
907 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
908
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
909 switch ((tempc = gchar_cursor()))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
910 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
911 case _BE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
912 case _PE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
913 case _TE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
914 case _SE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
915 case _JIM:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
916 case _CHE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
917 case _HE_J:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
918 case _XE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
919 case _SIN:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
920 case _SHIN:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
921 case _SAD:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
922 case _ZAD:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
923 case _FE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
924 case _GHAF:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
925 case _KAF:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
926 case _KAF_H:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
927 case _GAF:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
928 case _LAM:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
929 case _MIM:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
930 case _NOON:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
931 case _HE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
932 case _HE_:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
933 case _TA:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
934 case _ZA:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
935 put_curr_and_l_to_X(toF_TyA(tempc));
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
936 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
937 case _AYN:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
938 case _AYN_:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
939
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
940 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
941 if (!curwin->w_cursor.col)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
942 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
943 put_curr_and_l_to_X(AYN);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
944 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
945 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
946
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
947 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
948 inc_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
949 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
950 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
951
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
952 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
953 tempc = AYN_;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
954 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
955 tempc = AYN;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
956
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
957 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
958 dec_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
959 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
960 inc_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
961
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
962 put_curr_and_l_to_X(tempc);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
963
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
964 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
965 case _GHAYN:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
966 case _GHAYN_:
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
967
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
968 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
969 if (!curwin->w_cursor.col)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
970 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
971 put_curr_and_l_to_X(GHAYN);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
972 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
973 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
974
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
975 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
976 inc_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
977 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
978 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
979
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
980 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
981 tempc = GHAYN_;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
982 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
983 tempc = GHAYN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
984
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
985 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
986 dec_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
987 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
988 inc_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
989
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
990 put_curr_and_l_to_X(tempc);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
991 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
992 case _YE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
993 case _IE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
994 case _YEE:
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
995 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
996 if (!curwin->w_cursor.col)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
997 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
998 put_curr_and_l_to_X((tempc == _YE ? YE :
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
999 (tempc == _IE ? IE : YEE)));
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1000 break;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1001 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1002
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1003 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1004 inc_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1005 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1006 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1007
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1008 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1009 tempc = (tempc == _YE ? YE_ :
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1010 (tempc == _IE ? IE_ : YEE_));
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1011 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1012 tempc = (tempc == _YE ? YE :
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1013 (tempc == _IE ? IE : YEE));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1014
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1015 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1016 dec_cursor();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1017 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1018 inc_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1019
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1020 put_curr_and_l_to_X(tempc);
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1021 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1022 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1023
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1024 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1025 inc_cursor();
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1026 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1027
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1028 tempc = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1029
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1030 switch (c)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1031 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1032 case '0': return FARSI_0;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1033 case '1': return FARSI_1;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1034 case '2': return FARSI_2;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1035 case '3': return FARSI_3;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1036 case '4': return FARSI_4;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1037 case '5': return FARSI_5;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1038 case '6': return FARSI_6;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1039 case '7': return FARSI_7;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1040 case '8': return FARSI_8;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1041 case '9': return FARSI_9;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1042 case 'B': return F_PSP;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1043 case 'E': return JAZR_N;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1044 case 'F': return ALEF_D_H;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1045 case 'H': return ALEF_A;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1046 case 'I': return TASH;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1047 case 'K': return F_LQUOT;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1048 case 'L': return F_RQUOT;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1049 case 'M': return HAMZE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1050 case 'O': return '[';
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1051 case 'P': return ']';
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1052 case 'Q': return OO;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1053 case 'R': return MAD_N;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1054 case 'T': return OW;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1055 case 'U': return MAD;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1056 case 'W': return OW_OW;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1057 case 'Y': return JAZR;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1058 case '`': return F_PCN;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1059 case '!': return F_EXCL;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1060 case '@': return F_COMMA;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1061 case '#': return F_DIVIDE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1062 case '$': return F_CURRENCY;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1063 case '%': return F_PERCENT;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1064 case '^': return F_MUL;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1065 case '&': return F_BCOMMA;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1066 case '*': return F_STAR;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1067 case '(': return F_LPARENT;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1068 case ')': return F_RPARENT;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1069 case '-': return F_MINUS;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1070 case '_': return F_UNDERLINE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1071 case '=': return F_EQUALS;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1072 case '+': return F_PLUS;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1073 case '\\': return F_BSLASH;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1074 case '|': return F_PIPE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1075 case ':': return F_DCOLON;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1076 case '"': return F_SEMICOLON;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1077 case '.': return F_PERIOD;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1078 case '/': return F_SLASH;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1079 case '<': return F_LESS;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1080 case '>': return F_GREATER;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1081 case '?': return F_QUESTION;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1082 case ' ': return F_BLANK;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1083 }
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1084 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1085
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1086 case 'a':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1087 tempc = _SHIN;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1088 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1089 case 'A':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1090 tempc = WAW_H;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1091 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1092 case 'b':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1093 tempc = ZAL;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1094 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1095 case 'c':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1096 tempc = ZE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1097 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1098 case 'C':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1099 tempc = JE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1100 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1101 case 'd':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1102 tempc = _YE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1103 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1104 case 'D':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1105 tempc = _YEE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1106 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1107 case 'e':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1108 tempc = _SE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1109 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1110 case 'f':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1111 tempc = _BE;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1112 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1113 case 'g':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1114 tempc = _LAM;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1115 break;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1116 case 'G':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1117 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1118 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1119
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1120 if (gchar_cursor() == _LAM)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1121 chg_c_toX_orX ();
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1122 else if (p_ri)
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1123 chg_c_to_X_or_X ();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1124 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1125
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1126 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1127 if (!curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1128 return ALEF_U_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1129
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1130 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1131 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1132
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1133 if (gchar_cursor() == _LAM)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1134 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1135 chg_c_toX_orX ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1136 chg_l_toXor_X ();
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1137 tempc = ALEF_U_H;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1138 }
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1139 else if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1140 {
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1141 tempc = ALEF_U_H_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1142 chg_l_toXor_X ();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1143 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1144 else
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1145 tempc = ALEF_U_H;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1146
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1147 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1148 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1149
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1150 return tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1151 case 'h':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1152 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1153 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1154 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1155 chg_c_to_X_or_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1156
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1157 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1158
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1159 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1160 if (!curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1161 return ALEF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1162
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1163 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1164 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1165
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1166 if (gchar_cursor() == _LAM)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1167 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1168 chg_l_toXor_X();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1169 del_char(FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1170 AppendCharToRedobuff(K_BS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1171
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1172 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1173 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1174
8238
d7e1526ae1b9 commit https://github.com/vim/vim/commit/68c85fcdf31c104db21c96cd5871724e458c95ff
Christian Brabandt <cb@256bit.org>
parents: 7819
diff changeset
1175 tempc = LA;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1176 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1177 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1178 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1179 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1180 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1181 tempc = ALEF_;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1182 chg_l_toXor_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1183 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1184 else
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1185 tempc = ALEF;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1186 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1187
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1188 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1189 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1190
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1191 return tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1192 case 'i':
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1193 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1194 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1195 if (!p_ri && !F_is_TyE(tempc))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1196 chg_c_to_X_orX_ ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1197 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1198 chg_c_to_X_or_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1199
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1200 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1201
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1202 if (!p_ri && !curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1203 return _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1204
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1205 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1206 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1207
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1208 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1209 tempc = _HE_;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1210 else
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1211 tempc = _HE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1212
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1213 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1214 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1215 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1216 case 'j':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1217 tempc = _TE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1218 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1219 case 'J':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1220 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1221 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1222 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1223 chg_c_to_X_or_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1224
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1225 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1226
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1227 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1228 if (!curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1229 return TEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1230
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1231 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1232 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1233
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1234 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1235 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1236 tempc = TEE_;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1237 chg_l_toXor_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1238 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1239 else
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1240 tempc = TEE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1241
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1242 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1243 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1244
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1245 return tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1246 case 'k':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1247 tempc = _NOON;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1248 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1249 case 'l':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1250 tempc = _MIM;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1251 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1252 case 'm':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1253 tempc = _PE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1254 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1255 case 'n':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1256 case 'N':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1257 tempc = DAL;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1258 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1259 case 'o':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1260 tempc = _XE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1261 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1262 case 'p':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1263 tempc = _HE_J;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1264 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1265 case 'q':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1266 tempc = _ZAD;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1267 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1268 case 'r':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1269 tempc = _GHAF;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1270 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1271 case 's':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1272 tempc = _SIN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1273 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1274 case 'S':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1275 tempc = _IE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1276 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1277 case 't':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1278 tempc = _FE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1279 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1280 case 'u':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1281 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1282 {
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1283 if (!p_ri && !F_is_TyE(tempc))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1284 chg_c_to_X_orX_ ();
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1285 if (p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1286 chg_c_to_X_or_X ();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1287
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1288 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1289
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1290 if (!p_ri && !curwin->w_cursor.col)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1291 return _AYN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1292
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1293 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1294 dec_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1295
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1296 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1297 tempc = _AYN_;
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1298 else
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1299 tempc = _AYN;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1300
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1301 if (!p_ri)
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1302 inc_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1303 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1304 case 'v':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1305 case 'V':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1306 tempc = RE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1307 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1308 case 'w':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1309 tempc = _SAD;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1310 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1311 case 'x':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1312 case 'X':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1313 tempc = _TA;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1314 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1315 case 'y':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1316 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1317 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1318 if (!p_ri && !F_is_TyE(tempc))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1319 chg_c_to_X_orX_ ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1320 if (p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1321 chg_c_to_X_or_X ();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1322
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1323 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1324
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1325 if (!p_ri && !curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1326 return _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1327
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1328 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1329 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1330
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1331 if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1332 tempc = _GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1333 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1334 tempc = _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1335
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1336 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1337 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1338
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1339 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1340 case 'z':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1341 tempc = _ZA;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1342 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1343 case 'Z':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1344 tempc = _KAF_H;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1345 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1346 case ';':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1347 tempc = _KAF;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1348 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1349 case '\'':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1350 tempc = _GAF;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1351 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1352 case ',':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1353 tempc = WAW;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1354 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1355 case '[':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1356 tempc = _JIM;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1357 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1358 case ']':
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1359 tempc = _CHE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1360 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1361 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1362
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1363 if (F_isalpha(tempc) || F_isdigit(tempc))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1364 {
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1365 if (!curwin->w_cursor.col && STRLEN(ml_get_curline()))
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1366 {
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1367 if (!p_ri && !F_is_TyE(tempc))
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1368 chg_c_to_X_orX_();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1369 if (p_ri)
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1370 chg_c_to_X_or_X();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1371 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1372
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1373 if (curwin->w_cursor.col)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1374 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1375 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1376 dec_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1377
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1378 if (F_is_TyE(tempc))
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1379 chg_l_toXor_X();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1380 else
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1381 chg_l_to_X_orX_();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1382
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1383 if (!p_ri)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1384 inc_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1385 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1386 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1387 if (tempc)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1388 return tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1389 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1390 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1391
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1392 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1393 * Convert a none leading Farsi char into a leading type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1394 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1395 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1396 toF_leading(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1397 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1398 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1399 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1400 case ALEF_: return ALEF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1401 case ALEF_U_H_: return ALEF_U_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1402 case BE: return _BE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1403 case PE: return _PE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1404 case TE: return _TE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1405 case SE: return _SE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1406 case JIM: return _JIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1407 case CHE: return _CHE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1408 case HE_J: return _HE_J;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1409 case XE: return _XE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1410 case SIN: return _SIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1411 case SHIN: return _SHIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1412 case SAD: return _SAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1413 case ZAD: return _ZAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1414
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1415 case AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1416 case AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1417 case _AYN_: return _AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1418
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1419 case GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1420 case GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1421 case _GHAYN_: return _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1422
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1423 case FE: return _FE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1424 case GHAF: return _GHAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1425 case KAF: return _KAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1426 case GAF: return _GAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1427 case LAM: return _LAM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1428 case MIM: return _MIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1429 case NOON: return _NOON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1430
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1431 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1432 case F_HE: return _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1433
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1434 case YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1435 case YE_: return _YE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1436
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1437 case IE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1438 case IE: return _IE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1439
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1440 case YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1441 case YEE_: return _YEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1442 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1443 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1444 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1445
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1446 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1447 * Convert a given Farsi char into right joining type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1448 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1449 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1450 toF_Rjoin(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1451 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1452 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1453 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1454 case ALEF: return ALEF_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1455 case ALEF_U_H: return ALEF_U_H_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1456 case BE: return _BE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1457 case PE: return _PE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1458 case TE: return _TE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1459 case SE: return _SE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1460 case JIM: return _JIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1461 case CHE: return _CHE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1462 case HE_J: return _HE_J;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1463 case XE: return _XE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1464 case SIN: return _SIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1465 case SHIN: return _SHIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1466 case SAD: return _SAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1467 case ZAD: return _ZAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1468
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1469 case AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1470 case AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1471 case _AYN: return _AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1472
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1473 case GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1474 case GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1475 case _GHAYN_: return _GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1476
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1477 case FE: return _FE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1478 case GHAF: return _GHAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1479 case KAF: return _KAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1480 case GAF: return _GAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1481 case LAM: return _LAM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1482 case MIM: return _MIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1483 case NOON: return _NOON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1484
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1485 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1486 case F_HE: return _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1487
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1488 case YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1489 case YE_: return _YE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1490
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1491 case IE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1492 case IE: return _IE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1493
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1494 case TEE: return TEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1495
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1496 case YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1497 case YEE_: return _YEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1498 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1499 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1500 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1501
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1502 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1503 * Can a given Farsi character join via its left edj.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1504 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1505 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1506 canF_Ljoin(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1507 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1508 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1509 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1510 case _BE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1511 case BE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1512 case PE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1513 case _PE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1514 case TE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1515 case _TE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1516 case SE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1517 case _SE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1518 case JIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1519 case _JIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1520 case CHE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1521 case _CHE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1522 case HE_J:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1523 case _HE_J:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1524 case XE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1525 case _XE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1526 case SIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1527 case _SIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1528 case SHIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1529 case _SHIN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1530 case SAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1531 case _SAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1532 case ZAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1533 case _ZAD:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1534 case _TA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1535 case _ZA:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1536 case AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1537 case _AYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1538 case _AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1539 case AYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1540 case GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1541 case GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1542 case _GHAYN_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1543 case _GHAYN:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1544 case FE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1545 case _FE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1546 case GHAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1547 case _GHAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1548 case _KAF_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1549 case KAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1550 case _KAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1551 case GAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1552 case _GAF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1553 case LAM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1554 case _LAM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1555 case MIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1556 case _MIM:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1557 case NOON:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1558 case _NOON:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1559 case IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1560 case _IE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1561 case IE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1562 case YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1563 case _YE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1564 case YE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1565 case YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1566 case _YEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1567 case YEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1568 case F_HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1569 case _HE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1570 case _HE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1571 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1572 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1573 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1574 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1575
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1576 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1577 * Can a given Farsi character join via its right edj.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1578 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1579 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1580 canF_Rjoin(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1581 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1582 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1583 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1584 case ALEF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1585 case ALEF_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1586 case ALEF_U_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1587 case ALEF_U_H_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1588 case DAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1589 case ZAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1590 case RE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1591 case JE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1592 case ZE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1593 case TEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1594 case TEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1595 case WAW:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1596 case WAW_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1597 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1598 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1599
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1600 return canF_Ljoin(c);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1601
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1602 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1603
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1604 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1605 * is a given Farsi character a terminating type.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1606 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1607 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1608 F_isterm(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1609 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1610 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1611 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1612 case ALEF:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1613 case ALEF_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1614 case ALEF_U_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1615 case ALEF_U_H_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1616 case DAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1617 case ZAL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1618 case RE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1619 case JE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1620 case ZE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1621 case WAW:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1622 case WAW_H:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1623 case TEE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1624 case TEE_:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1625 return TRUE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1626 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1627
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1628 return FALSE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1629 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1630
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1631 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1632 * Convert the given Farsi character into a ending type .
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1633 */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1634 static int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1635 toF_ending(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1636 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1637 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1638 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1639 case _BE: return BE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1640 case _PE: return PE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1641 case _TE: return TE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1642 case _SE: return SE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1643 case _JIM: return JIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1644 case _CHE: return CHE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1645 case _HE_J: return HE_J;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1646 case _XE: return XE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1647 case _SIN: return SIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1648 case _SHIN: return SHIN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1649 case _SAD: return SAD;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1650 case _ZAD: return ZAD;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1651 case _AYN: return AYN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1652 case _AYN_: return AYN_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1653 case _GHAYN: return GHAYN;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1654 case _GHAYN_: return GHAYN_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1655 case _FE: return FE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1656 case _GHAF: return GHAF;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1657 case _KAF_H:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1658 case _KAF: return KAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1659 case _GAF: return GAF;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1660 case _LAM: return LAM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1661 case _MIM: return MIM;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1662 case _NOON: return NOON;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1663 case _YE: return YE_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1664 case YE_: return YE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1665 case _YEE: return YEE_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1666 case YEE_: return YEE;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1667 case TEE: return TEE_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1668 case _IE: return IE_;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1669 case IE_: return IE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1670 case _HE:
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1671 case _HE_: return F_HE;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1672 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1673 return c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1674 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1675
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1676 /*
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1677 * Convert the Farsi 3342 standard into Farsi VIM.
10745
265268ea1adc patch 8.0.0262: Farsi support is barely tested
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1678 */
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1679 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1680 conv_to_pvim(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1681 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1682 char_u *ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1683 int lnum, llen, i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1684
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1685 for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1686 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1687 ptr = ml_get((linenr_T)lnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1688
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1689 llen = (int)STRLEN(ptr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1690
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1691 for (i = 0; i < llen-1; i++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1692 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1693 if (canF_Ljoin(ptr[i]) && canF_Rjoin(ptr[i+1]))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1694 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1695 ptr[i] = toF_leading(ptr[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1696 ++i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1697
11317
e45c6e4d78af patch 8.0.0544: cppcheck warnings
Christian Brabandt <cb@256bit.org>
parents: 11158
diff changeset
1698 while (i < llen && canF_Rjoin(ptr[i]))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1699 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1700 ptr[i] = toF_Rjoin(ptr[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1701 if (F_isterm(ptr[i]) || !F_isalpha(ptr[i]))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1702 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1703 ++i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1704 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1705 if (!F_isalpha(ptr[i]) || !canF_Rjoin(ptr[i]))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1706 ptr[i-1] = toF_ending(ptr[i-1]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1707 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1708 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1709 ptr[i] = toF_TyA(ptr[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1710 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1711 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1712
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1713 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1714 * Following lines contains Farsi encoded character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1715 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1716
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1717 do_cmdline_cmd((char_u *)"%s/\202\231/\232/ge");
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1718 do_cmdline_cmd((char_u *)"%s/\201\231/\370\334/ge");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1719
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1720 /* Assume the screen has been messed up: clear it and redraw. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1721 redraw_later(CLEAR);
11158
501f46f7644c patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents: 10747
diff changeset
1722 MSG_ATTR(farsi_text_1, HL_ATTR(HLF_S));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1723 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1724
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1725 /*
4352
04736b4030ec updated for version 7.3.925
Bram Moolenaar <bram@vim.org>
parents: 3683
diff changeset
1726 * Convert the Farsi VIM into Farsi 3342 standard.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1727 */
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1728 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1729 conv_to_pstd(void)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1730 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1731 char_u *ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1732 int lnum, llen, i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1733
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1734 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1735 * Following line contains Farsi encoded character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1736 */
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1737 do_cmdline_cmd((char_u *)"%s/\232/\202\231/ge");
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1738
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1739 for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1740 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1741 ptr = ml_get((linenr_T)lnum);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1742 llen = (int)STRLEN(ptr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1743
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
1744 for (i = 0; i < llen; i++)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1745 ptr[i] = toF_TyA(ptr[i]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1746 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1747
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1748 /* Assume the screen has been messed up: clear it and redraw. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1749 redraw_later(CLEAR);
11158
501f46f7644c patch 8.0.0466: still macros that should be all-caps
Christian Brabandt <cb@256bit.org>
parents: 10747
diff changeset
1750 MSG_ATTR(farsi_text_2, HL_ATTR(HLF_S));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1751 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1752
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1753 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1754 * left-right swap the characters in buf[len].
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1755 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1756 static void
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1757 lrswapbuf(char_u *buf, int len)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1758 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1759 char_u *s, *e;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1760 int c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1761
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1762 s = buf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1763 e = buf + len - 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1764
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1765 while (e > s)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1766 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1767 c = *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1768 *s = *e;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1769 *e = c;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1770 ++s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1771 --e;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1772 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1773 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1774
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1775 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1776 * swap all the characters in reverse direction
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1777 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1778 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1779 lrswap(char_u *ibuf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1780 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1781 if (ibuf != NULL && *ibuf != NUL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1782 lrswapbuf(ibuf, (int)STRLEN(ibuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1783 return ibuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1784 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1785
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1786 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1787 * swap all the Farsi characters in reverse direction
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1788 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1789 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1790 lrFswap(char_u *cmdbuf, int len)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1791 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1792 int i, cnt;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1793
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1794 if (cmdbuf == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1795 return cmdbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1796
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1797 if (len == 0 && (len = (int)STRLEN(cmdbuf)) == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1798 return cmdbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1799
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1800 for (i = 0; i < len; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1801 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1802 for (cnt = 0; i + cnt < len
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1803 && (F_isalpha(cmdbuf[i + cnt])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1804 || F_isdigit(cmdbuf[i + cnt])
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1805 || cmdbuf[i + cnt] == ' '); ++cnt)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1806 ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1807
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1808 lrswapbuf(cmdbuf + i, cnt);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1809 i += cnt;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1810 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1811 return cmdbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1812 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1813
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1814 /*
1624
18ee39301b82 updated for version 7.2a
vimboss
parents: 1224
diff changeset
1815 * Reverse the characters in the search path and substitute section
18ee39301b82 updated for version 7.2a
vimboss
parents: 1224
diff changeset
1816 * accordingly.
18ee39301b82 updated for version 7.2a
vimboss
parents: 1224
diff changeset
1817 * TODO: handle different separator characters. Use skip_regexp().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1818 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1819 char_u *
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1820 lrF_sub(char_u *ibuf)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1821 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1822 char_u *p, *ep;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1823 int i, cnt;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1824
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1825 p = ibuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1826
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 7
diff changeset
1827 /* Find the boundary of the search path */
396
afc60a6339a6 updated for version 7.0104
vimboss
parents: 388
diff changeset
1828 while (((p = vim_strchr(p + 1, '/')) != NULL) && p[-1] == '\\')
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1829 ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1830
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1831 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1832 return ibuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1833
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1834 /* Reverse the Farsi characters in the search path. */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1835 lrFswap(ibuf, (int)(p-ibuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1836
388
f92bb1845823 updated for version 7.0101
vimboss
parents: 7
diff changeset
1837 /* Now find the boundary of the substitute section */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1838 if ((ep = (char_u *)strrchr((char *)++p, '/')) != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1839 cnt = (int)(ep - p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1840 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1841 cnt = (int)STRLEN(p);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1842
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1843 /* Reverse the characters in the substitute section and take care of '\' */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1844 for (i = 0; i < cnt-1; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1845 if (p[i] == '\\')
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1846 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1847 p[i] = p[i+1] ;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1848 p[++i] = '\\';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1849 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1850
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1851 lrswapbuf(p, cnt);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1852
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1853 return ibuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1854 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1855
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1856 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1857 * Map Farsi keyboard when in cmd_fkmap mode.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1858 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1859 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
1860 cmdl_fkmap(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1861 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1862 int tempc;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1863
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1864 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1865 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1866 case '0':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1867 case '1':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1868 case '2':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1869 case '3':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1870 case '4':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1871 case '5':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1872 case '6':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1873 case '7':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1874 case '8':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1875 case '9':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1876 case '`':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1877 case ' ':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1878 case '.':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1879 case '!':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1880 case '"':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1881 case '$':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1882 case '%':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1883 case '^':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1884 case '&':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1885 case '/':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1886 case '(':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1887 case ')':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1888 case '=':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1889 case '\\':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1890 case '?':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1891 case '+':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1892 case '-':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1893 case '_':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1894 case '*':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1895 case ':':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1896 case '#':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1897 case '~':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1898 case '@':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1899 case '<':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1900 case '>':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1901 case '{':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1902 case '}':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1903 case '|':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1904 case 'B':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1905 case 'E':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1906 case 'F':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1907 case 'H':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1908 case 'I':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1909 case 'K':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1910 case 'L':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1911 case 'M':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1912 case 'O':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1913 case 'P':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1914 case 'Q':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1915 case 'R':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1916 case 'T':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1917 case 'U':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1918 case 'W':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1919 case 'Y':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1920 case NL:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1921 case TAB:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1922
10747
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1923 switch ((tempc = cmd_gchar(AT_CURSOR)))
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1924 {
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1925 case _BE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1926 case _PE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1927 case _TE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1928 case _SE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1929 case _JIM:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1930 case _CHE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1931 case _HE_J:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1932 case _XE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1933 case _SIN:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1934 case _SHIN:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1935 case _SAD:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1936 case _ZAD:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1937 case _AYN:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1938 case _GHAYN:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1939 case _FE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1940 case _GHAF:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1941 case _KAF:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1942 case _GAF:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1943 case _LAM:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1944 case _MIM:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1945 case _NOON:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1946 case _HE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1947 case _HE_:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1948 cmd_pchar(toF_TyA(tempc), AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1949 break;
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1950 case _AYN_:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1951 cmd_pchar(AYN_, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1952 break;
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1953 case _GHAYN_:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1954 cmd_pchar(GHAYN_, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1955 break;
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1956 case _IE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1957 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1))
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1958 cmd_pchar(IE_, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1959 else
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1960 cmd_pchar(IE, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1961 break;
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1962 case _YEE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1963 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1))
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1964 cmd_pchar(YEE_, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1965 else
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1966 cmd_pchar(YEE, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1967 break;
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1968 case _YE:
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1969 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1))
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1970 cmd_pchar(YE_, AT_CURSOR);
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1971 else
b8a79277269a patch 8.0.0263: Farsi support is not tested enough
Christian Brabandt <cb@256bit.org>
parents: 10745
diff changeset
1972 cmd_pchar(YE, AT_CURSOR);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1973 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1974
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1975 switch (c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1976 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1977 case '0': return FARSI_0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1978 case '1': return FARSI_1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1979 case '2': return FARSI_2;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1980 case '3': return FARSI_3;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1981 case '4': return FARSI_4;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1982 case '5': return FARSI_5;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1983 case '6': return FARSI_6;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1984 case '7': return FARSI_7;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1985 case '8': return FARSI_8;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1986 case '9': return FARSI_9;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1987 case 'B': return F_PSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1988 case 'E': return JAZR_N;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1989 case 'F': return ALEF_D_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1990 case 'H': return ALEF_A;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1991 case 'I': return TASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1992 case 'K': return F_LQUOT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1993 case 'L': return F_RQUOT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1994 case 'M': return HAMZE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1995 case 'O': return '[';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1996 case 'P': return ']';
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1997 case 'Q': return OO;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1998 case 'R': return MAD_N;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1999 case 'T': return OW;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2000 case 'U': return MAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2001 case 'W': return OW_OW;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2002 case 'Y': return JAZR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2003 case '`': return F_PCN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2004 case '!': return F_EXCL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2005 case '@': return F_COMMA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2006 case '#': return F_DIVIDE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2007 case '$': return F_CURRENCY;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2008 case '%': return F_PERCENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2009 case '^': return F_MUL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2010 case '&': return F_BCOMMA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2011 case '*': return F_STAR;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2012 case '(': return F_LPARENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2013 case ')': return F_RPARENT;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2014 case '-': return F_MINUS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2015 case '_': return F_UNDERLINE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2016 case '=': return F_EQUALS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2017 case '+': return F_PLUS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2018 case '\\': return F_BSLASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2019 case '|': return F_PIPE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2020 case ':': return F_DCOLON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2021 case '"': return F_SEMICOLON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2022 case '.': return F_PERIOD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2023 case '/': return F_SLASH;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2024 case '<': return F_LESS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2025 case '>': return F_GREATER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2026 case '?': return F_QUESTION;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2027 case ' ': return F_BLANK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2028 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2029
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2030 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2031
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2032 case 'a': return _SHIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2033 case 'A': return WAW_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2034 case 'b': return ZAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2035 case 'c': return ZE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2036 case 'C': return JE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2037 case 'd': return _YE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2038 case 'D': return _YEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2039 case 'e': return _SE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2040 case 'f': return _BE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2041 case 'g': return _LAM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2042 case 'G':
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2043 if (cmd_gchar(AT_CURSOR) == _LAM)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2044 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2045 cmd_pchar(LAM, AT_CURSOR);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2046 return ALEF_U_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2047 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2048
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2049 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2050 return ALEF_U_H_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2051 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2052 return ALEF_U_H;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2053 case 'h':
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2054 if (cmd_gchar(AT_CURSOR) == _LAM)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2055 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2056 cmd_pchar(LA, AT_CURSOR);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2057 redrawcmdline();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2058 return K_IGNORE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2059 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2060
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2061 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2062 return ALEF_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2063 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2064 return ALEF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2065 case 'i':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2066 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2067 return _HE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2068 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2069 return _HE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2070 case 'j': return _TE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2071 case 'J':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2072 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2073 return TEE_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2074 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2075 return TEE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2076 case 'k': return _NOON;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2077 case 'l': return _MIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2078 case 'm': return _PE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2079 case 'n':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2080 case 'N': return DAL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2081 case 'o': return _XE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2082 case 'p': return _HE_J;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2083 case 'q': return _ZAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2084 case 'r': return _GHAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2085 case 's': return _SIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2086 case 'S': return _IE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2087 case 't': return _FE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2088 case 'u':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2089 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2090 return _AYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2091 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2092 return _AYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2093 case 'v':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2094 case 'V': return RE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2095 case 'w': return _SAD;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2096 case 'x':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2097 case 'X': return _TA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2098 case 'y':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2099 if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2100 return _GHAYN_;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2101 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2102 return _GHAYN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2103 case 'z':
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2104 case 'Z': return _ZA;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2105 case ';': return _KAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2106 case '\'': return _GAF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2107 case ',': return WAW;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2108 case '[': return _JIM;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2109 case ']': return _CHE;
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2110 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2111
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2112 return c;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2113 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2114
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2115 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2116 * F_isalpha returns TRUE if 'c' is a Farsi alphabet
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2117 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2118 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
2119 F_isalpha(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2120 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2121 return ((c >= TEE_ && c <= _YE)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2122 || (c >= ALEF_A && c <= YE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2123 || (c >= _IE && c <= YE_));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2124 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2125
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2126 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2127 * F_isdigit returns TRUE if 'c' is a Farsi digit
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2128 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2129 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
2130 F_isdigit(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2131 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2132 return (c >= FARSI_0 && c <= FARSI_9);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2133 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2134
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2135 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2136 * F_ischar returns TRUE if 'c' is a Farsi character.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2137 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2138 int
7819
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d
Christian Brabandt <cb@256bit.org>
parents: 7801
diff changeset
2139 F_ischar(int c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2140 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2141 return (c >= TEE_ && c <= YE_);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2142 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2143
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2144 void
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2145 farsi_f8(cmdarg_T *cap UNUSED)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2146 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2147 if (p_altkeymap)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2148 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2149 if (curwin->w_farsi & W_R_L)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2150 {
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2151 p_fkmap = 0;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2152 do_cmdline_cmd((char_u *)"set norl");
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2153 MSG("");
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2154 }
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2155 else
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2156 {
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2157 p_fkmap = 1;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2158 do_cmdline_cmd((char_u *)"set rl");
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2159 MSG("");
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2160 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2161
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2162 curwin->w_farsi = curwin->w_farsi ^ W_R_L;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2163 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2164 }
9399
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2165
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2166 void
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2167 farsi_f9(cmdarg_T *cap UNUSED)
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2168 {
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2169 if (p_altkeymap && curwin->w_p_rl)
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2170 {
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2171 curwin->w_farsi = curwin->w_farsi ^ W_CONV;
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2172 if (curwin->w_farsi & W_CONV)
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2173 conv_to_pvim();
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2174 else
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2175 conv_to_pstd();
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2176 }
43b8570abbec commit https://github.com/vim/vim/commit/ee2615af64fdcee87d8e4b13b65356e77fbd969b
Christian Brabandt <cb@256bit.org>
parents: 8238
diff changeset
2177 }
9403
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
2178
9b048dced116 commit https://github.com/vim/vim/commit/75464dc434c43efac60e8bfd9bec2a8b736407e9
Christian Brabandt <cb@256bit.org>
parents: 9399
diff changeset
2179 #endif /* FEAT_FKMAP */