mirrors/neovim
1
0
Fork 0
mirror of https://github.com/neovim/neovim.git synced 2025-10-17 15:21:47 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
2bd424c1c5493f3311239a2c0932dd9ff6fac5a5
neovim/src/nvim/farsi.c
ZyX c2f3e361c5 *: Add comment to all C files
2017-04-19 19:11:50 +03:00

2070 lines
48 KiB
C
Raw Blame History

// 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;
static int revins;
if (IS_SPECIAL(c)) {
return c;
}
if (ascii_isdigit(c)
|| ((c == '.'
|| c == '+'
|| c == '-'
|| c == '^'
|| c == '%'
|| c == '#'
|| c == '=')
&& revins)) {
if (!revins) {
if (curwin->w_cursor.col) {
if (!p_ri) {
dec_cursor();
}
chg_c_toX_orX();
chg_l_toXor_X();
if (!p_ri) {
inc_cursor();
}
}
}
arrow_used = TRUE;
(void)stop_arrow();
if (!curwin->w_p_rl && revins) {
inc_cursor();
}
revins++;
p_ri = 1;
} else {
if (revins) {
arrow_used = TRUE;
(void)stop_arrow();
revins = 0;
if (curwin->w_p_rl) {
while ((F_isdigit(gchar_cursor())
|| (gchar_cursor() == F_PERIOD
|| gchar_cursor() == F_PLUS
|| gchar_cursor() == F_MINUS
|| gchar_cursor() == F_MUL
|| gchar_cursor() == F_DIVIDE
|| gchar_cursor() == F_PERCENT
|| gchar_cursor() == F_EQUALS))
&& gchar_cursor() != NUL) {
curwin->w_cursor.col++;
}
} else {
if (curwin->w_cursor.col) {
while ((F_isdigit(gchar_cursor())
|| (gchar_cursor() == F_PERIOD
|| gchar_cursor() == F_PLUS
|| gchar_cursor() == F_MINUS
|| gchar_cursor() == F_MUL
|| gchar_cursor() == F_DIVIDE
|| gchar_cursor() == F_PERCENT
|| gchar_cursor() == F_EQUALS))
&& --curwin->w_cursor.col) {
}
}
if (!F_isdigit(gchar_cursor())) {
++curwin->w_cursor.col;
}
}
}
}
if (!revins) {
if (curwin->w_p_rl) {
p_ri = 0;
}
if (!curwin->w_p_rl) {
p_ri = 1;
}
}
if ((c < 0x100)
&& (isalpha(c)
|| (c == '&')
|| (c == '^')
|| (c == ';')
|| (c == '\'')
|| (c == ',')
|| (c == '[')
|| (c == ']')
|| (c == '{')
|| (c == '}'))) {
chg_r_to_Xor_X_();
}
tempc = 0;
switch (c) {
case '`':
case ' ':
case '.':
case '!':
case '"':
case '$':
case '%':
case '^':
case '&':
case '/':
case '(':
case ')':
case '=':
case '\\':
case '?':
case '+':
case '-':
case '_':
case '*':
case ':':
case '#':
case '~':
case '@':
case '<':
case '>':
case '{':
case '}':
case '|':
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case 'B':
case 'E':
case 'F':
case 'H':
case 'I':
case 'K':
case 'L':
case 'M':
case 'O':
case 'P':
case 'Q':
case 'R':
case 'T':
case 'U':
case 'W':
case 'Y':
case NL:
case TAB:
if (p_ri && (c == NL) && curwin->w_cursor.col) {
// If the char before the cursor is _X_ or X_ do not change
// the one under the cursor with X type.
dec_cursor();
if (F_isalpha(gchar_cursor())) {
inc_cursor();
return NL;
}
inc_cursor();
}
if (!p_ri) {
if (!curwin->w_cursor.col) {
switch (c) {
case '0' : return FARSI_0 ;
case '1' : return FARSI_1 ;
case '2' : return FARSI_2 ;
case '3' : return FARSI_3 ;
case '4' : return FARSI_4 ;
case '5' : return FARSI_5 ;
case '6' : return FARSI_6 ;
case '7' : return FARSI_7 ;
case '8' : return FARSI_8 ;
case '9' : return FARSI_9 ;
case 'B' : return F_PSP ;
case 'E' : return JAZR_N ;
case 'F' : return ALEF_D_H ;
case 'H' : return ALEF_A ;
case 'I' : return TASH ;
case 'K' : return F_LQUOT ;
case 'L' : return F_RQUOT ;
case 'M' : return HAMZE ;
case 'O' : return '[' ;
case 'P' : return ']' ;
case 'Q' : return OO ;
case 'R' : return MAD_N ;
case 'T' : return OW ;
case 'U' : return MAD ;
case 'W' : return OW_OW ;
case 'Y' : return JAZR ;
case '`' : return F_PCN ;
case '!' : return F_EXCL ;
case '@' : return F_COMMA ;
case '#' : return F_DIVIDE ;
case '$' : return F_CURRENCY ;
case '%' : return F_PERCENT ;
case '^' : return F_MUL ;
case '&' : return F_BCOMMA ;
case '*' : return F_STAR ;
case '(' : return F_LPARENT ;
case ')' : return F_RPARENT ;
case '-' : return F_MINUS ;
case '_' : return F_UNDERLINE ;
case '=' : return F_EQUALS ;
case '+' : return F_PLUS ;
case '\\' : return F_BSLASH ;
case '|' : return F_PIPE ;
case ':' : return F_DCOLON ;
case '"' : return F_SEMICOLON ;
case '.' : return F_PERIOD ;
case '/' : return F_SLASH ;
case '<' : return F_LESS ;
case '>' : return F_GREATER ;
case '?' : return F_QUESTION ;
case ' ' : return F_BLANK ;
}
break;
}
}
if (!p_ri) {
dec_cursor();
}
switch ((tempc = gchar_cursor())) {
case _BE:
case _PE:
case _TE:
case _SE:
case _JIM:
case _CHE:
case _HE_J:
case _XE:
case _SIN:
case _SHIN:
case _SAD:
case _ZAD:
case _FE:
case _GHAF:
case _KAF:
case _KAF_H:
case _GAF:
case _LAM:
case _MIM:
case _NOON:
case _HE:
case _HE_:
case _TA:
case _ZA:
put_curr_and_l_to_X(toF_TyA((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 (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("%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(CLEAR);
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(CLEAR);
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();
}
}
}
Reference in New Issue View Git Blame Copy Permalink