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

19990916-11:15 GMT+1

Browse Source
This commit is contained in:
Viktor Szakats
1999-09-16 09:34:13 +00:00
parent e8d734eb08
commit bba4046bb1
28 changed files with 475 additions and 342 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
harbour/ChangeLog
View File

@@ -1,3 +1,26 @@
19990916-11:15 GMT+1 Victor Szel <info@szelvesz.hu>
* source/vm/hvm.c
+ __XHELP() function added.
; So now if we had defined a function named HELP() in our app, it will be
called by default if the user presses the F1 key. Like in Clipper.
+ Now using SYSINIT to force linking of the system init modul, instead of
ERRORSYS. Forcing ERRORNEW explicitly is not needed, so it's now removed.
* source/rtl/harbinit.prg
+ ANNOUNCE SYSINIT added.
+ __SETHELPK() function added.
* source/rtl/harbinit.prg (added)
source/rtl/errorsys.prg
source/rtl/Makefile
makefile.*
! ClipInit() INIT procedure moved from ERRORSYS to a separate .prg,
this way the ERRORSYS.PRG module is completely replacable, like in
Clipper.
( ! Borland and MSVC users please check the modified Makefiles ! )
* source/rtl/*.prg
+ All copyright header changed to the new one.
+ Missing copyright headers added.
19990916-13:07 GMT+3 Alexander Kresin
* source/hbpp/hbpp.c
* fixed bug with Release ( noted by David G. Holm )

8
harbour/makefile.b16
View File

@@ -1,6 +1,6 @@
#
#
# $Id$
#
#
# makefile for Borland C/C++ 16 bits
@@ -18,7 +18,7 @@ PROJECT: harbour.lib libs\b16\terminal.lib libs\win16\terminal.lib harbour.exe
harbour.lib : arrays.obj asort.obj classes.obj codebloc.obj dates.obj \
dates2.obj datesx.obj \
debug.obj descend.obj devoutp.obj dynsym.obj environ.obj terror.obj \
errorapi.obj errorsys.obj extend.obj files.obj fm.obj \
errorapi.obj errorsys.obj harbinit.obj extend.obj files.obj fm.obj \
hardcr.obj initsymb.obj itemapi.obj math.obj memvars.obj \
mathx.obj mtran.obj objfunc.obj set.obj setcolor.obj stringp.obj \
strings.obj stringsx.obj tclass.obj transfrm.obj
@@ -50,6 +50,7 @@ errorsys.obj : errorsys.c extend.h hbdefs.h
extend.obj : extend.c extend.h hbdefs.h
files.obj : extend.c extend.h hbdefs.h
fm.obj : fm.c extend.h hbdefs.h
harbinit.obj : harbinit.c extend.h hbdefs.h
hardcr.obj : hardcr.c extend.h hbdefs.h
initsymb.obj : initsymb.c extend.h hbdefs.h
itemapi.obj : itemapi.c extend.h hbdefs.h
@@ -71,6 +72,7 @@ asort.c : asort.prg harbour.exe
devout.c : devout.prg harbour.exe
terror.c : terror.prg harbour.exe
errorsys.c : errorsys.prg harbour.exe
harbinit.c : harbinit.prg harbour.exe
objfunc.c : objfunc.prg harbour.exe
stringp.c : stringp.prg harbour.exe
tclass.c : tclass.prg harbour.exe

3
harbour/makefile.b31
View File

@@ -20,7 +20,7 @@ PROJECT: harbour.lib hbtools.lib terminal.lib libs\win16\terminal.lib
harbour.lib : arrays.obj asort.obj classes.obj codebloc.obj copyfile.obj \
dates.obj descend.obj devoutp.obj dir.obj dynsym.obj environ.obj \
terror.obj errorapi.obj errorsys.obj extend.obj \
terror.obj errorapi.obj errorsys.obj harbinit.obj extend.obj \
filesys.obj gtapi.obj hardcr.obj initsymb.obj itemapi.obj \
math.obj memvars.obj mtran.obj msguk.obj objfunc.obj \
set.obj setcolor.obj strings.obj symbols.obj \
@@ -62,6 +62,7 @@ extend.obj : extend.c extend.h hbdefs.h set.h dates.h
filesys.obj : filesys.c extend.h hbdefs.h
fm.obj : fm.c extend.h hbdefs.h
gtapi.obj : gtapi.c extend.h hbdefs.h gtapi.h
harbinit.obj : harbinit.prg extend.h hbdefs.h init.h pcode.h
hardcr.obj : hardcr.c extend.h hbdefs.h
itemapi.obj : itemapi.c extend.h hbdefs.h ctoharb.h itemapi.h set.h dates.h
math.obj : math.c extend.h hbdefs.h

8
harbour/makefile.b32
View File

@@ -1,6 +1,6 @@
#
#
# $Id$
#
#
# makefile for Borland C/C++ 32 bits
@@ -21,7 +21,7 @@ harbour.lib : achoice.obj adir.obj alert.obj arrays.obj asort.obj \
classes.obj codebloc.obj copyfile.obj \
dates.obj dates2.obj datesx.obj debug.obj debugger.obj descend.obj devoutp.obj \
dir.obj do.obj dynsym.obj environ.obj terror.obj \
errorapi.obj errorsys.obj extend.obj fileread.obj filesys.obj fm.obj \
errorapi.obj errorsys.obj harbinit.obj extend.obj fileread.obj filesys.obj fm.obj \
hardcr.obj hb_f.obj hvm.obj initsymb.obj inkey.obj itemapi.obj \
langapi.obj math.obj mathx.obj memvars.obj menuto.obj mtran.obj msges.obj \
objfunc.obj readvar.obj xsavescr.obj\
@@ -56,6 +56,7 @@ extend.obj : extend.c extend.h hbdefs.h
fileread.obj : fileread.c extend.h hbdefs.h
filesys.obj : filesys.c extend.h hbdefs.h
fm.obj : fm.c extend.h hbdefs.h
harbinit.obj : harbinit.c extend.h hbdefs.h
hardcr.obj : hardcr.c extend.h hbdefs.h
hb_f.obj : hb_f.c extend.h hbdefs.h
hvm.obj : hvm.c extend.h hbdefs.h
@@ -98,6 +99,7 @@ devoutp.c : devoutp.prg harbour.exe
terror.c : terror.prg harbour.exe
errorsys.c : errorsys.prg harbour.exe
fileread.c : fileread.prg harbour.exe
harbinit.c : harbinit.prg harbour.exe
menuto.c : menuto.prg harbour.exe
objfunc.c : objfunc.prg harbour.exe
setkey.c : setkey.prg harbour.exe

8
harbour/makefile.b40
View File

@@ -1,6 +1,6 @@
#
#
# $Id$
#
#
# makefile for Borland C/C++ 32 bits
@@ -19,7 +19,7 @@ PROJECT: harbour.exe harbour.lib libs\b32\terminal.lib libs\win32\terminal.lib
harbour.lib : arrays.obj asort.obj classes.obj codebloc.obj alert.obj \
dates.obj dates2.obj datesx.obj debug.obj descend.obj devoutp.obj \
dir.obj dynsym.obj environ.obj terror.obj menu.obj \
errorapi.obj errorsys.obj extend.obj files.obj \
errorapi.obj errorsys.obj harbinit.obj extend.obj files.obj \
hardcr.obj hb_f.obj initsymb.obj inkey.obj itemapi.obj memvars.obj \
math.obj mathx.obj msguk.obj mtran.obj objfunc.obj \
set.obj setcolor.obj symbols.obj strings.obj stringp.obj \
@@ -47,6 +47,7 @@ errorsys.obj : errorsys.c extend.h hbdefs.h
extend.obj : extend.c extend.h hbdefs.h
filesys.obj : filesys.c extend.h hbdefs.h
fm.obj : fm.c extend.h hbdefs.h
harbinit.obj : harbinit.c extend.h hbdefs.h
hardcr.obj : hardcr.c extend.h hbdefs.h
hb_f.obj : hb_f.c extend.h hbdefs.h
initsymb.obj : initsymb.c extend.h hbdefs.h
@@ -72,6 +73,7 @@ asort.c : asort.prg harbour.exe
devoutp.c : devoutp.prg harbour.exe
terror.c : terror.prg harbour.exe
errorsys.c : errorsys.prg harbour.exe
harbinit.c : harbinit.prg harbour.exe
objfunc.c : objfunc.prg harbour.exe
stringp.c : stringp.prg harbour.exe
tclass.c : tclass.prg harbour.exe

6
harbour/makefile.vc
View File

@@ -1,4 +1,4 @@
#
#
# $Id$
#
@@ -81,6 +81,7 @@ HARBOUR_LIB_OBJS = \
$(OBJ_DIR)\filesys.obj \
$(OBJ_DIR)\fm.obj \
$(OBJ_DIR)\gtapi.obj \
$(OBJ_DIR)\harbinit.obj \
$(OBJ_DIR)\hardcr.obj \
$(OBJ_DIR)\hvm.obj \
$(OBJ_DIR)\initsymb.obj \
@@ -389,6 +390,9 @@ $(OBJ_DIR)\gtapi.obj : $(RTL_DIR)\gtapi.c
$(OBJ_DIR)\gtxxx.obj : $(RTL_DIR)\gtxxx.c
$(CC) $(CLIBFLAGS) -Fo$@ $**
$(RTL_DIR)\harbinit.c : $(RTL_DIR)\harbinit.prg
$(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$(**D)
$(OBJ_DIR)\hardcr.obj : $(RTL_DIR)\hardcr.c
$(CC) $(CLIBFLAGS) -Fo$@ $**

1
harbour/source/rtl/Makefile
View File

@@ -46,6 +46,7 @@ PRG_SOURCES=\
browdb.prg \
devoutp.prg \
errorsys.prg \
harbinit.prg \
memvarbl.prg \
menuto.prg \
objfunc.prg \

15
harbour/source/rtl/achoice.prg
View File

@@ -3,14 +3,13 @@
*/
/*
Harbour Project source code
www - http://www.Harbour-Project.org
A pure Clipper emulation of the ACHOICE function.
Author: Peter Townsend <cephas@tpgi.com.au>
Code donated to the Public Domain
*/
* Harbour Project source code:
* ACHOICE() function
*
* Released to Public Domain by Peter Townsend <cephas@tpgi.com.au>
* www - http://www.harbour-project.org
*
*/
#include "inkey.ch"
#include "setcurs.ch"

58
harbour/source/rtl/adir.prg
View File

@@ -3,35 +3,35 @@
*/
/*
Harbour Project source code
Clipper compatibility function ADIR().
Copyright (C) 1999 Victor Szel <info@szelvesz.hu>
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* ADIR() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "directry.ch"

25
harbour/source/rtl/alert.prg
View File

@@ -3,15 +3,24 @@
*/
/*
Harbour Project source code
www - http://www.Harbour-Project.org
* Harbour Project source code:
* ALERT() function
*
* Released to Public Domain by Vladimir Kazimirchik <v_kazimirchik@yahoo.com>
* www - http://www.harbour-project.org
*
*/
Written by Vladimir Kazimirchik <v_kazimirchik@yahoo.com>
http://i.am/kzm
Clipper compatibility additions by Victor Szel <info@szelvesz.hu>
Released into public domain.
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Changes for higher Clipper compatibility
*
* See doc/license.txt for licensing terms.
*
*/
#include "box.ch"
#include "inkey.ch"

8
harbour/source/rtl/asort.prg
View File

@@ -3,10 +3,11 @@
*/
/*
* ASORT - Sort an array
* Harbour Project source code:
* ASORT() function
*
* Copyright (C) 1999 Eddie Runia (eddie@runia.com)
* Part of the Harbour Project www.harbour-project.org
* Copyright 1999 Eddie Runia <eddie@runia.com>
* 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
@@ -29,6 +30,7 @@
* 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/).
*
*/
/*

36
harbour/source/rtl/browdb.prg
View File

@@ -3,24 +3,34 @@
*/
/*
* Harbour Class TBrowse
* Copyright(C) 1999 by Paul Tucker <ptucker@sympatico.ca>
* Harbour Project source code:
* TBROWSEDB() function
*
* Copyright 1999 Paul Tucker <ptucker@sympatico.ca>
* 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.
* 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:
*
* 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.
* 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.
*
* You should have received a copy of the GNU General Public
* License along with this program; if not, write to:
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
* The Free Software Foundation, Inc.,
* 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* TODO: replace calls to _LastRec() and _Recno() with real versions. */

78
harbour/source/rtl/devoutp.prg
View File

@@ -3,44 +3,48 @@
*/
/*
Harbour Project source code
* Harbour Project source code:
* DEVOUTPICT() function
*
* Copyright 1999 David G. Holm <dholm@jsd-llc.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
This file contains the Harbour function that outputs expressions
using picture transformations
Copyright 1999 David G. Holm <dholm@jsd-llc.com>
www - http://www.Harbour-Project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
V 1.4 Paul Tucker Second param to Devout should be
the color.
V 1.3 David G. Holm Added my email address.
V 1.2 David G. Holm Removed "(C)" from Copyright and
updated previous version comments.
V 1.1 David G. Holm Submitted to Harbour Project.
V 1.0 David G. Holm Initial version.
*/
/*
* ChangeLog:
*
* V 1.4 Paul Tucker Second param to Devout should be
* the color.
* V 1.3 David G. Holm Added my email address.
* V 1.2 David G. Holm Removed "(C)" from Copyright and
* updated previous version comments.
* V 1.1 David G. Holm Submitted to Harbour Project.
* V 1.0 David G. Holm Initial version.
*
*/
/* $DOC$
* $FUNCNAME$

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

@@ -3,35 +3,35 @@
*/
/*
Harbour Project source code
The error handler
Copyright 1999 Antonio Linares <alinares@fivetech.com>
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* The default error handler
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
// Standard Harbour ErrorSys system
@@ -42,16 +42,6 @@
//----------------------------------------------------------------------------//
init procedure ClipInit
public getlist := {}
ErrorSys()
return
//----------------------------------------------------------------------------//
procedure ErrorSys
ErrorBlock( { | oError | DefError( oError ) } )

56
harbour/source/rtl/harbinit.prg Normal file
View File

@@ -0,0 +1,56 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* Main Harbour initialization functions CLIPINIT()
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "inkey.ch"
ANNOUNCE SysInit
INIT PROCEDURE ClipInit
PUBLIC getlist := {}
ErrorSys()
/* TOFIX: In Clipper this function is not called from here CLIPINIT(). */
/* NOTE: In Clipper __SETHELPK() is called *after* ERRORSYS(). */
__SetHelpK()
RETURN
FUNCTION __SetHelpK
SET KEY K_F1 TO __XHELP
RETURN NIL

62
harbour/source/rtl/memvarbl.prg
View File

@@ -3,37 +3,35 @@
*/
/*
Harbour Project source code
This function returns a codeblock to set/get a value of PUBLIC
or PRIVATE variable
Copyright 1999 Ryszard Glab
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* MEMVARBLOCK() function
*
* Copyright 1999 Ryszard Glab <rglab@imid.med.pl>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "memvars.ch"
@@ -82,7 +80,7 @@
FUNCTION MEMVARBLOCK( cMemvar )
IF ( ValType( cMemvar ) == "C" ) .AND. __mvSCOPE( cMemvar ) > MV_ERROR
RETURN {| x | IIF( PCOUNT() == 0, __mvGET( cMemvar ), __mvPUT( cMemvar, x ) ) }
RETURN {| x | iif( PCount() == 0, __mvGET( cMemvar ), __mvPUT( cMemvar, x ) ) }
ENDIF
RETURN NIL

27
harbour/source/rtl/menuto.prg
View File

@@ -3,17 +3,24 @@
*/
/*
Harbour Project source code
www - http://www.Harbour-Project.org
* Harbour Project source code:
* PROMPT/MENU TO commands
*
* Released to Public Domain by Phil Barnett <philb@iag.net>
* www - http://www.harbour-project.org
*
*/
A pure Clipper emulation of the PROMPT/MENU TO commands.
Author: Phil Barnett <philb@iag.net>
Released to Public Domain
Changes for higher Clipper compatibility by:
Victor Szel <info@szelvesz.hu>
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* Changes for higher Clipper compatibility
*
* See doc/license.txt for licensing terms.
*
*/
/* NOTE: Recursive use is supported */

27
harbour/source/rtl/objfunc.prg
View File

@@ -3,12 +3,11 @@
*/
/*
* OBJFUNC
* Harbour Project source code:
* Dynamic Object management and misc. Object related functions
*
* Contains additional object oriented functions
*
* Copyright (C) 1999 Eddie Runia <eddie@runia.com>
* Part of the Harbour Project www.harbour-project.org
* Copyright 1999 Eddie Runia <eddie@runia.com>
* 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
@@ -34,14 +33,16 @@
*
*/
/* Harbour Project source code
http://www.Harbour-Project.org/
The following functions are Copyright 1999 Antonio Linares <alinares@fivetech.com>:
__objGetMsgList
See doc/hdr_tpl.txt, Version 1.2 or later, for licensing terms.
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* __objGetMsgList
*
* See doc/license.txt for licensing terms.
*
*/
#include "hboo.ch"
#include "error.ch"

58
harbour/source/rtl/readvar.prg
View File

@@ -3,35 +3,35 @@
*/
/*
Harbour Project source code
READVAR()
Copyright (C) 1999 Victor Szel <info@szelvesz.hu>
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* READVAR() function
*
* Copyright 1999 Victor Szel <info@szelvesz.hu>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
FUNCTION ReadVar( cVarName )
STATIC s_cVarName := ""

72
harbour/source/rtl/setkey.prg
View File

@@ -3,41 +3,45 @@
*/
/*
Harbour Project source code
* Harbour Project source code:
* SETKEY() and related functions
*
* Copyright 1999 A White <awhite@user.rose.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
This file contains the Harbour function(s) that maintain the list
of set-keys (hot-keys).
By: A White - awhite@user.rose.com
www - http://www.Harbour-Project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
V 1.1 A White Fixed wrong parameter aClone() bug in SetKeySave()
Added SetKeyCheck()
Added SetKeyGet()
V 1.0 A White Initial version, submitted to Harbour Projects
*/
/*
* ChangeLog:
*
* V 1.1 A White Fixed wrong parameter aClone() bug in SetKeySave()
* Added SetKeyCheck()
* Added SetKeyGet()
* V 1.0 A White Initial version, submitted to Harbour Projects
*
*/
// macro substitutions to access sub-array elements of aSetKeys[]
#define KEY 1

58
harbour/source/rtl/tbcolumn.prg
View File

@@ -3,35 +3,35 @@
*/
/*
Harbour Project source code
Harbour Class TBColumn
Copyright 1999 Antonio Linares <alinares@fivetech.com>
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* TBColumn Class
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "classes.ch"

59
harbour/source/rtl/tbrowse.prg
View File

@@ -3,36 +3,35 @@
*/
/*
Harbour Project source code
Harbour Class TBrowse
Copyright 1999 Antonio Linares <alinares@fivetech.com>
Portions Copyright(c) 1999 Alexander S.Kresin <alex@belacy.belgorod.su>
www - http://www.harbour-project.org
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version, with one exception:
The exception is that if you link the Harbour Runtime Library (HRL)
and/or the Harbour Virtual Machine (HVM) with other files to produce
an executable, this does not by itself cause the resulting executable
to be covered by the GNU General Public License. Your use of that
executable is in no way restricted on account of linking the HRL
and/or HVM code into it.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
their web site at http://www.gnu.org/).
*/
* Harbour Project source code:
* TBrowse Class
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version, with one exception:
*
* The exception is that if you link the Harbour Runtime Library (HRL)
* and/or the Harbour Virtual Machine (HVM) with other files to produce
* an executable, this does not by itself cause the resulting executable
* to be covered by the GNU General Public License. Your use of that
* executable is in no way restricted on account of linking the HRL
* and/or HVM code into it.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
* their web site at http://www.gnu.org/).
*
*/
#include "classes.ch"
#include "color.ch"

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

@@ -33,15 +33,17 @@
*
*/
/* Harbour Project source code
http://www.Harbour-Project.org/
The following functions are Copyright 1999 Eddie Runia <eddie@runia.com>:
Support for inheritance
Support for default DATA values
See doc/hdr_tpl.txt, Version 1.2 or later, for licensing terms.
*/
/*
* The following parts are Copyright of the individual authors.
* www - http://www.harbour-project.org
*
* Copyright 1999 Eddie Runia <eddie@runia.com>
* Support for inheritance
* Support for default DATA values
*
* See doc/license.txt for licensing terms.
*
*/
// Harbour Class TClass to build classes

2
harbour/source/rtl/terror.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Class Error
* Error Class
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org

2
harbour/source/rtl/tget.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Class Get
* Get Class
*
* Copyright 1999 Ignacio Ortiz de Zúniga <ignacio@fivetech.com>
* www - http://www.harbour-project.org

2
harbour/source/rtl/tgetlist.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* Class GetList
* GetList Class
*
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org

2
harbour/source/rtl/xsavescr.prg
View File

@@ -4,7 +4,7 @@
/*
* Harbour Project source code:
* __XSAVESCREEN()/__XRESTSCREEN()
* __XSAVESCREEN()/__XRESTSCREEN() functions
*
* Copyright 1999 Paul Tucker <ptucker@sympatico.ca>
* www - http://www.harbour-project.org

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

@@ -56,8 +56,7 @@ typedef struct _SYMBOLS
SYMBOLSCOPE hScope; /* scope collected from all symbols in module used to speed initialization code */
} SYMBOLS, * PSYMBOLS; /* structure to keep track of all modules symbol tables */
extern HARBOUR HB_ERRORSYS( void );
extern HARBOUR HB_ERRORNEW( void );
extern HARBOUR HB_SYSINIT( void );
static void hb_vmPopAlias( void ); /* pops the workarea number form the eval stack */
static void hb_vmPopAliasedField( PHB_SYMB ); /* pops an aliased field from the eval stack*/
@@ -2840,8 +2839,7 @@ static void hb_vmDoInitFunctions( int argc, char * argv[] )
/* Don't make this function static, because it's not called from this file. */
void hb_vmForceLink( void )
{
HB_ERRORSYS();
HB_ERRORNEW();
HB_SYSINIT();
}
/* ----------------------------- */
@@ -3128,3 +3126,22 @@ void hb_vmRequestCancel( void )
s_wActionRequest = HB_QUIT_REQUESTED;
}
}
/* NOTE: This is an internal undocumented Clipper function, which will try
to call the function HELP() if it's defined. This is the default
SetKey() handler for the F1 key. */
HARBOUR HB___XHELP( void )
{
PHB_DYNS pDynSym = hb_dynsymGet( "HELP" );
if( pDynSym )
{
hb_vmPushSymbol( pDynSym->pSymbol );
hb_vmPushNil();
hb_vmDo( 0 );
/* NOTE: Leave the return value as it is. */
}
}