harbour-core/harbour/tests/byref.prg

/*
 * $Id$
 */

// Managing variables by reference

PROCEDURE Main()

   STATIC s_x := 10

   LOCAL x := 0

   ? "Managing LOCAL variables by reference"
   ? "In main before ref1 x=", x
   ref1( @x )
   ? " In main after ref1 x=", x


   ? "Managing STATIC variables by reference"
   ? "In main before ref1 s=", s_x
   ref1( @s_x )
   ? " In main after ref1 s=", s_x

   RETURN

FUNCTION ref1( x )

   x++
   ? " In ref1 before ref2 =", x
   Ref2( @x )
   ? " In ref1 after ref2 =", x

   RETURN NIL

FUNCTION ref2( x )

   x++
   ? "  In ref2 before ref3 =", x
   Ref3( @x )
   ? "  In ref2 after ref3 =", x

   RETURN NIL

FUNCTION ref3( x )

   STATIC s_a

   x++
   ? "   In ref3 before ref4 =", x
   s_a := { x, x }
   Ref4( @s_a )
   ? "   In ref3 after ref4 =", x

   RETURN NIL

FUNCTION ref4( a )

   a[ 1 ]++
   ? "    In ref4 =", a[ 1 ]

   RETURN NIL