The R Project SVN R

Rev

Rev 61662 | Rev 66671 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 61662 Rev 61665
Line 136... Line 136...
136
    return(wcwidthsearch(c, table_wcwidth,
136
    return(wcwidthsearch(c, table_wcwidth,
137
			 (sizeof(table_wcwidth)/sizeof(struct interval_wcwidth)),
137
			 (sizeof(table_wcwidth)/sizeof(struct interval_wcwidth)),
138
			 lc));
138
			 lc));
139
}
139
}
140
 
140
 
-
 
141
/* Used in charcter.c, gnuwin32/console.c */
141
attribute_hidden
142
attribute_hidden
142
int Ri18n_wcswidth (const wchar_t *s, size_t n)
143
int Ri18n_wcswidth (const wchar_t *s, size_t n)
143
{
144
{
144
    int rs = 0;
145
    int rs = 0;
145
    while ((n-- > 0) && (*s != L'\0'))
146
    while ((n-- > 0) && (*s != L'\0'))
Line 304... Line 305...
304
    {"punct",  1<<10, Ri18n_iswpunct},
305
    {"punct",  1<<10, Ri18n_iswpunct},
305
    {"alnum",  1<<11, Ri18n_iswalnum},
306
    {"alnum",  1<<11, Ri18n_iswalnum},
306
    {NULL,     0,     NULL}
307
    {NULL,     0,     NULL}
307
};
308
};
308
 
309
 
309
attribute_hidden
310
/* These two used (via macros) in X11 dataentry */
310
wctype_t Ri18n_wctype(const char *name)
311
wctype_t Ri18n_wctype(const char *name)
311
{
312
{
312
    int i;
313
    int i;
313
 
314
 
314
    for (i = 0 ; Ri18n_wctype_func[i].name != NULL &&
315
    for (i = 0 ; Ri18n_wctype_func[i].name != NULL &&
315
	     0 != strcmp(Ri18n_wctype_func[i].name, name) ; i++ );
316
	     0 != strcmp(Ri18n_wctype_func[i].name, name) ; i++ );
316
    return Ri18n_wctype_func[i].wctype;
317
    return Ri18n_wctype_func[i].wctype;
317
}
318
}
318
 
319
 
319
attribute_hidden
-
 
320
int Ri18n_iswctype(wint_t wc, wctype_t desc)
320
int Ri18n_iswctype(wint_t wc, wctype_t desc)
321
{
321
{
322
    int i;
322
    int i;
323
 
323
 
324
    for (i = 0 ; Ri18n_wctype_func[i].wctype != 0 &&
324
    for (i = 0 ; Ri18n_wctype_func[i].wctype != 0 &&