fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-07-08 12:56:42 +00:00
parent 2f694af5d1
commit 6572bdfd73
25 changed files with 576 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
harbour/ChangeLog
View File

@@ -1,3 +1,58 @@
19990808-12:18 Antonio Linares <alinares@fivetech.com>
* 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 <eddie@runia.com>
* source/rtl/transfrm.c
header change

20
harbour/include/compiler.h
View File

@@ -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_

20
harbour/include/ctoharb.h
View File

@@ -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_

4
harbour/include/errorapi.h
View File

@@ -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

20
harbour/include/extend.h
View File

@@ -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_

20
harbour/include/init.h
View File

@@ -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_

20
harbour/include/itemapi.h
View File

@@ -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_

20
harbour/include/pcode.h
View File

@@ -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_

23
harbour/source/compiler/genobj32.c
View File

@@ -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 <stdio.h>
#include <string.h>
#include <hbdefs.h>

22
harbour/source/compiler/harbour.l
View File

@@ -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 <stdio.h>
@@ -705,6 +726,7 @@ Separator {SpaceTab}
%{
/* ************************************************************************ */
%}
"line" return LINE;
"local" BEGIN LOCAL_;
<LOCAL_>{Separator}+[_a-zA-Z] { /* an identifier after LOCAL */
unput( yytext[ yyleng-1 ] );

46
harbour/source/compiler/harbour.y
View File

@@ -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
;

21
harbour/source/compiler/symbols.asm
View File

@@ -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'

34
harbour/source/rtl/arrays.c
View File

@@ -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 <itemapi.h>
#include <extend.h>
@@ -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 ) );

21
harbour/source/rtl/classes.c
View File

@@ -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

41
harbour/source/rtl/console.c
View File

@@ -2,14 +2,33 @@
* $Id$
*/
/*
* Partial Copyright (C) 1999 Eddie Runia <eddie@runia.com>
* 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 <eddie@runia.com>
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;

29
harbour/source/rtl/dates.c
View File

@@ -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 <hbsetup.h>

20
harbour/source/rtl/error.prg
View File

@@ -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

20
harbour/source/rtl/errorapi.c
View File

@@ -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 <extend.h>

20
harbour/source/rtl/errorsys.prg
View File

@@ -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

26
harbour/source/rtl/extend.c
View File

@@ -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 <malloc.h>
@@ -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;

20
harbour/source/rtl/itemapi.c
View File

@@ -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 <extend.h>

20
harbour/source/rtl/strings.c
View File

@@ -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 <hbsetup.h>

20
harbour/source/rtl/tclass.prg
View File

@@ -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 <eddie@runia.com>
* partial copyright regarding the following additions :
* Support for inheritance

24
harbour/source/vm/dynsym.c
View File

@@ -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 <extend.h>
#include <ctype.h>

19
harbour/source/vm/hvm.c
View File

@@ -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