annotate src/farsi.c @ 378:6b49757d378c

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