Delete sourcecodes/localscore directory

1 files changed, 0 insertions, 118 deletions

diff --git a/sourcecodes/localscore/rlocale.h b/sourcecodes/localscore/rlocale.h
deleted file mode 100644
index ac08f341..00000000
--- a/sourcecodes/localscore/rlocale.h
+++ /dev/null
@@ -1,118 +0,0 @@
-/*
- *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 2005-12   The R Core Team
- *
- *  This program is free software; you can redistribute it and/or modify
- *  it under the terms of the GNU General Public License as published by
- *  the Free Software Foundation; either version 2 of the License, or
- *  (at your option) any later version.
- *
- *  This program is distributed in the hope that it will be useful,
- *  but WITHOUT ANY WARRANTY; without even the implied warranty of
- *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- *  GNU General Public License for more details.
- *
- *  You should have received a copy of the GNU General Public License
- *  along with this program; if not, a copy is available at
- *  http://www.r-project.org/Licenses/
- */
-
-
-/*  This file was contributed by Ei-ji Nakama.
- *  See also the comments in src/main/rlocale.c.
-
- * For use in R only. 
- */
-
-#ifndef R_LOCALE_H
-#define R_LOCALE_H
-
-#ifndef NO_C_HEADERS
-#include <wchar.h>
-#include <ctype.h>
-#include <wctype.h>
-#endif
-
-#ifdef  __cplusplus
-extern "C" {
-#endif
-
-extern const char *locale2charset(const char *);
-
-/*
- * Windows CJK
- * In Unicode, there is not a rule about character width. 
- * A letter of breadth is used in a CJK (China, Japan, Korea,
- * Taiwan, Hong Kong, and Singapore) area, and there are a
- * letter and a standard (character width is not still prescribed)
- * of a cord in a country.
- * Letter width is a problem of a font, but it is a rule route
- * besides a alphanumeric character that use a breadth letter.
- * It is generally defined as a breadth letter for a font such
- * as Japanese.
- * - Win32
-
- *  Attempted explanation by BDR
- *  The display widths of characters are not prescribed in Unicode.
- *  Double-width characters are used in the CJK area: their width can
- *  be font-specific, with different fonts in use in different parts
- *  of the CJK area.  The tables supplied in many OSes and by Marcus
- *  Kuhn are not do not take the exact locale into account.  The
- *  tables supplied in rlocale_data.h allow different widths for
- *  different parts of the CJK area, and also where needed different
- *  widths on Windows.  (The Windows differences are in zh_CN, and
- *  apply to European characters.)
- *
- */
-extern int Ri18n_wcwidth(wchar_t);
-extern int Ri18n_wcswidth (const wchar_t *, size_t);
-
-/* Mac OSX CJK and WindowXP(Japanese)
- * iswctypes of MacOSX calls isctypes. no i18n.
- * For example, iswprint of Windows does not accept a macron of
- * Japanese "a-ru" of R as a letter. 
- * Therefore Japanese "Buraian.Ripuri-" of "Brian Ripley" is
- * shown of hex-string.:-)
- * We define alternatives to be used if
- * defined(Win32) || defined(__APPLE_CC__) || defined(_AIX)
- */
-extern wctype_t Ri18n_wctype(const char *);
-extern int      Ri18n_iswctype(wint_t, wctype_t);
-
-#ifndef IN_RLOCALE_C
-/* We want to avoid these redefinitions in rlocale.c itself */
-#undef iswupper
-#undef iswlower
-#undef iswalpha
-#undef iswdigit
-#undef iswxdigit
-#undef iswspace
-#undef iswprint
-#undef iswgraph
-#undef iswblank
-#undef iswcntrl
-#undef iswpunct
-#undef iswalnum
-#undef wctype
-#undef iswctype
-
-#define iswupper(__x)     Ri18n_iswctype(__x, Ri18n_wctype("upper"))
-#define iswlower(__x)     Ri18n_iswctype(__x, Ri18n_wctype("lower"))
-#define iswalpha(__x)     Ri18n_iswctype(__x, Ri18n_wctype("alpha"))
-#define iswdigit(__x)     Ri18n_iswctype(__x, Ri18n_wctype("digit"))
-#define iswxdigit(__x)    Ri18n_iswctype(__x, Ri18n_wctype("xdigit"))
-#define iswspace(__x)     Ri18n_iswctype(__x, Ri18n_wctype("space"))
-#define iswprint(__x)     Ri18n_iswctype(__x, Ri18n_wctype("print"))
-#define iswgraph(__x)     Ri18n_iswctype(__x, Ri18n_wctype("graph"))
-#define iswblank(__x)     Ri18n_iswctype(__x, Ri18n_wctype("blank"))
-#define iswcntrl(__x)     Ri18n_iswctype(__x, Ri18n_wctype("cntrl"))
-#define iswpunct(__x)     Ri18n_iswctype(__x, Ri18n_wctype("punct"))
-#define iswalnum(__x)     Ri18n_iswctype(__x, Ri18n_wctype("alnum"))
-#define wctype(__x)       Ri18n_wctype(__x)
-#define iswctype(__x,__y) Ri18n_iswctype(__x,__y)
-#endif
-
-#ifdef  __cplusplus
-}
-#endif
-#endif /* R_LOCALE_H */