diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 48d32753ae..9ca8d45a8a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,4 +1,4 @@ - /* +/* * $Id$ */ @@ -8,6 +8,15 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2002-10-24 15:40 UTC+0300 Alexander Kresin + + source/codepage + + directory for codepage source files is added + + source/codepage/cdpru866.c + + source/codepage/cdprukoi.c + + source/codepage/cdpruwin.c + + source/codepage/Makefile + + Files for Russian codepages and Makefile for codepage library are added + 2002-10-22 18:30 UTC-0400 David G. Holm * source/rtl/set.c ! Removed comment block that incorrectly commented out diff --git a/harbour/source/codepage/Makefile b/harbour/source/codepage/Makefile new file mode 100644 index 0000000000..48bf07c18b --- /dev/null +++ b/harbour/source/codepage/Makefile @@ -0,0 +1,14 @@ +# +# $Id$ +# + +ROOT = ../../ + +C_SOURCES=\ + cdpru866.c \ + cdprukoi.c \ + cdpruwin.c + +LIBNAME=codepage + +include $(TOP)$(ROOT)config/lib.cf diff --git a/harbour/source/codepage/cdpru866.c b/harbour/source/codepage/cdpru866.c new file mode 100644 index 0000000000..6d2b73f7aa --- /dev/null +++ b/harbour/source/codepage/cdpru866.c @@ -0,0 +1,77 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * National Collation Support Module (RU866) + * + * Copyright 2002 Alexander S.Kresin + * 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: Russian */ +/* ISO language code (2 chars): RU */ +/* Codepage: 866 */ + +#include +#include "hbapi.h" +#include "hbapicdp.h" + +static BYTE s_chars[256]; +static BYTE s_upper[256]; +static BYTE s_lower[256]; + +static HB_CODEPAGE s_codepage = { "RU866",32, + "","", + 0,s_chars,s_upper,s_lower }; + +HB_CODEPAGE_ANNOUNCE( RU866 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_codepage_Init_RU866 ) + hb_cdpRegister( &s_codepage ); +HB_CALL_ON_STARTUP_END( hb_codepage_Init_RU866 ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_codepage_Init_RU866 +#endif + diff --git a/harbour/source/codepage/cdprukoi.c b/harbour/source/codepage/cdprukoi.c new file mode 100644 index 0000000000..d517d85d91 --- /dev/null +++ b/harbour/source/codepage/cdprukoi.c @@ -0,0 +1,77 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * National Collation Support Module (RUKOI-8) + * + * Copyright 2002 Alexander S.Kresin + * 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: Russian */ +/* ISO language code (2 chars): RU */ +/* Codepage: KOI-8 */ + +#include +#include "hbapi.h" +#include "hbapicdp.h" + +static BYTE s_chars[256]; +static BYTE s_upper[256]; +static BYTE s_lower[256]; + +static HB_CODEPAGE s_codepage = { "RUKOI8",32, + "","", + 0,s_chars,s_upper,s_lower }; + +HB_CODEPAGE_ANNOUNCE( RUKOI8 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_codepage_Init_RUKOI8 ) + hb_cdpRegister( &s_codepage ); +HB_CALL_ON_STARTUP_END( hb_codepage_Init_RUKOI8 ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_codepage_Init_RUKOI8 +#endif + diff --git a/harbour/source/codepage/cdpruwin.c b/harbour/source/codepage/cdpruwin.c new file mode 100644 index 0000000000..70072b7034 --- /dev/null +++ b/harbour/source/codepage/cdpruwin.c @@ -0,0 +1,77 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * National Collation Support Module (RUWIN) + * + * Copyright 2002 Alexander S.Kresin + * 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: Russian */ +/* ISO language code (2 chars): RU */ +/* Codepage: Windows-1251 */ + +#include +#include "hbapi.h" +#include "hbapicdp.h" + +static BYTE s_chars[256]; +static BYTE s_upper[256]; +static BYTE s_lower[256]; + +static HB_CODEPAGE s_codepage = { "RU1251",32, + "","", + 0,s_chars,s_upper,s_lower }; + +HB_CODEPAGE_ANNOUNCE( RU1251 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_codepage_Init_RU1251 ) + hb_cdpRegister( &s_codepage ); +HB_CALL_ON_STARTUP_END( hb_codepage_Init_RU1251 ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_codepage_Init_RU1251 +#endif +