diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 54a2b1d4fa..8fe29363a8 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,14 @@ +20000519-23:50 GMT-3 Luiz Rafael Culik + *makefile.bc + makefile.vc + source/lang/makefile + +Added new language modules + +source/lang/msgcsiso.c + *Language module for CZECH + *source/lang/msgcs852.c + source/lang/msgcskam.c + *Updated + 20000519-15:40 GMT-8 Ron Pinkas * source/compiler/hbpcode.c diff --git a/harbour/makefile.bc b/harbour/makefile.bc index d8f5a0541f..26c69c2037 100644 --- a/harbour/makefile.bc +++ b/harbour/makefile.bc @@ -319,7 +319,13 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msgpt.obj \ $(OBJ_DIR)\msgro.obj \ $(OBJ_DIR)\msgsr852.obj \ - $(OBJ_DIR)\msgsriso.obj + $(OBJ_DIR)\msgsriso.obj \ + $(OBJ_DIR)\msgcs852.obj \ + $(OBJ_DIR)\msgcsiso.obj \ + $(OBJ_DIR)\msgcskam.obj + + + # # MACRO.LIB rules @@ -1641,6 +1647,18 @@ $(OBJ_DIR)\msgsriso.obj : $(LANG_DIR)\msgsriso.c $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** tlib $(LANG_LIB) $(ARFLAGS) -+$@,, +$(OBJ_DIR)\msgcs852.obj : $(LANG_DIR)\msgcs852.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + +$(OBJ_DIR)\msgcsiso.obj : $(LANG_DIR)\msgcsiso.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + +$(OBJ_DIR)\msgcskam.obj : $(LANG_DIR)\msgcskam.c + $(CC) $(CLIBFLAGS) -I$(LANG_DIR) -o$@ $** + tlib $(LANG_LIB) $(ARFLAGS) -+$@,, + # # MACRO.LIB dependencies # diff --git a/harbour/makefile.vc b/harbour/makefile.vc index 55cd0cf211..e90e3481d9 100644 --- a/harbour/makefile.vc +++ b/harbour/makefile.vc @@ -352,7 +352,10 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msgpt.obj \ $(OBJ_DIR)\msgro.obj \ $(OBJ_DIR)\msgsr852.obj \ - $(OBJ_DIR)\msgsriso.obj + $(OBJ_DIR)\msgsriso.obj \ + $(OBJ_DIR)\msgcs852.obj \ + $(OBJ_DIR)\msgcsiso.obj \ + $(OBJ_DIR)\msgcskam.obj # # MACRO.LIB rules diff --git a/harbour/source/lang/Makefile b/harbour/source/lang/Makefile index 9923cd94a2..e628eecd15 100644 --- a/harbour/source/lang/Makefile +++ b/harbour/source/lang/Makefile @@ -21,6 +21,9 @@ C_SOURCES=\ msgro.c \ msgsr852.c \ msgsriso.c \ + msgcs852.c \ + msgcsiso.c \ + msgcskam.c \ LIBNAME=lang diff --git a/harbour/source/lang/msgcs852.c b/harbour/source/lang/msgcs852.c index 2d1a661910..154750e1df 100644 --- a/harbour/source/lang/msgcs852.c +++ b/harbour/source/lang/msgcs852.c @@ -2,91 +2,189 @@ * $Id$ */ -/* Language Support Module */ +/* + * Harbour Project source code: + * Language Support Module (CS852) + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * 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 of the License, or + * (at your option) any later version, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) 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 HRL + * and/or HVM code into it. + * + * 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, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + * their web site at http://www.gnu.org/). + * + */ /* Language name: Czech */ /* ISO language code (2 chars): CS */ -/* Codepage: Latin II - 852 */ +/* Codepage: 852 */ -#include "hbdefs.h" +#include "hbapilng.h" -char *hb_dateMonthsName[ 12 ] = +static HB_LANG s_lang = { - "leden", - "£nor", - "býezen", - "duben", - "kvØten", - "Ÿerven", - "Ÿervenec", - "srpen", - "z ý¡", - "ý¡jen", - "listopad", - "prosinec" + { + /* Identification */ + + "CS852", /* ID */ + "Czech", /* Name (in English) */ + "¬esky", /* Name (in native language) */ + "CS", /* RFC ID */ + "852", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "leden", + "£nor", + "býezen", + "duben", + "kvØten", + "Yerven", + "Yervenec", + "srpen", + "z ý¡", + "ý¡jen", + "listopad", + "prosinec", + + /* Day names */ + + "nedØle", + "pondØl¡", + "£terì", + "stýeda", + "Ytvrtek", + "p tek", + "sobota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "A/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* 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", + + /* Texts */ + + "YYYY/MM/DD", + "A", + "N" + } }; -char *hb_dateDaysName[ 7 ] = -{ - "nedØle", - "pondØl¡", - "£terì", - "stýeda", - "Ÿtvrtek", - "p tek", - "sobota" -}; +HB_LANG_ANNOUNCE( CS852 ); -char *hb_errorsGeneric[] = -{ - "Unknown error", - "Argument error", - "Bound error", - "String overflow", - "Numeric overflow", - "Zero divisor", - "Numeric error", - "Syntax error", - "Operation too complex", - "", - "", - "Memory low", - "Undefined function", - "No exported method", - "Variable does not exist", - "Alias does not exist", - "No exported variable", - "Illegal characters in alias", - "Alias already in use", - "", - "Create error", - "Open error", - "Close error", - "Read error", - "Write error", - "Print error", - "", - "", - "", - "", - "Operation not supported", - "Limit exceeded", - "Corruption detected", - "Data type error", - "Data width error", - "Workarea not in use", - "Workarea not indexed", - "Exclusive required", - "Lock required", - "Write not allowed", - "Append lock failed", - "Lock Failure", - "", - "", - "", - "Incorrect number of arguments", - "array access", - "array assign", - "not an array", - "conditional" -}; +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CS852 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_CS852 ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_CS852 +#endif \ No newline at end of file diff --git a/harbour/source/lang/msgcsiso.c b/harbour/source/lang/msgcsiso.c new file mode 100644 index 0000000000..968f77a04a --- /dev/null +++ b/harbour/source/lang/msgcsiso.c @@ -0,0 +1,190 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (CSISO) + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * 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 of the License, or + * (at your option) any later version, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) 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 HRL + * and/or HVM code into it. + * + * 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, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + * their web site at http://www.gnu.org/). + * + */ + +/* Language name: Czech */ +/* ISO language code (2 chars): CS */ +/* Codepage: ISO-8859-2 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "CSISO", /* ID */ + "Czech", /* Name (in English) */ + "Èesky", /* Name (in native language) */ + "CS", /* RFC ID */ + "ISO-8859-2", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "leden", + "únor", + "bøezen", + "duben", + "kvìten", + "èerven", + "èervenec", + "srpen", + "záøí", + "øíjen", + "listopad", + "prosinec", + + /* Day names */ + + "nedìle", + "pondìlí", + "úterý", + "støeda", + "ètvrtek", + "pátek", + "sobota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "A/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* 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", + + /* Texts */ + + "YYYY/MM/DD", + "A", + "N" + } +}; + +HB_LANG_ANNOUNCE( CSISO ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSISO ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_CSISO ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_CSISO +#endif \ No newline at end of file diff --git a/harbour/source/lang/msgcskam.c b/harbour/source/lang/msgcskam.c index 00450e1ea5..ae3ea7f180 100644 --- a/harbour/source/lang/msgcskam.c +++ b/harbour/source/lang/msgcskam.c @@ -2,91 +2,189 @@ * $Id$ */ -/* Language Support Module */ +/* + * Harbour Project source code: + * Language Support Module (CSKAM) + * + * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * 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 of the License, or + * (at your option) any later version, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) 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 HRL + * and/or HVM code into it. + * + * 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, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + * their web site at http://www.gnu.org/). + * + */ /* Language name: Czech */ /* ISO language code (2 chars): CS */ -/* Codepage: Czech - Kamenickych (CS2) */ +/* Codepage: Kamenickych (CS2) */ -#include "hbdefs.h" +#include "hbapilng.h" -char *hb_dateMonthsName[ 12 ] = +static HB_LANG s_lang = { - "leden", - "£nor", - "b©ezen", - "duben", - "kvˆten", - "‡erven", - "‡ervenec", - "srpen", - "z ©¡", - "©¡jen", - "listopad", - "prosinec" + { + /* Identification */ + + "CSKAM", /* ID */ + "Czech", /* Name (in English) */ + "?esky", /* Name (in native language) */ + "CS", /* RFC ID */ + "KAM", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "leden", + "£nor", + "b©ezen", + "duben", + "kv^ten", + "?erven", + "?ervenec", + "srpen", + "z ©¡", + "©¡jen", + "listopad", + "prosinec", + + /* Day names */ + + "ned^le", + "pond^l¡", + "£ter~", + "st©eda", + "?tvrtek", + "p tek", + "sobota", + + /* CA-Cl*pper compatible natmsg items */ + + "Database Files # Records Last Update Size", + "Do you want more samples?", + "Page No.", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Invalid date", + "Range: ", + " - ", + "A/N", + "INVALID EXPRESSION", + + /* Error description names */ + + "Unknown error", + "Argument error", + "Bound error", + "String overflow", + "Numeric overflow", + "Zero divisor", + "Numeric error", + "Syntax error", + "Operation too complex", + "", + "", + "Memory low", + "Undefined function", + "No exported method", + "Variable does not exist", + "Alias does not exist", + "No exported variable", + "Illegal characters in alias", + "Alias already in use", + "", + "Create error", + "Open error", + "Close error", + "Read error", + "Write error", + "Print error", + "", + "", + "", + "", + "Operation not supported", + "Limit exceeded", + "Corruption detected", + "Data type error", + "Data width error", + "Workarea not in use", + "Workarea not indexed", + "Exclusive required", + "Lock required", + "Write not allowed", + "Append lock failed", + "Lock Failure", + "", + "", + "", + "", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + + /* 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", + + /* Texts */ + + "YYYY/MM/DD", + "A", + "N" + } }; -char *hb_dateDaysName[ 7 ] = -{ - "nedˆle", - "pondˆl¡", - "£ter˜", - "st©eda", - "‡tvrtek", - "p tek", - "sobota" -}; +HB_LANG_ANNOUNCE( CSKAM ); -char *hb_errorsGeneric[] = -{ - "Unknown error", - "Argument error", - "Bound error", - "String overflow", - "Numeric overflow", - "Zero divisor", - "Numeric error", - "Syntax error", - "Operation too complex", - "", - "", - "Memory low", - "Undefined function", - "No exported method", - "Variable does not exist", - "Alias does not exist", - "No exported variable", - "Illegal characters in alias", - "Alias already in use", - "", - "Create error", - "Open error", - "Close error", - "Read error", - "Write error", - "Print error", - "", - "", - "", - "", - "Operation not supported", - "Limit exceeded", - "Corruption detected", - "Data type error", - "Data width error", - "Workarea not in use", - "Workarea not indexed", - "Exclusive required", - "Lock required", - "Write not allowed", - "Append lock failed", - "Lock Failure", - "", - "", - "", - "Incorrect number of arguments", - "array access", - "array assign", - "not an array", - "conditional" -}; +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_CSKAM ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_CSKAM ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_CSKAM +#endif \ No newline at end of file