diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 2b16dc4dcf..f15e069219 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,184 @@ +2001-05-15 15:02 UTC+0100 Viktor Szakats + + * contrib/hbclip/hbarg.c + * contrib/hbclip/hbclip.h + * contrib/hbclip/hbclip.prg + * contrib/hbclip/hbcolind.c + * contrib/hbclip/hbkeyput.prg + * contrib/hbclip/hbshadow.prg + * contrib/hbclip/hbstod.c + * contrib/hbclip/hbstodx.c + * contrib/hbclip/hbvaltoc.prg + * contrib/hbclip/readme.txt + * contrib/libct/charevod.c + * contrib/libct/charmix.c + * contrib/libct/ctchksum.c + * contrib/libct/ctcolton.c + * contrib/libct/ctcrypt.c + * contrib/libct/ctmisc.prg + * contrib/libct/ctposupp.c + * contrib/libct/readme.txt + * contrib/libmisc/numtxthu.prg + * contrib/libmisc/strfmt.c + * contrib/libmisc/doc/en/ht_str.txt + * doc/cmdline.txt + * doc/hdr_tpl.txt + * doc/howtocvs.txt + * doc/howtomak.txt + * doc/en/hb_apiln.txt + * doc/en/hb_compa.txt + * doc/en/hb_date.txt + * doc/en/terminal.txt + * doc/es/lang.txt + * include/clipdefs.h + * include/error.api + * include/extend.api + * include/extend.h + * include/fm.api + * include/gt.api + * include/hbapigt.h + * include/hbapilng.h + * include/hbdate.h + * include/hbmemory.ch + * include/hboo.ch + * include/hbsetup.ch + * include/hbundoc.api + * include/hbvmpub.h + * include/item.api + * include/rdd.api + * include/vm.api + * source/common/hbfsapi.c + * source/common/hbstr.c + * source/common/hbver.c + * source/compiler/cmdcheck.c + * source/compiler/hbusage.c + * source/debug/dbgtmenu.prg + * source/debug/dbgtmitm.prg + * source/debug/dbgtwin.prg + * source/debug/debugger.prg + * source/lang/msgcs852.c + * source/lang/msgcsiso.c + * source/lang/msgcskam.c + * source/lang/msgcswin.c + * source/lang/msgen.c + * source/lang/msgfr.c + * source/lang/msghe862.c + * source/lang/msghewin.c + * source/lang/msghr852.c + * source/lang/msghriso.c + * source/lang/msghu852.c + * source/lang/msghucwi.c + * source/lang/msghuwin.c + * source/lang/msgis850.c + * source/lang/msgro.c + * source/pp/ppcore.c + * source/rdd/dbnubs.c + * source/rdd/dbfntx/dbfntx0.prg + * source/rtl/accept.c + * source/rtl/adir.prg + * source/rtl/alert.prg + * source/rtl/ampm.c + * source/rtl/binnumx.c + * source/rtl/box.c + * source/rtl/colorind.c + * source/rtl/console.c + * source/rtl/dates.c + * source/rtl/dateshb.c + * source/rtl/datesx.c + * source/rtl/dirdrive.c + * source/rtl/diskspac.c + * source/rtl/disksphb.c + * source/rtl/dummy.prg + * source/rtl/errorapi.c + * source/rtl/fieldbl.prg + * source/rtl/filesys.c + * source/rtl/fkmax.c + * source/rtl/fnsplit.c + * source/rtl/fssize.c + * source/rtl/fstemp.c + * source/rtl/gete.c + * source/rtl/getlist.prg + * source/rtl/gt.c + * source/rtl/gtapi.c + * source/rtl/gtapiu.c + * source/rtl/gx.c + * source/rtl/inkey.c + * source/rtl/isprint.c + * source/rtl/langapi.c + * source/rtl/lennum.c + * source/rtl/memofile.c + * source/rtl/mouseapi.c + * source/rtl/mousex.c + * source/rtl/natmsg.c + * source/rtl/net.c + * source/rtl/oemansi.c + * source/rtl/oldclear.c + * source/rtl/pad.c + * source/rtl/philes.c + * source/rtl/philesx.c + * source/rtl/readkey.prg + * source/rtl/readvar.prg + * source/rtl/samples.c + * source/rtl/setposbs.c + * source/rtl/soundex.c + * source/rtl/strings.c + * source/rtl/strmatch.c + * source/rtl/strzero.c + * source/rtl/type.c + * source/rtl/val.c + * source/rtl/version.c + * source/rtl/word.c + * source/rtl/xhelp.c + * source/rtl/xsavescr.c + * source/rtl/gtcgi/gtcgi.c + * source/rtl/gtcgi/mousecgi.c + * source/rtl/gtcrs/mousecrs.c + * source/rtl/gtdos/gtdos.c + * source/rtl/gtpca/mousepca.c + * source/rtl/gtsln/mousesln.c + * source/rtl/gtstd/gtstd.c + * source/rtl/gtstd/mousestd.c + * source/rtl/gtwin/gtwin.c + * source/vm/arrays.c + * source/vm/asort.c + * source/vm/classes.c + * source/vm/cmdarg.c + * source/vm/extend.c + * source/vm/fm.c + * source/vm/harbinit.prg + * source/vm/hvm.c + * source/vm/itemapi.c + * source/vm/main.c + * source/vm/memvars.c + * source/vm/memvclip.c + * source/vm/proc.c + * tests/fortest.prg + * tests/langapi.prg + * tests/lnlenli1.prg + * tests/lnlenli2.prg + * tests/memfile.prg + * tests/memory.prg + * tests/statinit.prg + * tests/vec1.prg + * utils/hbtest/hbtest.prg + * utils/hbtest/rt_array.prg + * utils/hbtest/rt_date.prg + * utils/hbtest/rt_file.prg + * utils/hbtest/rt_hvm.prg + * utils/hbtest/rt_hvma.prg + * utils/hbtest/rt_init.ch + * utils/hbtest/rt_main.ch + * utils/hbtest/rt_math.prg + * utils/hbtest/rt_misc.prg + * utils/hbtest/rt_str.prg + * utils/hbtest/rt_stra.prg + * utils/hbtest/rt_trans.prg + * utils/hbtest/rt_vars.ch + ! Corrected names, copyrights, dates for Viktor Szakats. + + * include/Makefile + ! Fixed missing hb_io.h + 2001-05-15 13:46 UTC+0100 Viktor Szakats * make_gnu.bat diff --git a/harbour/contrib/hbclip/hbarg.c b/harbour/contrib/hbclip/hbarg.c index 2e95611ca8..596903a161 100644 --- a/harbour/contrib/hbclip/hbarg.c +++ b/harbour/contrib/hbclip/hbarg.c @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_ARGC(), HB_ARGV() functions * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbclip.h b/harbour/contrib/hbclip/hbclip.h index 82b1a25440..c55218252c 100644 --- a/harbour/contrib/hbclip/hbclip.h +++ b/harbour/contrib/hbclip/hbclip.h @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * Header file to help compile C file for both Harbour and Clipper * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbclip.prg b/harbour/contrib/hbclip/hbclip.prg index d6b7dfc6fa..81a7ad272e 100644 --- a/harbour/contrib/hbclip/hbclip.prg +++ b/harbour/contrib/hbclip/hbclip.prg @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * Some simple and dummy functions (to use instead of hbclip.ch) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbcolind.c b/harbour/contrib/hbclip/hbcolind.c index 5dcb43fd5e..56a8be12f2 100644 --- a/harbour/contrib/hbclip/hbcolind.c +++ b/harbour/contrib/hbclip/hbcolind.c @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_COLORINDEX() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbkeyput.prg b/harbour/contrib/hbclip/hbkeyput.prg index 35a425da5f..819c3d98a1 100644 --- a/harbour/contrib/hbclip/hbkeyput.prg +++ b/harbour/contrib/hbclip/hbkeyput.prg @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_KEYPUT() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbshadow.prg b/harbour/contrib/hbclip/hbshadow.prg index 2ba49b9171..22957ae0e5 100644 --- a/harbour/contrib/hbclip/hbshadow.prg +++ b/harbour/contrib/hbclip/hbshadow.prg @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_SHADOW() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbstod.c b/harbour/contrib/hbclip/hbstod.c index 2975824c67..7797f73d75 100644 --- a/harbour/contrib/hbclip/hbstod.c +++ b/harbour/contrib/hbclip/hbstod.c @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_STOD() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbstodx.c b/harbour/contrib/hbclip/hbstodx.c index b18381de7d..f2e9e9390b 100644 --- a/harbour/contrib/hbclip/hbstodx.c +++ b/harbour/contrib/hbclip/hbstodx.c @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * STOD() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/hbclip/hbvaltoc.prg b/harbour/contrib/hbclip/hbvaltoc.prg index 6984c70d8c..865f2ce7a9 100644 --- a/harbour/contrib/hbclip/hbvaltoc.prg +++ b/harbour/contrib/hbclip/hbvaltoc.prg @@ -6,20 +6,13 @@ * Harbour Compatibility Library for CA-Cl*pper source code: * HB_VALTOSTR() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -42,7 +59,7 @@ FUNCTION HB_VALTOSTR( xValue ) CASE cType == "N" ; RETURN Str( xValue ) CASE cType == "L" ; RETURN iif( xValue, ".T.", ".F." ) CASE cType == "U" ; RETURN "NIL" - ENDCASE + ENDCASE RETURN "" diff --git a/harbour/contrib/hbclip/readme.txt b/harbour/contrib/hbclip/readme.txt index f52b92f1a5..35f4c9b471 100644 --- a/harbour/contrib/hbclip/readme.txt +++ b/harbour/contrib/hbclip/readme.txt @@ -18,5 +18,5 @@ Later on add HBCLIP.LIB to your link script. Optionally you may want to #include "hbclip.ch" to your source files. -Victor Szakats +Viktor Szakats diff --git a/harbour/contrib/libct/charevod.c b/harbour/contrib/libct/charevod.c index 437a466cbc..0b03a17906 100644 --- a/harbour/contrib/libct/charevod.c +++ b/harbour/contrib/libct/charevod.c @@ -8,7 +8,7 @@ * - CHAREVEN() * - CHARODD() * - * Copyright 2000 Victor Szakats + * Copyright 2000-2001 Viktor Szakats * * Merged into one file for optimization and some small corrections: * (c) 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany diff --git a/harbour/contrib/libct/charmix.c b/harbour/contrib/libct/charmix.c index 3a83aa2db3..38a6568369 100644 --- a/harbour/contrib/libct/charmix.c +++ b/harbour/contrib/libct/charmix.c @@ -6,7 +6,7 @@ * Harbour Project source code: * CHARMIX() CT3 function * - * Initial code: Copyright 1999 Victor Szakats + * Initial code: Copyright 1999-2001 Viktor Szakats * * CT3 conformity: Copyright 2001 IntTec GmbH, Neunlindenstr 32, 79106 Freiburg, Germany * Author: Martin Vogel diff --git a/harbour/contrib/libct/ctchksum.c b/harbour/contrib/libct/ctchksum.c index c484578533..9c026f74f7 100644 --- a/harbour/contrib/libct/ctchksum.c +++ b/harbour/contrib/libct/ctchksum.c @@ -6,20 +6,13 @@ * Harbour Project source code: * CHECKSUM() CA-Tools function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -45,7 +62,7 @@ HB_FUNC( CHECKSUM ) for( ulPos = 0; ulPos < ulLen; ulPos++ ) ulResult += ( ( ULONG ) ( pbyString[ ulPos ] + ( ULONG ) ( pbyString[ ulPos + 1 ] * 256 ) ) ) & 0xFFFF; - /* NOTE: Using hb_retnd() instead of hb_retnl() to always return a + /* NOTE: Using hb_retnd() instead of hb_retnl() to always return a positive value. */ hb_retnd( ( ULONG ) ( ( ulResult & 0x00FFFFFF ) | ( ( ulLen & 0xFF ) << 24 ) ) ); diff --git a/harbour/contrib/libct/ctcolton.c b/harbour/contrib/libct/ctcolton.c index 2cf6f57e48..a600b9aa43 100644 --- a/harbour/contrib/libct/ctcolton.c +++ b/harbour/contrib/libct/ctcolton.c @@ -6,20 +6,13 @@ * Harbour Project source code: * COLORTON() CA-Tools function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -47,7 +64,7 @@ static BYTE StrToColor( char * pszColor ) case '*': color |= 0x80; break; - + case '+': color |= 0x08; break; diff --git a/harbour/contrib/libct/ctcrypt.c b/harbour/contrib/libct/ctcrypt.c index 06261e6b8d..9e828927fc 100644 --- a/harbour/contrib/libct/ctcrypt.c +++ b/harbour/contrib/libct/ctcrypt.c @@ -6,20 +6,13 @@ * Harbour Project source code: * CRYPT() CA-Tools compatible function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/libct/ctmisc.prg b/harbour/contrib/libct/ctmisc.prg index acec1184bf..602d2389f4 100644 --- a/harbour/contrib/libct/ctmisc.prg +++ b/harbour/contrib/libct/ctmisc.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Misc CA-Tools functions * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/libct/ctposupp.c b/harbour/contrib/libct/ctposupp.c index 5a4eac8987..35886ce5b5 100644 --- a/harbour/contrib/libct/ctposupp.c +++ b/harbour/contrib/libct/ctposupp.c @@ -6,20 +6,13 @@ * Harbour Project source code: * POSUPPER() CA-Tools function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/libct/readme.txt b/harbour/contrib/libct/readme.txt index 589d0fa8a0..d2dbe09c89 100644 --- a/harbour/contrib/libct/readme.txt +++ b/harbour/contrib/libct/readme.txt @@ -8,7 +8,7 @@ CA-T**ls Compatible Library for Harbour The goal of this library is to provide the functionality of the original CA-T**ls 3 Library for CA-Cl*pper. -Victor Szakats +Viktor Szakats Changes and Enhancements over the original CA-T**ls 3 Library diff --git a/harbour/contrib/libmisc/doc/en/ht_str.txt b/harbour/contrib/libmisc/doc/en/ht_str.txt index f128429f85..674c4776e4 100644 --- a/harbour/contrib/libmisc/doc/en/ht_str.txt +++ b/harbour/contrib/libmisc/doc/en/ht_str.txt @@ -6,7 +6,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * STRFORMAT() documentation * * See doc/license.txt for licensing terms. diff --git a/harbour/contrib/libmisc/numtxthu.prg b/harbour/contrib/libmisc/numtxthu.prg index 68cd7e3a28..360e6e8371 100644 --- a/harbour/contrib/libmisc/numtxthu.prg +++ b/harbour/contrib/libmisc/numtxthu.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * NumToTxtHU() function to convert a number to Hungarian text * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/contrib/libmisc/strfmt.c b/harbour/contrib/libmisc/strfmt.c index 66a7946c70..749da6234d 100644 --- a/harbour/contrib/libmisc/strfmt.c +++ b/harbour/contrib/libmisc/strfmt.c @@ -6,20 +6,13 @@ * Harbour Project source code: * STRFORMAT() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/doc/cmdline.txt b/harbour/doc/cmdline.txt index c8b3b84746..4c66c147c5 100644 --- a/harbour/doc/cmdline.txt +++ b/harbour/doc/cmdline.txt @@ -91,4 +91,4 @@ Exceptions: "//" should always be used on the command line. -Victor Szakats +Viktor Szakats diff --git a/harbour/doc/en/hb_apiln.txt b/harbour/doc/en/hb_apiln.txt index d70dd6ebc8..ae38783bed 100644 --- a/harbour/doc/en/hb_apiln.txt +++ b/harbour/doc/en/hb_apiln.txt @@ -6,7 +6,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Header file for the Language API * * See doc/license.txt for licensing terms. diff --git a/harbour/doc/en/hb_compa.txt b/harbour/doc/en/hb_compa.txt index fecde39224..b1cdb4967f 100644 --- a/harbour/doc/en/hb_compa.txt +++ b/harbour/doc/en/hb_compa.txt @@ -6,7 +6,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Compatibility header file for CA-Clipper Virtual Memory API * * See doc/license.txt for licensing terms. diff --git a/harbour/doc/en/hb_date.txt b/harbour/doc/en/hb_date.txt index 83ddbfd9c5..9b025a5932 100644 --- a/harbour/doc/en/hb_date.txt +++ b/harbour/doc/en/hb_date.txt @@ -6,7 +6,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Header file for the Date API * * See doc/license.txt for licensing terms. diff --git a/harbour/doc/en/terminal.txt b/harbour/doc/en/terminal.txt index 34a9f66a16..8f451f96ea 100644 --- a/harbour/doc/en/terminal.txt +++ b/harbour/doc/en/terminal.txt @@ -6,7 +6,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Documentation for: HB_COLORINDEX() * * Copyright 1999 Jose Lalin diff --git a/harbour/doc/es/lang.txt b/harbour/doc/es/lang.txt index 461f8bba73..b066998f8f 100644 --- a/harbour/doc/es/lang.txt +++ b/harbour/doc/es/lang.txt @@ -6,7 +6,7 @@ * Copyright 2000 Alejandro de Gárate * Documentación en Español de: HB_LANGSELECT(), HB_LANGNAME() * - * Copyright 2000 Victor Szakatz + * Copyright 2000-2001 Viktor Szakats * Documentación en Inglés de: HB_LANGSELECT(), HB_LANGNAME() * * Vea doc/license.txt por los términos de la licencia. diff --git a/harbour/doc/hdr_tpl.txt b/harbour/doc/hdr_tpl.txt index a8f736e466..b99d27c1ce 100644 --- a/harbour/doc/hdr_tpl.txt +++ b/harbour/doc/hdr_tpl.txt @@ -161,37 +161,38 @@ FUNCTION HEADER EXAMPLE /* * ChangeLog: * + * V 1.15 Viktor Szakats Name correction * V 1.14 David G. Holm Second year 2000 chaned to 2001 * V 1.13 David G. Holm Year changed to 2001 from 2000. * License changed to be compatible with * the Guile 1.4 license (the old one * was based on an earlier Guile). - * V 1.12 Victor Szakats Year changed to 2000 from 1999. - * V 1.11 Victor Szakats $FILES$ added. - * V 1.10 Victor Szakats $PLATFORMS$ added. - * V 1.9 Victor Szakats Small format changes. - * V 1.8 Victor Szakats licence -> license - * V 1.7 Victor Szakats History separated from the file header + * V 1.12 Viktor Szakats Year changed to 2000 from 1999. + * V 1.11 Viktor Szakats $FILES$ added. + * V 1.10 Viktor Szakats $PLATFORMS$ added. + * V 1.9 Viktor Szakats Small format changes. + * V 1.8 Viktor Szakats licence -> license + * V 1.7 Viktor Szakats History separated from the file header * template. Slight changes in the format * of the header. Removed "(proposal)" * from the top of the file. Added partial * copyright header template. - * V 1.6 Victor Szakats RCS Id section separated from + * V 1.6 Viktor Szakats RCS Id section separated from * Licenc text. - * V 1.5 Victor Szakats Small name correction. + * V 1.5 Viktor Szakats Small name correction. * V 1.4 David G. Holm Removed "(C)" from Copyright notice * Put author's name rather than date * next to each version number, because * the RCS tracks dates, but only tracks * CVS user names, not author names. - * V 1.3 Victor Szakats Description line changed to be a + * V 1.3 Viktor Szakats Description line changed to be a * template, too. * V 1.2 David G. Holm Added HRL/HVM license exception for * executables. Added GNU web site. * Replaced "?" in copyright statement * with "(list of individual authors)". - * V 1.1 Victor Szakats Added templates for file and function + * V 1.1 Viktor Szakats Added templates for file and function * headers. Committed to CVS. - * V 1.0 Victor Szakats Initial version. + * V 1.0 Viktor Szakats Initial version. * */ diff --git a/harbour/doc/howtocvs.txt b/harbour/doc/howtocvs.txt index 6ffe4cef9b..3bc20a4114 100644 --- a/harbour/doc/howtocvs.txt +++ b/harbour/doc/howtocvs.txt @@ -19,7 +19,7 @@ Content 1.1 Here's how to prepare for uploading to the CVS server ========================================================= -by Victor Szakats +by Viktor Szakats 1) Read the Harbour FAQ (www.harbour-project.org), monitor the mailing-list (Harbour at www.egroups.com), consult with the @@ -37,7 +37,7 @@ by Victor Szakats 1.2 Here's how to upload your changes to the CVS server ======================================================= -by Victor Szakats +by Viktor Szakats 1) Do the changes in the source, and in parallel modify ChangeLog 2) Go online (if needed) @@ -75,14 +75,14 @@ Important notes: 1.3 Here's how to format your ChangeLog entries =============================================== -by Victor Szakats +by Viktor Szakats - Always add new entries to the top of the ChangeLog file. - Add an entry header using this format: YYYY-MM-DD HH:MM UTC[-|+]hhmm Your Full Name - For example: 2000-05-27 23:12 UTC+0100 Victor Szakats + For example: 2000-05-27 23:12 UTC+0100 Viktor Szakats - Add a entry body which lists all filenames changed, all of them with full path spec. Mention the name of the changed function or diff --git a/harbour/doc/howtomak.txt b/harbour/doc/howtomak.txt index c2d89fd341..5905dc7fce 100644 --- a/harbour/doc/howtomak.txt +++ b/harbour/doc/howtomak.txt @@ -32,5 +32,5 @@ To build Harbour using non-GNU make with MSVC: To build a final executable, see above, but use BIN/BLD*.* instead of MAKE*.* -Victor Szakats +Viktor Szakats diff --git a/harbour/include/Makefile b/harbour/include/Makefile index 878f4efdf5..51d8ae9efb 100644 --- a/harbour/include/Makefile +++ b/harbour/include/Makefile @@ -35,6 +35,7 @@ C_HEADERS=\ hbver.h \ hbvm.h \ hbvmpub.h \ + hb_io.h \ PRG_HEADERS=\ achoice.ch \ diff --git a/harbour/include/clipdefs.h b/harbour/include/clipdefs.h index 726d2e1c0d..f92fdb2d0d 100644 --- a/harbour/include/clipdefs.h +++ b/harbour/include/clipdefs.h @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper base definitions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -40,7 +57,7 @@ #ifndef _CLIPDEFS_H #define _CLIPDEFS_H - + #include "hbapi.h" /* Old types */ diff --git a/harbour/include/error.api b/harbour/include/error.api index c6ae1e7e18..3b840fdc5f 100644 --- a/harbour/include/error.api +++ b/harbour/include/error.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Error API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/extend.api b/harbour/include/extend.api index a795c0530f..74b5cc48cc 100644 --- a/harbour/include/extend.api +++ b/harbour/include/extend.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Extend API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/extend.h b/harbour/include/extend.h index 54110185af..451e707bbe 100644 --- a/harbour/include/extend.h +++ b/harbour/include/extend.h @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Extend System * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/fm.api b/harbour/include/fm.api index 09697aceaa..a3f5e10eda 100644 --- a/harbour/include/fm.api +++ b/harbour/include/fm.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Fixed Memory API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/gt.api b/harbour/include/gt.api index b408dfe3cc..d4d6fec39c 100644 --- a/harbour/include/gt.api +++ b/harbour/include/gt.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Terminal API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbapigt.h b/harbour/include/hbapigt.h index 98a5215dde..7c96f08ed1 100644 --- a/harbour/include/hbapigt.h +++ b/harbour/include/hbapigt.h @@ -59,7 +59,7 @@ * Cursor declarations * See above for licensing terms. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Mouse related declarations * Undocumented GT API declarations * See doc/license.txt for licensing terms. diff --git a/harbour/include/hbapilng.h b/harbour/include/hbapilng.h index fbdda87f8b..0965898ab0 100644 --- a/harbour/include/hbapilng.h +++ b/harbour/include/hbapilng.h @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for the Language API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbdate.h b/harbour/include/hbdate.h index 741cbe4ba5..3d739bf51d 100644 --- a/harbour/include/hbdate.h +++ b/harbour/include/hbdate.h @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for the Date API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbmemory.ch b/harbour/include/hbmemory.ch index ed1bcd8fa5..89d6a38c3b 100644 --- a/harbour/include/hbmemory.ch +++ b/harbour/include/hbmemory.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for MEMORY() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hboo.ch b/harbour/include/hboo.ch index ea926c780f..ca85af912f 100644 --- a/harbour/include/hboo.ch +++ b/harbour/include/hboo.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for low-level object engine * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbsetup.ch b/harbour/include/hbsetup.ch index 0b638e0c1f..b4b4cc1204 100644 --- a/harbour/include/hbsetup.ch +++ b/harbour/include/hbsetup.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for runtime configuration, common for Harbour and C level. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbundoc.api b/harbour/include/hbundoc.api index 8598c741b0..d3137f2a9b 100644 --- a/harbour/include/hbundoc.api +++ b/harbour/include/hbundoc.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for undocumented C API functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/hbvmpub.h b/harbour/include/hbvmpub.h index f9092b4b41..83b3354894 100644 --- a/harbour/include/hbvmpub.h +++ b/harbour/include/hbvmpub.h @@ -6,20 +6,13 @@ * Harbour Project source code: * Header file for the generated C language source code * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/item.api b/harbour/include/item.api index 273d311fa2..2a68fe7761 100644 --- a/harbour/include/item.api +++ b/harbour/include/item.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Item API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/rdd.api b/harbour/include/rdd.api index 8c1cb9af5e..fddbac76dc 100644 --- a/harbour/include/rdd.api +++ b/harbour/include/rdd.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper RDD API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/include/vm.api b/harbour/include/vm.api index 02edd8892c..56cf7b6d0c 100644 --- a/harbour/include/vm.api +++ b/harbour/include/vm.api @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility header file for CA-Clipper Virtual Memory API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/common/hbfsapi.c b/harbour/source/common/hbfsapi.c index 55a490a500..051ee30592 100644 --- a/harbour/source/common/hbfsapi.c +++ b/harbour/source/common/hbfsapi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Harbour common FileSys API (accessed from standalone utilities and the RTL) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -180,7 +197,7 @@ char * hb_fsFNameMerge( char * pszFileName, PHB_FNAME pFileName ) if( pFileName->szExtension ) { /* Add a dot if the extension doesn't have it */ - if( pFileName->szExtension[ 0 ] != '\0' && + if( pFileName->szExtension[ 0 ] != '\0' && pFileName->szExtension[ 0 ] != '.' ) strcat( pszFileName, "." ); diff --git a/harbour/source/common/hbstr.c b/harbour/source/common/hbstr.c index 68b5700c74..8c99111556 100644 --- a/harbour/source/common/hbstr.c +++ b/harbour/source/common/hbstr.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Harbour common string functions (accessed from standalone utilities and the RTL) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/common/hbver.c b/harbour/source/common/hbver.c index c4760312b5..fcb92e7616 100644 --- a/harbour/source/common/hbver.c +++ b/harbour/source/common/hbver.c @@ -44,7 +44,7 @@ * hb_verPlatform() (support for determining many windows flavours) * hb_verCompiler() (support for determining some compiler version/revision) * - * Copyright 2000 Victor Szakats + * Copyright 2000-2001 Viktor Szakats * hb_verPlatform() (support for detecting Windows NT on DOS) * hb_verPlatform() (rearrangment and cleanup) * diff --git a/harbour/source/compiler/cmdcheck.c b/harbour/source/compiler/cmdcheck.c index 707c1f109a..20575a1367 100644 --- a/harbour/source/compiler/cmdcheck.c +++ b/harbour/source/compiler/cmdcheck.c @@ -43,7 +43,7 @@ * Copyright 1999 Jose Lalin * hb_compChkEnvironVar() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * PackDateTime() * hb_compChkDefineSwitch() * hb_compChkDefines() diff --git a/harbour/source/compiler/hbusage.c b/harbour/source/compiler/hbusage.c index 65c9bdf911..e22a41f9a3 100644 --- a/harbour/source/compiler/hbusage.c +++ b/harbour/source/compiler/hbusage.c @@ -11,15 +11,8 @@ * * 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg index 9cf92146e6..6b25d79845 100644 --- a/harbour/source/debug/dbgtmenu.prg +++ b/harbour/source/debug/dbgtmenu.prg @@ -52,7 +52,7 @@ /* NOTE: Don't use SAY/DevOut()/DevPos() for screen output, otherwise the debugger output may interfere with the applications output - redirection, and is also slower. [vszel] */ + redirection, and is also slower. [vszakats] */ #include "hbclass.ch" #include "hbmemvar.ch" diff --git a/harbour/source/debug/dbgtmitm.prg b/harbour/source/debug/dbgtmitm.prg index 07d6dd5a88..a73579241f 100644 --- a/harbour/source/debug/dbgtmitm.prg +++ b/harbour/source/debug/dbgtmitm.prg @@ -52,7 +52,7 @@ /* NOTE: Don't use SAY/DevOut()/DevPos() for screen output, otherwise the debugger output may interfere with the applications output - redirection, and is also slower. [vszel] */ + redirection, and is also slower. [vszakats] */ #include "hbclass.ch" #include "common.ch" diff --git a/harbour/source/debug/dbgtwin.prg b/harbour/source/debug/dbgtwin.prg index e8d8e1a4c9..a9dad920be 100644 --- a/harbour/source/debug/dbgtwin.prg +++ b/harbour/source/debug/dbgtwin.prg @@ -52,7 +52,7 @@ /* NOTE: Don't use SAY/DevOut()/DevPos() for screen output, otherwise the debugger output may interfere with the applications output - redirection, and is also slower. [vszel] */ + redirection, and is also slower. [vszakats] */ #include "hbclass.ch" #include "hbmemvar.ch" diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 88798906d5..59054bbe2b 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -57,7 +57,7 @@ /* NOTE: Don't use SAY/DevOut()/DevPos() for screen output, otherwise the debugger output may interfere with the applications output - redirection, and is also slower. [vszel] */ + redirection, and is also slower. [vszakats] */ #pragma -es0 #include "hbclass.ch" #include "hbmemvar.ch" diff --git a/harbour/source/lang/msgcs852.c b/harbour/source/lang/msgcs852.c index 61157870ff..4d63edb0a1 100644 --- a/harbour/source/lang/msgcs852.c +++ b/harbour/source/lang/msgcs852.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (CS852) * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msgcsiso.c b/harbour/source/lang/msgcsiso.c index 4206ef4646..8b7b82fd2b 100644 --- a/harbour/source/lang/msgcsiso.c +++ b/harbour/source/lang/msgcsiso.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (CSISO) * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msgcskam.c b/harbour/source/lang/msgcskam.c index e15b5647ea..fa111fa366 100644 --- a/harbour/source/lang/msgcskam.c +++ b/harbour/source/lang/msgcskam.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (CSKAM) * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msgcswin.c b/harbour/source/lang/msgcswin.c index 97de59581e..0e2427cbfe 100644 --- a/harbour/source/lang/msgcswin.c +++ b/harbour/source/lang/msgcswin.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (CSWIN) WIN1250 * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Roman Masek * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org diff --git a/harbour/source/lang/msgen.c b/harbour/source/lang/msgen.c index 4c49abff13..5ff411104f 100644 --- a/harbour/source/lang/msgen.c +++ b/harbour/source/lang/msgen.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Language Support Module (EN) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -43,16 +60,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "EN", /* ID */ "English", /* Name (in English) */ "English", /* Name (in native language) */ "EN", /* RFC ID */ "437", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "January", "February", "March", @@ -65,9 +82,9 @@ static HB_LANG s_lang = "October", "November", "December", - + /* Day names */ - + "Sunday", "Monday", "Tuesday", @@ -75,9 +92,9 @@ static HB_LANG s_lang = "Thursday", "Friday", "Saturday", - + /* CA-Cl*pper compatible natmsg items */ - + "Database Files # Records Last Update Size", "Do you want more samples?", "Page No.", @@ -91,9 +108,9 @@ static HB_LANG s_lang = " - ", "Y/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Unknown error", "Argument error", "Bound error", @@ -145,35 +162,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "YYYY/MM/DD", "Y", "N" diff --git a/harbour/source/lang/msgfr.c b/harbour/source/lang/msgfr.c index 58a0aed918..e1bf870ebe 100644 --- a/harbour/source/lang/msgfr.c +++ b/harbour/source/lang/msgfr.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Language Support Module (FR) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -43,16 +60,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "FR", /* ID */ "French", /* Name (in English) */ "fran‡ais", /* Name (in native language) */ "FR", /* RFC ID */ "850", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "Janvier", "F‚vrier", "Mars", @@ -65,9 +82,9 @@ static HB_LANG s_lang = "Octobre", "Novembre", "D‚cembre", - + /* Day names */ - + "Dimanche", "Lundi", "Mardi", @@ -75,9 +92,9 @@ static HB_LANG s_lang = "Jeudi", "Vendredi", "Samedi" - + /* CA-Cl*pper compatible natmsg items */ - + "Base de donn‚es Nb d'enreg Date j-m-ae Taille", "Voulez-vous d'autres ‚chantillons?", "No. de pages", @@ -91,9 +108,9 @@ static HB_LANG s_lang = " - ", "O/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Unknown error", "Argument error", "Bound error", @@ -145,35 +162,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "DD-MM-YYYY", "O", "N" diff --git a/harbour/source/lang/msghe862.c b/harbour/source/lang/msghe862.c index 509386354c..5bf0072187 100644 --- a/harbour/source/lang/msghe862.c +++ b/harbour/source/lang/msghe862.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (HE862) * - * Copyright 2000 Victor Szakats (English, from msgen.c) + * Copyright 2000 Viktor Szakats (English, from msgen.c) * Copyright 2000 Chen Kedem (Hebrew) * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msghewin.c b/harbour/source/lang/msghewin.c index 0c476e3f55..60073706b9 100644 --- a/harbour/source/lang/msghewin.c +++ b/harbour/source/lang/msghewin.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (HEWIN) * - * Copyright 2000 Victor Szakats (English, from msgen.c) + * Copyright 2000 Viktor Szakats (English, from msgen.c) * Copyright 2000 Chen Kedem (Hebrew) * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msghr852.c b/harbour/source/lang/msghr852.c index 2ce882c0a6..be3c5bbd9d 100644 --- a/harbour/source/lang/msghr852.c +++ b/harbour/source/lang/msghr852.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (HR852) * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msghriso.c b/harbour/source/lang/msghriso.c index 88504c0087..2fe81aca94 100644 --- a/harbour/source/lang/msghriso.c +++ b/harbour/source/lang/msghriso.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (HRISO) * - * Copyright 2000 Victor Szakats (English, from msg_tpl.c) + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) * Copyright 2000 Davor Siklic * www - http://www.harbour-project.org * diff --git a/harbour/source/lang/msghu852.c b/harbour/source/lang/msghu852.c index c654de46ad..58aaeb2ce0 100644 --- a/harbour/source/lang/msghu852.c +++ b/harbour/source/lang/msghu852.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Language Support Module (HU852) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -43,16 +60,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "HU852", /* ID */ "Hungarian", /* Name (in English) */ "Magyar", /* Name (in native language) */ "HU", /* RFC ID */ "852", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "janu r", "febru r", "m rcius", @@ -65,9 +82,9 @@ static HB_LANG s_lang = "okt¢ber", "november", "december", - + /* Day names */ - + "vas rnap", "h‚tf‹", "kedd", @@ -75,9 +92,9 @@ static HB_LANG s_lang = "cst”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", @@ -91,9 +108,9 @@ static HB_LANG s_lang = " - ", "I/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Ismeretlen hiba", "Param‚ter hiba", "T”mbindex hiba", @@ -145,35 +162,35 @@ static HB_LANG s_lang = "t”mbelem dimenzi¢", "nem t”mb", "felt‚teles", - + /* Internal error names */ - + "Kezelhetetlen hiba %lu: ", "Hiba kezel‚si hiba", - "Nincs ERRORBLOCK() a hiba kezel‚s‚hez", - "T£l sok rekurz¡v hiba kezel‹ h¡v s", + "Nincs ERRORBLOCK() a hiba kezel‚s‚hez", + "T£l sok rekurz¡v hiba kezel‹ h¡v s", "Az RDD hib s vagy nem sikerlt bet”lteni", "Nem megfelel‹ t¡pus£ met¢dus (%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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "YYYY.MM.DD", "I", "N" diff --git a/harbour/source/lang/msghucwi.c b/harbour/source/lang/msghucwi.c index 6c25bbe997..fb891a156e 100644 --- a/harbour/source/lang/msghucwi.c +++ b/harbour/source/lang/msghucwi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Language Support Module (HUCWI) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -43,16 +60,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "HUCWI", /* ID */ "Hungarian", /* Name (in English) */ "Magyar", /* Name (in native language) */ "HU", /* RFC ID */ "CWI-2", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "janu r", "febru r", "m rcius", @@ -65,9 +82,9 @@ static HB_LANG s_lang = "okt¢ber", "november", "december", - + /* Day names */ - + "vas rnap", "h‚tf“", "kedd", @@ -75,9 +92,9 @@ static HB_LANG s_lang = "cst”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", @@ -91,9 +108,9 @@ static HB_LANG s_lang = " - ", "I/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Ismeretlen hiba", "Param‚ter hiba", "T”mbindex hiba", @@ -145,35 +162,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "YYYY.MM.DD", "I", "N" diff --git a/harbour/source/lang/msghuwin.c b/harbour/source/lang/msghuwin.c index 907fdb67a1..259b5f2462 100644 --- a/harbour/source/lang/msghuwin.c +++ b/harbour/source/lang/msghuwin.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Language Support Module (HUWIN) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -43,16 +60,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "HUWIN", /* ID */ "Hungarian", /* Name (in English) */ "Magyar", /* Name (in native language) */ "HU", /* RFC ID */ "Windows-1", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "január", "február", "március", @@ -65,9 +82,9 @@ static HB_LANG s_lang = "október", "november", "december", - + /* Day names */ - + "vasárnap", "hétfõ", "kedd", @@ -75,9 +92,9 @@ static HB_LANG s_lang = "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", @@ -91,9 +108,9 @@ static HB_LANG s_lang = " - ", "I/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Ismeretlen hiba", "Paraméter hiba", "Tömbindex hiba", @@ -145,35 +162,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "YYYY.MM.DD", "I", "N" diff --git a/harbour/source/lang/msgis850.c b/harbour/source/lang/msgis850.c index fef3dc7793..ee8989e860 100644 --- a/harbour/source/lang/msgis850.c +++ b/harbour/source/lang/msgis850.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (IS850) * - * Copyright 2000 Victor Szakats (English, from msgen.c) + * Copyright 2000 Viktor Szakats (English, from msgen.c) * Copyright 2000 David G. Holm (Icelandic) * www - http://www.harbour-project.org * @@ -44,16 +44,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "IS850", /* ID */ "Icelandic", /* Name (in English) */ "Öslenska", /* Name (in native language) */ "IS", /* RFC ID */ "850", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "Jan£ar", "Febr£ar", "Mars", @@ -66,9 +66,9 @@ static HB_LANG s_lang = "Okt¢ber", "N¢vember", "Desember", - + /* Day names */ - + "Sunnudagur", "M nudagur", "èriÐjudagur", @@ -76,9 +76,9 @@ static HB_LANG s_lang = "Fimmtudagur", "F”studagur", "Laugardagur", - + /* CA-Cl*pper compatible natmsg items */ - + "Gagnagrunnar Skr artal S¡Ðast Breytt St‘rÐ", "Viltu fleyri pr¢fanir?", "Blads¡Ða", @@ -92,9 +92,9 @@ static HB_LANG s_lang = " - ", "J/N", "àGILD EXPRESSION", - + /* Error description names */ - + "Unknown error", "Argument error", "Bound error", @@ -146,35 +146,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "YYYY-MM-DD", "J", "N" diff --git a/harbour/source/lang/msgro.c b/harbour/source/lang/msgro.c index f1d672f7e3..c8cdee4eab 100644 --- a/harbour/source/lang/msgro.c +++ b/harbour/source/lang/msgro.c @@ -6,7 +6,7 @@ * Harbour Project source code: * Language Support Module (RO) * - * Copyright 2000 Victor Szakats + * Copyright 2000-2001 Viktor Szakats * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify @@ -43,16 +43,16 @@ static HB_LANG s_lang = { { /* Identification */ - + "RO", /* ID */ "Romanian", /* Name (in English) */ "Romƒn", /* Name (in native language) */ "RO", /* RFC ID */ "852", /* Codepage */ "$Revision$ $Date$", /* Version */ - + /* Month names */ - + "ianuarie", "februarie", "martie", @@ -65,9 +65,9 @@ static HB_LANG s_lang = "octombrie", "noiembrie", "decembrie", - + /* Day names */ - + "duminicÇ", "luni", "marîi", @@ -77,7 +77,7 @@ static HB_LANG s_lang = "sƒmbÇtÇ", /* CA-Cl*pper compatible natmsg items */ - + "Database Files # Records Last Update Size", "Do you want more samples?", "Page No.", @@ -91,9 +91,9 @@ static HB_LANG s_lang = " - ", "D/N", "INVALID EXPRESSION", - + /* Error description names */ - + "Unknown error", "Argument error", "Bound error", @@ -145,35 +145,35 @@ static HB_LANG s_lang = "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", + "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", + "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", + "No starting procedure", + "Unsupported VM opcode", "Symbol item expected from %s", - "Invalid symbol type for self from %s", - "Codeblock 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", + "Stack underflow", + "An item was going to be copied to itself from %s", "Invalid symbol item passed as memvar %s", "Memory buffer overflow", - + /* Texts */ - + "DD.MM.YYYY", "D", "N" diff --git a/harbour/source/pp/ppcore.c b/harbour/source/pp/ppcore.c index 4af8b27c9a..b14a193440 100644 --- a/harbour/source/pp/ppcore.c +++ b/harbour/source/pp/ppcore.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * __DATE__, __TIME__, __HB_MAIN__ support * * Copyright 2000 Ron Pinkas diff --git a/harbour/source/rdd/dbfntx/dbfntx0.prg b/harbour/source/rdd/dbfntx/dbfntx0.prg index 7e7936b4f3..df2d027def 100644 --- a/harbour/source/rdd/dbfntx/dbfntx0.prg +++ b/harbour/source/rdd/dbfntx/dbfntx0.prg @@ -49,7 +49,7 @@ return /* NOTE: Commented out, because in Harbour the INIT order is not guaranteed, so it can happen that this error handler will be installed *before* - the default error, but it this case it will not work. [vszel] */ + the default error, but it this case it will not work. [vszakats] */ /* diff --git a/harbour/source/rdd/dbnubs.c b/harbour/source/rdd/dbnubs.c index bf45dbff47..7929c76cf5 100644 --- a/harbour/source/rdd/dbnubs.c +++ b/harbour/source/rdd/dbnubs.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Internal versions for database version (Clipper undocumented) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/accept.c b/harbour/source/rtl/accept.c index eaa32e47d6..e151f33a6e 100644 --- a/harbour/source/rtl/accept.c +++ b/harbour/source/rtl/accept.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * __ACCEPTSTR() * * See doc/license.txt for licensing terms. diff --git a/harbour/source/rtl/adir.prg b/harbour/source/rtl/adir.prg index bc56d162a0..94baca3ed0 100644 --- a/harbour/source/rtl/adir.prg +++ b/harbour/source/rtl/adir.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * ADIR() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/alert.prg b/harbour/source/rtl/alert.prg index 3ebf28208a..bfc56c9ca4 100644 --- a/harbour/source/rtl/alert.prg +++ b/harbour/source/rtl/alert.prg @@ -15,7 +15,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Changes for higher Clipper compatibility, console mode, extensions * __NONOALERT() * diff --git a/harbour/source/rtl/ampm.c b/harbour/source/rtl/ampm.c index c8ac2ceb0c..3123d45b93 100644 --- a/harbour/source/rtl/ampm.c +++ b/harbour/source/rtl/ampm.c @@ -6,20 +6,13 @@ * Harbour Project source code: * AMPM() compatibility function from the SAMPLES directory of Clipper. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/binnumx.c b/harbour/source/rtl/binnumx.c index 27108c648d..3a6ef64dbb 100644 --- a/harbour/source/rtl/binnumx.c +++ b/harbour/source/rtl/binnumx.c @@ -6,20 +6,13 @@ * Harbour Project source code: * BIN2U(), W2BIN(), U2BIN() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/box.c b/harbour/source/rtl/box.c index 867b964f84..cf2a57b2d0 100644 --- a/harbour/source/rtl/box.c +++ b/harbour/source/rtl/box.c @@ -6,20 +6,13 @@ * Harbour Project source code: * DISPBOX() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -57,21 +74,21 @@ HB_FUNC( DISPBOX ) if( ISCHAR( 5 ) ) hb_gtBox( hb_itemGetNI( pTop ), - hb_itemGetNI( pLeft), - hb_itemGetNI( pBottom ), - hb_itemGetNI( pRight ), + hb_itemGetNI( pLeft), + hb_itemGetNI( pBottom ), + hb_itemGetNI( pRight ), ( BYTE * ) hb_parc( 5 ) ); else if( ISNUM( 5 ) && hb_parni( 5 ) == 2 ) hb_gtBoxD( hb_itemGetNI( pTop ), - hb_itemGetNI( pLeft), - hb_itemGetNI( pBottom ), + hb_itemGetNI( pLeft), + hb_itemGetNI( pBottom ), hb_itemGetNI( pRight ) ); else hb_gtBoxS( hb_itemGetNI( pTop ), - hb_itemGetNI( pLeft), - hb_itemGetNI( pBottom ), + hb_itemGetNI( pLeft), + hb_itemGetNI( pBottom ), hb_itemGetNI( pRight ) ); if( pszColor ) diff --git a/harbour/source/rtl/colorind.c b/harbour/source/rtl/colorind.c index 9fb43ad71b..10b97abaf1 100644 --- a/harbour/source/rtl/colorind.c +++ b/harbour/source/rtl/colorind.c @@ -6,20 +6,13 @@ * Harbour Project source code: * HB_COLORINDEX() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/console.c b/harbour/source/rtl/console.c index 30322522d2..96f851f9c0 100644 --- a/harbour/source/rtl/console.c +++ b/harbour/source/rtl/console.c @@ -61,7 +61,7 @@ * hb_conOutStd(), OUTSTD(), PCOL(), PROW(), * SETPRC(), and hb_conInit() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_conNewLine() * DISPOUTAT() * diff --git a/harbour/source/rtl/dates.c b/harbour/source/rtl/dates.c index 62190da3de..7a313c422e 100644 --- a/harbour/source/rtl/dates.c +++ b/harbour/source/rtl/dates.c @@ -60,7 +60,7 @@ * Copyright 1999 David G. Holm * hb_dateFormat() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_dateEncStr() * hb_dateDecStr() * hb_dateStrPut() @@ -166,7 +166,7 @@ void hb_dateStrGet( const char * szDate, long * plYear, long * plMonth, long * p /* Date string has correct length, so attempt to convert */ *plYear = ( ( USHORT ) ( szDate[ 0 ] - '0' ) * 1000 ) + ( ( USHORT ) ( szDate[ 1 ] - '0' ) * 100 ) + - ( ( USHORT ) ( szDate[ 2 ] - '0' ) * 10 ) + + ( ( USHORT ) ( szDate[ 2 ] - '0' ) * 10 ) + ( USHORT ) ( szDate[ 3 ] - '0' ); *plMonth = ( ( szDate[ 4 ] - '0' ) * 10 ) + ( szDate[ 5 ] - '0' ); *plDay = ( ( szDate[ 6 ] - '0' ) * 10 ) + ( szDate[ 7 ] - '0' ); @@ -389,7 +389,7 @@ long hb_dateDOW( long lYear, long lMonth, long lDay ) else lMonth++; - return ( lDay + 26 * lMonth / 10 + + return ( lDay + 26 * lMonth / 10 + lYear + lYear / 4 - lYear / 100 + lYear / 400 + 6 ) % 7 + 1; } diff --git a/harbour/source/rtl/dateshb.c b/harbour/source/rtl/dateshb.c index 24d2b5d5a9..34374cee65 100644 --- a/harbour/source/rtl/dateshb.c +++ b/harbour/source/rtl/dateshb.c @@ -64,7 +64,7 @@ * CTOD() * DATE() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * HB_STOD() * * See doc/license.txt for licensing terms. diff --git a/harbour/source/rtl/datesx.c b/harbour/source/rtl/datesx.c index d980d6d2e4..9c5f7d3632 100644 --- a/harbour/source/rtl/datesx.c +++ b/harbour/source/rtl/datesx.c @@ -6,20 +6,13 @@ * Harbour Project source code: * STOD() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/dirdrive.c b/harbour/source/rtl/dirdrive.c index e00abf4f9d..809769fc8e 100644 --- a/harbour/source/rtl/dirdrive.c +++ b/harbour/source/rtl/dirdrive.c @@ -6,20 +6,13 @@ * Harbour Project source code: * DIRCHANGE(), MAKEDIR(), DIRREMOVE(), ISDISK(), DISKCHANGE(), DISKNAME() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/diskspac.c b/harbour/source/rtl/diskspac.c index 6ba79617ec..c660ef92bb 100644 --- a/harbour/source/rtl/diskspac.c +++ b/harbour/source/rtl/diskspac.c @@ -6,20 +6,13 @@ * Harbour Project source code: * DISKSPACE() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/disksphb.c b/harbour/source/rtl/disksphb.c index 8a5c51bd8f..0e0fa13f29 100644 --- a/harbour/source/rtl/disksphb.c +++ b/harbour/source/rtl/disksphb.c @@ -6,20 +6,13 @@ * Harbour Project source code: * HB_DISKSPACE() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/dummy.prg b/harbour/source/rtl/dummy.prg index 2765e83b2d..6628f7d3d4 100644 --- a/harbour/source/rtl/dummy.prg +++ b/harbour/source/rtl/dummy.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Dummy functions until they are not implemented * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c index 9cc385b890..fd73db0951 100644 --- a/harbour/source/rtl/errorapi.c +++ b/harbour/source/rtl/errorapi.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * DOSERROR() * __ERRINHANDLER() * __ERRRT_BASE() diff --git a/harbour/source/rtl/fieldbl.prg b/harbour/source/rtl/fieldbl.prg index 66eac6f28e..87f3468d00 100644 --- a/harbour/source/rtl/fieldbl.prg +++ b/harbour/source/rtl/fieldbl.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * FIELDBLOCK() and FIELDWBLOCK() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c index f1262eb854..ffaca9546c 100644 --- a/harbour/source/rtl/filesys.c +++ b/harbour/source/rtl/filesys.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_fsSetError() * hb_fsSetDevMode() * hb_fsReadLarge() diff --git a/harbour/source/rtl/fkmax.c b/harbour/source/rtl/fkmax.c index 066d0b9a44..cb764fd0ca 100644 --- a/harbour/source/rtl/fkmax.c +++ b/harbour/source/rtl/fkmax.c @@ -6,20 +6,13 @@ * Harbour Project source code: * FKMAX(), FKLABEL() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/fnsplit.c b/harbour/source/rtl/fnsplit.c index 1a955be7fb..50e3b7652f 100644 --- a/harbour/source/rtl/fnsplit.c +++ b/harbour/source/rtl/fnsplit.c @@ -6,20 +6,13 @@ * Harbour Project source code: * HB_FNAMESPLIT(), HB_FNAMEMERGE() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/fssize.c b/harbour/source/rtl/fssize.c index c3c926a750..e0ceab701d 100644 --- a/harbour/source/rtl/fssize.c +++ b/harbour/source/rtl/fssize.c @@ -6,21 +6,14 @@ * Harbour Project source code: * HB_FSIZE() function * - * Copyright 2000 Jose Lalin - * Victor Szakats + * Copyright 2000-2001 Jose Lalin + * 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 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. + * 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 @@ -28,9 +21,33 @@ * 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/). + * 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. * */ @@ -63,21 +80,21 @@ ULONG hb_fsFSize( BYTE * pszFileName, BOOL bUseDirEntry ) else { FHANDLE hFileHandle = hb_fsOpen( pszFileName, 0 ); - + if( hFileHandle != FS_ERROR ) { ULONG ulPos; - + ulPos = hb_fsSeek( hFileHandle, 0, SEEK_END ); hb_fsClose( hFileHandle ); - + errno = 0; - + hb_fsSetError( 0 ); return ulPos; } } - + hb_fsSetError( FS_ERROR ); return 0; } @@ -86,7 +103,7 @@ ULONG hb_fsFSize( BYTE * pszFileName, BOOL bUseDirEntry ) HB_FUNC( HB_FSIZE ) { - hb_retnl( ISCHAR( 1 ) ? hb_fsFSize( ( BYTE * ) hb_parc( 1 ), + hb_retnl( ISCHAR( 1 ) ? hb_fsFSize( ( BYTE * ) hb_parc( 1 ), ISLOG( 2 ) ? hb_parl( 2 ) : TRUE ) : 0 ); } diff --git a/harbour/source/rtl/fstemp.c b/harbour/source/rtl/fstemp.c index d35090df44..043b2bb010 100644 --- a/harbour/source/rtl/fstemp.c +++ b/harbour/source/rtl/fstemp.c @@ -6,21 +6,14 @@ * Harbour Project source code: * HB_FTEMPNAME(), HB_FTEMPCREATE() functions * - * Copyright 2000 Jose Lalin - * Victor Szakats + * Copyright 2000-2001 Jose Lalin + * 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 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. + * 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 @@ -28,9 +21,33 @@ * 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/). + * 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. * */ @@ -60,9 +77,9 @@ FHANDLE hb_fsCreateTemp( const BYTE * pszDir, const BYTE * pszPrefix, USHORT uiA BYTE szName[ _POSIX_PATH_MAX + 1 ]; hb_fsTempName( szName, pszDir, pszPrefix ); - + errno = 0; - + if( szName[ 0 ] ) return hb_fsCreate( szName, uiAttribute ); @@ -77,7 +94,7 @@ HB_FUNC( HB_FTEMPNAME ) BYTE szName[ _POSIX_PATH_MAX + 1 ]; hb_fsTempName( szName, NULL, NULL ); - + hb_retc( ( char * ) szName ); } diff --git a/harbour/source/rtl/gete.c b/harbour/source/rtl/gete.c index 05e07869d5..dd1f425e97 100644 --- a/harbour/source/rtl/gete.c +++ b/harbour/source/rtl/gete.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * GETE() * * See doc/license.txt for licensing terms. @@ -64,7 +64,7 @@ #include "hbapi.h" #include "hbapiitm.h" -/* NOTE: The second parameter is a Harbour extension. In CA-Cl*pper the +/* NOTE: The second parameter is a Harbour extension. In CA-Cl*pper the function will return an empty string if called with more than one parameter. [vszakats] */ diff --git a/harbour/source/rtl/getlist.prg b/harbour/source/rtl/getlist.prg index d6914ca0b3..8445a057bd 100644 --- a/harbour/source/rtl/getlist.prg +++ b/harbour/source/rtl/getlist.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * GET system active getlist handler for default TGETLIST/GETSYS/READVAR * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gt.c b/harbour/source/rtl/gt.c index 4a1577baf4..93be26565f 100644 --- a/harbour/source/rtl/gt.c +++ b/harbour/source/rtl/gt.c @@ -6,20 +6,13 @@ * Harbour Project source code: * DISPBEGIN(), DISPEND(), DISPCOUNT() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c index bfd3250ceb..23af36e2ff 100644 --- a/harbour/source/rtl/gtapi.c +++ b/harbour/source/rtl/gtapi.c @@ -48,7 +48,7 @@ * hb_gtSetColorStr() * hb_gtSetMode() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_gtDrawShadow() * * See doc/license.txt for licensing terms. @@ -1134,4 +1134,4 @@ USHORT hb_gtResume( void ) hb_gt_DispBegin(); return 0; -} \ No newline at end of file +} diff --git a/harbour/source/rtl/gtapiu.c b/harbour/source/rtl/gtapiu.c index 33c5ea4741..1832e86e93 100644 --- a/harbour/source/rtl/gtapiu.c +++ b/harbour/source/rtl/gtapiu.c @@ -6,20 +6,13 @@ * Harbour Project source code: * The Terminal API (undocumented part) * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -91,9 +108,9 @@ BOOL hb_gtWVis( HB_GT_WND * wnd, USHORT uiStatus ) USHORT hb_gtSLR( HB_GT_SLR * pSLR ) /* System Level Request */ { - /* Do nothing in Harbour, since the low-level GT API is + /* Do nothing in Harbour, since the low-level GT API is implemented with a different method than in CA-Cl*pper. */ - + HB_SYMBOL_UNUSED( pSLR ); return 1; diff --git a/harbour/source/rtl/gtcgi/gtcgi.c b/harbour/source/rtl/gtcgi/gtcgi.c index 594f6754c1..65f627786c 100644 --- a/harbour/source/rtl/gtcgi/gtcgi.c +++ b/harbour/source/rtl/gtcgi/gtcgi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Video subsystem for plain ANSI C stream IO * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtcgi/mousecgi.c b/harbour/source/rtl/gtcgi/mousecgi.c index 85ec058f89..f70646b432 100644 --- a/harbour/source/rtl/gtcgi/mousecgi.c +++ b/harbour/source/rtl/gtcgi/mousecgi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse subsystem for plain ANSI C stream IO (stub) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtcrs/mousecrs.c b/harbour/source/rtl/gtcrs/mousecrs.c index facea849ed..f4ea5e398f 100644 --- a/harbour/source/rtl/gtcrs/mousecrs.c +++ b/harbour/source/rtl/gtcrs/mousecrs.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse subsystem based on ncurses * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtdos/gtdos.c b/harbour/source/rtl/gtdos/gtdos.c index 6cc54e5db8..3617236ad8 100644 --- a/harbour/source/rtl/gtdos/gtdos.c +++ b/harbour/source/rtl/gtdos/gtdos.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_gt_CtrlBrkHandler() * hb_gt_CtrlBrkRestore() * diff --git a/harbour/source/rtl/gtpca/mousepca.c b/harbour/source/rtl/gtpca/mousepca.c index 85ec058f89..f70646b432 100644 --- a/harbour/source/rtl/gtpca/mousepca.c +++ b/harbour/source/rtl/gtpca/mousepca.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse subsystem for plain ANSI C stream IO (stub) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtsln/mousesln.c b/harbour/source/rtl/gtsln/mousesln.c index 85ec058f89..f70646b432 100644 --- a/harbour/source/rtl/gtsln/mousesln.c +++ b/harbour/source/rtl/gtsln/mousesln.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse subsystem for plain ANSI C stream IO (stub) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtstd/gtstd.c b/harbour/source/rtl/gtstd/gtstd.c index 559b2d28ac..a6f3c1b59b 100644 --- a/harbour/source/rtl/gtstd/gtstd.c +++ b/harbour/source/rtl/gtstd/gtstd.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Video subsystem for plain ANSI C stream IO * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtstd/mousestd.c b/harbour/source/rtl/gtstd/mousestd.c index 85ec058f89..f70646b432 100644 --- a/harbour/source/rtl/gtstd/mousestd.c +++ b/harbour/source/rtl/gtstd/mousestd.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse subsystem for plain ANSI C stream IO (stub) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/gtwin/gtwin.c b/harbour/source/rtl/gtwin/gtwin.c index 5ab2a0fc00..8518f8366f 100644 --- a/harbour/source/rtl/gtwin/gtwin.c +++ b/harbour/source/rtl/gtwin/gtwin.c @@ -38,7 +38,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_gt_CtrlHandler() * * Copyright 1999 David G. Holm diff --git a/harbour/source/rtl/gx.c b/harbour/source/rtl/gx.c index 81841cc9be..d8b6c559eb 100644 --- a/harbour/source/rtl/gx.c +++ b/harbour/source/rtl/gx.c @@ -6,20 +6,13 @@ * Harbour Project source code: * NOSNOW(), SETMODE(), ISCOLOR() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/inkey.c b/harbour/source/rtl/inkey.c index e7a01709f6..62f60cb98f 100644 --- a/harbour/source/rtl/inkey.c +++ b/harbour/source/rtl/inkey.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * HB_KEYPUT() * * See doc/license.txt for licensing terms. @@ -109,7 +109,7 @@ static int hb_inkeyFetch( void ) /* Extract the next key from the keyboard buffe else key = s_inkeyLast = s_inkeyForce; /* Typeahead support is disabled */ s_inkeyForce = 0; - + return key; } @@ -145,12 +145,12 @@ int hb_inkey( BOOL bWait, double dSeconds, HB_inkey_enum event_mask ) */ clock_t end_clock; struct tms tm; - + end_clock = times( &tm ) + ( clock_t ) ( dSeconds * 100 ); while( hb_inkeyNext( event_mask ) == 0 && (times( &tm ) < end_clock) ) #else clock_t end_clock = clock() + ( clock_t ) ( dSeconds * CLOCKS_PER_SEC ); - + while( hb_inkeyNext( event_mask ) == 0 && clock() < end_clock ) #endif { diff --git a/harbour/source/rtl/isprint.c b/harbour/source/rtl/isprint.c index cf14efb084..6950d7fe7a 100644 --- a/harbour/source/rtl/isprint.c +++ b/harbour/source/rtl/isprint.c @@ -6,20 +6,13 @@ * Harbour Project source code: * ISPRINTER() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/langapi.c b/harbour/source/rtl/langapi.c index 87582d3ab3..bce5440e15 100644 --- a/harbour/source/rtl/langapi.c +++ b/harbour/source/rtl/langapi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * The Language API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/lennum.c b/harbour/source/rtl/lennum.c index ed9332d65f..ff9ee83910 100644 --- a/harbour/source/rtl/lennum.c +++ b/harbour/source/rtl/lennum.c @@ -6,20 +6,13 @@ * Harbour Project source code: * LENNUM() compatibility function from the SAMPLES directory of Clipper. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/memofile.c b/harbour/source/rtl/memofile.c index 8fa6f1fc6a..c58ebb04cc 100644 --- a/harbour/source/rtl/memofile.c +++ b/harbour/source/rtl/memofile.c @@ -6,20 +6,13 @@ * Harbour Project source code: * MEMOWRIT()/MEMOREAD() functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -38,7 +55,7 @@ #include "hbapifs.h" /* NOTE: CA-Clipper has 64K (65516 bytes exactly) limit on read, in Harbour - this limit is extended, so we are not *strictly* compatible here. + this limit is extended, so we are not *strictly* compatible here. [vszakats] */ HB_FUNC( MEMOREAD ) diff --git a/harbour/source/rtl/mouseapi.c b/harbour/source/rtl/mouseapi.c index 89fcf2558d..1f477b1510 100644 --- a/harbour/source/rtl/mouseapi.c +++ b/harbour/source/rtl/mouseapi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Mouse API * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -168,12 +185,12 @@ HB_FUNC( MSETCURSOR ) HB_FUNC( MROW ) { - hb_retni( hb_mouseRow() ); + hb_retni( hb_mouseRow() ); } HB_FUNC( MCOL ) { - hb_retni( hb_mouseCol() ); + hb_retni( hb_mouseCol() ); } HB_FUNC( MSETPOS ) @@ -210,16 +227,16 @@ HB_FUNC( MSAVESTATE ) int iTop, iLeft, iBottom, iRight; USHORT uiPos; - USHORT uiLen = sizeof( int ) + - sizeof( int ) + + USHORT uiLen = sizeof( int ) + + sizeof( int ) + sizeof( BOOL ) + - sizeof( int ) + - sizeof( int ) + - sizeof( int ) + + sizeof( int ) + + sizeof( int ) + + sizeof( int ) + sizeof( int ); BYTE * pBuffer = ( BYTE * ) hb_xgrab( uiLen ); - + hb_mouseGetBounds( &iTop, &iLeft, &iBottom, &iRight ); uiPos = 0; @@ -244,12 +261,12 @@ HB_FUNC( MSAVESTATE ) HB_FUNC( MRESTSTATE ) { - USHORT uiLen = sizeof( int ) + - sizeof( int ) + + USHORT uiLen = sizeof( int ) + + sizeof( int ) + sizeof( BOOL ) + - sizeof( int ) + - sizeof( int ) + - sizeof( int ) + + sizeof( int ) + + sizeof( int ) + + sizeof( int ) + sizeof( int ); if( ISCHAR( 1 ) && hb_parclen( 1 ) == ( ULONG ) uiLen ) diff --git a/harbour/source/rtl/mousex.c b/harbour/source/rtl/mousex.c index cf670aee46..3d383d697b 100644 --- a/harbour/source/rtl/mousex.c +++ b/harbour/source/rtl/mousex.c @@ -6,20 +6,13 @@ * Harbour Project source code: * NUMBUTTONS(), SETMOUSE() Xbase++ compatible functions. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/natmsg.c b/harbour/source/rtl/natmsg.c index 3ddad61a1a..9c41cfa2dd 100644 --- a/harbour/source/rtl/natmsg.c +++ b/harbour/source/rtl/natmsg.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * _NATSORTVER() * _NATMSGVER() * @@ -51,8 +51,8 @@ #include "hbapiitm.h" #include "hbapilng.h" -/* NOTE: Ad-hoc names mostly taken from various Clipper source files. - These should be named properly if exported outside this file. +/* NOTE: Ad-hoc names mostly taken from various Clipper source files. + These should be named properly if exported outside this file. [vszakats] */ #define _DIR_HEADER 1 /* "Database Files # Records Last Update Size" */ @@ -101,7 +101,7 @@ HB_FUNC( NATIONMSG ) hb_retc( "" ); } -/* NOTE: Intentionally using one leading underscore, like in Clipper. +/* NOTE: Intentionally using one leading underscore, like in Clipper. [vszakats] */ HB_FUNC( _NATSORTVER ) @@ -112,7 +112,7 @@ HB_FUNC( _NATSORTVER ) hb_retc( "NATSORT (Harbour)" ); } -/* NOTE: Intentionally using one leading underscore, like in Clipper. +/* NOTE: Intentionally using one leading underscore, like in Clipper. [vszakats] */ HB_FUNC( _NATMSGVER ) diff --git a/harbour/source/rtl/net.c b/harbour/source/rtl/net.c index 1cc7cc4154..d7f4ced940 100644 --- a/harbour/source/rtl/net.c +++ b/harbour/source/rtl/net.c @@ -6,20 +6,13 @@ * Harbour Project source code: * NETNAME() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/oemansi.c b/harbour/source/rtl/oemansi.c index 3b254b896d..6487a436ad 100644 --- a/harbour/source/rtl/oemansi.c +++ b/harbour/source/rtl/oemansi.c @@ -6,20 +6,13 @@ * Harbour Project source code: * OEM <-> ANSI string conversion functions (Win32 specific, Xbase++ ext.) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -62,7 +79,7 @@ HB_FUNC( HB_ANSITOOEM ) else hb_retc( "" ); } - + HB_FUNC( HB_OEMTOANSI ) { PHB_ITEM pString = hb_param( 1, HB_IT_STRING ); diff --git a/harbour/source/rtl/oldclear.c b/harbour/source/rtl/oldclear.c index 810f5d2f18..60d9f414f4 100644 --- a/harbour/source/rtl/oldclear.c +++ b/harbour/source/rtl/oldclear.c @@ -6,20 +6,13 @@ * Harbour Project source code: * __ATCLEAR(), __CLEAR() undocumented functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/pad.c b/harbour/source/rtl/pad.c index e1cce170ce..ef9449a09a 100644 --- a/harbour/source/rtl/pad.c +++ b/harbour/source/rtl/pad.c @@ -6,20 +6,13 @@ * Harbour Project source code: * PAD() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/philes.c b/harbour/source/rtl/philes.c index 3a6fd7bb77..1780c9f075 100644 --- a/harbour/source/rtl/philes.c +++ b/harbour/source/rtl/philes.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * CURDIR() * * Copyright 2000 David G. Holm diff --git a/harbour/source/rtl/philesx.c b/harbour/source/rtl/philesx.c index 282da043e4..34306788f1 100644 --- a/harbour/source/rtl/philesx.c +++ b/harbour/source/rtl/philesx.c @@ -6,20 +6,13 @@ * Harbour Project source code: * CURDRIVE() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/readkey.prg b/harbour/source/rtl/readkey.prg index 2afa0afa91..102b049901 100644 --- a/harbour/source/rtl/readkey.prg +++ b/harbour/source/rtl/readkey.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * READKEY() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/readvar.prg b/harbour/source/rtl/readvar.prg index ed84beebec..21ac57f7ec 100644 --- a/harbour/source/rtl/readvar.prg +++ b/harbour/source/rtl/readvar.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * READVAR() function * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -45,10 +62,10 @@ FUNCTION ReadVar( cVarName ) ENDIF cOldVarName := s_cVarName - + IF ISCHARACTER( cVarName ) s_cVarName := cVarName ENDIF - + RETURN cOldVarName diff --git a/harbour/source/rtl/samples.c b/harbour/source/rtl/samples.c index 98e1135f03..5492999849 100644 --- a/harbour/source/rtl/samples.c +++ b/harbour/source/rtl/samples.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Compatibility functions from the SAMPLES directory of Clipper. * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/setposbs.c b/harbour/source/rtl/setposbs.c index 6311a65ed5..cfa6d9507b 100644 --- a/harbour/source/rtl/setposbs.c +++ b/harbour/source/rtl/setposbs.c @@ -6,20 +6,13 @@ * Harbour Project source code: * SETPOSBS() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/soundex.c b/harbour/source/rtl/soundex.c index f0f412858f..bd80eb72ee 100644 --- a/harbour/source/rtl/soundex.c +++ b/harbour/source/rtl/soundex.c @@ -6,20 +6,13 @@ * Harbour Project source code: * SOUNDEX() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/strings.c b/harbour/source/rtl/strings.c index 8dd37ff071..571e2c4e1e 100644 --- a/harbour/source/rtl/strings.c +++ b/harbour/source/rtl/strings.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_strEmpty() * hb_strnicmp() * diff --git a/harbour/source/rtl/strmatch.c b/harbour/source/rtl/strmatch.c index caf46ab4bd..8b2318e509 100644 --- a/harbour/source/rtl/strmatch.c +++ b/harbour/source/rtl/strmatch.c @@ -6,20 +6,13 @@ * Harbour Project source code: * String matching functions * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/strzero.c b/harbour/source/rtl/strzero.c index 2716559e21..90b7af7f73 100644 --- a/harbour/source/rtl/strzero.c +++ b/harbour/source/rtl/strzero.c @@ -6,20 +6,13 @@ * Harbour Project source code: * STRZERO() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/type.c b/harbour/source/rtl/type.c index f6d44fefd0..9eca29870c 100644 --- a/harbour/source/rtl/type.c +++ b/harbour/source/rtl/type.c @@ -6,7 +6,7 @@ * Harbour Project source code: * TYPE() function * - * Copyright 1999 Ryszard Glab + * Copyright 1999 Ryszard Glab * www - http://www.harbour-project.org * * This program is free software; you can redistribute it and/or modify diff --git a/harbour/source/rtl/val.c b/harbour/source/rtl/val.c index 73cc49aebd..2ea6123c48 100644 --- a/harbour/source/rtl/val.c +++ b/harbour/source/rtl/val.c @@ -6,20 +6,13 @@ * Harbour Project source code: * VAL() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/version.c b/harbour/source/rtl/version.c index eed006a9ea..bb0e6acadc 100644 --- a/harbour/source/rtl/version.c +++ b/harbour/source/rtl/version.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * HB_COMPILER() * * See doc/license.txt for licensing terms. diff --git a/harbour/source/rtl/word.c b/harbour/source/rtl/word.c index a79b98386f..45bffa6cf7 100644 --- a/harbour/source/rtl/word.c +++ b/harbour/source/rtl/word.c @@ -6,20 +6,13 @@ * Harbour Project source code: * WORD() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/xhelp.c b/harbour/source/rtl/xhelp.c index 9f6e96ef40..faab99abc4 100644 --- a/harbour/source/rtl/xhelp.c +++ b/harbour/source/rtl/xhelp.c @@ -6,20 +6,13 @@ * Harbour Project source code: * __XHELP() function * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/rtl/xsavescr.c b/harbour/source/rtl/xsavescr.c index e1d08bb3f6..b580e8daaa 100644 --- a/harbour/source/rtl/xsavescr.c +++ b/harbour/source/rtl/xsavescr.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * Rewritten in C * * See doc/license.txt for licensing terms. diff --git a/harbour/source/vm/arrays.c b/harbour/source/vm/arrays.c index 85d4029061..7d3b1acdf6 100644 --- a/harbour/source/vm/arrays.c +++ b/harbour/source/vm/arrays.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_arrayIsObject() * hb_arrayCopyC() * hb_arrayGetC() @@ -62,7 +62,7 @@ * Copyright 2001 Ron Pinkas * hb_arrayClone() * hb_arrayFromStack() - * hb_arrayfromParams() + * hb_arrayFromParams() * * See doc/license.txt for licensing terms. * diff --git a/harbour/source/vm/asort.c b/harbour/source/vm/asort.c index fdebaf853e..1a5e96f865 100644 --- a/harbour/source/vm/asort.c +++ b/harbour/source/vm/asort.c @@ -6,21 +6,14 @@ * Harbour Project source code: * ASORT() function * - * Copyright 2000 Victor Szakats - * Jose Lalin + * Copyright 1999-2001 Viktor Szakats + * Jose Lalin * 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. + * 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 @@ -28,9 +21,33 @@ * 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/). + * 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. * */ @@ -45,14 +62,14 @@ #include "hbvm.h" #include "hbstack.h" -/* NOTE: If this is defined the item copying is optimized, in a way that +/* NOTE: If this is defined the item copying is optimized, in a way that instead of calling the official hb_itemCopy(), the item structures - will be directly copied with memcpy(), this means that the related - data areas (string space for example) will never be moved. This can be - safely done here, because it's guaranteed by the nature of sorting - that the set of items doesn't change (there're no deleted or new - items, just swapping) in this functions. - Using this option makes sorting *much* faster, but if you have a + will be directly copied with memcpy(), this means that the related + data areas (string space for example) will never be moved. This can be + safely done here, because it's guaranteed by the nature of sorting + that the set of items doesn't change (there're no deleted or new + items, just swapping) in this functions. + Using this option makes sorting *much* faster, but if you have a problem, or the low level stuff changes, turn it off. [vszakats] */ #define HB_ASORT_OPT_ITEMCOPY @@ -103,10 +120,10 @@ static LONG hb_arraySortQuickPartition( PHB_ITEM pItems, LONG lb, LONG ub, PHB_I LONG p; HB_ITEM pivot; - + /* select pivot and exchange with 1st element */ p = lb + ( ( ub - lb ) / 2 ); - + #ifdef HB_ASORT_OPT_ITEMCOPY memcpy( &pivot, pItems + p, sizeof( HB_ITEM ) ); if( p != lb ) @@ -134,13 +151,13 @@ static LONG hb_arraySortQuickPartition( PHB_ITEM pItems, LONG lb, LONG ub, PHB_I hb_vmPush( pItems + i ); hb_vmPush( &pivot ); hb_vmDo( 2 ); - + if( ( HB_IS_LOGICAL( &hb_stack.Return ) ? hb_stack.Return.item.asLogical.value : hb_itemIsLess( pItems + i, &pivot ) ) ) i++; else break; } - + while( j >= i ) { hb_vmPushSymbol( &hb_symEval ); @@ -148,7 +165,7 @@ static LONG hb_arraySortQuickPartition( PHB_ITEM pItems, LONG lb, LONG ub, PHB_I hb_vmPush( &pivot ); hb_vmPush( pItems + j ); hb_vmDo( 2 ); - + if( ( HB_IS_LOGICAL( &hb_stack.Return ) ? hb_stack.Return.item.asLogical.value : hb_itemIsLess( &pivot, pItems + j ) ) ) j--; else @@ -160,7 +177,7 @@ static LONG hb_arraySortQuickPartition( PHB_ITEM pItems, LONG lb, LONG ub, PHB_I /* Do native compare when no codeblock is supplied */ while( i < j && hb_itemIsLess( pItems + i, &pivot ) ) i++; - + while( j >= i && hb_itemIsLess( &pivot, pItems + j ) ) j--; } @@ -171,7 +188,7 @@ static LONG hb_arraySortQuickPartition( PHB_ITEM pItems, LONG lb, LONG ub, PHB_I /* Swap the items */ { HB_ITEM temp; - + #ifdef HB_ASORT_OPT_ITEMCOPY memcpy( &temp, pItems + j, sizeof( HB_ITEM ) ); memcpy( pItems + j, pItems + i, sizeof( HB_ITEM ) ); @@ -243,19 +260,19 @@ BOOL hb_arraySort( PHB_ITEM pArray, ULONG * pulStart, ULONG * pulCount, PHB_ITEM ulStart = *pulStart; else ulStart = 1; - + if( ulStart <= ulLen ) { if( pulCount && *pulCount >= 1 && ( *pulCount <= ulLen - ulStart ) ) ulCount = *pulCount; else ulCount = ulLen - ulStart + 1; - + if( ulStart + ulCount > ulLen ) /* check range */ ulCount = ulLen - ulStart + 1; - + ulEnd = ulCount + ulStart - 2; - + /* Optimize when only one or no element is to be sorted */ if( ulCount > 1 ) hb_arraySortQuick( pBaseArray->pItems, ulStart - 1, ulEnd, pBlock ); @@ -275,12 +292,12 @@ HB_FUNC( ASORT ) { ULONG ulStart = hb_parnl( 2 ); ULONG ulCount = hb_parnl( 3 ); - + hb_arraySort( pArray, ISNUM( 2 ) ? &ulStart : NULL, ISNUM( 3 ) ? &ulCount : NULL, hb_param( 4, HB_IT_BLOCK ) ); - + hb_itemReturn( pArray ); /* ASort() returns the array itself */ } } diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index 1b73039af5..aa2c1ab022 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -67,7 +67,7 @@ * __objHasMsg() * __objSendMsg() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb___msgEval() * __CLASSNEW() * __CLASSINSTANCE() diff --git a/harbour/source/vm/cmdarg.c b/harbour/source/vm/cmdarg.c index b570a9a1e6..7ca60c5f45 100644 --- a/harbour/source/vm/cmdarg.c +++ b/harbour/source/vm/cmdarg.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Command line and environment argument management * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -114,8 +131,8 @@ static char * hb_cmdargGet( const char * pszName, BOOL bRetValue ) /* Step through all envvar switches. */ - /* NOTE: CA-Clipper doesn't need the switches to be separated by any - chars at all, Harbour is more strict/standard in this respect, + /* NOTE: CA-Clipper doesn't need the switches to be separated by any + chars at all, Harbour is more strict/standard in this respect, it requires the switches to be separated. */ pszNext = pszEnvVar; diff --git a/harbour/source/vm/extend.c b/harbour/source/vm/extend.c index 43610db6b2..a9783b883f 100644 --- a/harbour/source/vm/extend.c +++ b/harbour/source/vm/extend.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_retnlen() * hb_retnilen() * hb_retnllen() diff --git a/harbour/source/vm/fm.c b/harbour/source/vm/fm.c index 1a20cf160d..28e6b2b8c6 100644 --- a/harbour/source/vm/fm.c +++ b/harbour/source/vm/fm.c @@ -58,7 +58,7 @@ * hb_xmemcpy() * hb_xmemset() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_xquery() * MEMORY() * diff --git a/harbour/source/vm/harbinit.prg b/harbour/source/vm/harbinit.prg index 039b0885c8..e3ce8cb1cd 100644 --- a/harbour/source/vm/harbinit.prg +++ b/harbour/source/vm/harbinit.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Main Harbour initialization functions CLIPINIT() * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 34605b71c6..b52f004d52 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 2000 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_vmPushLongConst() * hb_vmPushDoubleConst() * diff --git a/harbour/source/vm/itemapi.c b/harbour/source/vm/itemapi.c index ff9f963fc2..765db9aff0 100644 --- a/harbour/source/vm/itemapi.c +++ b/harbour/source/vm/itemapi.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * hb_itemPCount() * hb_itemParamPtr() * hb_itemReturnPtr() diff --git a/harbour/source/vm/main.c b/harbour/source/vm/main.c index 47ff96b300..06118b5065 100644 --- a/harbour/source/vm/main.c +++ b/harbour/source/vm/main.c @@ -6,20 +6,13 @@ * Harbour Project source code: * Main entry point selector file * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/vm/memvars.c b/harbour/source/vm/memvars.c index 35a2070b73..a2dd8b2f67 100644 --- a/harbour/source/vm/memvars.c +++ b/harbour/source/vm/memvars.c @@ -37,7 +37,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * __MVSAVE() * __MVRESTORE() (Thanks to Dave Pearson and Jo French for the original * Clipper function (FReadMem()) to read .mem files) diff --git a/harbour/source/vm/memvclip.c b/harbour/source/vm/memvclip.c index 8035c2c7e8..4f60cbbf58 100644 --- a/harbour/source/vm/memvclip.c +++ b/harbour/source/vm/memvclip.c @@ -6,20 +6,13 @@ * Harbour Project source code: * CA-Cl*pper compatibility memvar support * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/source/vm/proc.c b/harbour/source/vm/proc.c index 57921dee01..c57620914d 100644 --- a/harbour/source/vm/proc.c +++ b/harbour/source/vm/proc.c @@ -54,7 +54,7 @@ * The following parts are Copyright of the individual authors. * www - http://www.harbour-project.org * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 Viktor Szakats * PROCFILE() * * See doc/license.txt for licensing terms. diff --git a/harbour/tests/fortest.prg b/harbour/tests/fortest.prg index a69c0cd1e9..25f6886f99 100644 --- a/harbour/tests/fortest.prg +++ b/harbour/tests/fortest.prg @@ -4,7 +4,8 @@ // Testing Harbour For Next loops for Clipper compatibility -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats // TODO: add test for "step 0" diff --git a/harbour/tests/langapi.prg b/harbour/tests/langapi.prg index 7149b7a7fe..05017a9715 100644 --- a/harbour/tests/langapi.prg +++ b/harbour/tests/langapi.prg @@ -2,7 +2,8 @@ * $Id$ */ -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats REQUEST HB_LANG_HU852 REQUEST HB_LANG_KO diff --git a/harbour/tests/lnlenli1.prg b/harbour/tests/lnlenli1.prg index 3a3a331761..e7a654c99d 100644 --- a/harbour/tests/lnlenli1.prg +++ b/harbour/tests/lnlenli1.prg @@ -4,7 +4,8 @@ // // ; Pushing Harbour preprocessor to the line length limit. -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats FUNCTION Main() diff --git a/harbour/tests/lnlenli2.prg b/harbour/tests/lnlenli2.prg index 55ade2fe54..d670fab347 100644 --- a/harbour/tests/lnlenli2.prg +++ b/harbour/tests/lnlenli2.prg @@ -4,7 +4,8 @@ // // ; Pushing Harbour to the line length limit. -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats FUNCTION Main() diff --git a/harbour/tests/memfile.prg b/harbour/tests/memfile.prg index 7e98f3c792..78ea772561 100644 --- a/harbour/tests/memfile.prg +++ b/harbour/tests/memfile.prg @@ -2,7 +2,8 @@ * $Id$ */ -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats MEMVAR mcLongerNameThen10Chars #ifdef __HARBOUR__ diff --git a/harbour/tests/memory.prg b/harbour/tests/memory.prg index dcc6d91063..53e61733d3 100644 --- a/harbour/tests/memory.prg +++ b/harbour/tests/memory.prg @@ -2,7 +2,8 @@ * $Id$ */ -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats #include "hbmemory.ch" diff --git a/harbour/tests/statinit.prg b/harbour/tests/statinit.prg index 8743bc2b2e..49cc833479 100644 --- a/harbour/tests/statinit.prg +++ b/harbour/tests/statinit.prg @@ -2,7 +2,8 @@ // $Id$ // -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats MEMVAR cMyPubVar diff --git a/harbour/tests/vec1.prg b/harbour/tests/vec1.prg index 21d0929fcc..dc38a9002f 100644 --- a/harbour/tests/vec1.prg +++ b/harbour/tests/vec1.prg @@ -3,7 +3,8 @@ // $Id$ // -// ; Donated to the public domain by Victor Szakats +// ; Donated to the public domain by +// Viktor Szakats FUNCTION Main() diff --git a/harbour/utils/hbtest/hbtest.prg b/harbour/utils/hbtest/hbtest.prg index 124886c90c..bb765065f7 100644 --- a/harbour/utils/hbtest/hbtest.prg +++ b/harbour/utils/hbtest/hbtest.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (main) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_array.prg b/harbour/utils/hbtest/rt_array.prg index 893de98435..b8c87248ae 100644 --- a/harbour/utils/hbtest/rt_array.prg +++ b/harbour/utils/hbtest/rt_array.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (array) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_date.prg b/harbour/utils/hbtest/rt_date.prg index c3e9c548cd..f5dc194433 100644 --- a/harbour/utils/hbtest/rt_date.prg +++ b/harbour/utils/hbtest/rt_date.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (date) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_file.prg b/harbour/utils/hbtest/rt_file.prg index c4383c9bb0..a7f879a500 100644 --- a/harbour/utils/hbtest/rt_file.prg +++ b/harbour/utils/hbtest/rt_file.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (file) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_hvm.prg b/harbour/utils/hbtest/rt_hvm.prg index ee8f9e0119..d37917244c 100644 --- a/harbour/utils/hbtest/rt_hvm.prg +++ b/harbour/utils/hbtest/rt_hvm.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (HVM) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -272,9 +289,9 @@ FUNCTION Main_HVM() TEST_LINE( "" <= "Hello" , .T. ) TEST_LINE( "J" <= "" , .T. ) TEST_LINE( "" <= "" , .T. ) - - /* < */ - + + /* < */ + TEST_LINE( 2 < 1 , .F. ) TEST_LINE( 1 < 2 , .T. ) TEST_LINE( 2.0 < 2 , .F. ) @@ -304,9 +321,9 @@ FUNCTION Main_HVM() TEST_LINE( "" < "Hello" , .T. ) TEST_LINE( "J" < "" , .F. ) TEST_LINE( "" < "" , .F. ) - - /* >= */ - + + /* >= */ + TEST_LINE( 2 >= 1 , .T. ) TEST_LINE( 1 >= 2 , .F. ) TEST_LINE( 2.0 >= 2 , .T. ) @@ -336,9 +353,9 @@ FUNCTION Main_HVM() TEST_LINE( "" >= "Hello" , .F. ) TEST_LINE( "J" >= "" , .T. ) TEST_LINE( "" >= "" , .T. ) - - /* > */ - + + /* > */ + TEST_LINE( 2 > 1 , .T. ) TEST_LINE( 1 > 2 , .F. ) TEST_LINE( 2.0 > 2 , .F. ) @@ -368,9 +385,9 @@ FUNCTION Main_HVM() TEST_LINE( "" > "Hello" , .F. ) TEST_LINE( "J" > "" , .F. ) TEST_LINE( "" > "" , .F. ) - + /* =, == */ - + SET EXACT ON TEST_LINE( "123" = "123 " , .T. ) TEST_LINE( " 123" = "123" , .F. ) diff --git a/harbour/utils/hbtest/rt_hvma.prg b/harbour/utils/hbtest/rt_hvma.prg index 94114250f8..67579e0a22 100644 --- a/harbour/utils/hbtest/rt_hvma.prg +++ b/harbour/utils/hbtest/rt_hvma.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (HVM) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -520,59 +537,59 @@ FUNCTION Main_HVMA() TEST_LINE( RTSTR( -500000000000000000000000 ) , " 20 ********************" ) TEST_LINE( RTSTR( -5000000000000000000000000 ) , " 20 ********************" ) - TEST_LINE(( nA := 50000000 , RTSTR( -nA )) , " 10 -50000000" ) - TEST_LINE(( nA := 50000000.0 , RTSTR( -nA )) , " 12 -50000000.0" ) - TEST_LINE(( nA := 99999999 , RTSTR( -nA )) , " 10 -99999999" ) - TEST_LINE(( nA := 99999999.9 , RTSTR( -nA )) , " 12 -99999999.9" ) - TEST_LINE(( nA := 100000000 , RTSTR( -nA )) , " 10 -100000000" ) - TEST_LINE(( nA := 100000000.0 , RTSTR( -nA )) , " 12 -100000000.0" ) - TEST_LINE(( nA := 500000000 , RTSTR( -nA )) , " 10 -500000000" ) - TEST_LINE(( nA := 999999999 , RTSTR( -nA )) , " 10 -999999999" ) - TEST_LINE(( nA := 999999999.99 , RTSTR( -nA )) , " 23 -999999999.99" ) - TEST_LINE(( nA := 1000000000 , RTSTR( -nA )) , " 20 -1000000000" ) - TEST_LINE(( nA := 1000000000.0 , RTSTR( -nA )) , " 22 -1000000000.0" ) - TEST_LINE(( nA := 1000000000.00 , RTSTR( -nA )) , " 23 -1000000000.00" ) - TEST_LINE(( nA := 1000000000.99 , RTSTR( -nA )) , " 23 -1000000000.99" ) - TEST_LINE(( nA := 4000000000 , RTSTR( -nA )) , " 20 -4000000000" ) - TEST_LINE(( nA := 5000000000 , RTSTR( -nA )) , " 20 -5000000000" ) - TEST_LINE(( nA := 50000000000 , RTSTR( -nA )) , " 20 -50000000000" ) - TEST_LINE(( nA := 500000000000 , RTSTR( -nA )) , " 20 -500000000000" ) - TEST_LINE(( nA := 5000000000000 , RTSTR( -nA )) , " 20 -5000000000000" ) - TEST_LINE(( nA := 50000000000000 , RTSTR( -nA )) , " 20 -50000000000000" ) - TEST_LINE(( nA := 500000000000000 , RTSTR( -nA )) , " 20 -500000000000000" ) - TEST_LINE(( nA := 5000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000" ) - TEST_LINE(( nA := 50000000000000000 , RTSTR( -nA )) , " 20 -50000000000000000" ) - TEST_LINE(( nA := 500000000000000000 , RTSTR( -nA )) , " 20 -500000000000000000" ) - TEST_LINE(( nA := 5000000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000000" ) - TEST_LINE(( nA := 50000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := 5000000000000000000000000.0 , RTSTR( -nA )) , " 22 **********************" ) - TEST_LINE(( nA := -50000000 , RTSTR( -nA )) , " 10 50000000" ) - TEST_LINE(( nA := -50000000.0 , RTSTR( -nA )) , " 12 50000000.0" ) - TEST_LINE(( nA := -500000000 , RTSTR( -nA )) , " 10 500000000" ) - TEST_LINE(( nA := -999999999 , RTSTR( -nA )) , " 10 999999999" ) - TEST_LINE(( nA := -1000000000 , RTSTR( -nA )) , " 10 1000000000" ) - TEST_LINE(( nA := -4000000000 , RTSTR( -nA )) , " 10 4000000000" ) - TEST_LINE(( nA := -5000000000 , RTSTR( -nA )) , " 10 5000000000" ) - TEST_LINE(( nA := -50000000000 , RTSTR( -nA )) , " 20 50000000000" ) - TEST_LINE(( nA := -500000000000 , RTSTR( -nA )) , " 20 500000000000" ) - TEST_LINE(( nA := -5000000000000 , RTSTR( -nA )) , " 20 5000000000000" ) - TEST_LINE(( nA := -50000000000000 , RTSTR( -nA )) , " 20 50000000000000" ) - TEST_LINE(( nA := -500000000000000 , RTSTR( -nA )) , " 20 500000000000000" ) - TEST_LINE(( nA := -5000000000000000 , RTSTR( -nA )) , " 20 5000000000000000" ) - TEST_LINE(( nA := -50000000000000000 , RTSTR( -nA )) , " 20 50000000000000000" ) - TEST_LINE(( nA := -500000000000000000 , RTSTR( -nA )) , " 20 500000000000000000" ) - TEST_LINE(( nA := -5000000000000000000 , RTSTR( -nA )) , " 20 5000000000000000000" ) - TEST_LINE(( nA := -50000000000000000000 , RTSTR( -nA )) , " 20 50000000000000000000" ) - TEST_LINE(( nA := -500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) - TEST_LINE(( nA := -5000000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 50000000 , RTSTR( -nA )) , " 10 -50000000" ) + TEST_LINE(( nA := 50000000.0 , RTSTR( -nA )) , " 12 -50000000.0" ) + TEST_LINE(( nA := 99999999 , RTSTR( -nA )) , " 10 -99999999" ) + TEST_LINE(( nA := 99999999.9 , RTSTR( -nA )) , " 12 -99999999.9" ) + TEST_LINE(( nA := 100000000 , RTSTR( -nA )) , " 10 -100000000" ) + TEST_LINE(( nA := 100000000.0 , RTSTR( -nA )) , " 12 -100000000.0" ) + TEST_LINE(( nA := 500000000 , RTSTR( -nA )) , " 10 -500000000" ) + TEST_LINE(( nA := 999999999 , RTSTR( -nA )) , " 10 -999999999" ) + TEST_LINE(( nA := 999999999.99 , RTSTR( -nA )) , " 23 -999999999.99" ) + TEST_LINE(( nA := 1000000000 , RTSTR( -nA )) , " 20 -1000000000" ) + TEST_LINE(( nA := 1000000000.0 , RTSTR( -nA )) , " 22 -1000000000.0" ) + TEST_LINE(( nA := 1000000000.00 , RTSTR( -nA )) , " 23 -1000000000.00" ) + TEST_LINE(( nA := 1000000000.99 , RTSTR( -nA )) , " 23 -1000000000.99" ) + TEST_LINE(( nA := 4000000000 , RTSTR( -nA )) , " 20 -4000000000" ) + TEST_LINE(( nA := 5000000000 , RTSTR( -nA )) , " 20 -5000000000" ) + TEST_LINE(( nA := 50000000000 , RTSTR( -nA )) , " 20 -50000000000" ) + TEST_LINE(( nA := 500000000000 , RTSTR( -nA )) , " 20 -500000000000" ) + TEST_LINE(( nA := 5000000000000 , RTSTR( -nA )) , " 20 -5000000000000" ) + TEST_LINE(( nA := 50000000000000 , RTSTR( -nA )) , " 20 -50000000000000" ) + TEST_LINE(( nA := 500000000000000 , RTSTR( -nA )) , " 20 -500000000000000" ) + TEST_LINE(( nA := 5000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000" ) + TEST_LINE(( nA := 50000000000000000 , RTSTR( -nA )) , " 20 -50000000000000000" ) + TEST_LINE(( nA := 500000000000000000 , RTSTR( -nA )) , " 20 -500000000000000000" ) + TEST_LINE(( nA := 5000000000000000000 , RTSTR( -nA )) , " 20 -5000000000000000000" ) + TEST_LINE(( nA := 50000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 5000000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := 5000000000000000000000000.0 , RTSTR( -nA )) , " 22 **********************" ) + TEST_LINE(( nA := -50000000 , RTSTR( -nA )) , " 10 50000000" ) + TEST_LINE(( nA := -50000000.0 , RTSTR( -nA )) , " 12 50000000.0" ) + TEST_LINE(( nA := -500000000 , RTSTR( -nA )) , " 10 500000000" ) + TEST_LINE(( nA := -999999999 , RTSTR( -nA )) , " 10 999999999" ) + TEST_LINE(( nA := -1000000000 , RTSTR( -nA )) , " 10 1000000000" ) + TEST_LINE(( nA := -4000000000 , RTSTR( -nA )) , " 10 4000000000" ) + TEST_LINE(( nA := -5000000000 , RTSTR( -nA )) , " 10 5000000000" ) + TEST_LINE(( nA := -50000000000 , RTSTR( -nA )) , " 20 50000000000" ) + TEST_LINE(( nA := -500000000000 , RTSTR( -nA )) , " 20 500000000000" ) + TEST_LINE(( nA := -5000000000000 , RTSTR( -nA )) , " 20 5000000000000" ) + TEST_LINE(( nA := -50000000000000 , RTSTR( -nA )) , " 20 50000000000000" ) + TEST_LINE(( nA := -500000000000000 , RTSTR( -nA )) , " 20 500000000000000" ) + TEST_LINE(( nA := -5000000000000000 , RTSTR( -nA )) , " 20 5000000000000000" ) + TEST_LINE(( nA := -50000000000000000 , RTSTR( -nA )) , " 20 50000000000000000" ) + TEST_LINE(( nA := -500000000000000000 , RTSTR( -nA )) , " 20 500000000000000000" ) + TEST_LINE(( nA := -5000000000000000000 , RTSTR( -nA )) , " 20 5000000000000000000" ) + TEST_LINE(( nA := -50000000000000000000 , RTSTR( -nA )) , " 20 50000000000000000000" ) + TEST_LINE(( nA := -500000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := -5000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := -50000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := -500000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) + TEST_LINE(( nA := -5000000000000000000000000 , RTSTR( -nA )) , " 20 ********************" ) RETURN NIL diff --git a/harbour/utils/hbtest/rt_init.ch b/harbour/utils/hbtest/rt_init.ch index 437339ef90..10a93bdbea 100644 --- a/harbour/utils/hbtest/rt_init.ch +++ b/harbour/utils/hbtest/rt_init.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (common code) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_main.ch b/harbour/utils/hbtest/rt_main.ch index df8c142546..5be1e08aea 100644 --- a/harbour/utils/hbtest/rt_main.ch +++ b/harbour/utils/hbtest/rt_main.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (header) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_math.prg b/harbour/utils/hbtest/rt_math.prg index 1ded176bcf..05baa0e219 100644 --- a/harbour/utils/hbtest/rt_math.prg +++ b/harbour/utils/hbtest/rt_math.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (math) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -256,9 +273,9 @@ FUNCTION Main_MATH() TEST_LINE( Max(HB_SToD("19800102"), HB_SToD("19800101")) , HB_SToD("19800102") ) TEST_LINE( Max(HB_SToD("19800101"), HB_SToD("19800102")) , HB_SToD("19800102") ) TEST_LINE( Max(snIntP, snLongP) , 100000 ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( Max(@snIntP, @snLongP) , 100000 ) /* Bug in CA-Cl*pper, it will return: "E BASE 1093 Argument error MAX F:S" */ -#endif +#endif TEST_LINE( Min(NIL, NIL) , "E BASE 1092 Argument error MIN A:2:U:NIL;U:NIL F:S" ) TEST_LINE( Min(10, NIL) , "E BASE 1092 Argument error MIN A:2:N:10;U:NIL F:S" ) TEST_LINE( Min(HB_SToD("19800101"), 10) , "E BASE 1092 Argument error MIN A:2:D:19800101;N:10 F:S" ) @@ -266,7 +283,7 @@ FUNCTION Main_MATH() TEST_LINE( Min(HB_SToD("19800102"), HB_SToD("19800101")) , HB_SToD("19800101") ) TEST_LINE( Min(HB_SToD("19800101"), HB_SToD("19800102")) , HB_SToD("19800101") ) TEST_LINE( Min(snIntP, snLongP) , 10 ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( Min(@snIntP, @snLongP) , 10 ) /* Bug in CA-Cl*pper, it will return: "E BASE 1092 Argument error MIN F:S" */ #endif diff --git a/harbour/utils/hbtest/rt_misc.prg b/harbour/utils/hbtest/rt_misc.prg index a294b705bb..de7a1f1bec 100644 --- a/harbour/utils/hbtest/rt_misc.prg +++ b/harbour/utils/hbtest/rt_misc.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (misc) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_str.prg b/harbour/utils/hbtest/rt_str.prg index a62bbd7746..435a02cfb5 100644 --- a/harbour/utils/hbtest/rt_str.prg +++ b/harbour/utils/hbtest/rt_str.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (strings) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ @@ -352,7 +369,7 @@ FUNCTION Main_STR() /* NOTE: It seems like CA-Cl*pper 5.x is not aware of the BREAK return value of the error handler, so the error is thrown, but we can't catch it. - This bug is fixed in CA-Clipper 5.3 [vszel] */ + This bug is fixed in CA-Clipper 5.3 [vszakats] */ #ifndef __CLIPPER__ #ifndef __XPP__ TEST_LINE( StrTran() , "E BASE 1126 Argument error STRTRAN F:S" ) /* CA-Cl*pper bug, it will exit on this */ @@ -533,9 +550,9 @@ FUNCTION Main_STR() TEST_LINE( Left("abcdef", 2) , "ab" ) TEST_LINE( Left("abcdef", 10) , "abcdef" ) TEST_LINE( Left("ab" + Chr(0) + "def", 5) , "ab" + Chr(0) + "de" ) - - /* RIGHT() */ - + + /* RIGHT() */ + TEST_LINE( Right(100 , -10) , "" ) TEST_LINE( Right("abcdef", "A") , "" ) TEST_LINE( Right("abcdef", -10) , "" ) @@ -544,9 +561,9 @@ FUNCTION Main_STR() TEST_LINE( Right("abcdef", 2) , "ef" ) TEST_LINE( Right("abcdef", 10) , "abcdef" ) TEST_LINE( Right("ab" + Chr(0) + "def", 5) , "b" + Chr(0) + "def" ) - - /* PADR() */ - + + /* PADR() */ + TEST_LINE( Pad(NIL, 5) , "" ) TEST_LINE( Pad(.T., 5) , "" ) TEST_LINE( Pad(10, 5) , "10 " ) @@ -558,23 +575,23 @@ FUNCTION Main_STR() TEST_LINE( Pad(HB_SToD("19840325"), 12) , "1984.03.25 " ) TEST_LINE( Pad(Year(HB_SToD("19840325")), 5) , "1984 " ) TEST_LINE( Pad(Day(HB_SToD("19840325")), 5) , "25 " ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( Pad(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ TEST_LINE( Pad(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ -#endif -#ifndef __XPP__ +#endif +#ifndef __XPP__ TEST_LINE( Pad("abcdef", "A") , "" ) TEST_LINE( Pad("abcdef", -5) , "" ) -#endif +#endif TEST_LINE( Pad("abcdef", 0) , "" ) TEST_LINE( Pad("abcdef", 5) , "abcde" ) TEST_LINE( Pad("abcdef", 10) , "abcdef " ) TEST_LINE( Pad("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) TEST_LINE( Pad("abcdef", 10, "1") , "abcdef1111" ) TEST_LINE( Pad("abcdef", 10, "12") , "abcdef1111" ) - - /* PADR() */ - + + /* PADR() */ + TEST_LINE( PadR(NIL, 5) , "" ) TEST_LINE( PadR(.T., 5) , "" ) TEST_LINE( PadR(10, 5) , "10 " ) @@ -585,23 +602,23 @@ FUNCTION Main_STR() TEST_LINE( PadR(HB_SToD("19840325"), 12) , "1984.03.25 " ) TEST_LINE( PadR(Year(HB_SToD("19840325")), 5) , "1984 " ) TEST_LINE( PadR(Day(HB_SToD("19840325")), 5) , "25 " ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( PadR(@scString, 10) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ TEST_LINE( PadR(scString, @snIntP) , "HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ -#endif -#ifndef __XPP__ +#endif +#ifndef __XPP__ TEST_LINE( PadR("abcdef", "A") , "" ) TEST_LINE( PadR("abcdef", -5) , "" ) -#endif +#endif TEST_LINE( PadR("abcdef", 0) , "" ) TEST_LINE( PadR("abcdef", 5) , "abcde" ) TEST_LINE( PadR("abcdef", 10) , "abcdef " ) TEST_LINE( PadR("abcdef", 10, "") , "abcdef"+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"" ) TEST_LINE( PadR("abcdef", 10, "1") , "abcdef1111" ) TEST_LINE( PadR("abcdef", 10, "12") , "abcdef1111" ) - - /* PADL() */ - + + /* PADL() */ + TEST_LINE( PadL(NIL, 5) , "" ) TEST_LINE( PadL(.T., 5) , "" ) TEST_LINE( PadL(10, 5) , " 10" ) @@ -612,23 +629,23 @@ FUNCTION Main_STR() TEST_LINE( PadL(HB_SToD("19840325"), 12) , " 1984.03.25" ) TEST_LINE( PadL(Year(HB_SToD("19840325")), 5) , " 1984" ) TEST_LINE( PadL(Day(HB_SToD("19840325")), 5) , " 25" ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( PadL(@scString, 10) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ TEST_LINE( PadL(scString, @snIntP) , " HELLO" ) /* Bug in CA-Cl*pper, it will return "" */ -#endif -#ifndef __XPP__ +#endif +#ifndef __XPP__ TEST_LINE( PadL("abcdef", "A") , "" ) TEST_LINE( PadL("abcdef", -5) , "" ) -#endif +#endif TEST_LINE( PadL("abcdef", 0) , "" ) TEST_LINE( PadL("abcdef", 5) , "abcde" ) /* QUESTION: CA-Cl*pper "bug", should return: "bcdef" ? */ TEST_LINE( PadL("abcdef", 10) , " abcdef" ) TEST_LINE( PadL("abcdef", 10, "") , ""+Chr(0)+""+Chr(0)+""+Chr(0)+""+Chr(0)+"abcdef" ) TEST_LINE( PadL("abcdef", 10, "1") , "1111abcdef" ) TEST_LINE( PadL("abcdef", 10, "12") , "1111abcdef" ) - - /* PADC() */ - + + /* PADC() */ + TEST_LINE( PadC(NIL, 5) , "" ) TEST_LINE( PadC(.T., 5) , "" ) TEST_LINE( PadC(10, 5) , " 10 " ) @@ -639,14 +656,14 @@ FUNCTION Main_STR() TEST_LINE( PadC(HB_SToD("19840325"), 12) , " 1984.03.25 " ) TEST_LINE( PadC(Year(HB_SToD("19840325")), 5) , "1984 " ) TEST_LINE( PadC(Day(HB_SToD("19840325")), 5) , " 25 " ) -#ifdef __HARBOUR__ +#ifdef __HARBOUR__ TEST_LINE( PadC(@scString, 10) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ TEST_LINE( PadC(scString, @snIntP) , " HELLO " ) /* Bug in CA-Cl*pper, it will return "" */ -#endif -#ifndef __XPP__ +#endif +#ifndef __XPP__ TEST_LINE( PadC("abcdef", "A") , "" ) TEST_LINE( PadC("abcdef", -5) , "" ) -#endif +#endif TEST_LINE( PadC("abcdef", 0) , "" ) TEST_LINE( PadC("abcdef", 2) , "ab" ) /* QUESTION: CA-Cl*pper "bug", should return: "cd" ? */ TEST_LINE( PadC("abcdef", 5) , "abcde" ) diff --git a/harbour/utils/hbtest/rt_stra.prg b/harbour/utils/hbtest/rt_stra.prg index 63c4821be7..dd2d7863e8 100644 --- a/harbour/utils/hbtest/rt_stra.prg +++ b/harbour/utils/hbtest/rt_stra.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (strings) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_trans.prg b/harbour/utils/hbtest/rt_trans.prg index f4d6c7d540..09521d27a1 100644 --- a/harbour/utils/hbtest/rt_trans.prg +++ b/harbour/utils/hbtest/rt_trans.prg @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (strings) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */ diff --git a/harbour/utils/hbtest/rt_vars.ch b/harbour/utils/hbtest/rt_vars.ch index a69b971a34..d3ef4847e3 100644 --- a/harbour/utils/hbtest/rt_vars.ch +++ b/harbour/utils/hbtest/rt_vars.ch @@ -6,20 +6,13 @@ * Harbour Project source code: * Regression tests for the runtime library (variable declarations) * - * Copyright 1999 Victor Szakats + * Copyright 1999-2001 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 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. + * 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 @@ -27,9 +20,33 @@ * 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/). + * 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. * */