ChangeLog 19990909-12:45

harbour/ChangeLog

@@ -1,3 +1,14 @@
+19990909-12:45 GMT+2 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/rtl/memvars.c
+	* removed unused variables
+	
+    *source/rtl/memvarbl.prg
+	+ added new file with MEMVARBLOCK() function
+	
+    *source/trl/Makefile
+	+ added memvarbl.prg to PRG_SOURCES
+	
 19990909-12:00 GMT+2 Ryszard Glab <rglab@imid.med.pl>
 
     *source/rtl/memvars.c

harbour/source/rtl/Makefile

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

harbour/source/rtl/memvarbl.prg

@@ -0,0 +1,80 @@
+/* 
+ * $Id$
+ */
+/*
+   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/).
+
+*/
+
+/*  $DOC$
+ *  $FUNCNAME$
+ *	MEMVARBLOCK
+ *  $CATEGORY$
+ *	variables management
+ *  $ONELINER$
+ *	Returns a codeblock that sets/gets a value of memvar variable
+ *  $SYNTAX$
+ *	MEMVARBLOCK( <cMemvarName> )
+ *  $ARGUMENTS$
+ *	<cMemvarName> - a string that contains the name of variable
+ *  $RETURNS$
+ *	a codeblock that sets/get the value of variable
+ *  $DESCRIPTION$
+ *	This function returns a codeblock that sets/gets the value of
+ *	PRIVATE or PUBLIC variable. When this codeblock is evaluated
+ *	without any parameters passed then it returns the current value
+ *	of given variable. If the second parameter is passed for
+ *	the codeblock evaluation then its value is used to set the new
+ *	value of given variable - the passed value is also returned
+ *	as a value of the codeblock evaluation.
+ *  $EXAMPLES$
+ *	PROCEDURE MAIN()
+ *	LOCAL cbSetGet
+ *	PUBLIC xPublic
+ *	
+ *	cbSetGet = MEMVARBLOCK( "xPublic" )
+ *	EVAL( cbSetGet, "new value" )
+ *	? "Value of xPublic variable", EVAL( cbSetGet )
+ *
+ *	RETURN
+ *  $TESTS$
+ *
+ *  $STATUS$
+ *
+ *  $COMPLIANCE$
+ *
+ *  $SEEALSO$
+ *	__MVGET, __MVPUT
+ *  $END$
+ */
+
+FUNCTION MEMVARBLOCK( cMemvar )
+RETURN { |x| IIF( x==NIL, __mvGET(cMemvar), __mvPUT(cMemvar,x) ) }

harbour/source/rtl/memvars.c

@@ -1355,7 +1355,6 @@ HARBOUR HB___MVDBGINFO( void )
  */
 HARBOUR HB___MVGET( void )
 {
-   BOOL bInvalidArg =TRUE;
    HB_ITEM_PTR pName = hb_param( 1, IT_STRING );
 
    if( pName )
@@ -1434,7 +1433,6 @@ HARBOUR HB___MVGET( void )
  */
 HARBOUR HB___MVPUT( void )
 {
-   BOOL bInvalidArg =TRUE;
    HB_ITEM_PTR pName = hb_param( 1, IT_STRING );
    HB_ITEM nil;
    HB_ITEM_PTR pValue = &nil;