/**
* @internal
* Checks if the char is rtl oriented. I.e even a neutral char can become rtl
* if surrounded by rtl chars.
*
* @param bidi_props The bidi paragraph properties
* @param start the base position
* @param index the offset from the base position.
* @return #EINA_TRUE if true, #EINA_FALSE otherwise.
*/
Eina_Bool
evas_bidi_is_rtl_char(const Evas_BiDi_Paragraph_Props *bidi_props, size_t start, EvasBiDiStrIndex ind)
{
if(!bidi_props || ind < 0)
return EINA_FALSE;
return (FRIBIDI_IS_RTL(
bidi_props->embedding_levels[ind + start]))
? EINA_TRUE : EINA_FALSE;
}
/*======================================================================
* fribidi_is_char_rtl() answers the question whether a character
* was resolved in the rtl direction. This simply involves asking
* if the embedding level for the character is odd.
*----------------------------------------------------------------------*/
FRIBIDI_API fribidi_boolean
fribidi_is_char_rtl (FriBidiLevel *embedding_level_list,
FriBidiCharType base_dir, FriBidiStrIndex idx)
{
if (!embedding_level_list || idx < 0)
return FRIBIDI_IS_RTL (base_dir);
/* Otherwise check if the embedding level is odd */
else
return embedding_level_list[idx] % 2;
}
/**
* pango_unichar_direction:
* @ch: a Unicode character
*
* Determines the inherent direction of a character; either
* %PANGO_DIRECTION_LTR, %PANGO_DIRECTION_RTL, or
* %PANGO_DIRECTION_NEUTRAL.
*
* This function is useful to categorize characters into left-to-right
* letters, right-to-left letters, and everything else. If full
* Unicode bidirectional type of a character is needed,
* pango_bidi_type_for_gunichar() can be used instead.
*
* Return value: the direction of the character.
*/
PangoDirection
pango_unichar_direction (gunichar ch)
{
FriBidiCharType fribidi_ch_type = fribidi_get_type (ch);
if (!FRIBIDI_IS_STRONG (fribidi_ch_type))
return PANGO_DIRECTION_NEUTRAL;
else if (FRIBIDI_IS_RTL (fribidi_ch_type))
return PANGO_DIRECTION_RTL;
else
return PANGO_DIRECTION_LTR;
}
/**
* pango_unichar_direction:
* @ch: a Unicode character
*
* Determines the inherent direction of a character; either
* %PANGO_DIRECTION_LTR, %PANGO_DIRECTION_RTL, or
* %PANGO_DIRECTION_NEUTRAL.
*
* This function is useful to categorize characters into left-to-right
* letters, right-to-left letters, and everything else. If full
* Unicode bidirectional type of a character is needed,
* pango_bidi_type_for_unichar() can be used instead.
*
* Return value: the direction of the character.
*/
PangoDirection
pango_unichar_direction (gunichar ch)
{
FriBidiCharType fribidi_ch_type;
G_STATIC_ASSERT (sizeof (FriBidiChar) == sizeof (gunichar));
fribidi_ch_type = fribidi_get_bidi_type (ch);
if (!FRIBIDI_IS_STRONG (fribidi_ch_type))
return PANGO_DIRECTION_NEUTRAL;
else if (FRIBIDI_IS_RTL (fribidi_ch_type))
return PANGO_DIRECTION_RTL;
else
return PANGO_DIRECTION_LTR;
}
/**
* @internal
* Checks if the string has RTL characters.
*
* @param str The string to be checked
* @return #EINA_TRUE if true, #EINA_FALSE otherwise.
*/
Eina_Bool
evas_bidi_is_rtl_str(const Eina_Unicode *str)
{
EvasBiDiCharType type;
if (!str)
return EINA_FALSE;
for ( ; *str ; str++)
{
type = fribidi_get_bidi_type((FriBidiChar) *str);
if (FRIBIDI_IS_RTL(type))
{
return EINA_TRUE;
}
}
return EINA_FALSE;
}
int
main (int argc, char *argv[])
{
int exit_val;
fribidi_boolean file_found;
char *s;
FILE *IN;
text_width = 80;
do_break = FRIBIDI_TRUE;
do_pad = FRIBIDI_TRUE;
do_mirror = FRIBIDI_TRUE;
do_clean = FRIBIDI_FALSE;
do_reorder_nsm = FRIBIDI_FALSE;
show_input = FRIBIDI_FALSE;
show_visual = FRIBIDI_TRUE;
show_basedir = FRIBIDI_FALSE;
show_ltov = FRIBIDI_FALSE;
show_vtol = FRIBIDI_FALSE;
show_levels = FRIBIDI_FALSE;
show_changes = FRIBIDI_FALSE;
char_set = "UTF-8";
bol_text = NULL;
eol_text = NULL;
input_base_direction = FRIBIDI_TYPE_ON;
if ((s = getenv ("COLUMNS")))
{
int i;
i = atoi (s);
if (i > 0)
text_width = i;
}
#define CHARSETDESC 257
#define CAPRTL 258
/* Parse the command line with getopt library */
/* Must set argv[0], getopt uses it to generate error messages */
argv[0] = appname;
while (1)
{
int option_index = 0, c;
static struct option long_options[] = {
{"help", 0, 0, 'h'},
{"version", 0, 0, 'V'},
{"verbose", 0, 0, 'v'},
{"debug", 0, 0, 'd'},
{"test", 0, 0, 't'},
{"charset", 1, 0, 'c'},
#ifndef FRIBIDI_NO_CHARSETS
{"charsetdesc", 1, 0, CHARSETDESC},
{"caprtl", 0, 0, CAPRTL},
#endif
{"showinput", 0, &show_input, FRIBIDI_TRUE},
{"nopad", 0, &do_pad, FRIBIDI_FALSE},
{"nobreak", 0, &do_break, FRIBIDI_FALSE},
{"width", 1, 0, 'w'},
{"bol", 1, 0, 'B'},
{"eol", 1, 0, 'E'},
{"nomirror", 0, &do_mirror, FRIBIDI_FALSE},
{"reordernsm", 0, &do_reorder_nsm, FRIBIDI_TRUE},
{"clean", 0, &do_clean, FRIBIDI_TRUE},
{"ltr", 0, (int *) &input_base_direction, FRIBIDI_TYPE_L},
{"rtl", 0, (int *) &input_base_direction, FRIBIDI_TYPE_R},
{"wltr", 0, (int *) &input_base_direction, FRIBIDI_TYPE_WL},
{"wrtl", 0, (int *) &input_base_direction, FRIBIDI_TYPE_WR},
{"basedir", 0, &show_basedir, FRIBIDI_TRUE},
{"ltov", 0, &show_ltov, FRIBIDI_TRUE},
{"vtol", 0, &show_vtol, FRIBIDI_TRUE},
{"levels", 0, &show_levels, FRIBIDI_TRUE},
{"changes", 0, &show_changes, FRIBIDI_TRUE},
{"novisual", 0, &show_visual, FRIBIDI_FALSE},
{0, 0, 0, 0}
};
c =
getopt_long (argc, argv, "hVvdtc:w:B:E:", long_options,
&option_index);
if (c == -1)
break;
switch (c)
{
case 0:
break;
case 'h':
help ();
break;
case 'V':
version ();
break;
case 'v':
show_basedir = FRIBIDI_TRUE;
show_ltov = FRIBIDI_TRUE;
show_vtol = FRIBIDI_TRUE;
show_levels = FRIBIDI_TRUE;
show_changes = FRIBIDI_TRUE;
break;
case 'w':
text_width = atoi (optarg);
if (text_width <= 0)
die ("invalid screen width `%s'\n", optarg);
break;
case 'B':
bol_text = optarg;
break;
case 'E':
eol_text = optarg;
break;
case 'd':
if (!fribidi_set_debug (FRIBIDI_TRUE))
die
("%s lib must be compiled with DEBUG option to enable\nturn debug info on.\n",
FRIBIDI_PACKAGE);
break;
case 't':
do_clean = FRIBIDI_TRUE;
show_input = FRIBIDI_TRUE;
do_break = FRIBIDI_FALSE;
do_reorder_nsm = FRIBIDI_TRUE;
break;
case 'c':
char_set = strdup (optarg);
break;
#ifndef FRIBIDI_NO_CHARSETS
case CAPRTL:
char_set = "CapRTL";
break;
case CHARSETDESC:
char_set = strdup (optarg);
char_set_num = fribidi_parse_charset (char_set);
if (!char_set_num)
die ("unrecognized character set `%s'\n", char_set);
if (!fribidi_char_set_desc (char_set_num))
die ("no description available for character set `%s'\n",
fribidi_char_set_name (char_set_num));
else
printf ("Descriptions for character set %s:\n"
"\n" "%s", fribidi_char_set_title (char_set_num),
fribidi_char_set_desc (char_set_num));
exit (0);
break;
#endif
case ':':
case '?':
die (NULL);
break;
default:
break;
}
}
#ifdef FRIBIDI_NO_CHARSETS
to_ucs4 = iconv_open ("WCHAR_T", char_set);
from_ucs4 = iconv_open (char_set, "WCHAR_T");
#else
char_set_num = fribidi_parse_charset (char_set);
#endif
#ifdef FRIBIDI_NO_CHARSETS
if (to_ucs4 == (iconv_t) (-1) || from_ucs4 == (iconv_t) (-1))
#else
if (!char_set_num)
#endif
die ("unrecognized character set `%s'\n", char_set);
fribidi_set_mirroring (do_mirror);
fribidi_set_reorder_nsm (do_reorder_nsm);
exit_val = 0;
file_found = FRIBIDI_FALSE;
while (optind < argc || !file_found)
{
char *S_;
S_ = optind < argc ? argv[optind++] : "-";
file_found = FRIBIDI_TRUE;
/* Open the infile for reading */
if (S_[0] == '-' && !S_[1])
{
IN = stdin;
}
else
{
IN = fopen (S_, "r");
if (!IN)
{
fprintf (stderr, "%s: %s: no such file or directory\n",
appname, S_);
exit_val = 1;
continue;
}
}
/* Read and process input one line at a time */
{
char S_[MAX_STR_LEN];
int padding_width, break_width;
padding_width = show_input ? (text_width - 10) / 2 : text_width;
break_width = do_break ? padding_width : 3 * MAX_STR_LEN;
while (fgets (S_, sizeof (S_) - 1, IN))
{
char *new_line, *nl_found;
FriBidiChar logical[MAX_STR_LEN];
char outstring[MAX_STR_LEN];
FriBidiCharType base;
FriBidiStrIndex len;
nl_found = "";
S_[sizeof (S_) - 1] = 0;
len = strlen (S_);
/* chop */
if (S_[len - 1] == '\n')
{
len--;
S_[len] = '\0';
new_line = "\n";
}
else
new_line = "";
#ifdef FRIBIDI_NO_CHARSETS
{
char *st = S_, *ust = (char *) logical;
int in_len = (int) len;
len = sizeof logical;
iconv (to_ucs4, &st, &in_len, &ust, (int *) &len);
len = (FriBidiChar *) ust - logical;
}
#else
len = fribidi_charset_to_unicode (char_set_num, S_, len, logical);
#endif
{
FriBidiChar *visual;
FriBidiStrIndex *ltov, *vtol;
FriBidiLevel *levels;
FriBidiStrIndex new_len;
fribidi_boolean log2vis;
visual = show_visual ? ALLOCATE (FriBidiChar, len + 1) : NULL;
ltov = show_ltov ? ALLOCATE (FriBidiStrIndex, len + 1) : NULL;
vtol = show_vtol ? ALLOCATE (FriBidiStrIndex, len + 1) : NULL;
levels = show_levels ? ALLOCATE (FriBidiLevel, len + 1) : NULL;
/* Create a bidi string. */
base = input_base_direction;
log2vis = fribidi_log2vis (logical, len, &base,
/* output */
visual, ltov, vtol, levels);
if (log2vis)
{
if (show_input)
printf ("%-*s => ", padding_width, S_);
new_len = len;
/* Remove explicit marks, if asked for. */
if (do_clean)
len =
fribidi_remove_bidi_marks (visual, len, ltov, vtol,
levels);
if (show_visual)
{
printf (nl_found);
if (bol_text)
printf ("%s", bol_text);
/* Convert it to input charset and print. */
{
FriBidiStrIndex idx, st;
for (idx = 0; idx < len;)
{
FriBidiStrIndex wid, inlen;
wid = break_width;
st = idx;
#ifndef FRIBIDI_NO_CHARSETS
if (char_set_num != FRIBIDI_CHAR_SET_CAP_RTL)
#endif
while (wid > 0 && idx < len)
wid -= fribidi_wcwidth (visual[idx++]);
#ifndef FRIBIDI_NO_CHARSETS
else
while (wid > 0 && idx < len)
{
wid--;
idx++;
}
#endif
if (wid < 0 && idx > st + 1)
idx--;
inlen = idx - st;
#ifdef FRIBIDI_NO_CHARSETS
{
char *str = outstring, *ust =
(char *) (visual + st);
int in_len = inlen * sizeof visual[0];
new_len = sizeof outstring;
iconv (from_ucs4, &ust, &in_len, &str,
(int *) &new_len);
*str = '\0';
new_len = str - outstring;
}
#else
new_len =
fribidi_unicode_to_charset (char_set_num,
visual + st, inlen,
outstring);
#endif
if (FRIBIDI_IS_RTL (base))
printf ("%*s",
(int) (do_pad ? (padding_width +
strlen (outstring) -
(break_width -
wid)) : 0),
outstring);
else
printf ("%s", outstring);
if (idx < len)
printf ("\n");
}
}
if (eol_text)
printf ("%s", eol_text);
nl_found = "\n";
}
if (show_basedir)
{
printf (nl_found);
printf ("Base direction: %s",
(FRIBIDI_DIR_TO_LEVEL (base) ? "R" : "L"));
nl_found = "\n";
}
if (show_ltov)
{
FriBidiStrIndex i;
printf (nl_found);
for (i = 0; i < len; i++)
printf ("%ld ", (long) ltov[i]);
nl_found = "\n";
}
if (show_vtol)
{
FriBidiStrIndex i;
printf (nl_found);
for (i = 0; i < len; i++)
printf ("%ld ", (long) vtol[i]);
nl_found = "\n";
}
if (show_levels)
{
FriBidiStrIndex i;
printf (nl_found);
for (i = 0; i < len; i++)
printf ("%d ", (int) levels[i]);
nl_found = "\n";
}
if (show_changes)
{
FriBidiStrIndex change_start, change_len;
fribidi_find_string_changes (logical, len,
visual, new_len,
&change_start,
&change_len);
printf ("%sChange start[length] = %d[%d]", nl_found,
change_start, change_len);
nl_found = "\n";
}
}
else
{
exit_val = 2;
}
if (show_visual)
free (visual);
if (show_ltov)
free (ltov);
if (show_vtol)
free (vtol);
if (show_levels)
free (levels);
}
if (*nl_found)
printf (new_line);
}
}
}
return exit_val;
}