From 6572bdfd73969ff80363c2b1d3f8442e538440f0 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 8 Jul 1999 12:56:42 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 55 +++++++++++++++++++++++++++++ harbour/include/compiler.h | 20 +++++++++++ harbour/include/ctoharb.h | 20 +++++++++++ harbour/include/errorapi.h | 4 +-- harbour/include/extend.h | 20 +++++++++++ harbour/include/init.h | 20 +++++++++++ harbour/include/itemapi.h | 20 +++++++++++ harbour/include/pcode.h | 20 +++++++++++ harbour/source/compiler/genobj32.c | 23 ++++++++++++ harbour/source/compiler/harbour.l | 22 ++++++++++++ harbour/source/compiler/harbour.y | 46 +++++++++++++++++++++++- harbour/source/compiler/symbols.asm | 21 +++++++++++ harbour/source/rtl/arrays.c | 34 ++++++++++++++---- harbour/source/rtl/classes.c | 21 +++++++++++ harbour/source/rtl/console.c | 41 +++++++++++++++------ harbour/source/rtl/dates.c | 29 ++++++++++++--- harbour/source/rtl/error.prg | 20 +++++++++++ harbour/source/rtl/errorapi.c | 20 +++++++++++ harbour/source/rtl/errorsys.prg | 20 +++++++++++ harbour/source/rtl/extend.c | 26 ++++++++++++-- harbour/source/rtl/itemapi.c | 20 +++++++++++ harbour/source/rtl/strings.c | 20 +++++++++++ harbour/source/rtl/tclass.prg | 20 +++++++++++ harbour/source/vm/dynsym.c | 24 ++++++++++++- harbour/source/vm/hvm.c | 19 ++++++++++ 25 files changed, 576 insertions(+), 29 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 39f4dceb32..c6573c6a8f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,58 @@ +19990808-12:18 Antonio Linares + + * source/vm/hvm.c + Added copyright and license information + * source/vm/dynsym.c + Added copyright and license information + * source/compiler/harbour.l + Added copyright and license information + * source/compiler/harbour.y + Added copyright and license information + * source/compiler/genobj32.c + Added copyright and license information + * source/compiler/symbols.asm + Added copyright and license information + * source/rtl/dates.c + Added copyright and license information + * source/rtl/console.c + Added copyright and license information + * source/rtl/extend.c + Added copyright and license information + * source/rtl/strings.c + Added copyright and license information + * source/rtl/arrays.c + Added copyright and license information + * source/rtl/classes.c + Added copyright and license information + * source/rtl/errorapi.c + Added copyright and license information + * source/rtl/itemapi.c + Added copyright and license information + * source/rtl/tclass.prg + Added copyright and license information + * source/rtl/error.prg + Added copyright and license information + * source/rtl/errorsys.prg + Added copyright and license information + * source/rtl/errorapi.prg + Added copyright and license information + * include/classes.ch + New Harbour file for classes creation commands + * include/compiler.h + Added copyright and license information + * include/ctoharb.h + Added copyright and license information + * include/errorapi.h + Added copyright and license information + * include/extend.h + Added copyright and license information + * include/init.h + Added copyright and license information + * include/itemapi.h + Added copyright and license information + * include/pcode.h + Added copyright and license information + 19990808-10:15 Eddie Runia * source/rtl/transfrm.c header change diff --git a/harbour/include/compiler.h b/harbour/include/compiler.h index 4a79dfd9dc..52c87feb40 100644 --- a/harbour/include/compiler.h +++ b/harbour/include/compiler.h @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_COMPILER_H_ diff --git a/harbour/include/ctoharb.h b/harbour/include/ctoharb.h index e875a3a9d4..8c37ce2a12 100644 --- a/harbour/include/ctoharb.h +++ b/harbour/include/ctoharb.h @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_CTOHARB_H_ diff --git a/harbour/include/errorapi.h b/harbour/include/errorapi.h index 1bd2b64e8b..c36d9e1116 100644 --- a/harbour/include/errorapi.h +++ b/harbour/include/errorapi.h @@ -1,4 +1,4 @@ -/* +/* * $Id$ */ @@ -7,7 +7,7 @@ This file contains the Harbour internal error handling definitions - Copyright (C) 1999 ? + Copyright (C) 1999 Antonio Linares www - http://www.harbour-project.org This program is free software; you can redistribute it and/or modify diff --git a/harbour/include/extend.h b/harbour/include/extend.h index 48223d9e8d..f9af8337f3 100644 --- a/harbour/include/extend.h +++ b/harbour/include/extend.h @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_EXTEND_H_ diff --git a/harbour/include/init.h b/harbour/include/init.h index 8b1daf3444..0cda877afb 100644 --- a/harbour/include/init.h +++ b/harbour/include/init.h @@ -2,6 +2,26 @@ * $Id$ * * Harbour local symbols initialization + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_INIT_H_ diff --git a/harbour/include/itemapi.h b/harbour/include/itemapi.h index 4be831365c..fc9bac481a 100644 --- a/harbour/include/itemapi.h +++ b/harbour/include/itemapi.h @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_ITEMAPI_H_ diff --git a/harbour/include/pcode.h b/harbour/include/pcode.h index f3438de6fd..21e1614bea 100644 --- a/harbour/include/pcode.h +++ b/harbour/include/pcode.h @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #ifndef HB_PCODE_H_ diff --git a/harbour/source/compiler/genobj32.c b/harbour/source/compiler/genobj32.c index d8770b4644..cc0f3e3296 100644 --- a/harbour/source/compiler/genobj32.c +++ b/harbour/source/compiler/genobj32.c @@ -2,6 +2,29 @@ * $Id$ */ +/* + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com + * + */ + #include #include #include diff --git a/harbour/source/compiler/harbour.l b/harbour/source/compiler/harbour.l index 5b0fdd87bb..22a6fd33ef 100644 --- a/harbour/source/compiler/harbour.l +++ b/harbour/source/compiler/harbour.l @@ -8,6 +8,27 @@ * Build 27: Summer 99 * Usage: flex -i -8 -oyylex.c harbour.l * You may find flex.exe at www.harbour-project.org + * + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com + * */ #include @@ -705,6 +726,7 @@ Separator {SpaceTab} %{ /* ************************************************************************ */ %} +"line" return LINE; "local" BEGIN LOCAL_; {Separator}+[_a-zA-Z] { /* an identifier after LOCAL */ unput( yytext[ yyleng-1 ] ); diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y index 15ff4fed1d..163aaa5c7c 100644 --- a/harbour/source/compiler/harbour.y +++ b/harbour/source/compiler/harbour.y @@ -8,6 +8,29 @@ * Build 27 summer 1999 * Usage: bison -d -v harbour.y * You may find Bison at www.harbour.project.org + * + * Copyright(C) 1999 by Antonio Linares. + * + * The generated C output files structure by the function GenCCode() + * is also under this copyright. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com */ #define BUILD 27 /* current harbour.y build */ @@ -438,7 +461,7 @@ extern int _iState; /* current parser state (defined in harbour.l */ %token INC DEC ALIAS DOCASE CASE OTHERWISE ENDCASE ENDDO MEMVAR %token WHILE EXIT LOOP END FOR NEXT TO STEP LE GE FIELD IN PARAMETERS %token PLUSEQ MINUSEQ MULTEQ DIVEQ POWER EXPEQ MODEQ EXITLOOP -%token PRIVATE BEGINSEQ BREAK RECOVER USING DO WITH SELF +%token PRIVATE BEGINSEQ BREAK RECOVER USING DO WITH SELF LINE %token AS_NUMERIC AS_CHARACTER AS_LOGICAL AS_DATE AS_ARRAY AS_BLOCK AS_OBJECT DECLARE_FUN /*the lowest precedence*/ @@ -484,6 +507,11 @@ Main : { Line(); } Source { Source : Crlf | Extern +<<<<<<< harbour.y + | Include + | Line +======= +>>>>>>> 1.83 | VarDefs | FieldsDef | MemvarDef @@ -491,6 +519,11 @@ Source : Crlf | Statement | Source Crlf | Source Extern +<<<<<<< harbour.y + | Source Include + | Source Line +======= +>>>>>>> 1.83 | Source Function | Source { LineBody(); } Statement | Source VarDefs @@ -498,6 +531,17 @@ Source : Crlf | Source MemvarDef ; +<<<<<<< harbour.y +Include : NE1 INCLUDE LITERAL { if( ! Include( $3, _pIncludePath ) ) + GenError( ERR_CANT_OPEN_INCLUDE, $3, NULL ); + _iState =LOOKUP; + } Crlf + ; + +Line : NE1 LINE INTLONG LITERAL Crlf + ; +======= +>>>>>>> 1.83 Extern : EXTERN ExtList { _iState =LOOKUP; } Crlf ; diff --git a/harbour/source/compiler/symbols.asm b/harbour/source/compiler/symbols.asm index be2e96f5c6..919d7850bb 100644 --- a/harbour/source/compiler/symbols.asm +++ b/harbour/source/compiler/symbols.asm @@ -1,3 +1,24 @@ + ; Copyright(C) 1999 by Antonio Linares. + ; + ; 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. + ; + ; This program is distributed in the hope that it will be useful, but + ; WITHOUT ANY WARRANTY; without even the implied warranty of + ; MERCHANTABILITY or FITNESS FOR A PARTICULAR + ; PURPOSE. See the GNU General Public License for more details. + ; + ; You should have received a copy of the GNU General Public + ; License along with this program; if not, write to: + ; + ; The Free Software Foundation, Inc., + ; 675 Mass Ave, Cambridge, MA 02139, USA. + ; + ; You can contact me at: alinares@fivetech.com + ; + .386 HB_STARTSYMBOLS segment dword use32 public 'DATA' diff --git a/harbour/source/rtl/arrays.c b/harbour/source/rtl/arrays.c index cb2a756119..67c2340ca4 100644 --- a/harbour/source/rtl/arrays.c +++ b/harbour/source/rtl/arrays.c @@ -1,6 +1,26 @@ /* * $Id$ - */ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com +*/ #include #include @@ -95,9 +115,9 @@ char * hb_arrayGetDate( PHB_ITEM pArray, ULONG ulIndex ) } return " "; } - - - + + + BOOL hb_arrayGetBool( PHB_ITEM pArray, ULONG ulIndex ) { if( IS_ARRAY( pArray ) ) @@ -152,9 +172,9 @@ double hb_arrayGetDouble( PHB_ITEM pArray, ULONG ulIndex ) hb_errorRT_BASE(EG_ARG, 1068, "Argument error", "array access"); } return 0; -} - - +} + + void hb_arrayNew( PHB_ITEM pItem, ULONG ulLen ) /* creates a new array */ { PBASEARRAY pBaseArray = ( PBASEARRAY ) hb_xgrab( sizeof( BASEARRAY ) ); diff --git a/harbour/source/rtl/classes.c b/harbour/source/rtl/classes.c index aa1d5893e5..8a02971445 100644 --- a/harbour/source/rtl/classes.c +++ b/harbour/source/rtl/classes.c @@ -5,6 +5,27 @@ /* * Classes.C contains the base-routines for OOPS system * + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com + * + * * Partial Copyright (C) 1999 Eddie Runia ( eddie@runia.com ) * partial copyright regarding the following functions : * CLASSDEL diff --git a/harbour/source/rtl/console.c b/harbour/source/rtl/console.c index 39c8eef930..0636933c1a 100644 --- a/harbour/source/rtl/console.c +++ b/harbour/source/rtl/console.c @@ -2,14 +2,33 @@ * $Id$ */ -/* - * Partial Copyright (C) 1999 Eddie Runia - * partial copyright regarding the following function : - * __ACCEPT() - */ - /* Harbour Project source code http://www.Harbour-Project.org/ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com + + Partial Copyright (C) 1999 Eddie Runia + partial copyright regarding the following function : + __ACCEPT() + The following functions are Copyright 1999 David G. Holm: adjust_pos(), hb_altout(), hb_devout(), HB_DEVOUT(), hb_devpos(), HB_DEVPOS(), hb_dispout(), HB___EJECT(), hb_max_col(), HB_MAXCOL(), @@ -543,7 +562,7 @@ HARBOUR HB_SETPOS( void ) /* Sets the screen position */ int i_row = hb_parni( 1 ); int i_col = hb_parni( 2 ); WORD row, col; - + /* Limit the new position to the range (0,0) to (MAXROW(),MAXCOL()) */ if( i_row < 0 ) row = 0; else if( i_row > hb_max_row() ) row = hb_max_row(); @@ -570,7 +589,7 @@ HARBOUR HB_DEVPOS( void ) /* Sets the screen and/or printer position */ long l_row = hb_parnl( 1 ); long l_col = hb_parnl( 2 ); WORD row, col; - + /* Limit the new position to the range (0,0) to (65535,65535) */ if( l_row < 0 ) row = 0; else if( l_row > USHRT_MAX ) row = USHRT_MAX; @@ -664,7 +683,7 @@ HARBOUR HB_SETPRC( void ) /* Sets the current printer row and column positions * { long l_row = hb_parnl( 1 ); long l_col = hb_parnl( 2 ); - + /* Limit the new position to the range (0,0) to (65535,65535) */ if( l_row < 0 ) p_row = 0; else if( l_row > USHRT_MAX ) p_row = USHRT_MAX; @@ -678,7 +697,7 @@ HARBOUR HB_SETPRC( void ) /* Sets the current printer row and column positions * HARBOUR HB_SCROLL( void ) /* Scrolls a screen region (requires the GT API) */ { - int i_top = 0, i_left = 0, i_bottom = hb_max_row(), i_right = hb_max_col(), + int i_top = 0, i_left = 0, i_bottom = hb_max_row(), i_right = hb_max_col(), v_scroll = 0, h_scroll = 0; WORD top, left, bottom, right; @@ -695,7 +714,7 @@ HARBOUR HB_SCROLL( void ) /* Scrolls a screen region (requires the GT API) */ if( hb_pcount() > 5 && hb_param( 6, IT_NUMERIC ) ) h_scroll = hb_parni( 6 ); - /* Enforce limits of (0,0) to (MAXROW(),MAXCOL()) */ + /* Enforce limits of (0,0) to (MAXROW(),MAXCOL()) */ if( i_top < 0 ) top = 0; else if( i_top > hb_max_row() ) top = hb_max_row (); else top = i_top; diff --git a/harbour/source/rtl/dates.c b/harbour/source/rtl/dates.c index 6f2b5ca60f..3c38f08656 100644 --- a/harbour/source/rtl/dates.c +++ b/harbour/source/rtl/dates.c @@ -2,10 +2,31 @@ * $Id$ */ /* Harbour Project source code - http://www.Harbour-Project.org/ - The following functions are Copyright 1999 David G. Holm: - HB_CTOD(), HB_DATE(), hb_dtoc(). - See doc/hdr_tpl.txt, Version 1.2 or later, for licensing terms. + * http://www.Harbour-Project.org/ + * + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com + * + * The following functions are Copyright 1999 David G. Holm: + * HB_CTOD(), HB_DATE(), hb_dtoc(). + * See doc/hdr_tpl.txt, Version 1.2 or later, for licensing terms. */ #include diff --git a/harbour/source/rtl/error.prg b/harbour/source/rtl/error.prg index 475e99e4bf..de80576be5 100644 --- a/harbour/source/rtl/error.prg +++ b/harbour/source/rtl/error.prg @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ // Class error. We are keeping Clipper compatibility here, instead of using diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c index 4f4ec14c5c..1faeaea596 100644 --- a/harbour/source/rtl/errorapi.c +++ b/harbour/source/rtl/errorapi.c @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #include diff --git a/harbour/source/rtl/errorsys.prg b/harbour/source/rtl/errorsys.prg index dc0dbd9902..f190dfc8f5 100644 --- a/harbour/source/rtl/errorsys.prg +++ b/harbour/source/rtl/errorsys.prg @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ // Standard Harbour ErrorSys system diff --git a/harbour/source/rtl/extend.c b/harbour/source/rtl/extend.c index 8c189c285e..1f479e1f63 100644 --- a/harbour/source/rtl/extend.c +++ b/harbour/source/rtl/extend.c @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #include @@ -119,14 +139,14 @@ char * hb_pards( WORD wParam, ... ) pItem = stack.pBase + 1 + wParam; if( pItem->type & IT_BYREF ) pItem = stack.pItems + pItem->item.asRefer.value; - + if( IS_ARRAY( pItem ) ) { if( wArrayIndex ) return strcpy( stack.szDate, hb_arrayGetDate( pItem, wArrayIndex ) ); else return " "; - } + } else if( IS_DATE( pItem ) && pItem->item.asDate.value > 0 ) { @@ -175,7 +195,7 @@ int hb_parl( WORD wParam, ... ) else return 0; } - + else if( IS_LOGICAL( pItem ) ) return pItem->item.asLogical.value; diff --git a/harbour/source/rtl/itemapi.c b/harbour/source/rtl/itemapi.c index 99e2b469f1..f7a343ff51 100644 --- a/harbour/source/rtl/itemapi.c +++ b/harbour/source/rtl/itemapi.c @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #include diff --git a/harbour/source/rtl/strings.c b/harbour/source/rtl/strings.c index e01fe4239f..86228186b6 100644 --- a/harbour/source/rtl/strings.c +++ b/harbour/source/rtl/strings.c @@ -1,5 +1,25 @@ /* * $Id$ + + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com */ #include diff --git a/harbour/source/rtl/tclass.prg b/harbour/source/rtl/tclass.prg index 05b0ec158f..6aca5433be 100644 --- a/harbour/source/rtl/tclass.prg +++ b/harbour/source/rtl/tclass.prg @@ -5,6 +5,26 @@ // Harbour Class TClass to build classes /* + Copyright(C) 1999 by Antonio Linares. + + 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. + + This program is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR + PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public + License along with this program; if not, write to: + + The Free Software Foundation, Inc., + 675 Mass Ave, Cambridge, MA 02139, USA. + + You can contact me at: alinares@fivetech.com + * Partial Copyright (C) 1999 Eddie Runia * partial copyright regarding the following additions : * Support for inheritance diff --git a/harbour/source/vm/dynsym.c b/harbour/source/vm/dynsym.c index 17bf75d97b..061fc93b1e 100644 --- a/harbour/source/vm/dynsym.c +++ b/harbour/source/vm/dynsym.c @@ -2,7 +2,29 @@ * $Id$ */ -/* Harbour dynamic symbol table management */ +/* Harbour dynamic symbol table management + * + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com + * + */ #include #include diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index e91eccb70e..e6cad0d0c0 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -4,6 +4,25 @@ /* * The Harbour virtual machine + * Copyright(C) 1999 by Antonio Linares. + * + * 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. + * + * This program is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR + * PURPOSE. See the GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public + * License along with this program; if not, write to: + * + * The Free Software Foundation, Inc., + * 675 Mass Ave, Cambridge, MA 02139, USA. + * + * You can contact me at: alinares@fivetech.com */ /* Please note the following comments we may use everywhere