fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-07-24 20:11 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* common.mak
   * source/codepage/Makefile
   + source/codepage/cpsk852.c
   + source/codepage/cpskiso.c
   + source/codepage/cpskwin.c
   + source/codepage/cpskkam.c
     + Added Slovak codepages. Pls. test them if you are 
       familiar with the language rules.
This commit is contained in:
Viktor Szakats
2007-07-24 18:12:13 +00:00
parent 795b00bbf7
commit d553425a99
7 changed files with 438 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-07-24 20:11 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* common.mak
* source/codepage/Makefile
+ source/codepage/cpsk852.c
+ source/codepage/cpskiso.c
+ source/codepage/cpskwin.c
+ source/codepage/cpskkam.c
+ Added Slovak codepages. Pls. test them if you are
familiar with the language rules.
2007-07-24 19:40 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* common.mak
* makefile.vc

4
harbour/common.mak
View File

@@ -715,6 +715,10 @@ CODEPAGE_LIB_OBJS = \
$(OBJ_DIR)\cpru866$(HB_OBJ_EXT) \
$(OBJ_DIR)\cprukoi$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpruwin$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpsk852$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpskiso$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpskkam$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpskwin$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpsl437$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpsl852$(HB_OBJ_EXT) \
$(OBJ_DIR)\cpsliso$(HB_OBJ_EXT) \

4
harbour/source/codepage/Makefile
View File

@@ -44,6 +44,10 @@ C_SOURCES=\
cpru866.c \
cprukoi.c \
cpruwin.c \
cpsk852.c \
cpskiso.c \
cpskkam.c \
cpskwin.c \
cpsl437.c \
cpsl852.c \
cpsliso.c \

105
harbour/source/codepage/cpsk852.c Normal file
View File

@@ -0,0 +1,105 @@
/*
* $Id: cpcs852.c 7249 2007-04-18 08:45:07Z vszakats $
*/
/*
* Harbour Project source code:
* National Collation Support Module ( SK852 )
*
* Copyright 2007 Viktor Szakats <harbour.01 syenar.hu>
* www - http://www.harbour-project.org
*
* 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, 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 software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* Language name: Slovak */
/* ISO language code (2 chars): SK */
/* Codepage: 852 */
#include <ctype.h>
#include "hbapi.h"
#include "hbapicdp.h"
#define NUMBER_OF_CHARACTERS 46 /* The number of single characters in the
alphabet, two-as-one aren't considered
here, accented - are considered. */
#define IS_LATIN 1 /* Should be 1, if the national alphabet
is based on Latin */
#define ACCENTED_EQUAL 1 /* Should be 1, if accented character
has the same weight as appropriate
unaccented. */
#define ACCENTED_INTERLEAVED 1 /* Should be 1, if accented characters
sort after their unaccented counterparts
only if the unaccented versions of all
characters being compared are the same
( interleaving ) */
/* If ACCENTED_EQUAL or ACCENTED_INTERLEAVED is 1, you need to mark the
accented characters with the symbol '~' before each of them, for example:
a~_
If there is two-character sequence, which is considered as one, it should
be marked with '.' before and after it, for example:
... h.ch.i ...
The Upper case string and the Lower case string should be absolutely the
same excepting the characters case, of course.
*/
static HB_CODEPAGE s_codepage = { "SK852",
HB_CPID_852, HB_UNITB_852, NUMBER_OF_CHARACTERS,
"A~µ~ŽBC¬D~Ò.DZ..D¦.E~<7E>FGH.CH.I~ÖJKL~‘~•MN~ÕO~à~âPQR~èSæT~›U~éVWXY~íZ¦",
"a~ ~„bcŸd~Ô.dz..d§.e~‚fgh.ch.i~¡jkl~’~–mn~åo~¢~“pqr~êsçt~œu~£vwxy~ìz§",
IS_LATIN, ACCENTED_EQUAL, ACCENTED_INTERLEAVED, 0, 0, NULL, NULL, NULL, NULL, 0, NULL };
HB_CODEPAGE_INIT( SK852 );
#if defined(HB_PRAGMA_STARTUP)
#pragma startup hb_codepage_Init_SK852
#elif defined(HB_MSC_STARTUP)
#if _MSC_VER >= 1010
#pragma data_seg( ".CRT$XIY" )
#pragma comment( linker, "/Merge:.CRT=.data" )
#else
#pragma data_seg( "XIY" )
#endif
static HB_$INITSYM hb_vm_auto_hb_codepage_Init_SK852 = hb_codepage_Init_SK852;
#pragma data_seg()
#endif

105
harbour/source/codepage/cpskiso.c Normal file
View File

@@ -0,0 +1,105 @@
/*
* $Id: cpcsiso.c 7249 2007-04-18 08:45:07Z vszakats $
*/
/*
* Harbour Project source code:
* National Collation Support Module ( SKISO )
*
* Copyright 2007 Viktor Szakats <harbour.01 syenar.hu>
* www - http://www.harbour-project.org
*
* 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, 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 software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* Language name: Slovak */
/* ISO language code (2 chars): SK */
/* Codepage: ISO-8859-2 */
#include <ctype.h>
#include "hbapi.h"
#include "hbapicdp.h"
#define NUMBER_OF_CHARACTERS 46 /* The number of single characters in the
alphabet, two-as-one aren't considered
here, accented - are considered. */
#define IS_LATIN 1 /* Should be 1, if the national alphabet
is based on Latin */
#define ACCENTED_EQUAL 1 /* Should be 1, if accented character
has the same weight as appropriate
unaccented. */
#define ACCENTED_INTERLEAVED 1 /* Should be 1, if accented characters
sort after their unaccented counterparts
only if the unaccented versions of all
characters being compared are the same
( interleaving ) */
/* If ACCENTED_EQUAL or ACCENTED_INTERLEAVED is 1, you need to mark the
accented characters with the symbol '~' before each of them, for example:
a~€
If there is two-character sequence, which is considered as one, it should
be marked with '.' before and after it, for example:
... h.ch.i ...
The Upper case string and the Lower case string should be absolutely the
same excepting the characters case, of course.
*/
static HB_CODEPAGE s_codepage = { "SKISO",
HB_CPID_8859_2, HB_UNITB_8859_2, NUMBER_OF_CHARACTERS,
"A~Á~ÄBCÈD~Ï.DZ..D®.E~ÉFGH.CH.I~ÍJKL~Å~¥MN~ÒO~Ó~ÔPQR~ÀS©T~«U~ÚVWXY~ÝZ®",
"a~á~äbcèd~ï.dz..d¾.e~éfgh.ch.i~íjkl~å~µmn~òo~ó~ôpqr~às¹t~»u~úvwxy~ýz¾",
IS_LATIN, ACCENTED_EQUAL, ACCENTED_INTERLEAVED, 0, 0, NULL, NULL, NULL, NULL, 0, NULL };
HB_CODEPAGE_INIT( SKISO );
#if defined(HB_PRAGMA_STARTUP)
#pragma startup hb_codepage_Init_SKISO
#elif defined(HB_MSC_STARTUP)
#if _MSC_VER >= 1010
#pragma data_seg( ".CRT$XIY" )
#pragma comment( linker, "/Merge:.CRT=.data" )
#else
#pragma data_seg( "XIY" )
#endif
static HB_$INITSYM hb_vm_auto_hb_codepage_Init_SKISO = hb_codepage_Init_SKISO;
#pragma data_seg()
#endif

105
harbour/source/codepage/cpskkam.c Normal file
View File

@@ -0,0 +1,105 @@
/*
* $Id: cpcs852.c 7249 2007-04-18 08:45:07Z vszakats $
*/
/*
* Harbour Project source code:
* National Collation Support Module ( SKKAM )
*
* Copyright 2007 Viktor Szakats <harbour.01 syenar.hu>
* www - http://www.harbour-project.org
*
* 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, 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 software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* Language name: Slovak */
/* ISO language code (2 chars): SK */
/* Codepage: Kamenicky ("895") */
#include <ctype.h>
#include "hbapi.h"
#include "hbapicdp.h"
#define NUMBER_OF_CHARACTERS 46 /* The number of single characters in the
alphabet, two-as-one aren't considered
here, accented - are considered. */
#define IS_LATIN 1 /* Should be 1, if the national alphabet
is based on Latin */
#define ACCENTED_EQUAL 1 /* Should be 1, if accented character
has the same weight as appropriate
unaccented. */
#define ACCENTED_INTERLEAVED 1 /* Should be 1, if accented characters
sort after their unaccented counterparts
only if the unaccented versions of all
characters being compared are the same
( interleaving ) */
/* If ACCENTED_EQUAL or ACCENTED_INTERLEAVED is 1, you need to mark the
accented characters with the symbol '~' before each of them, for example:
a~_
If there is two-character sequence, which is considered as one, it should
be marked with '.' before and after it, for example:
... h.ch.i ...
The Upper case string and the Lower case string should be absolutely the
same excepting the characters case, of course.
*/
static HB_CODEPAGE s_codepage = { "SKKAM",
HB_CPID_KAM, HB_UNITB_KAM, NUMBER_OF_CHARACTERS,
"A~<7E>~ŽBC€D~….DZ..D’.E~<7E>FGH.CH.I~‹JKL~Š~œMN~¥O~•~§PQR~«S›T~†U~—VWXY~<7E>Z’",
"a~ ~„bc‡d~ƒ.dz..d‘.e~‚fgh.ch.i~¡jkl~<7E>~Œmn~¤o~¢~“pqr~ªs¨t~Ÿu~£vwxy~˜z‘",
IS_LATIN, ACCENTED_EQUAL, ACCENTED_INTERLEAVED, 0, 0, NULL, NULL, NULL, NULL, 0, NULL };
HB_CODEPAGE_INIT( SKKAM );
#if defined(HB_PRAGMA_STARTUP)
#pragma startup hb_codepage_Init_SKKAM
#elif defined(HB_MSC_STARTUP)
#if _MSC_VER >= 1010
#pragma data_seg( ".CRT$XIY" )
#pragma comment( linker, "/Merge:.CRT=.data" )
#else
#pragma data_seg( "XIY" )
#endif
static HB_$INITSYM hb_vm_auto_hb_codepage_Init_SKKAM = hb_codepage_Init_SKKAM;
#pragma data_seg()
#endif

105
harbour/source/codepage/cpskwin.c Normal file
View File

@@ -0,0 +1,105 @@
/*
* $Id: cpcswin.c 7249 2007-04-18 08:45:07Z vszakats $
*/
/*
* Harbour Project source code:
* National Collation Support Module ( SKWIN )
*
* Copyright 2007 Viktor Szakats <harbour.01 syenar.hu>
* www - http://www.harbour-project.org
*
* 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, 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 software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
/* Language name: Slovak */
/* ISO language code (2 chars): SK */
/* Codepage: Windows-1520 */
#include <ctype.h>
#include "hbapi.h"
#include "hbapicdp.h"
#define NUMBER_OF_CHARACTERS 46 /* The number of single characters in the
alphabet, two-as-one aren't considered
here, accented - are considered. */
#define IS_LATIN 1 /* Should be 1, if the national alphabet
is based on Latin */
#define ACCENTED_EQUAL 1 /* Should be 1, if accented character
has the same weight as appropriate
unaccented. */
#define ACCENTED_INTERLEAVED 1 /* Should be 1, if accented characters
sort after their unaccented counterparts
only if the unaccented versions of all
characters being compared are the same
( interleaving ) */
/* If ACCENTED_EQUAL or ACCENTED_INTERLEAVED is 1, you need to mark the
accented characters with the symbol '~' before each of them, for example:
a~€
If there is two-character sequence, which is considered as one, it should
be marked with '.' before and after it, for example:
... h.ch.i ...
The Upper case string and the Lower case string should be absolutely the
same excepting the characters case, of course.
*/
static HB_CODEPAGE s_codepage = { "SKWIN",
HB_CPID_1250, HB_UNITB_1250, NUMBER_OF_CHARACTERS,
"A~Á~ÄBCÈD~Ï.DZ..DŽ.E~ÉFGH.CH.I~ÍJKL~Å~¼MN~ÒO~Ó~ÔPQR~ÀSŠT~<7E>U~ÚVWXY~ÝZŽ",
"a~á~äbcèd~ï.dz..dž.e~éfgh.ch.i~íjkl~å~¾mn~òo~ó~ôpqr~àsšt~<7E>u~úvwxy~ýzž",
IS_LATIN, ACCENTED_EQUAL, ACCENTED_INTERLEAVED, 0, 0, NULL, NULL, NULL, NULL, 0, NULL };
HB_CODEPAGE_INIT( SKWIN );
#if defined(HB_PRAGMA_STARTUP)
#pragma startup hb_codepage_Init_SKWIN
#elif defined(HB_MSC_STARTUP)
#if _MSC_VER >= 1010
#pragma data_seg( ".CRT$XIY" )
#pragma comment( linker, "/Merge:.CRT=.data" )
#else
#pragma data_seg( "XIY" )
#endif
static HB_$INITSYM hb_vm_auto_hb_codepage_Init_SKWIN = hb_codepage_Init_SKWIN;
#pragma data_seg()
#endif