Mercurial > vim
view src/farsi.c @ 2126:e038754d419a v7.2.408
updated for version 7.2.408
Problem: With ":g/the/s/foo/bar/" the '[ and '] marks can be set to a line
that was not changed.
Solution: Only set '[ and '] marks when a substitution was done.
author | Bram Moolenaar <bram@zimbu.org> |
---|---|
date | Tue, 23 Mar 2010 17:36:29 +0100 |
parents | e5602d92da8c |
children | c1780b4cb995 |
line wrap: on
line source
/* vi:set ts=8 sts=4 sw=4: * * VIM - Vi IMproved by Bram Moolenaar * * Do ":help uganda" in Vim to read copying and usage conditions. * Do ":help credits" in Vim to see a list of people who contributed. * See README.txt for an overview of the Vim source code. */ /* * farsi.c: functions for Farsi language * * Included by main.c, when FEAT_FKMAP is defined. */ static int toF_Xor_X_ __ARGS((int c)); static int F_is_TyE __ARGS((int c)); static int F_is_TyC_TyD __ARGS((int c)); static int F_is_TyB_TyC_TyD __ARGS((int src, int offset)); static int toF_TyB __ARGS((int c)); static void put_curr_and_l_to_X __ARGS((int c)); static void put_and_redo __ARGS((int c)); static void chg_c_toX_orX __ARGS((void)); static void chg_c_to_X_orX_ __ARGS((void)); static void chg_c_to_X_or_X __ARGS((void)); static void chg_l_to_X_orX_ __ARGS((void)); static void chg_l_toXor_X __ARGS((void)); static void chg_r_to_Xor_X_ __ARGS((void)); static int toF_leading __ARGS((int c)); static int toF_Rjoin __ARGS((int c)); static int canF_Ljoin __ARGS((int c)); static int canF_Rjoin __ARGS((int c)); static int F_isterm __ARGS((int c)); static int toF_ending __ARGS((int c)); static void lrswapbuf __ARGS((char_u *buf, int len)); /* ** Convert the given Farsi character into a _X or _X_ type */ static int toF_Xor_X_(c) int c; { int tempc; switch (c) { case BE: return _BE; case PE: return _PE; case TE: return _TE; case SE: return _SE; case JIM: return _JIM; case CHE: return _CHE; case HE_J: return _HE_J; case XE: return _XE; case SIN: return _SIN; case SHIN: return _SHIN; case SAD: return _SAD; case ZAD: return _ZAD; case AYN: return _AYN; case AYN_: return _AYN_; case GHAYN: return _GHAYN; case GHAYN_: return _GHAYN_; case FE: return _FE; case GHAF: return _GHAF; case KAF: return _KAF; case GAF: return _GAF; case LAM: return _LAM; case MIM: return _MIM; case NOON: return _NOON; case YE: case YE_: return _YE; case YEE: case YEE_: return _YEE; case IE: case IE_: return _IE; case F_HE: tempc = _HE; if (p_ri && (curwin->w_cursor.col + 1 < (colnr_T)STRLEN(ml_get_curline()))) { inc_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = _HE_; dec_cursor(); } if (!p_ri && STRLEN(ml_get_curline())) { dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = _HE_; inc_cursor(); } return tempc; } return 0; } /* ** Convert the given Farsi character into Farsi capital character . */ int toF_TyA(c) int c ; { switch (c) { case ALEF_: return ALEF; case ALEF_U_H_: return ALEF_U_H; case _BE: return BE; case _PE: return PE; case _TE: return TE; case _SE: return SE; case _JIM: return JIM; case _CHE: return CHE; case _HE_J: return HE_J; case _XE: return XE; case _SIN: return SIN; case _SHIN: return SHIN; case _SAD: return SAD; case _ZAD: return ZAD; case _AYN: case AYN_: case _AYN_: return AYN; case _GHAYN: case GHAYN_: case _GHAYN_: return GHAYN; case _FE: return FE; case _GHAF: return GHAF; /* I am not sure what it is !!! case _KAF_H: */ case _KAF: return KAF; case _GAF: return GAF; case _LAM: return LAM; case _MIM: return MIM; case _NOON: return NOON; case _YE: case YE_: return YE; case _YEE: case YEE_: return YEE; case TEE_: return TEE; case _IE: case IE_: return IE; case _HE: case _HE_: return F_HE; } return c; } /* ** Is the character under the cursor+offset in the given buffer a join type. ** That is a character that is combined with the others. ** Note: the offset is used only for command line buffer. */ static int F_is_TyB_TyC_TyD(src, offset) int src, offset; { int c; if (src == SRC_EDT) c = gchar_cursor(); else c = cmd_gchar(AT_CURSOR+offset); switch (c) { case _LAM: case _BE: case _PE: case _TE: case _SE: case _JIM: case _CHE: case _HE_J: case _XE: case _SIN: case _SHIN: case _SAD: case _ZAD: case _TA: case _ZA: case _AYN: case _AYN_: case _GHAYN: case _GHAYN_: case _FE: case _GHAF: case _KAF: case _KAF_H: case _GAF: case _MIM: case _NOON: case _YE: case _YEE: case _IE: case _HE_: case _HE: return TRUE; } return FALSE; } /* ** Is the Farsi character one of the terminating only type. */ static int F_is_TyE(c) int c; { switch (c) { case ALEF_A: case ALEF_D_H: case DAL: case ZAL: case RE: case ZE: case JE: case WAW: case WAW_H: case HAMZE: return TRUE; } return FALSE; } /* ** Is the Farsi character one of the none leading type. */ static int F_is_TyC_TyD(c) int c; { switch (c) { case ALEF_: case ALEF_U_H_: case _AYN_: case AYN_: case _GHAYN_: case GHAYN_: case _HE_: case YE_: case IE_: case TEE_: case YEE_: return TRUE; } return FALSE; } /* ** Convert a none leading Farsi char into a leading type. */ static int toF_TyB(c) int c; { switch (c) { case ALEF_: return ALEF; case ALEF_U_H_: return ALEF_U_H; case _AYN_: return _AYN; case AYN_: return AYN; /* exception - there are many of them */ case _GHAYN_: return _GHAYN; case GHAYN_: return GHAYN; /* exception - there are many of them */ case _HE_: return _HE; case YE_: return YE; case IE_: return IE; case TEE_: return TEE; case YEE_: return YEE; } return c; } /* ** Overwrite the current redo and cursor characters + left adjust */ static void put_curr_and_l_to_X(c) int c; { int tempc; if (curwin->w_p_rl && p_ri) return; if ((curwin->w_cursor.col < (colnr_T)STRLEN(ml_get_curline()))) { if ((p_ri && curwin->w_cursor.col) || !p_ri) { if (p_ri) dec_cursor(); else inc_cursor(); if (F_is_TyC_TyD((tempc = gchar_cursor()))) { pchar_cursor(toF_TyB(tempc)); AppendCharToRedobuff(K_BS); AppendCharToRedobuff(tempc); } if (p_ri) inc_cursor(); else dec_cursor(); } } put_and_redo(c); } static void put_and_redo(c) int c; { pchar_cursor(c); AppendCharToRedobuff(K_BS); AppendCharToRedobuff(c); } /* ** Change the char. under the cursor to a X_ or X type */ static void chg_c_toX_orX() { int tempc, curc; switch ((curc = gchar_cursor())) { case _BE: tempc = BE; break; case _PE: tempc = PE; break; case _TE: tempc = TE; break; case _SE: tempc = SE; break; case _JIM: tempc = JIM; break; case _CHE: tempc = CHE; break; case _HE_J: tempc = HE_J; break; case _XE: tempc = XE; break; case _SIN: tempc = SIN; break; case _SHIN: tempc = SHIN; break; case _SAD: tempc = SAD; break; case _ZAD: tempc = ZAD; break; case _FE: tempc = FE; break; case _GHAF: tempc = GHAF; break; case _KAF_H: case _KAF: tempc = KAF; break; case _GAF: tempc = GAF; break; case _AYN: tempc = AYN; break; case _AYN_: tempc = AYN_; break; case _GHAYN: tempc = GHAYN; break; case _GHAYN_: tempc = GHAYN_; break; case _LAM: tempc = LAM; break; case _MIM: tempc = MIM; break; case _NOON: tempc = NOON; break; case _HE: case _HE_: tempc = F_HE; break; case _YE: case _IE: case _YEE: if (p_ri) { inc_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = (curc == _YE ? YE_ : (curc == _IE ? IE_ : YEE_)); else tempc = (curc == _YE ? YE : (curc == _IE ? IE : YEE)); dec_cursor(); } else { if (curwin->w_cursor.col) { dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = (curc == _YE ? YE_ : (curc == _IE ? IE_ : YEE_)); else tempc = (curc == _YE ? YE : (curc == _IE ? IE : YEE)); inc_cursor(); } else tempc = (curc == _YE ? YE : (curc == _IE ? IE : YEE)); } break; default: tempc = 0; } if (tempc) put_and_redo(tempc); } /* ** Change the char. under the cursor to a _X_ or X_ type */ static void chg_c_to_X_orX_() { int tempc; switch (gchar_cursor()) { case ALEF: tempc = ALEF_; break; case ALEF_U_H: tempc = ALEF_U_H_; break; case _AYN: tempc = _AYN_; break; case AYN: tempc = AYN_; break; case _GHAYN: tempc = _GHAYN_; break; case GHAYN: tempc = GHAYN_; break; case _HE: tempc = _HE_; break; case YE: tempc = YE_; break; case IE: tempc = IE_; break; case TEE: tempc = TEE_; break; case YEE: tempc = YEE_; break; default: tempc = 0; } if (tempc) put_and_redo(tempc); } /* ** Change the char. under the cursor to a _X_ or _X type */ static void chg_c_to_X_or_X () { int tempc; tempc = gchar_cursor(); if (curwin->w_cursor.col + 1 < (colnr_T)STRLEN(ml_get_curline())) { inc_cursor(); if ((tempc == F_HE) && (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))) { tempc = _HE_; dec_cursor(); put_and_redo(tempc); return; } dec_cursor(); } if ((tempc = toF_Xor_X_(tempc)) != 0) put_and_redo(tempc); } /* ** Change the character left to the cursor to a _X_ or X_ type */ static void chg_l_to_X_orX_ () { int tempc; if (curwin->w_cursor.col != 0 && (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(ml_get_curline()))) return; if (!curwin->w_cursor.col && p_ri) return; if (p_ri) dec_cursor(); else inc_cursor(); switch (gchar_cursor()) { case ALEF: tempc = ALEF_; break; case ALEF_U_H: tempc = ALEF_U_H_; break; case _AYN: tempc = _AYN_; break; case AYN: tempc = AYN_; break; case _GHAYN: tempc = _GHAYN_; break; case GHAYN: tempc = GHAYN_; break; case _HE: tempc = _HE_; break; case YE: tempc = YE_; break; case IE: tempc = IE_; break; case TEE: tempc = TEE_; break; case YEE: tempc = YEE_; break; default: tempc = 0; } if (tempc) put_and_redo(tempc); if (p_ri) inc_cursor(); else dec_cursor(); } /* ** Change the character left to the cursor to a X or _X type */ static void chg_l_toXor_X () { int tempc; if (curwin->w_cursor.col != 0 && (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(ml_get_curline()))) return; if (!curwin->w_cursor.col && p_ri) return; if (p_ri) dec_cursor(); else inc_cursor(); switch (gchar_cursor()) { case ALEF_: tempc = ALEF; break; case ALEF_U_H_: tempc = ALEF_U_H; break; case _AYN_: tempc = _AYN; break; case AYN_: tempc = AYN; break; case _GHAYN_: tempc = _GHAYN; break; case GHAYN_: tempc = GHAYN; break; case _HE_: tempc = _HE; break; case YE_: tempc = YE; break; case IE_: tempc = IE; break; case TEE_: tempc = TEE; break; case YEE_: tempc = YEE; break; default: tempc = 0; } if (tempc) put_and_redo(tempc); if (p_ri) inc_cursor(); else dec_cursor(); } /* ** Change the character right to the cursor to a _X or _X_ type */ static void chg_r_to_Xor_X_() { int tempc, c; if (curwin->w_cursor.col) { if (!p_ri) dec_cursor(); tempc = gchar_cursor(); if ((c = toF_Xor_X_(tempc)) != 0) put_and_redo(c); if (!p_ri) inc_cursor(); } } /* ** Map Farsi keyboard when in fkmap mode. */ int fkmap(c) int c; { int tempc; static int revins; if (IS_SPECIAL(c)) return c; if (VIM_ISDIGIT(c) || ((c == '.' || c == '+' || c == '-' || c == '^' || c == '%' || c == '#' || c == '=') && revins)) { if (!revins) { if (curwin->w_cursor.col) { if (!p_ri) dec_cursor(); chg_c_toX_orX (); chg_l_toXor_X (); if (!p_ri) inc_cursor(); } } arrow_used = TRUE; (void)stop_arrow(); if (!curwin->w_p_rl && revins) inc_cursor(); ++revins; p_ri=1; } else { if (revins) { arrow_used = TRUE; (void)stop_arrow(); revins = 0; if (curwin->w_p_rl) { while ((F_isdigit(gchar_cursor()) || (gchar_cursor() == F_PERIOD || gchar_cursor() == F_PLUS || gchar_cursor() == F_MINUS || gchar_cursor() == F_MUL || gchar_cursor() == F_DIVIDE || gchar_cursor() == F_PERCENT || gchar_cursor() == F_EQUALS)) && gchar_cursor() != NUL) ++curwin->w_cursor.col; } else { if (curwin->w_cursor.col) while ((F_isdigit(gchar_cursor()) || (gchar_cursor() == F_PERIOD || gchar_cursor() == F_PLUS || gchar_cursor() == F_MINUS || gchar_cursor() == F_MUL || gchar_cursor() == F_DIVIDE || gchar_cursor() == F_PERCENT || gchar_cursor() == F_EQUALS)) && --curwin->w_cursor.col) ; if (!F_isdigit(gchar_cursor())) ++curwin->w_cursor.col; } } } if (!revins) { if (curwin->w_p_rl) p_ri=0; if (!curwin->w_p_rl) p_ri=1; } if ((c < 0x100) && (isalpha(c) || c == '&' || c == '^' || c == ';' || c == '\''|| c == ',' || c == '[' || c == ']' || c == '{' || c == '}' )) chg_r_to_Xor_X_(); tempc = 0; switch (c) { case '`': case ' ': case '.': case '!': case '"': case '$': case '%': case '^': case '&': case '/': case '(': case ')': case '=': case '\\': case '?': case '+': case '-': case '_': case '*': case ':': case '#': case '~': case '@': case '<': case '>': case '{': case '}': case '|': case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case 'B': case 'E': case 'F': case 'H': case 'I': case 'K': case 'L': case 'M': case 'O': case 'P': case 'Q': case 'R': case 'T': case 'U': case 'W': case 'Y': case NL: case TAB: if (p_ri && c == NL && curwin->w_cursor.col) { /* ** If the char before the cursor is _X_ or X_ do not change ** the one under the cursor with X type. */ dec_cursor(); if (F_isalpha(gchar_cursor())) { inc_cursor(); return NL; } inc_cursor(); } if (!p_ri) if (!curwin->w_cursor.col) { switch (c) { case '0': return FARSI_0; case '1': return FARSI_1; case '2': return FARSI_2; case '3': return FARSI_3; case '4': return FARSI_4; case '5': return FARSI_5; case '6': return FARSI_6; case '7': return FARSI_7; case '8': return FARSI_8; case '9': return FARSI_9; case 'B': return F_PSP; case 'E': return JAZR_N; case 'F': return ALEF_D_H; case 'H': return ALEF_A; case 'I': return TASH; case 'K': return F_LQUOT; case 'L': return F_RQUOT; case 'M': return HAMZE; case 'O': return '['; case 'P': return ']'; case 'Q': return OO; case 'R': return MAD_N; case 'T': return OW; case 'U': return MAD; case 'W': return OW_OW; case 'Y': return JAZR; case '`': return F_PCN; case '!': return F_EXCL; case '@': return F_COMMA; case '#': return F_DIVIDE; case '$': return F_CURRENCY; case '%': return F_PERCENT; case '^': return F_MUL; case '&': return F_BCOMMA; case '*': return F_STAR; case '(': return F_LPARENT; case ')': return F_RPARENT; case '-': return F_MINUS; case '_': return F_UNDERLINE; case '=': return F_EQUALS; case '+': return F_PLUS; case '\\': return F_BSLASH; case '|': return F_PIPE; case ':': return F_DCOLON; case '"': return F_SEMICOLON; case '.': return F_PERIOD; case '/': return F_SLASH; case '<': return F_LESS; case '>': return F_GREATER; case '?': return F_QUESTION; case ' ': return F_BLANK; } break; } if (!p_ri) dec_cursor(); switch ((tempc = gchar_cursor())) { case _BE: case _PE: case _TE: case _SE: case _JIM: case _CHE: case _HE_J: case _XE: case _SIN: case _SHIN: case _SAD: case _ZAD: case _FE: case _GHAF: case _KAF: case _KAF_H: case _GAF: case _LAM: case _MIM: case _NOON: case _HE: case _HE_: case _TA: case _ZA: put_curr_and_l_to_X(toF_TyA(tempc)); break; case _AYN: case _AYN_: if (!p_ri) if (!curwin->w_cursor.col) { put_curr_and_l_to_X(AYN); break; } if (p_ri) inc_cursor(); else dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = AYN_; else tempc = AYN; if (p_ri) dec_cursor(); else inc_cursor(); put_curr_and_l_to_X(tempc); break; case _GHAYN: case _GHAYN_: if (!p_ri) if (!curwin->w_cursor.col) { put_curr_and_l_to_X(GHAYN); break; } if (p_ri) inc_cursor(); else dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = GHAYN_; else tempc = GHAYN; if (p_ri) dec_cursor(); else inc_cursor(); put_curr_and_l_to_X(tempc); break; case _YE: case _IE: case _YEE: if (!p_ri) if (!curwin->w_cursor.col) { put_curr_and_l_to_X((tempc == _YE ? YE : (tempc == _IE ? IE : YEE))); break; } if (p_ri) inc_cursor(); else dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = (tempc == _YE ? YE_ : (tempc == _IE ? IE_ : YEE_)); else tempc = (tempc == _YE ? YE : (tempc == _IE ? IE : YEE)); if (p_ri) dec_cursor(); else inc_cursor(); put_curr_and_l_to_X(tempc); break; } if (!p_ri) inc_cursor(); tempc = 0; switch (c) { case '0': return FARSI_0; case '1': return FARSI_1; case '2': return FARSI_2; case '3': return FARSI_3; case '4': return FARSI_4; case '5': return FARSI_5; case '6': return FARSI_6; case '7': return FARSI_7; case '8': return FARSI_8; case '9': return FARSI_9; case 'B': return F_PSP; case 'E': return JAZR_N; case 'F': return ALEF_D_H; case 'H': return ALEF_A; case 'I': return TASH; case 'K': return F_LQUOT; case 'L': return F_RQUOT; case 'M': return HAMZE; case 'O': return '['; case 'P': return ']'; case 'Q': return OO; case 'R': return MAD_N; case 'T': return OW; case 'U': return MAD; case 'W': return OW_OW; case 'Y': return JAZR; case '`': return F_PCN; case '!': return F_EXCL; case '@': return F_COMMA; case '#': return F_DIVIDE; case '$': return F_CURRENCY; case '%': return F_PERCENT; case '^': return F_MUL; case '&': return F_BCOMMA; case '*': return F_STAR; case '(': return F_LPARENT; case ')': return F_RPARENT; case '-': return F_MINUS; case '_': return F_UNDERLINE; case '=': return F_EQUALS; case '+': return F_PLUS; case '\\': return F_BSLASH; case '|': return F_PIPE; case ':': return F_DCOLON; case '"': return F_SEMICOLON; case '.': return F_PERIOD; case '/': return F_SLASH; case '<': return F_LESS; case '>': return F_GREATER; case '?': return F_QUESTION; case ' ': return F_BLANK; } break; case 'a': tempc = _SHIN; break; case 'A': tempc = WAW_H; break; case 'b': tempc = ZAL; break; case 'c': tempc = ZE; break; case 'C': tempc = JE; break; case 'd': tempc = _YE; break; case 'D': tempc = _YEE; break; case 'e': tempc = _SE; break; case 'f': tempc = _BE; break; case 'g': tempc = _LAM; break; case 'G': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (gchar_cursor() == _LAM) chg_c_toX_orX (); else if (p_ri) chg_c_to_X_or_X (); } if (!p_ri) if (!curwin->w_cursor.col) return ALEF_U_H; if (!p_ri) dec_cursor(); if (gchar_cursor() == _LAM) { chg_c_toX_orX (); chg_l_toXor_X (); tempc = ALEF_U_H; } else if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) { tempc = ALEF_U_H_; chg_l_toXor_X (); } else tempc = ALEF_U_H; if (!p_ri) inc_cursor(); return tempc; case 'h': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (p_ri) chg_c_to_X_or_X (); } if (!p_ri) if (!curwin->w_cursor.col) return ALEF; if (!p_ri) dec_cursor(); if (gchar_cursor() == _LAM) { chg_l_toXor_X(); del_char(FALSE); AppendCharToRedobuff(K_BS); if (!p_ri) dec_cursor(); tempc = LA; } else { if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) { tempc = ALEF_; chg_l_toXor_X (); } else tempc = ALEF; } if (!p_ri) inc_cursor(); return tempc; case 'i': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (!p_ri && !F_is_TyE(tempc)) chg_c_to_X_orX_ (); if (p_ri) chg_c_to_X_or_X (); } if (!p_ri && !curwin->w_cursor.col) return _HE; if (!p_ri) dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = _HE_; else tempc = _HE; if (!p_ri) inc_cursor(); break; case 'j': tempc = _TE; break; case 'J': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (p_ri) chg_c_to_X_or_X (); } if (!p_ri) if (!curwin->w_cursor.col) return TEE; if (!p_ri) dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) { tempc = TEE_; chg_l_toXor_X (); } else tempc = TEE; if (!p_ri) inc_cursor(); return tempc; case 'k': tempc = _NOON; break; case 'l': tempc = _MIM; break; case 'm': tempc = _PE; break; case 'n': case 'N': tempc = DAL; break; case 'o': tempc = _XE; break; case 'p': tempc = _HE_J; break; case 'q': tempc = _ZAD; break; case 'r': tempc = _GHAF; break; case 's': tempc = _SIN; break; case 'S': tempc = _IE; break; case 't': tempc = _FE; break; case 'u': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (!p_ri && !F_is_TyE(tempc)) chg_c_to_X_orX_ (); if (p_ri) chg_c_to_X_or_X (); } if (!p_ri && !curwin->w_cursor.col) return _AYN; if (!p_ri) dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = _AYN_; else tempc = _AYN; if (!p_ri) inc_cursor(); break; case 'v': case 'V': tempc = RE; break; case 'w': tempc = _SAD; break; case 'x': case 'X': tempc = _TA; break; case 'y': if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (!p_ri && !F_is_TyE(tempc)) chg_c_to_X_orX_ (); if (p_ri) chg_c_to_X_or_X (); } if (!p_ri && !curwin->w_cursor.col) return _GHAYN; if (!p_ri) dec_cursor(); if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) tempc = _GHAYN_; else tempc = _GHAYN; if (!p_ri) inc_cursor(); break; case 'z': tempc = _ZA; break; case 'Z': tempc = _KAF_H; break; case ';': tempc = _KAF; break; case '\'': tempc = _GAF; break; case ',': tempc = WAW; break; case '[': tempc = _JIM; break; case ']': tempc = _CHE; break; } if ((F_isalpha(tempc) || F_isdigit(tempc))) { if (!curwin->w_cursor.col && STRLEN(ml_get_curline())) { if (!p_ri && !F_is_TyE(tempc)) chg_c_to_X_orX_ (); if (p_ri) chg_c_to_X_or_X (); } if (curwin->w_cursor.col) { if (!p_ri) dec_cursor(); if (F_is_TyE(tempc)) chg_l_toXor_X (); else chg_l_to_X_orX_ (); if (!p_ri) inc_cursor(); } } if (tempc) return tempc; return c; } /* ** Convert a none leading Farsi char into a leading type. */ static int toF_leading(c) int c; { switch (c) { case ALEF_: return ALEF; case ALEF_U_H_: return ALEF_U_H; case BE: return _BE; case PE: return _PE; case TE: return _TE; case SE: return _SE; case JIM: return _JIM; case CHE: return _CHE; case HE_J: return _HE_J; case XE: return _XE; case SIN: return _SIN; case SHIN: return _SHIN; case SAD: return _SAD; case ZAD: return _ZAD; case AYN: case AYN_: case _AYN_: return _AYN; case GHAYN: case GHAYN_: case _GHAYN_: return _GHAYN; case FE: return _FE; case GHAF: return _GHAF; case KAF: return _KAF; case GAF: return _GAF; case LAM: return _LAM; case MIM: return _MIM; case NOON: return _NOON; case _HE_: case F_HE: return _HE; case YE: case YE_: return _YE; case IE_: case IE: return _IE; case YEE: case YEE_: return _YEE; } return c; } /* ** Convert a given Farsi char into right joining type. */ static int toF_Rjoin(c) int c; { switch (c) { case ALEF: return ALEF_; case ALEF_U_H: return ALEF_U_H_; case BE: return _BE; case PE: return _PE; case TE: return _TE; case SE: return _SE; case JIM: return _JIM; case CHE: return _CHE; case HE_J: return _HE_J; case XE: return _XE; case SIN: return _SIN; case SHIN: return _SHIN; case SAD: return _SAD; case ZAD: return _ZAD; case AYN: case AYN_: case _AYN: return _AYN_; case GHAYN: case GHAYN_: case _GHAYN_: return _GHAYN_; case FE: return _FE; case GHAF: return _GHAF; case KAF: return _KAF; case GAF: return _GAF; case LAM: return _LAM; case MIM: return _MIM; case NOON: return _NOON; case _HE: case F_HE: return _HE_; case YE: case YE_: return _YE; case IE_: case IE: return _IE; case TEE: return TEE_; case YEE: case YEE_: return _YEE; } return c; } /* ** Can a given Farsi character join via its left edj. */ static int canF_Ljoin(c) int c; { switch (c) { case _BE: case BE: case PE: case _PE: case TE: case _TE: case SE: case _SE: case JIM: case _JIM: case CHE: case _CHE: case HE_J: case _HE_J: case XE: case _XE: case SIN: case _SIN: case SHIN: case _SHIN: case SAD: case _SAD: case ZAD: case _ZAD: case _TA: case _ZA: case AYN: case _AYN: case _AYN_: case AYN_: case GHAYN: case GHAYN_: case _GHAYN_: case _GHAYN: case FE: case _FE: case GHAF: case _GHAF: case _KAF_H: case KAF: case _KAF: case GAF: case _GAF: case LAM: case _LAM: case MIM: case _MIM: case NOON: case _NOON: case IE: case _IE: case IE_: case YE: case _YE: case YE_: case YEE: case _YEE: case YEE_: case F_HE: case _HE: case _HE_: return TRUE; } return FALSE; } /* ** Can a given Farsi character join via its right edj. */ static int canF_Rjoin(c) int c; { switch (c) { case ALEF: case ALEF_: case ALEF_U_H: case ALEF_U_H_: case DAL: case ZAL: case RE: case JE: case ZE: case TEE: case TEE_: case WAW: case WAW_H: return TRUE; } return canF_Ljoin(c); } /* ** is a given Farsi character a terminating type. */ static int F_isterm(c) int c; { switch (c) { case ALEF: case ALEF_: case ALEF_U_H: case ALEF_U_H_: case DAL: case ZAL: case RE: case JE: case ZE: case WAW: case WAW_H: case TEE: case TEE_: return TRUE; } return FALSE; } /* ** Convert the given Farsi character into a ending type . */ static int toF_ending(c) int c; { switch (c) { case _BE: return BE; case _PE: return PE; case _TE: return TE; case _SE: return SE; case _JIM: return JIM; case _CHE: return CHE; case _HE_J: return HE_J; case _XE: return XE; case _SIN: return SIN; case _SHIN: return SHIN; case _SAD: return SAD; case _ZAD: return ZAD; case _AYN: return AYN; case _AYN_: return AYN_; case _GHAYN: return GHAYN; case _GHAYN_: return GHAYN_; case _FE: return FE; case _GHAF: return GHAF; case _KAF_H: case _KAF: return KAF; case _GAF: return GAF; case _LAM: return LAM; case _MIM: return MIM; case _NOON: return NOON; case _YE: return YE_; case YE_: return YE; case _YEE: return YEE_; case YEE_: return YEE; case TEE: return TEE_; case _IE: return IE_; case IE_: return IE; case _HE: case _HE_: return F_HE; } return c; } /* ** Convert the Farsi 3342 standard into Farsi VIM. */ void conv_to_pvim() { char_u *ptr; int lnum, llen, i; for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum) { ptr = ml_get((linenr_T)lnum); llen = (int)STRLEN(ptr); for ( i = 0; i < llen-1; i++) { if (canF_Ljoin(ptr[i]) && canF_Rjoin(ptr[i+1])) { ptr[i] = toF_leading(ptr[i]); ++i; while(canF_Rjoin(ptr[i]) && (i < llen)) { ptr[i] = toF_Rjoin(ptr[i]); if (F_isterm(ptr[i]) || !F_isalpha(ptr[i])) break; ++i; } if (!F_isalpha(ptr[i]) || !canF_Rjoin(ptr[i])) ptr[i-1] = toF_ending(ptr[i-1]); } else ptr[i] = toF_TyA(ptr[i]); } } /* * Following lines contains Farsi encoded character. */ do_cmdline_cmd((char_u *)"%s/\202\231/\232/g"); do_cmdline_cmd((char_u *)"%s/\201\231/\370\334/g"); /* Assume the screen has been messed up: clear it and redraw. */ redraw_later(CLEAR); MSG_ATTR(farsi_text_1, hl_attr(HLF_S)); } /* * Convert the Farsi VIM into Farsi 3342 standad. */ void conv_to_pstd() { char_u *ptr; int lnum, llen, i; /* * Following line contains Farsi encoded character. */ do_cmdline_cmd((char_u *)"%s/\232/\202\231/g"); for (lnum = 1; lnum <= curbuf->b_ml.ml_line_count; ++lnum) { ptr = ml_get((linenr_T)lnum); llen = (int)STRLEN(ptr); for ( i = 0; i < llen; i++) { ptr[i] = toF_TyA(ptr[i]); } } /* Assume the screen has been messed up: clear it and redraw. */ redraw_later(CLEAR); MSG_ATTR(farsi_text_2, hl_attr(HLF_S)); } /* * left-right swap the characters in buf[len]. */ static void lrswapbuf(buf, len) char_u *buf; int len; { char_u *s, *e; int c; s = buf; e = buf + len - 1; while (e > s) { c = *s; *s = *e; *e = c; ++s; --e; } } /* * swap all the characters in reverse direction */ char_u * lrswap(ibuf) char_u *ibuf; { if (ibuf != NULL && *ibuf != NUL) lrswapbuf(ibuf, (int)STRLEN(ibuf)); return ibuf; } /* * swap all the Farsi characters in reverse direction */ char_u * lrFswap(cmdbuf, len) char_u *cmdbuf; int len; { int i, cnt; if (cmdbuf == NULL) return cmdbuf; if (len == 0 && (len = (int)STRLEN(cmdbuf)) == 0) return cmdbuf; for (i = 0; i < len; i++) { for (cnt = 0; i + cnt < len && (F_isalpha(cmdbuf[i + cnt]) || F_isdigit(cmdbuf[i + cnt]) || cmdbuf[i + cnt] == ' '); ++cnt) ; lrswapbuf(cmdbuf + i, cnt); i += cnt; } return cmdbuf; } /* * Reverse the characters in the search path and substitute section * accordingly. * TODO: handle different separator characters. Use skip_regexp(). */ char_u * lrF_sub(ibuf) char_u *ibuf; { char_u *p, *ep; int i, cnt; p = ibuf; /* Find the boundary of the search path */ while (((p = vim_strchr(p + 1, '/')) != NULL) && p[-1] == '\\') ; if (p == NULL) return ibuf; /* Reverse the Farsi characters in the search path. */ lrFswap(ibuf, (int)(p-ibuf)); /* Now find the boundary of the substitute section */ if ((ep = (char_u *)strrchr((char *)++p, '/')) != NULL) cnt = (int)(ep - p); else cnt = (int)STRLEN(p); /* Reverse the characters in the substitute section and take care of '\' */ for (i = 0; i < cnt-1; i++) if (p[i] == '\\') { p[i] = p[i+1] ; p[++i] = '\\'; } lrswapbuf(p, cnt); return ibuf; } /* * Map Farsi keyboard when in cmd_fkmap mode. */ int cmdl_fkmap(c) int c; { int tempc; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '`': case ' ': case '.': case '!': case '"': case '$': case '%': case '^': case '&': case '/': case '(': case ')': case '=': case '\\': case '?': case '+': case '-': case '_': case '*': case ':': case '#': case '~': case '@': case '<': case '>': case '{': case '}': case '|': case 'B': case 'E': case 'F': case 'H': case 'I': case 'K': case 'L': case 'M': case 'O': case 'P': case 'Q': case 'R': case 'T': case 'U': case 'W': case 'Y': case NL: case TAB: switch ((tempc = cmd_gchar(AT_CURSOR))) { case _BE: case _PE: case _TE: case _SE: case _JIM: case _CHE: case _HE_J: case _XE: case _SIN: case _SHIN: case _SAD: case _ZAD: case _AYN: case _GHAYN: case _FE: case _GHAF: case _KAF: case _GAF: case _LAM: case _MIM: case _NOON: case _HE: case _HE_: cmd_pchar(toF_TyA(tempc), AT_CURSOR); break; case _AYN_: cmd_pchar(AYN_, AT_CURSOR); break; case _GHAYN_: cmd_pchar(GHAYN_, AT_CURSOR); break; case _IE: if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1)) cmd_pchar(IE_, AT_CURSOR); else cmd_pchar(IE, AT_CURSOR); break; case _YEE: if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1)) cmd_pchar(YEE_, AT_CURSOR); else cmd_pchar(YEE, AT_CURSOR); break; case _YE: if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR+1)) cmd_pchar(YE_, AT_CURSOR); else cmd_pchar(YE, AT_CURSOR); } switch (c) { case '0': return FARSI_0; case '1': return FARSI_1; case '2': return FARSI_2; case '3': return FARSI_3; case '4': return FARSI_4; case '5': return FARSI_5; case '6': return FARSI_6; case '7': return FARSI_7; case '8': return FARSI_8; case '9': return FARSI_9; case 'B': return F_PSP; case 'E': return JAZR_N; case 'F': return ALEF_D_H; case 'H': return ALEF_A; case 'I': return TASH; case 'K': return F_LQUOT; case 'L': return F_RQUOT; case 'M': return HAMZE; case 'O': return '['; case 'P': return ']'; case 'Q': return OO; case 'R': return MAD_N; case 'T': return OW; case 'U': return MAD; case 'W': return OW_OW; case 'Y': return JAZR; case '`': return F_PCN; case '!': return F_EXCL; case '@': return F_COMMA; case '#': return F_DIVIDE; case '$': return F_CURRENCY; case '%': return F_PERCENT; case '^': return F_MUL; case '&': return F_BCOMMA; case '*': return F_STAR; case '(': return F_LPARENT; case ')': return F_RPARENT; case '-': return F_MINUS; case '_': return F_UNDERLINE; case '=': return F_EQUALS; case '+': return F_PLUS; case '\\': return F_BSLASH; case '|': return F_PIPE; case ':': return F_DCOLON; case '"': return F_SEMICOLON; case '.': return F_PERIOD; case '/': return F_SLASH; case '<': return F_LESS; case '>': return F_GREATER; case '?': return F_QUESTION; case ' ': return F_BLANK; } break; case 'a': return _SHIN; case 'A': return WAW_H; case 'b': return ZAL; case 'c': return ZE; case 'C': return JE; case 'd': return _YE; case 'D': return _YEE; case 'e': return _SE; case 'f': return _BE; case 'g': return _LAM; case 'G': if (cmd_gchar(AT_CURSOR) == _LAM ) { cmd_pchar(LAM, AT_CURSOR); return ALEF_U_H; } if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return ALEF_U_H_; else return ALEF_U_H; case 'h': if (cmd_gchar(AT_CURSOR) == _LAM ) { cmd_pchar(LA, AT_CURSOR); redrawcmdline(); return K_IGNORE; } if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return ALEF_; else return ALEF; case 'i': if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return _HE_; else return _HE; case 'j': return _TE; case 'J': if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return TEE_; else return TEE; case 'k': return _NOON; case 'l': return _MIM; case 'm': return _PE; case 'n': case 'N': return DAL; case 'o': return _XE; case 'p': return _HE_J; case 'q': return _ZAD; case 'r': return _GHAF; case 's': return _SIN; case 'S': return _IE; case 't': return _FE; case 'u': if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return _AYN_; else return _AYN; case 'v': case 'V': return RE; case 'w': return _SAD; case 'x': case 'X': return _TA; case 'y': if (F_is_TyB_TyC_TyD(SRC_CMD, AT_CURSOR)) return _GHAYN_; else return _GHAYN; case 'z': case 'Z': return _ZA; case ';': return _KAF; case '\'': return _GAF; case ',': return WAW; case '[': return _JIM; case ']': return _CHE; } return c; } /* * F_isalpha returns TRUE if 'c' is a Farsi alphabet */ int F_isalpha(c) int c; { return (( c >= TEE_ && c <= _YE) || (c >= ALEF_A && c <= YE) || (c >= _IE && c <= YE_)); } /* * F_isdigit returns TRUE if 'c' is a Farsi digit */ int F_isdigit(c) int c; { return (c >= FARSI_0 && c <= FARSI_9); } /* * F_ischar returns TRUE if 'c' is a Farsi character. */ int F_ischar(c) int c; { return (c >= TEE_ && c <= YE_); } void farsi_fkey(cap) cmdarg_T *cap; { int c = cap->cmdchar; if (c == K_F8) { if (p_altkeymap) { if (curwin->w_farsi & W_R_L) { p_fkmap = 0; do_cmdline_cmd((char_u *)"set norl"); MSG(""); } else { p_fkmap = 1; do_cmdline_cmd((char_u *)"set rl"); MSG(""); } curwin->w_farsi = curwin->w_farsi ^ W_R_L; } } if (c == K_F9) { if (p_altkeymap && curwin->w_p_rl) { curwin->w_farsi = curwin->w_farsi ^ W_CONV; if (curwin->w_farsi & W_CONV) conv_to_pvim(); else conv_to_pstd(); } } }