PC Toledo

Código: Selecionar todos

Fuction Main

aa := 0
REF_VAR (@aa)
PUNTERO_FUNC (@Ejemplo, 10, 20)

Return

Function Ejemplo (x,y)
Local Suma
Suma := x + y
Return Suma


#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

HB_FUNC (REF_VAR)
{  int *pNum;
   pNum = (int*) hb_parptr (1); // retrieve a parameter as a pointer 
   if (pNum)
        *pNum = 33;
}   

HB_FUNC (PUNTERO_FUNC)
{  void **pFunc;
   int total;
   pFunc = (void**) hb_parptr (1); // retrieve a parameter as a pointer 
   if (pFunc) 
       total = *pFunc (hb_parni(2),hb_parni(3));
}   

   
#pragma ENDDUMP

Código: Selecionar todos

Procedure Main()
Local nVar1, nVar2, nVar3

   nVar1 := 1
   nVar2 := 10
   nVar3 := 100

   ?TesteReferencia( @nVar1, @nVar2, nVar3 ) // 40

   ? nVar1 // 9 - Passado por referência, é alterado
   ? nVar2 // 20 - Passado por referência, é alterado
   ? nVar3 // 100 - Não foi passado por referência, não foi alterado

Return nil

Function TesteReferencia( n1, n2, n3 )

   ?n1 // 1
   ?n2 // 10
   ?n3 // 100
   n3 := n1 + n2
   ?n3 // 11
   n1 := n2 - n1
   ?n1 // 9
   n2 := (n3 - n1) * n2 
   ?n2 // 20
 
Return (n1+n2+n3) // 40

Código: Selecionar todos

Function Main
Private aa:= 10
total := REF_VAR (10, @aa)
?? aa, total
Return


#pragma BEGINDUMP

#include "hbapi.h"

HB_FUNC (REF_VAR)
{  int Num1=0, Num2=0, suma=0;

   Num1 = hb_parni (1);
   Num2 = hb_parni (2);

   suma = Num1 + Num2;   

// hb_storXXX (Valor, Indice)  asigna Valor a la variable pasada por referencia en el parámetro indicado por indice.

  if (HB_ISBYREF (2))  // cheque que sea una referencia para asegurarme que el usuario no paso como parámetro una constante. 
       hb_storni(suma, 2);  /* stores an integer on a variable by reference */   

hb_retni (suma); 
}   

#pragma ENDDUMP