/* * Convert the Farsi VIM into Farsi 3342 standard. */ void conv_to_pstd(void) { 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)); }
/// Convert the Farsi VIM into Farsi 3342 standard. static void conv_to_pstd(void) { char_u *ptr; int lnum, llen, i; // Following line contains Farsi encoded character. do_cmdline_cmd("%s/\232/\202\231/ge"); 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((const char *)farsi_text_2, hl_attr(HLF_S)); }
/// Convert the Farsi 3342 standard into Farsi VIM. void conv_to_pvim(void) { 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)); }
/// Map Farsi keyboard when in fkmap mode. int fkmap(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() != '\0') { 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; }
/// Map Farsi keyboard when in cmd_fkmap mode. /// /// @param c /// /// @return The mapped character. int cmdl_fkmap(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; }