home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a054 / 1.img / GETLIB.EXE / GETVAR.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  425 b   |  25 lines
  1. // GetVar.prg
  2. //
  3. // Support functions for GET TO VAR
  4.  
  5. #define FLD_VAL    1
  6. #define FLD_GSB    2
  7.  
  8. FUNCTION UpdateFields(aGets)
  9.  
  10. LOCAL i
  11. LOCAL nGets := Len(aGets)
  12.  
  13.   FOR i := 1 TO nGets
  14.     Eval(aGets[i]:Cargo[FLD_GSB], aGets[i]:cargo[FLD_VAL])
  15.   NEXT
  16.  
  17. RETURN NIL
  18.  
  19.  
  20. FUNCTION CargoGsb(oGet)
  21.  
  22. RETURN {|x| iif(x == NIL, ;
  23.                 oGet:cargo[FLD_VAL], ;
  24.                 oGet:cargo[FLD_VAL] := x) }
  25.