/*
* 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;
}
