From 8f6ae8aa61d2b01b284ae76919fa1742f2f0fac0 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 24 Oct 2005 11:46:06 +0000 Subject: [PATCH] 2005-10-24 12:08 UTC+0100 Viktor Szakats (viktor.szakats/syenar.hu) * hrbdll.bc * hrbdll.vc * makefile.bc * makefile.nt * makefile.vc * makefile64.nt * source/codepage/Makefile * source/codepage/cdphu852.c + source/codepage/cdphuiso.c * source/codepage/cdphuwin.c * source/lang/Makefile * source/lang/msghu852.c * source/lang/msghucwi.c + source/lang/msghuiso.c * source/lang/msghuwin.c * HU lang stuff updated. ISO cp added (same as Win cp). Minor fixes (not related to functionality) added. --- harbour/source/codepage/cdphuiso.c | 105 ++++++++++++++ harbour/source/lang/msghuiso.c | 220 +++++++++++++++++++++++++++++ 2 files changed, 325 insertions(+) create mode 100644 harbour/source/codepage/cdphuiso.c create mode 100644 harbour/source/lang/msghuiso.c diff --git a/harbour/source/codepage/cdphuiso.c b/harbour/source/codepage/cdphuiso.c new file mode 100644 index 0000000000..48011254fb --- /dev/null +++ b/harbour/source/codepage/cdphuiso.c @@ -0,0 +1,105 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * National Collation Support Module (HUISO) + * + * Copyright 1999-2005 Viktor Szakats + * 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: Hungarian */ +/* ISO language code (2 chars): HU */ +/* Codepage: ISO-8859-2 */ + +#include +#include "hbapi.h" +#include "hbapicdp.h" + +#define NUMBER_OF_CHARACTERS 35 /* 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 0 /* Should be 1, if accented character + has the same weight as appropriate + unaccented. */ +#define ACCENTED_INTERLEAVED 0 /* 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 = { "HUISO", + CPID_8859_2, UNITB_8859_2, NUMBER_OF_CHARACTERS, + "AÁBCDEÉFGHIÍJKLMNOÓÖŐPQRSTUÚÜŰVWXYZ", + "aábcdeéfghiíjklmnoóöőpqrstuúüűvwxyz", + IS_LATIN, ACCENTED_EQUAL, ACCENTED_INTERLEAVED, 0, 0, NULL, NULL, NULL, NULL, 0, NULL }; + +HB_CODEPAGE_INIT( HUISO ); + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_codepage_Init_HUISO +#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_HUISO = hb_codepage_Init_HUISO; + #pragma data_seg() +#endif diff --git a/harbour/source/lang/msghuiso.c b/harbour/source/lang/msghuiso.c new file mode 100644 index 0000000000..16ed92ff67 --- /dev/null +++ b/harbour/source/lang/msghuiso.c @@ -0,0 +1,220 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (HUISO) + * + * Copyright 1999-2005 Viktor Szakats + * 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: Hungarian */ +/* ISO language code (2 chars): HU */ +/* Codepage: ISO-8859-2 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "HUISO", /* ID */ + "Hungarian", /* Name (in English) */ + "Magyar", /* Name (in native language) */ + "HU", /* RFC ID */ + "ISO-8859-2", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "január", + "február", + "március", + "április", + "május", + "június", + "július", + "augusztus", + "szeptember", + "október", + "november", + "december", + + /* Day names */ + + "vasárnap", + "hétfő", + "kedd", + "szerda", + "csütörtök", + "péntek", + "szombat", + + /* CA-Cl*pper compatible natmsg items */ + + "Adatbázisok Tételszám Utolsó mód. Méret", + "Kéri a további részeket?", + "lapszám", + "** Összesen **", + "* Részösszesen *", + "*** Mindösszesen ***", + "Ins", + " ", + "Rossz dátum", + " Határok ", + " - ", + "I/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Ismeretlen hiba", + "Paraméter hiba", + "Tömbindex hiba", + "Karakteres változó túlcsordulás", + "Numerikus túlcsordulás", + "Nullával való osztás", + "Numerikus hiba", + "Szintaktikus hiba", + "Túl összetett művelet", + "", + "", + "Kevés memória", + "Nem definiált függvény", + "Nem exportált metódus", + "Nem létező változó", + "Nem létező munkaterület név", + "Nem exportált változó", + "Helytelen munkaterület név", + "Már használt munkaterület név", + "", + "Létrehozási hiba", + "Megnyitási hiba", + "Lezárási hiba", + "Olvasási hiba", + "Írás hiba", + "Nyomtatási hiba", + "", + "", + "", + "", + "Nem támogatott művelet", + "Korlát túllépve", + "Index hiba felfedezve", + "Nem megfelelő adattípus", + "Túl széles adat", + "Nem megnyitott munkaterület", + "Nem indexelt munkaterület", + "Kizárólagos megnyitási mód szükséges", + "Zárolás szükséges", + "Írás nem megengedett", + "Zárolás nem sikerült új rekord felvitelekor", + "Zárolás nem sikerült", + "", + "", + "", + "", + "tömbelem hozzáférés", + "tömbelem értékadás", + "tömbelem dimenzió", + "nem tömb", + "feltételes", + + /* Internal error names */ + + "Unrecoverable error %lu: ", + "Error recovery failure", + "No ERRORBLOCK() for error", + "Too many recursive error handler calls", + "RDD invalid or failed to load", + "Invalid method type from %s", + "hb_xgrab can't allocate memory", + "hb_xrealloc called with a NULL pointer", + "hb_xrealloc called with an invalid pointer", + "hb_xrealloc can't reallocate memory", + "hb_xfree called with an invalid pointer", + "hb_xfree called with a NULL pointer", + "Can\'t locate the starting procedure: \'%s\'", + "No starting procedure", + "Unsupported VM opcode", + "Symbol item expected from %s", + "Invalid symbol type for self from %s", + "Codeblock expected from %s", + "Incorrect item type on the stack trying to pop from %s", + "Stack underflow", + "An item was going to be copied to itself from %s", + "Invalid symbol item passed as memvar %s", + "Memory buffer overflow", + "hb_xgrab requested to allocate zero bytes", + "hb_xrealloc requested to resize to zero bytes", + "hb_xalloc requested to allocate zero bytes", + + /* Texts */ + + "YYYY.MM.DD", + "I", + "N" + } +}; + +HB_LANG_ANNOUNCE( HUISO ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HUISO ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_HUISO ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_HUISO +#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_lang_Init_HUISO = hb_lang_Init_HUISO; + #pragma data_seg() +#endif