From ebc3fd9213920798155701312342cd7fd13b6381 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Wed, 6 Oct 2010 05:20:18 +0000 Subject: [PATCH] 2010-10-06 07:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/utils/hbrun/hbrun.prg ! fixed typo in my last commit - Thanks to Frank Van Nuffel for information about the problem + harbour/src/lang/msgsv.c + harbour/src/lang/msgsvwin.c + added Swedish language modules by Klas Engwall (borrowed from xHarbour with some small modifications - please verify) --- harbour/ChangeLog | 10 ++ harbour/src/lang/msgsv.c | 205 ++++++++++++++++++++++++++++++++++ harbour/src/lang/msgsvwin.c | 205 ++++++++++++++++++++++++++++++++++ harbour/utils/hbrun/hbrun.prg | 2 +- 4 files changed, 421 insertions(+), 1 deletion(-) create mode 100644 harbour/src/lang/msgsv.c create mode 100644 harbour/src/lang/msgsvwin.c diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 833e25f5ea..4345ebcc07 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,16 @@ The license applies to all entries newer than 2009-04-28. */ +2010-10-06 07:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/utils/hbrun/hbrun.prg + ! fixed typo in my last commit - Thanks to Frank Van Nuffel for + information about the problem + + + harbour/src/lang/msgsv.c + + harbour/src/lang/msgsvwin.c + + added Swedish language modules by Klas Engwall + (borrowed from xHarbour with some small modifications - please verify) + 2010-10-05 12:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/utils/hbrun/hbrun.prg + extended error message so it reports more precisely the problem diff --git a/harbour/src/lang/msgsv.c b/harbour/src/lang/msgsv.c new file mode 100644 index 0000000000..a95b44b0e2 --- /dev/null +++ b/harbour/src/lang/msgsv.c @@ -0,0 +1,205 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (SV) + * + * Copyright 2006 Klas Engwall + * www - http://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: Swedish */ +/* ISO language code (2 chars): SV */ +/* Codepage: 850 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "SV", /* ID */ + "Swedish", /* Name (in English) */ + "svenska", /* Name (in native language) */ + "SV", /* RFC ID */ + "850", /* Codepage */ + "", /* Version */ + + /* Month names */ + + "januari", + "februari", + "mars", + "april", + "maj", + "juni", + "juli", + "augusti", + "september", + "oktober", + "november", + "december", + + /* Day names */ + + "s”ndag", + "m†ndag", + "tisdag", + "onsdag", + "torsdag", + "fredag", + "l”rdag", + + /* CA-Cl*pper compatible natmsg items */ + + "Databasfiler Antal poster Uppdaterad Storlek", + "Vill du ha fler prover?", + "Sida nr", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Ogiltigt datum", + "Till†tet omr†de: ", + " - ", + "J/N", + "OGILTIGT UTTRYCK", + + /* 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", + "", + "", + "", + "Object destructor failure", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + "Invalid self", + + /* Internal error names */ + + "Unrecoverable error %d: ", + "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", + "J", + "N" + } +}; + +#define HB_LANG_ID SV +#include "hbmsgreg.h" diff --git a/harbour/src/lang/msgsvwin.c b/harbour/src/lang/msgsvwin.c new file mode 100644 index 0000000000..eaae4eddbb --- /dev/null +++ b/harbour/src/lang/msgsvwin.c @@ -0,0 +1,205 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (SVWIN) + * + * Copyright 2006 Klas Engwall + * www - http://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: Swedish WIN*/ +/* ISO language code (2 chars): SV */ +/* Codepage: Windows-1252 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "SVWIN", /* ID */ + "Swedish", /* Name (in English) */ + "svenska", /* Name (in native language) */ + "SV", /* RFC ID */ + "1252", /* Codepage */ + "", /* Version */ + + /* Month names */ + + "januari", + "februari", + "mars", + "april", + "maj", + "juni", + "juli", + "augusti", + "september", + "oktober", + "november", + "december", + + /* Day names */ + + "söndag", + "måndag", + "tisdag", + "onsdag", + "torsdag", + "fredag", + "lördag", + + /* CA-Cl*pper compatible natmsg items */ + + "Databasfiler Antal poster Uppdaterad Storlek", + "Vill du ha fler prover?", + "Sida nr", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "Ogiltigt datum", + "Tillåtet område: ", + " - ", + "J/N", + "OGILTIGT UTTRYCK", + + /* 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", + "", + "", + "", + "Object destructor failure", + "array access", + "array assign", + "array dimension", + "not an array", + "conditional", + "Invalid self", + + /* Internal error names */ + + "Unrecoverable error %d: ", + "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", + "J", + "N" + } +}; + +#define HB_LANG_ID SVWIN +#include "hbmsgreg.h" diff --git a/harbour/utils/hbrun/hbrun.prg b/harbour/utils/hbrun/hbrun.prg index ec3fb479db..6e0b25a339 100644 --- a/harbour/utils/hbrun/hbrun.prg +++ b/harbour/utils/hbrun/hbrun.prg @@ -140,8 +140,8 @@ PROCEDURE _APPMAIN( cFile, ... ) s_aIncDir, "-I" + FNameDirGet( cFile ), "-D" + "__HBSCRIPT__HBRUN", cFile ) IF cFile == NIL ERRORLEVEL( 1 ) + EXIT ENDIF - EXIT OTHERWISE s_cDirBase := hb_DirBase() hb_argShift( .T. )