f09e17c3c5
- remove obsolete svn '$Id$' tags from all source files - update .fl files and generated files accordingly - replace 'http://www.fltk.org' URL's with 'https://...' - replace bug report URL 'str.php' with 'bugs.php' - remove trailing whitespace - fix other whitespace errors flagged by Git - add and/or fix missing or wrong standard headers - convert tabs to spaces in all source files The only relevant code changes are in the fluid/ folder where some .fl files and other source files were used to generate the '$Id' headers and footers.
73 lines
1.3 KiB
C
73 lines
1.3 KiB
C
/*
|
|
* Author: Jean-Marc Lienher ( http://oksid.ch )
|
|
* Copyright 2000-2010 by O'ksi'D.
|
|
*
|
|
* This library is free software. Distribution and use rights are outlined in
|
|
* the file "COPYING" which should have been included with this file. If this
|
|
* file is missing or damaged, see the license at:
|
|
*
|
|
* https://www.fltk.org/COPYING.php
|
|
*
|
|
* Please see the following page on how to report bugs and issues:
|
|
*
|
|
* https://www.fltk.org/bugs.php
|
|
*/
|
|
|
|
/*
|
|
* This file is required on all platforms for UTF-8 support
|
|
*/
|
|
|
|
#include "../utf8_internal.h"
|
|
|
|
unsigned short
|
|
XUtf8IsRightToLeft(unsigned int ucs) {
|
|
|
|
#if 0
|
|
/* for debug only */
|
|
if (ucs <= 0x005A) {
|
|
if (ucs >= 0x0041) return 1;
|
|
return 0;
|
|
}
|
|
#endif
|
|
|
|
/* HEBREW */
|
|
if (ucs <= 0x05F4) {
|
|
if (ucs >= 0x0591) return 1;
|
|
return 0;
|
|
}
|
|
|
|
/* ARABIC */
|
|
if (ucs <= 0x06ED) {
|
|
if (ucs >= 0x060C) return 1;
|
|
return 0;
|
|
}
|
|
|
|
if (ucs <= 0x06F9) {
|
|
if (ucs >= 0x06F0) return 1;
|
|
return 0;
|
|
}
|
|
|
|
if (ucs == 0x200F) return 1;
|
|
|
|
if (ucs == 0x202B) return 1;
|
|
|
|
if (ucs == 0x202E) return 1;
|
|
|
|
if (ucs <= 0xFB4F) {
|
|
if (ucs >= 0xFB1E) return 1;
|
|
return 0;
|
|
}
|
|
|
|
if (ucs <= 0xFDFB) {
|
|
if (ucs >= 0xFB50) return 1;
|
|
return 0;
|
|
}
|
|
|
|
if (ucs <= 0xFEFC) {
|
|
if (ucs >= 0xFE70) return 1;
|
|
return 0;
|
|
}
|
|
|
|
return 0;
|
|
}
|