aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/nvim/buffer_defs.h2
-rw-r--r--src/nvim/charset.c17
-rw-r--r--src/nvim/edit.c42
-rw-r--r--src/nvim/eval.c1
-rw-r--r--src/nvim/ex_cmds.c7
-rw-r--r--src/nvim/ex_getln.c124
-rw-r--r--src/nvim/farsi.c2076
-rw-r--r--src/nvim/farsi.h174
-rw-r--r--src/nvim/getchar.c14
-rw-r--r--src/nvim/main.c19
-rw-r--r--src/nvim/normal.c7
-rw-r--r--src/nvim/option.c51
-rw-r--r--src/nvim/option_defs.h2
-rw-r--r--src/nvim/options.lua14
-rw-r--r--src/nvim/screen.c4
-rw-r--r--src/nvim/search.c22
-rw-r--r--src/nvim/testdir/test_farsi.vim133
-rw-r--r--src/nvim/window.c5
18 files changed, 58 insertions, 2656 deletions
diff --git a/src/nvim/buffer_defs.h b/src/nvim/buffer_defs.h
index 07d8ab2e0c..da1e3ce9c6 100644
--- a/src/nvim/buffer_defs.h
+++ b/src/nvim/buffer_defs.h
@@ -1189,8 +1189,6 @@ struct window_S {
ScopeDictDictItem w_winvar; ///< Variable for "w:" dictionary.
dict_T *w_vars; ///< Dictionary with w: variables.
- int w_farsi; /* for the window dependent Farsi functions */
-
/*
* The w_prev_pcmark field is used to check whether we really did jump to
* a new line after setting the w_pcmark. If not, then we revert to
diff --git a/src/nvim/charset.c b/src/nvim/charset.c
index 08ecff149c..ddff93d83b 100644
--- a/src/nvim/charset.c
+++ b/src/nvim/charset.c
@@ -14,7 +14,6 @@
#include "nvim/vim.h"
#include "nvim/ascii.h"
#include "nvim/charset.h"
-#include "nvim/farsi.h"
#include "nvim/func_attr.h"
#include "nvim/indent.h"
#include "nvim/main.h"
@@ -112,12 +111,6 @@ int buf_init_chartab(buf_T *buf, int global)
g_chartab[c++] = 1 + CT_PRINT_CHAR;
}
- if (p_altkeymap) {
- while (c < YE) {
- g_chartab[c++] = 1 + CT_PRINT_CHAR;
- }
- }
-
while (c < 256) {
if (c >= 0xa0) {
// UTF-8: bytes 0xa0 - 0xff are printable (latin1)
@@ -217,8 +210,7 @@ int buf_init_chartab(buf_T *buf, int global)
// "C".
if (!do_isalpha
|| mb_islower(c)
- || mb_isupper(c)
- || (p_altkeymap && (F_isalpha(c) || F_isdigit(c)))) {
+ || mb_isupper(c)) {
if (i == 0) {
// (re)set ID flag
if (tilde) {
@@ -230,9 +222,7 @@ int buf_init_chartab(buf_T *buf, int global)
// (re)set printable
// For double-byte we keep the cell width, so
// that we can detect it from the first byte.
- if (((c < ' ')
- || (c > '~')
- || (p_altkeymap && (F_isalpha(c) || F_isdigit(c))))) {
+ if (((c < ' ') || (c > '~'))) {
if (tilde) {
g_chartab[c] = (uint8_t)((g_chartab[c] & ~CT_CELL_MASK)
+ ((dy_flags & DY_UHEX) ? 4 : 2));
@@ -540,8 +530,7 @@ char_u *transchar(int c)
c = K_SECOND(c);
}
- if ((!chartab_initialized && (((c >= ' ') && (c <= '~'))
- || (p_altkeymap && F_ischar(c))))
+ if ((!chartab_initialized && (((c >= ' ') && (c <= '~'))))
|| ((c <= 0xFF) && vim_isprintc_strict(c))) {
// printable character
transchar_buf[i] = (char_u)c;
diff --git a/src/nvim/edit.c b/src/nvim/edit.c
index 62b35fa708..5a21c50fa6 100644
--- a/src/nvim/edit.c
+++ b/src/nvim/edit.c
@@ -21,7 +21,6 @@
#include "nvim/eval/typval.h"
#include "nvim/ex_docmd.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/getchar.h"
@@ -342,13 +341,7 @@ static void insert_enter(InsertState *s)
}
if (s->cmdchar == 'R') {
- if (p_fkmap && p_ri) {
- beep_flush();
- EMSG(farsi_text_3); // encoded in Farsi
- State = INSERT;
- } else {
- State = REPLACE;
- }
+ State = REPLACE;
} else if (s->cmdchar == 'V' || s->cmdchar == 'v') {
State = VREPLACE;
s->replaceState = VREPLACE;
@@ -630,10 +623,6 @@ static int insert_execute(VimState *state, int key)
s->c = hkmap(s->c); // Hebrew mode mapping
}
- if (p_fkmap && KeyTyped) {
- s->c = fkmap(s->c); // Farsi mode mapping
- }
-
// Special handling of keys while the popup menu is visible or wanted
// and the cursor is still in the completed word. Only when there is
// a match, skip this when no matches were found.
@@ -5344,7 +5333,6 @@ insertchar (
&& !ISSPECIAL(c)
&& MB_BYTE2LEN(c) == 1
&& i < INPUT_BUFLEN
- && !(p_fkmap && KeyTyped) // Farsi mode mapping moves cursor
&& (textwidth == 0
|| (virtcol += byte2cells(buf[i - 1])) < (colnr_T)textwidth)
&& !(!no_abbr && !vim_iswordc(c) && vim_iswordc(buf[i - 1]))) {
@@ -7379,19 +7367,7 @@ static void ins_ctrl_(void)
undisplay_dollar();
} else
revins_scol = -1;
- if (p_altkeymap) {
- /*
- * to be consistent also for redo command, using '.'
- * set arrow_used to true and stop it - causing to redo
- * characters entered in one mode (normal/reverse insert).
- */
- arrow_used = TRUE;
- (void)stop_arrow();
- p_fkmap = curwin->w_p_rl ^ p_ri;
- if (p_fkmap && p_ri)
- State = INSERT;
- } else
- p_hkmap = curwin->w_p_rl ^ p_ri; /* be consistent! */
+ p_hkmap = curwin->w_p_rl ^ p_ri; // be consistent!
showmode();
}
@@ -7444,12 +7420,6 @@ static bool ins_start_select(int c)
*/
static void ins_insert(int replaceState)
{
- if (p_fkmap && p_ri) {
- beep_flush();
- EMSG(farsi_text_3); /* encoded in Farsi */
- return;
- }
-
set_vim_var_string(VV_INSERTMODE, ((State & REPLACE_FLAG) ? "i" :
replaceState == VREPLACE ? "v" :
"r"), 1);
@@ -8423,12 +8393,10 @@ static bool ins_eol(int c)
if (virtual_active() && curwin->w_cursor.coladd > 0)
coladvance(getviscol());
- if (p_altkeymap && p_fkmap)
- fkmap(NL);
- /* NL in reverse insert will always start in the end of
- * current line. */
- if (revins_on)
+ // NL in reverse insert will always start in the end of current line.
+ if (revins_on) {
curwin->w_cursor.col += (colnr_T)STRLEN(get_cursor_pos_ptr());
+ }
AppendToRedobuff(NL_STR);
bool i = open_line(FORWARD,
diff --git a/src/nvim/eval.c b/src/nvim/eval.c
index d63e45d3c7..d18884ff07 100644
--- a/src/nvim/eval.c
+++ b/src/nvim/eval.c
@@ -10667,7 +10667,6 @@ static void f_has(typval_T *argvars, typval_T *rettv, FunPtr fptr)
"eval", /* always present, of course! */
"ex_extra",
"extra_search",
- "farsi",
"file_in_path",
"filterpipe",
"find_in_path",
diff --git a/src/nvim/ex_cmds.c b/src/nvim/ex_cmds.c
index b3ac456979..0b57f9cc3a 100644
--- a/src/nvim/ex_cmds.c
+++ b/src/nvim/ex_cmds.c
@@ -30,7 +30,6 @@
#include "nvim/ex_docmd.h"
#include "nvim/ex_eval.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/getchar.h"
@@ -3295,9 +3294,6 @@ static buf_T *do_sub(exarg_T *eap, proftime_T timeout,
delimiter = *cmd++; // remember delimiter character
has_second_delim = true;
} else { // find the end of the regexp
- if (p_altkeymap && curwin->w_p_rl) {
- lrF_sub(cmd);
- }
which_pat = RE_LAST; // use last used regexp
delimiter = *cmd++; // remember delimiter character
pat = cmd; // remember start of search pat
@@ -4298,9 +4294,6 @@ void ex_global(exarg_T *eap)
*cmd++ = NUL; /* replace it with a NUL */
}
- if (p_altkeymap && curwin->w_p_rl)
- lrFswap(pat,0);
-
if (search_regcomp(pat, RE_BOTH, which_pat, SEARCH_HIS, &regmatch) == FAIL) {
EMSG(_(e_invcmd));
return;
diff --git a/src/nvim/ex_getln.c b/src/nvim/ex_getln.c
index d70b81409d..27bd23a668 100644
--- a/src/nvim/ex_getln.c
+++ b/src/nvim/ex_getln.c
@@ -27,7 +27,6 @@
#include "nvim/ex_cmds2.h"
#include "nvim/ex_docmd.h"
#include "nvim/ex_eval.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/func_attr.h"
#include "nvim/getchar.h"
@@ -221,7 +220,6 @@ static bool getln_interrupted_highlight = false;
#endif
static int cmd_hkmap = 0; // Hebrew mapping during command line
-static int cmd_fkmap = 0; // Farsi mapping during command line
/// Internal entry point for cmdline mode.
///
@@ -421,8 +419,6 @@ static uint8_t *command_line_enter(int firstc, long count, int indent)
cmdmsg_rl = false;
- cmd_fkmap = 0;
-
ExpandCleanup(&s->xpc);
ccline.xpc = NULL;
@@ -552,10 +548,6 @@ static int command_line_execute(VimState *state, int key)
s->c = hkmap(s->c);
}
- if (cmd_fkmap) {
- s->c = cmdl_fkmap(s->c);
- }
-
if (cmdmsg_rl && !KeyStuffed) {
// Invert horizontal movements and operations. Only when
// typed by the user directly, not when the result of a
@@ -1180,10 +1172,6 @@ static int command_line_handle_key(CommandLineState *s)
case K_DEL:
case K_KDEL:
case Ctrl_W:
- if (cmd_fkmap && s->c == K_BS) {
- s->c = K_DEL;
- }
-
if (s->c == K_KDEL) {
s->c = K_DEL;
}
@@ -1279,13 +1267,7 @@ static int command_line_handle_key(CommandLineState *s)
case K_INS:
case K_KINS:
- // if Farsi mode set, we are in reverse insert mode -
- // Do not change the mode
- if (cmd_fkmap) {
- beep_flush();
- } else {
- ccline.overstrike = !ccline.overstrike;
- }
+ ccline.overstrike = !ccline.overstrike;
ui_cursor_shape(); // may show different cursor shape
return command_line_not_changed(s);
@@ -1740,16 +1722,7 @@ static int command_line_handle_key(CommandLineState *s)
if (!p_ari) {
break;
}
- if (p_altkeymap) {
- cmd_fkmap = !cmd_fkmap;
- if (cmd_fkmap) {
- // in Farsi always in Insert mode
- ccline.overstrike = false;
- }
- } else {
- // Hebrew is default
- cmd_hkmap = !cmd_hkmap;
- }
+ cmd_hkmap = !cmd_hkmap;
return command_line_not_changed(s);
default:
@@ -3217,40 +3190,40 @@ void put_on_cmdline(char_u *str, int len, int redraw)
msg_clr_eos();
msg_no_more = FALSE;
}
- /*
- * If we are in Farsi command mode, the character input must be in
- * Insert mode. So do not advance the cmdpos.
- */
- if (!cmd_fkmap) {
- if (KeyTyped) {
- m = Columns * Rows;
- if (m < 0) /* overflow, Columns or Rows at weird value */
- m = MAXCOL;
- } else
+ if (KeyTyped) {
+ m = Columns * Rows;
+ if (m < 0) { // overflow, Columns or Rows at weird value
m = MAXCOL;
- for (i = 0; i < len; ++i) {
- c = cmdline_charsize(ccline.cmdpos);
- /* count ">" for a double-wide char that doesn't fit. */
- if (has_mbyte)
- correct_cmdspos(ccline.cmdpos, c);
- /* Stop cursor at the end of the screen, but do increment the
- * insert position, so that entering a very long command
- * works, even though you can't see it. */
- if (ccline.cmdspos + c < m)
- ccline.cmdspos += c;
- if (has_mbyte) {
- c = (*mb_ptr2len)(ccline.cmdbuff + ccline.cmdpos) - 1;
- if (c > len - i - 1)
- c = len - i - 1;
- ccline.cmdpos += c;
- i += c;
+ }
+ } else {
+ m = MAXCOL;
+ }
+ for (i = 0; i < len; i++) {
+ c = cmdline_charsize(ccline.cmdpos);
+ // count ">" for a double-wide char that doesn't fit.
+ if (has_mbyte) {
+ correct_cmdspos(ccline.cmdpos, c);
+ }
+ // Stop cursor at the end of the screen, but do increment the
+ // insert position, so that entering a very long command
+ // works, even though you can't see it.
+ if (ccline.cmdspos + c < m) {
+ ccline.cmdspos += c;
+ }
+ if (has_mbyte) {
+ c = (*mb_ptr2len)(ccline.cmdbuff + ccline.cmdpos) - 1;
+ if (c > len - i - 1) {
+ c = len - i - 1;
}
- ++ccline.cmdpos;
+ ccline.cmdpos += c;
+ i += c;
}
+ ccline.cmdpos++;
}
- if (redraw)
+ if (redraw) {
msg_check();
+ }
}
/*
@@ -5999,37 +5972,12 @@ int hist_type2char(int type)
return NUL;
}
-/*
- * Write a character at the current cursor+offset position.
- * It is directly written into the command buffer block.
- */
-void cmd_pchar(int c, int offset)
-{
- if (ccline.cmdpos + offset >= ccline.cmdlen || ccline.cmdpos + offset < 0) {
- EMSG(_("E198: cmd_pchar beyond the command length"));
- return;
- }
- ccline.cmdbuff[ccline.cmdpos + offset] = (char_u)c;
- ccline.cmdbuff[ccline.cmdlen] = NUL;
-}
-
-int cmd_gchar(int offset)
-{
- if (ccline.cmdpos + offset >= ccline.cmdlen || ccline.cmdpos + offset < 0) {
- /* EMSG(_("cmd_gchar beyond the command length")); */
- return NUL;
- }
- return (int)ccline.cmdbuff[ccline.cmdpos + offset];
-}
-
-/*
- * Open a window on the current command line and history. Allow editing in
- * the window. Returns when the window is closed.
- * Returns:
- * CR if the command is to be executed
- * Ctrl_C if it is to be abandoned
- * K_IGNORE if editing continues
- */
+/// Open a window on the current command line and history. Allow editing in
+/// the window. Returns when the window is closed.
+/// Returns:
+/// CR if the command is to be executed
+/// Ctrl_C if it is to be abandoned
+/// K_IGNORE if editing continues
static int open_cmdwin(void)
{
struct cmdline_info save_ccline;
diff --git a/src/nvim/farsi.c b/src/nvim/farsi.c
deleted file mode 100644
index 3d714f0fa6..0000000000
--- a/src/nvim/farsi.c
+++ /dev/null
@@ -1,2076 +0,0 @@
-// This is an open source non-commercial project. Dear PVS-Studio, please check
-// it. PVS-Studio Static Code Analyzer for C, C++ and C#: http://www.viva64.com
-
-/// @file farsi.c
-///
-/// Functions for Farsi language
-
-#include <assert.h>
-#include <stdbool.h>
-
-#include "nvim/cursor.h"
-#include "nvim/edit.h"
-#include "nvim/ex_docmd.h"
-#include "nvim/ex_eval.h"
-#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
-#include "nvim/getchar.h"
-#include "nvim/memline.h"
-#include "nvim/message.h"
-#include "nvim/misc1.h"
-#include "nvim/screen.h"
-#include "nvim/strings.h"
-#include "nvim/vim.h"
-#include "nvim/ascii.h"
-
-
-#define SRC_EDT 0
-#define SRC_CMD 1
-
-#define AT_CURSOR 0
-
-// Special Farsi text messages
-
-const char_u farsi_text_1[] = {
- YE_, _SIN, RE, ALEF_, _FE, ' ', 'V', 'I', 'M', ' ', F_HE, _BE, ' ', SHIN, RE,
- _GAF, DAL, ' ', NOON, ALEF_, _YE, ALEF_, _PE, '\0'
-};
-
-const char_u farsi_text_2[] = {
- YE_, _SIN, RE, ALEF_, _FE, ' ', FARSI_3, FARSI_3, FARSI_4, FARSI_2, ' ', DAL,
- RE, ALEF, DAL, _NOON, ALEF_, _TE, _SIN, ALEF, ' ', F_HE, _BE, ' ', SHIN, RE,
- _GAF, DAL, ' ', NOON, ALEF_, _YE, ALEF_, _PE, '\0'
-};
-
-const char_u farsi_text_3[] = {
- DAL, WAW, _SHIN, _YE, _MIM, _NOON, ' ', YE_, _NOON, ALEF_, _BE, _YE, _TE,
- _SHIN, _PE, ' ', 'R', 'E', 'P', 'L', 'A', 'C', 'E', ' ', NOON, ALEF_, _MIM,
- RE, _FE, ZE, ALEF, ' ', 'R', 'E', 'V', 'E', 'R', 'S', 'E', ' ', 'I', 'N', 'S',
- 'E', 'R', 'T', ' ', SHIN, WAW, RE, ' ', ALEF_, _BE, ' ', YE_, _SIN, RE, ALEF_,
- _FE, ' ', RE, DAL, ' ', RE, ALEF_, _KAF, ' ', MIM, ALEF_, _GAF, _NOON, _HE,
- '\0'
-};
-
-const char_u farsi_text_5[] = {
- ' ', YE_, _SIN, RE, ALEF_, _FE, '\0'
-};
-
-
-#ifdef INCLUDE_GENERATED_DECLARATIONS
-# include "farsi.c.generated.h"
-#endif
-
-/// Convert the given Farsi character into a _X or _X_ type
-///
-/// @param c The character to convert.
-///
-/// @return Farsi character converted to a _X or _X_ type.
-static char_u toF_Xor_X_(int c)
-{
- char_u tempc;
-
- switch (c) {
- 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 AYN : tempc = _AYN ; break;
- case AYN_ : tempc = _AYN_ ; break;
- case GHAYN : tempc = _GHAYN ; break;
- case GHAYN_ : tempc = _GHAYN_ ; break;
- case FE : tempc = _FE ; break;
- case GHAF : tempc = _GHAF ; break;
- case KAF : tempc = _KAF ; break;
- case GAF : tempc = _GAF ; break;
- case LAM : tempc = _LAM ; break;
- case MIM : tempc = _MIM ; break;
- case NOON : tempc = _NOON ; break;
- case YE :
- case YE_ : tempc = _YE ; break;
- case YEE :
- case YEE_ : tempc = _YEE ; break;
- case IE :
- case IE_ : tempc = _IE ; break;
- case F_HE :
- tempc = _HE;
-
- if (p_ri
- && (curwin->w_cursor.col + 1
- < (colnr_T)STRLEN(get_cursor_line_ptr()))) {
- inc_cursor();
- if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) {
- tempc = _HE_;
- }
- dec_cursor();
- }
-
- if (!p_ri && STRLEN(get_cursor_line_ptr())) {
- dec_cursor();
- if (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR)) {
- tempc = _HE_;
- }
- inc_cursor();
- }
-
- break;
-
- default:
- tempc = 0;
- }
-
- return tempc;
-}
-
-/// Convert the given Farsi character into Farsi capital character.
-///
-/// @param c The character to convert.
-///
-/// @return Character converted to the Farsi capital leter.
-static char_u toF_TyA(char_u c)
-{
- char_u tempc;
-
- switch (c) {
- case ALEF_ : tempc = ALEF ; break;
- case ALEF_U_H_ : tempc = ALEF_U_H ; break;
- 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 _AYN :
- case AYN_ :
- case _AYN_ : tempc = AYN ; break;
- case _GHAYN :
- case GHAYN_ :
- case _GHAYN_ : tempc = GHAYN ; break;
- case _FE : tempc = FE ; break;
- case _GHAF : tempc = GHAF ; break;
- case _KAF : tempc = KAF ; break;
- case _GAF : tempc = GAF ; break;
- case _LAM : tempc = LAM ; break;
- case _MIM : tempc = MIM ; break;
- case _NOON : tempc = NOON ; break;
- case _YE :
- case YE_ : tempc = YE ; break;
- case _YEE :
- case YEE_ : tempc = YEE ; break;
- case TEE_ : tempc = TEE ; break;
- case _IE :
- case IE_ : tempc = IE ; break;
- case _HE :
- case _HE_ : tempc = F_HE ; break;
- default : tempc = c ;
- }
-
- return tempc;
-}
-
-/// 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.
-///
-/// @param src
-/// @param offset
-///
-/// @return true if the character under the cursor+offset is a join type.
-static bool F_is_TyB_TyC_TyD(int src, int 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.
-///
-/// @param c The character to check.
-///
-/// @return true if the Farsi character is one of the terminating only types.
-static bool F_is_TyE(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.
-///
-/// @param c The character to check.
-///
-/// @return true if the Farsi character is one of the none-leading types.
-static bool F_is_TyC_TyD(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.
-///
-/// @param c The character to convert.
-///
-/// @return The character converted into a leading type.
-static char_u toF_TyB(int c)
-{
- char_u tempc;
-
- switch (c) {
- case ALEF_ : tempc = ALEF ; break;
- case ALEF_U_H_ : tempc = ALEF_U_H ; break;
- case _AYN_ : tempc = _AYN ; break;
- case AYN_ : tempc = AYN ; break; // exception - there are many
- case _GHAYN_ : tempc = _GHAYN ; break;
- case GHAYN_ : tempc = GHAYN ; break; // exception - there are many
- 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:
- assert(c >= 0 && c <= UCHAR_MAX);
- tempc = (char_u)c;
- }
-
- return tempc;
-}
-
-/// Overwrite the current redo and cursor characters + left adjust
-///
-/// @param c
-static void put_curr_and_l_to_X(char_u c)
-{
- int tempc;
-
- if (curwin->w_p_rl && p_ri) {
- return;
- }
-
- if ((curwin->w_cursor.col < (colnr_T)STRLEN(get_cursor_line_ptr()))) {
- if (!p_ri || curwin->w_cursor.col) {
- 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(char_u 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(void)
-{
- int curc;
- char_u tempc;
-
- 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_(void)
-{
- char_u 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(void)
-{
- int tempc;
-
- tempc = gchar_cursor();
-
- if (curwin->w_cursor.col + 1 < (colnr_T)STRLEN(get_cursor_line_ptr())) {
- inc_cursor();
- if ((tempc == F_HE) && (F_is_TyB_TyC_TyD(SRC_EDT, AT_CURSOR))) {
- tempc = _HE_;
- dec_cursor();
- put_and_redo((char_u)tempc);
- return;
- }
- dec_cursor();
- }
-
- if ((tempc = toF_Xor_X_(tempc)) != 0) {
- put_and_redo((char_u)tempc);
- }
-}
-
-/// Change the character left to the cursor to a _X_ or X_ type
-static void chg_l_to_X_orX_(void)
-{
- int tempc;
-
- if ((curwin->w_cursor.col != 0)
- && (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(get_cursor_line_ptr()))) {
- 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((char_u)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(void)
-{
- char_u tempc;
-
- if ((curwin->w_cursor.col != 0)
- && (curwin->w_cursor.col + 1 == (colnr_T)STRLEN(get_cursor_line_ptr()))) {
- 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_(void)
-{
- int tempc;
- char_u 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(int c)
-{
- int tempc;
- int insert_mode = (State & INSERT);
- static int revins = 0;
-
- if (IS_SPECIAL(c)) {
- return c;
- }
-
- if (insert_mode) {
- if (ascii_isdigit(c)
- || ((c == '.'
- || c == '+'
- || c == '-'
- || c == '^'
- || c == '%'
- || c == '#'
- || c == '=')
- && revins)) {
- // Numbers are entered left-to-right.
- 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) {
- // Stop entering number.
- 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 && insert_mode) {
- // 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 (insert_mode) {
- 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((char_u)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((char_u)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((char_u)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((char_u)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(get_cursor_line_ptr())) {
- 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;
- }
- 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(get_cursor_line_ptr())) {
- if (p_ri) {
- chg_c_to_X_or_X();
- }
- }
-
- if (!p_ri) {
- if (!curwin->w_cursor.col) {
- return ALEF;
- }
- 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(get_cursor_line_ptr())) {
- 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(get_cursor_line_ptr())) {
- if (p_ri) {
- chg_c_to_X_or_X();
- }
- }
-
- if (!p_ri) {
- if (!curwin->w_cursor.col) {
- return TEE;
- }
- 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(get_cursor_line_ptr())) {
- 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(get_cursor_line_ptr())) {
- 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(get_cursor_line_ptr())) {
- 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.
-///
-/// @param c The character to convert.
-///
-/// @return The non-leading Farsi character converted to a leading type.
-static char_u toF_leading(char_u c)
-{
- char_u tempc;
-
- switch (c) {
- case ALEF_ : tempc = ALEF ; break;
- case ALEF_U_H_ : tempc = ALEF_U_H ; break;
- 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 AYN :
- case AYN_ :
- case _AYN_ : tempc = _AYN ; break;
- case GHAYN :
- case GHAYN_ :
- case _GHAYN_ : tempc = _GHAYN ; break;
- case FE : tempc = _FE ; break;
- case GHAF : tempc = _GHAF ; break;
- case KAF : tempc = _KAF ; break;
- case GAF : tempc = _GAF ; break;
- case LAM : tempc = _LAM ; break;
- case MIM : tempc = _MIM ; break;
- case NOON : tempc = _NOON ; break;
- case _HE_ :
- case F_HE : tempc = _HE ; break;
- case YE :
- case YE_ : tempc = _YE ; break;
- case IE_ :
- case IE : tempc = _IE ; break;
- case YEE :
- case YEE_ : tempc = _YEE ; break;
- default : tempc = c;
- }
-
- return tempc;
-}
-
-/// Convert a given Farsi char into right joining type.
-///
-/// @param c The character to convert.
-///
-/// @return The Farsi character converted into a right joining type
-static char_u toF_Rjoin(char_u c)
-{
- char_u tempc;
-
- switch (c) {
- case ALEF : tempc = ALEF_ ; break;
- case ALEF_U_H : tempc = ALEF_U_H_ ; break;
- 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 AYN :
- case AYN_ :
- case _AYN : tempc = _AYN_ ; break;
- case GHAYN :
- case GHAYN_ :
- case _GHAYN_ : tempc = _GHAYN_ ; break;
- case FE : tempc = _FE ; break;
- case GHAF : tempc = _GHAF ; break;
- case KAF : tempc = _KAF ; break;
- case GAF : tempc = _GAF ; break;
- case LAM : tempc = _LAM ; break;
- case MIM : tempc = _MIM ; break;
- case NOON : tempc = _NOON ; break;
- case _HE :
- case F_HE : tempc = _HE_ ; break;
- case YE :
- case YE_ : tempc = _YE ; break;
- case IE_ :
- case IE : tempc = _IE ; break;
- case TEE : tempc = TEE_ ; break;
- case YEE :
- case YEE_ : tempc = _YEE ; break;
- default : tempc = c ;
- }
-
- return tempc;
-}
-
-/// Can a given Farsi character join via its left edj.
-///
-/// @param c The character to check.
-///
-/// @return true if the character can join via its left edj.
-static bool canF_Ljoin(char_u 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.
-///
-/// @param c
-///
-/// @return true if the character can join via its right edj.
-static bool canF_Rjoin(char_u 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.
-///
-/// @param c
-///
-/// @return true if the character is a terminating type.
-static bool F_isterm(char_u 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 an ending type.
-///
-/// @param c The character to convert.
-///
-/// @return The character converted into an ending type.
-static char_u toF_ending(char_u c)
-{
- char_u tempc;
-
- switch (c) {
- 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 _AYN : tempc = AYN ; break;
- case _AYN_ : tempc = AYN_ ; break;
- case _GHAYN : tempc = GHAYN ; break;
- case _GHAYN_ : tempc = GHAYN_ ; 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 _LAM : tempc = LAM ; break;
- case _MIM : tempc = MIM ; break;
- case _NOON : tempc = NOON ; break;
- case _YE : tempc = YE_ ; break;
- case YE_ : tempc = YE ; break;
- case _YEE : tempc = YEE_ ; break;
- case YEE_ : tempc = YEE ; break;
- case TEE : tempc = TEE_ ; break;
- case _IE : tempc = IE_ ; break;
- case IE_ : tempc = IE ; break;
- case _HE :
- case _HE_ : tempc = F_HE ; break;
- default : tempc = c ;
- }
-
- return tempc;
-}
-
-/// Convert the Farsi 3342 standard into Farsi VIM.
-static 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 (i < llen && canF_Rjoin(ptr[i])) {
- 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("%s/\202\231/\232/ge");
- do_cmdline_cmd("%s/\201\231/\370\334/ge");
-
- // Assume the screen has been messed up: clear it and redraw.
- redraw_later(NOT_VALID);
- MSG_ATTR((const char *)farsi_text_1, 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(NOT_VALID);
- msg_attr((const char *)farsi_text_2, HL_ATTR(HLF_S));
-}
-
-/// left-right swap the characters in buf[len].
-///
-/// @param buf
-/// @param len
-static void lrswapbuf(char_u *buf, int len)
-{
- char_u *s, *e;
- char_u 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
-///
-/// @param ibuf
-///
-/// @return The buffer with the characters swapped.
-char_u* lrswap(char_u *ibuf)
-{
- if ((ibuf != NULL) && (*ibuf != NUL)) {
- lrswapbuf(ibuf, (int)STRLEN(ibuf));
- }
- return ibuf;
-}
-
-/// swap all the Farsi characters in reverse direction
-///
-/// @param cmdbuf
-/// @param .
-///
-/// @return The buffer with all Farsi characters swapped.
-char_u* lrFswap(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().
-///
-/// @param ibuf
-///
-/// @return The buffer with the characters in the search path and substitute
-/// section reversed.
-char_u* lrF_sub(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] == '\\') {
- // empty
- }
-
- 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.
-///
-/// @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((char_u)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 in the Farsi alphabet.
-///
-/// @param c The character to check.
-///
-/// @return true if 'c' is a Farsi alphabet character.
-bool F_isalpha(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
-///
-/// @param c The character to check.
-///
-/// @return true if 'c' is a Farsi digit.
-bool F_isdigit(int c)
-{
- return c >= FARSI_0 && c <= FARSI_9;
-}
-
-/// F_ischar returns true if 'c' is a Farsi character.
-///
-/// @param c The character to check.
-///
-/// @return true if 'c' is a Farsi character.
-bool F_ischar(int c)
-{
- return c >= TEE_ && c <= YE_;
-}
-
-void farsi_f8(cmdarg_T *cap FUNC_ATTR_UNUSED)
-{
- if (p_altkeymap) {
- if (curwin->w_farsi & W_R_L) {
- p_fkmap = 0;
- do_cmdline_cmd("set norl");
- MSG("");
- } else {
- p_fkmap = 1;
- do_cmdline_cmd("set rl");
- MSG("");
- }
-
- curwin->w_farsi = curwin->w_farsi ^ W_R_L;
- }
-}
-
-void farsi_f9(cmdarg_T *cap FUNC_ATTR_UNUSED)
-{
- 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();
- }
- }
-}
diff --git a/src/nvim/farsi.h b/src/nvim/farsi.h
deleted file mode 100644
index 003ea140f2..0000000000
--- a/src/nvim/farsi.h
+++ /dev/null
@@ -1,174 +0,0 @@
-/// @file farsi.h
-///
-/// Farsi characters are categorized into following types:
-///
-/// TyA (for capital letter representation)
-/// TyB (for types that look like _X e.g. AYN)
-/// TyC (for types that look like X_ e.g. YE_)
-/// TyD (for types that look like _X_ e.g. _AYN_)
-/// TyE (for types that look like X e.g. RE)
-
-#ifndef NVIM_FARSI_H
-#define NVIM_FARSI_H
-
-#include "nvim/normal.h"
-#include "nvim/types.h"
-
-// Farsi character set definition
-
-// Begin of the non-standard part
-
-#define TEE_ 0x80
-#define ALEF_U_H_ 0x81
-#define ALEF_ 0x82
-#define _BE 0x83
-#define _PE 0x84
-#define _TE 0x85
-#define _SE 0x86
-#define _JIM 0x87
-#define _CHE 0x88
-#define _HE_J 0x89
-#define _XE 0x8a
-#define _SIN 0x8b
-#define _SHIN 0x8c
-#define _SAD 0x8d
-#define _ZAD 0x8e
-#define _AYN 0x8f
-#define _AYN_ 0x90
-#define AYN_ 0x91
-#define _GHAYN 0x92
-#define _GHAYN_ 0x93
-#define GHAYN_ 0x94
-#define _FE 0x95
-#define _GHAF 0x96
-#define _KAF 0x97
-#define _GAF 0x98
-#define _LAM 0x99
-#define LA 0x9a
-#define _MIM 0x9b
-#define _NOON 0x9c
-#define _HE 0x9d
-#define _HE_ 0x9e
-#define _YE 0x9f
-#define _IE 0xec
-#define IE_ 0xed
-#define IE 0xfb
-#define _YEE 0xee
-#define YEE_ 0xef
-#define YE_ 0xff
-
-// End of the non-standard part
-
-// Standard part
-
-#define F_BLANK 0xa0 // Farsi ' ' (SP) character
-#define F_PSP 0xa1 // PSP for capitalizing of a character
-#define F_PCN 0xa2 // PCN for redefining of the hamye meaning
-#define F_EXCL 0xa3 // Farsi ! character
-#define F_CURRENCY 0xa4 // Farsi Rial character
-#define F_PERCENT 0xa5 // Farsi % character
-#define F_PERIOD 0xa6 // Farsi '.' character
-#define F_COMMA 0xa7 // Farsi ',' character
-#define F_LPARENT 0xa8 // Farsi '(' character
-#define F_RPARENT 0xa9 // Farsi ')' character
-#define F_MUL 0xaa // Farsi 'x' character
-#define F_PLUS 0xab // Farsi '+' character
-#define F_BCOMMA 0xac // Farsi comma character
-#define F_MINUS 0xad // Farsi '-' character
-#define F_DIVIDE 0xae // Farsi divide (/) character
-#define F_SLASH 0xaf // Farsi '/' character
-
-#define FARSI_0 0xb0
-#define FARSI_1 0xb1
-#define FARSI_2 0xb2
-#define FARSI_3 0xb3
-#define FARSI_4 0xb4
-#define FARSI_5 0xb5
-#define FARSI_6 0xb6
-#define FARSI_7 0xb7
-#define FARSI_8 0xb8
-#define FARSI_9 0xb9
-
-#define F_DCOLON 0xba // Farsi ':' character
-#define F_SEMICOLON 0xbb // Farsi ';' character
-#define F_GREATER 0xbc // Farsi '>' character
-#define F_EQUALS 0xbd // Farsi '=' character
-#define F_LESS 0xbe // Farsi '<' character
-#define F_QUESTION 0xbf // Farsi ? character
-
-#define ALEF_A 0xc0
-#define ALEF 0xc1
-#define HAMZE 0xc2
-#define BE 0xc3
-#define PE 0xc4
-#define TE 0xc5
-#define SE 0xc6
-#define JIM 0xc7
-#define CHE 0xc8
-#define HE_J 0xc9
-#define XE 0xca
-#define DAL 0xcb
-#define ZAL 0xcc
-#define RE 0xcd
-#define ZE 0xce
-#define JE 0xcf
-#define SIN 0xd0
-#define SHIN 0xd1
-#define SAD 0xd2
-#define ZAD 0xd3
-#define _TA 0xd4
-#define _ZA 0xd5
-#define AYN 0xd6
-#define GHAYN 0xd7
-#define FE 0xd8
-#define GHAF 0xd9
-#define KAF 0xda
-#define GAF 0xdb
-#define LAM 0xdc
-#define MIM 0xdd
-#define NOON 0xde
-#define WAW 0xdf
-#define F_HE 0xe0 // F_ added for name clash with Perl
-#define YE 0xe1
-#define TEE 0xfc
-#define _KAF_H 0xfd
-#define YEE 0xfe
-
-#define F_LBRACK 0xe2 // Farsi '[' character
-#define F_RBRACK 0xe3 // Farsi ']' character
-#define F_LBRACE 0xe4 // Farsi '{' character
-#define F_RBRACE 0xe5 // Farsi '}' character
-#define F_LQUOT 0xe6 // Farsi left quotation character
-#define F_RQUOT 0xe7 // Farsi right quotation character
-#define F_STAR 0xe8 // Farsi '*' character
-#define F_UNDERLINE 0xe9 // Farsi '_' character
-#define F_PIPE 0xea // Farsi '|' character
-#define F_BSLASH 0xeb // Farsi '\' character
-
-#define MAD 0xf0
-#define JAZR 0xf1
-#define OW 0xf2
-#define MAD_N 0xf3
-#define JAZR_N 0xf4
-#define OW_OW 0xf5
-#define TASH 0xf6
-#define OO 0xf7
-#define ALEF_U_H 0xf8
-#define WAW_H 0xf9
-#define ALEF_D_H 0xfa
-
-// definitions for the window dependent functions (w_farsi).
-#define W_CONV 0x1
-#define W_R_L 0x2
-
-// special Farsi text messages
-extern const char_u farsi_text_1[];
-extern const char_u farsi_text_2[];
-extern const char_u farsi_text_3[];
-extern const char_u farsi_text_5[];
-
-
-#ifdef INCLUDE_GENERATED_DECLARATIONS
-# include "farsi.h.generated.h"
-#endif
-#endif // NVIM_FARSI_H
diff --git a/src/nvim/getchar.c b/src/nvim/getchar.c
index b24acb5ebb..139bf7b802 100644
--- a/src/nvim/getchar.c
+++ b/src/nvim/getchar.c
@@ -25,7 +25,6 @@
#include "nvim/eval.h"
#include "nvim/ex_docmd.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/func_attr.h"
#include "nvim/main.h"
#include "nvim/mbyte.h"
@@ -2689,16 +2688,9 @@ do_map (
}
}
- /*
- * When in right-to-left mode and alternate keymap option set,
- * reverse the character flow in the rhs in Farsi.
- */
- if (p_altkeymap && curwin->w_p_rl)
- lrswap(rhs);
-
- /*
- * check arguments and translate function keys
- */
+ //
+ // check arguments and translate function keys
+ //
if (haskey) {
len = (int)STRLEN(keys);
if (len > MAXMAPLEN) { /* maximum length of MAXMAPLEN chars */
diff --git a/src/nvim/main.c b/src/nvim/main.c
index c0dea196fb..251a54ad5b 100644
--- a/src/nvim/main.c
+++ b/src/nvim/main.c
@@ -424,16 +424,10 @@ int main(int argc, char **argv)
p_ut = 1;
}
- if (curwin->w_p_rl && p_altkeymap) {
- p_hkmap = FALSE; /* Reset the Hebrew keymap mode */
- curwin->w_p_arab = FALSE; /* Reset the Arabic keymap mode */
- p_fkmap = TRUE; /* Set the Farsi keymap mode */
- }
-
- /*
- * Read in registers, history etc, from the ShaDa file.
- * This is where v:oldfiles gets filled.
- */
+ //
+ // Read in registers, history etc, from the ShaDa file.
+ // This is where v:oldfiles gets filled.
+ //
if (*p_shada != NUL) {
shada_read_everything(NULL, false, true);
TIME_MSG("reading ShaDa");
@@ -915,11 +909,6 @@ static void command_line_scan(mparm_T *parmp)
case 'f': { // "-f" GUI: run in foreground.
break;
}
- case 'F': { // "-F" start in Farsi mode: rl + fkmap set.
- p_fkmap = true;
- set_option_value("rl", 1L, NULL, 0);
- break;
- }
case '?': // "-?" give help message (for MS-Windows)
case 'h': { // "-h" give help message
usage();
diff --git a/src/nvim/normal.c b/src/nvim/normal.c
index d361d81ac7..d857d1a79e 100644
--- a/src/nvim/normal.c
+++ b/src/nvim/normal.c
@@ -28,7 +28,6 @@
#include "nvim/ex_cmds2.h"
#include "nvim/ex_docmd.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/getchar.h"
@@ -340,8 +339,6 @@ static const struct nv_cmd {
{ K_F1, nv_help, NV_NCW, 0 },
{ K_XF1, nv_help, NV_NCW, 0 },
{ K_SELECT, nv_select, 0, 0 },
- { K_F8, farsi_f8, 0, 0 },
- { K_F9, farsi_f9, 0, 0 },
{ K_EVENT, nv_event, NV_KEEPREG, 0 },
{ K_COMMAND, nv_colon, 0, 0 },
};
@@ -719,10 +716,6 @@ static void normal_get_additional_char(NormalState *s)
if (p_hkmap && lang && KeyTyped) {
*cp = hkmap(*cp);
}
- // adjust Farsi mapped char
- if (p_fkmap && lang && KeyTyped) {
- *cp = fkmap(*cp);
- }
}
// When the next character is CTRL-\ a following CTRL-N means the
diff --git a/src/nvim/option.c b/src/nvim/option.c
index fc1fab834e..2346c84b54 100644
--- a/src/nvim/option.c
+++ b/src/nvim/option.c
@@ -3945,51 +3945,6 @@ static char *set_bool_option(const int opt_idx, char_u *const varp,
if (errmsg != NULL)
EMSG(_(errmsg));
}
- } else if ((int *)varp == &p_altkeymap) {
- if (old_value != p_altkeymap) {
- if (!p_altkeymap) {
- p_hkmap = p_fkmap;
- p_fkmap = 0;
- } else {
- p_fkmap = p_hkmap;
- p_hkmap = 0;
- }
- (void)init_chartab();
- }
- }
-
- /*
- * In case some second language keymapping options have changed, check
- * and correct the setting in a consistent way.
- */
-
- /*
- * If hkmap or fkmap are set, reset Arabic keymapping.
- */
- if ((p_hkmap || p_fkmap) && p_altkeymap) {
- p_altkeymap = p_fkmap;
- curwin->w_p_arab = FALSE;
- (void)init_chartab();
- }
-
- /*
- * If hkmap set, reset Farsi keymapping.
- */
- if (p_hkmap && p_altkeymap) {
- p_altkeymap = 0;
- p_fkmap = 0;
- curwin->w_p_arab = FALSE;
- (void)init_chartab();
- }
-
- /*
- * If fkmap set, reset Hebrew keymapping.
- */
- if (p_fkmap && !p_altkeymap) {
- p_altkeymap = 1;
- p_hkmap = 0;
- curwin->w_p_arab = FALSE;
- (void)init_chartab();
}
if ((int *)varp == &curwin->w_p_arab) {
@@ -4027,10 +3982,6 @@ static char *set_bool_option(const int opt_idx, char_u *const varp,
// Force-set the necessary keymap for arabic.
set_option_value("keymap", 0L, "arabic", OPT_LOCAL);
- p_altkeymap = 0;
- p_hkmap = 0;
- p_fkmap = 0;
- (void)init_chartab();
} else {
/*
* 'arabic' is reset, handle various sub-settings.
@@ -5664,8 +5615,6 @@ void win_copy_options(win_T *wp_from, win_T *wp_to)
{
copy_winopt(&wp_from->w_onebuf_opt, &wp_to->w_onebuf_opt);
copy_winopt(&wp_from->w_allbuf_opt, &wp_to->w_allbuf_opt);
- /* Is this right? */
- wp_to->w_farsi = wp_from->w_farsi;
}
/*
diff --git a/src/nvim/option_defs.h b/src/nvim/option_defs.h
index ccb0496495..6dc5e418fc 100644
--- a/src/nvim/option_defs.h
+++ b/src/nvim/option_defs.h
@@ -464,8 +464,6 @@ EXTERN int p_hls; // 'hlsearch'
EXTERN long p_hi; // 'history'
EXTERN int p_hkmap; // 'hkmap'
EXTERN int p_hkmapp; // 'hkmapp'
-EXTERN int p_fkmap; // 'fkmap'
-EXTERN int p_altkeymap; // 'altkeymap'
EXTERN int p_arshape; // 'arabicshape'
EXTERN int p_icon; // 'icon'
EXTERN char_u *p_iconstring; // 'iconstring'
diff --git a/src/nvim/options.lua b/src/nvim/options.lua
index b8f128103c..2398f9d61c 100644
--- a/src/nvim/options.lua
+++ b/src/nvim/options.lua
@@ -82,13 +82,6 @@ return {
defaults={if_true={vi=false}}
},
{
- full_name='altkeymap', abbreviation='akm',
- type='bool', scope={'global'},
- vi_def=true,
- varname='p_altkeymap',
- defaults={if_true={vi=false}}
- },
- {
full_name='ambiwidth', abbreviation='ambw',
type='string', scope={'global'},
vi_def=true,
@@ -822,13 +815,6 @@ return {
defaults={if_true={vi=true}}
},
{
- full_name='fkmap', abbreviation='fk',
- type='bool', scope={'global'},
- vi_def=true,
- varname='p_fkmap',
- defaults={if_true={vi=false}}
- },
- {
full_name='foldclose', abbreviation='fcl',
type='string', list='onecomma', scope={'global'},
deny_duplicates=true,
diff --git a/src/nvim/screen.c b/src/nvim/screen.c
index 5ac90ab601..81d463a70c 100644
--- a/src/nvim/screen.c
+++ b/src/nvim/screen.c
@@ -80,7 +80,6 @@
#include "nvim/ex_cmds2.h"
#include "nvim/ex_getln.h"
#include "nvim/edit.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/indent.h"
@@ -6499,9 +6498,6 @@ int showmode(void)
if (p_hkmap) {
MSG_PUTS_ATTR(_(" Hebrew"), attr);
}
- if (p_fkmap) {
- MSG_PUTS_ATTR(farsi_text_5, attr);
- }
if (State & LANGMAP) {
if (curwin->w_p_arab) {
MSG_PUTS_ATTR(_(" Arabic"), attr);
diff --git a/src/nvim/search.c b/src/nvim/search.c
index 5f0ff96f95..d635763acc 100644
--- a/src/nvim/search.c
+++ b/src/nvim/search.c
@@ -21,7 +21,6 @@
#include "nvim/ex_cmds.h"
#include "nvim/ex_cmds2.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/func_attr.h"
@@ -1198,18 +1197,14 @@ int do_search(
}
}
- if (p_altkeymap && curwin->w_p_rl)
- lrFswap(searchstr,0);
-
c = searchit(curwin, curbuf, &pos, dirc == '/' ? FORWARD : BACKWARD,
- searchstr, count, (spats[0].off.end * SEARCH_END
- + (options &
- (SEARCH_KEEP + SEARCH_PEEK +
- SEARCH_HIS
- + SEARCH_MSG + SEARCH_START
- + ((pat != NULL && *pat ==
- ';') ? 0 : SEARCH_NOOF)))),
- RE_LAST, (linenr_T)0, tm);
+ searchstr, count,
+ (spats[0].off.end * SEARCH_END
+ + (options
+ & (SEARCH_KEEP + SEARCH_PEEK + SEARCH_HIS + SEARCH_MSG
+ + SEARCH_START
+ + ((pat != NULL && *pat == ';') ? 0 : SEARCH_NOOF)))),
+ RE_LAST, (linenr_T)0, tm);
if (dircp != NULL)
*dircp = dirc; /* restore second '/' or '?' for normal_cmd() */
@@ -2470,9 +2465,6 @@ static int cls(void)
int c;
c = gchar_cursor();
- if (p_altkeymap && c == F_BLANK) {
- return 0;
- }
if (c == ' ' || c == '\t' || c == NUL) {
return 0;
}
diff --git a/src/nvim/testdir/test_farsi.vim b/src/nvim/testdir/test_farsi.vim
deleted file mode 100644
index 9ff2653af4..0000000000
--- a/src/nvim/testdir/test_farsi.vim
+++ /dev/null
@@ -1,133 +0,0 @@
-" Simplistic testing of Farsi mode.
-" Note: must be edited with latin1 encoding.
-
-if !has('farsi') || has('nvim') " Not supported in Nvim. #6192
- finish
-endif
-" Farsi uses a single byte encoding.
-set enc=latin1
-
-func Test_farsi_toggle()
- new
-
- set altkeymap
- call assert_equal(0, &fkmap)
- call assert_equal(0, &rl)
- call feedkeys("\<F8>", 'x')
- call assert_equal(1, &fkmap)
- call assert_equal(1, &rl)
- call feedkeys("\<F8>", 'x')
- call assert_equal(0, &fkmap)
- call assert_equal(0, &rl)
-
- set rl
- " conversion from Farsi 3342 to Farsi VIM.
- call setline(1, join(map(range(0x80, 0xff), 'nr2char(v:val)'), ''))
- call feedkeys("\<F9>", 'x')
- let exp = [0xfc, 0xf8, 0xc1, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
- \ 0xc8, 0xc9, 0xca, 0xd0, 0xd1, 0xd2, 0xd3, 0xd6,
- \ 0xd6, 0xd6, 0xd7, 0xd7, 0xd7, 0xd8, 0xd9, 0xda,
- \ 0xdb, 0xdc, 0xdc, 0xc1, 0xdd, 0xde, 0xe0, 0xe0,
- \ 0xe1, 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
- \ 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae,
- \ 0xaf, 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6,
- \ 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe,
- \ 0xbf, 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6,
- \ 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce,
- \ 0xcf, 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
- \ 0xd7, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde,
- \ 0xdf, 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6,
- \ 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xfb, 0xfb, 0xfe,
- \ 0xfe, 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6,
- \ 0xf7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xe1,
- \ ]
- call assert_equal(join(map(exp, 'nr2char(v:val)'), ''), getline(1))
-
- " conversion from Farsi VIM to Farsi 3342.
- call setline(1, join(map(range(0x80, 0xff), 'nr2char(v:val)'), ''))
- call feedkeys("\<F9>", 'x')
- let exp = [0xfc, 0xf8, 0xc1, 0x83, 0x84, 0x85, 0x86, 0x87,
- \ 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x90,
- \ 0x90, 0x90, 0x92, 0x93, 0x93, 0x95, 0x96, 0x97,
- \ 0x98, 0xdc, 0x9a, 0x9b, 0x9c, 0x9e, 0x9e, 0xff,
- \ 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7,
- \ 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
- \ 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
- \ 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf,
- \ 0xc0, 0xc1, 0xc2, 0x83, 0x84, 0x85, 0x86, 0x87,
- \ 0x88, 0x89, 0x8a, 0xcb, 0xcc, 0xcd, 0xce, 0xcf,
- \ 0x8b, 0x8c, 0x8d, 0x8e, 0xd4, 0xd5, 0x90, 0x93,
- \ 0x95, 0x96, 0x97, 0x98, 0x99, 0x9b, 0x9c, 0xdf,
- \ 0x9d, 0xff, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7,
- \ 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xec, 0xee, 0xef,
- \ 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
- \ 0xf8, 0xf9, 0xfa, 0xec, 0x80, 0xfd, 0xee, 0xff,
- \ ]
- call assert_equal(join(map(exp, 'nr2char(v:val)'), ''), getline(1))
-
- bwipe!
-endfunc
-
-func Test_farsi_map()
- new
-
- set altkeymap
- set rl
- " RHS of mapping is reversed.
- imap xyz abc
- call feedkeys("axyz\<Esc>", 'tx')
- call assert_equal('cba', getline(1))
-
- set norl
- iunmap xyz
- set noaltkeymap
- bwipe!
-endfunc
-
-func Test_input_farsi()
- new
- setlocal rightleft fkmap
- " numbers switch input direction
- call feedkeys("aabc0123456789.+-^%#=xyz\<Esc>", 'tx')
- call assert_equal("\x8cÌν®¥ª­«¦¹¸·¶µ´³²±°Ô\x93Õ", getline('.'))
-
- " all non-number special chars with spaces
- call feedkeys("oB E F H I K L M O P Q R T U W Y ` ! @ # $ % ^ & * () - _ = + \\ | : \" . / < > ? \<Esc>", 'tx')
- call assert_equal("¡ ô ú À ö æ ç Â [ ] ÷ ó ò ð õ ñ ¢ £  § ® ¤ ¥ ª ¬ è ¨© ­ é ½ « ë ê º » ¦  ¯ ¾ ¼ ¿ ", getline('.'))
-
- " all non-number special chars without spaces
- call feedkeys("oBEFHIKLMOPQRTUWY`!@#$%^&*()-_=+\\|:\"./<>?\<Esc>",'tx')
- call assert_equal("¡ôúÀöæçÂ[]÷óòðõñ¢£§®¤¥ª¬è¨©­é½«ë꺻¦¯¾¼¿", getline('.'))
-
- " all letter chars with spaces
- call feedkeys("oa A b c C d D e f g G h i j J k l m n N o p q r s S t u v V w x X y z Z ; \ , [ ] \<Esc>", 'tx')
- call assert_equal("Ñ ù Ì Î Ï á þ Æ Ã Ü ø Á à Å ü Þ Ý Ä Ë Ë Ê É Ó Ù Ð û Ø Ö Í Í Ò Ô Ô × Õ ý Ú  ß Ç È ", getline('.'))
-
- " all letter chars without spaces
- call feedkeys("oaAbcCdDefgGhijJklmnNopqrsStuvVwxXyzZ;\,[]\<Esc>", 'tx')
- call assert_equal("\x8cùÌÎÏ\x9fî\x86\x83ÜøÁ\x9d\x85\x80\x9c\x9b\x84ËË\x8a\x89\x8e\x96\x8bì\x95\x90ÍÍ\x8dÔÔ\x93Õý\x97ß\x87\x88", getline('.'))
-
- bwipe!
-endfunc
-
-func Test_command_line_farsi()
- set allowrevins altkeymap
-
- " letter characters with spaces
- call feedkeys(":\"\<C-_>a A b c C d D e f g G h i j J k l m n N o p q r s S t u v V w x X y z Z ; \\ , [ ]\<CR>", 'tx')
- call assert_equal("\"\x88 Ç ß ë Ú Õ Õ × Ô Ô Ò Í Í Ö Ø û Ð Ù Ó É Ê Ë Ë Ä Ý Þ ü Å à Á ø Ü Ã Æ þ á Ï Î Ì ù Ñ", getreg(':'))
-
- " letter characters without spaces
- call feedkeys(":\"\<C-_>aAbcCdDefgGhijJklmnNopqrsStuvVwxXyzZ;\\,[]\<CR>", 'tx')
- call assert_equal("\"\x88\x87ßëÚÕÕ\x93ÔÔ\x8dÍÍ\x90\x95ì\x8b\x96\x8e\x89\x8aËË\x84\x9b\x9c\x80\x85\x9dÁøÜ\x83\x86î\x9fÏÎÌù\x8c", getreg(':'))
-
- " other characters with spaces
- call feedkeys(":\"\<C-_>0 1 2 3 4 5 6 7 8 9 ` . ! \" $ % ^ & / () = \\ ? + - _ * : # ~ @ < > { } | B E F H I K L M O P Q R T U W Y\<CR>", 'tx')
- call assert_equal("\"ñ õ ð ò ó ÷ ] [ Â ç æ ö À ú ô ¡ ê } { ¼ ¾ § ~ ® º è é ­ «  ¿ ë ½ ©¨ ¯ ¬ ª ¥ ¤ »  £  ¦ ¢ ¹ ¸ · ¶ µ ´ ³ ² ± °", getreg(':'))
-
- " other characters without spaces
- call feedkeys(":\"\<C-_>0123456789`.!\"$%^&/()=\\?+-_*:#~@<>{}|BEFHIKLMOPQRTUWY\<CR>", 'tx')
- call assert_equal("\"ñõðòó÷][ÂçæöÀúô¡ê}{¼¾§~®ºèé­«¿ë½©¨¯¬ª¥¤»£¦¢¹¸·¶µ´³²±°", getreg(':'))
-
- set noallowrevins noaltkeymap
-endfunc
diff --git a/src/nvim/window.c b/src/nvim/window.c
index 24fe529fd6..bb71b12aed 100644
--- a/src/nvim/window.c
+++ b/src/nvim/window.c
@@ -20,7 +20,6 @@
#include "nvim/ex_docmd.h"
#include "nvim/ex_eval.h"
#include "nvim/ex_getln.h"
-#include "nvim/farsi.h"
#include "nvim/fileio.h"
#include "nvim/fold.h"
#include "nvim/getchar.h"
@@ -2934,10 +2933,6 @@ void win_init_empty(win_T *wp)
wp->w_topline = 1;
wp->w_topfill = 0;
wp->w_botline = 2;
- if (wp->w_p_rl)
- wp->w_farsi = W_CONV + W_R_L;
- else
- wp->w_farsi = W_CONV;
wp->w_s = &wp->w_buffer->b_s;
}
generated by cgit (git 2.34.1) at 2025-04-29 22:39:41 +0000