58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
59 lines
1020 B
Plaintext
59 lines
1020 B
Plaintext
/*
|
|
* test code for GET SetGet block for aliased macro variables
|
|
*
|
|
* Copyright 2015 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL GetList := {}, aStr
|
|
MEMVAR idx, fld, als
|
|
PRIVATE idx, fld, als
|
|
|
|
aStr := { { "F1", "C", 10, 0 }, ;
|
|
{ "F2", "C", 10, 0 } }
|
|
|
|
dbCreate( "_tst1", aStr )
|
|
USE _tst1 NEW
|
|
dbAppend()
|
|
field->F1 := "FIRST"
|
|
field->F2 := "SECOND"
|
|
|
|
dbCreate( "_tst2", aStr )
|
|
USE _tst2 NEW
|
|
dbAppend()
|
|
field->F1 := "first"
|
|
field->F2 := "second"
|
|
Select( 1 )
|
|
|
|
CLS
|
|
|
|
idx := "1"
|
|
fld := "F" + idx
|
|
als := "_tst" + idx
|
|
|
|
@ 1, 0 GET f&idx
|
|
@ 2, 0 GET field->f&idx
|
|
@ 3, 0 GET _tst1->f&idx
|
|
@ 4, 0 GET &als->f&idx
|
|
@ 5, 0 GET _tst&idx->f&idx
|
|
|
|
@ 7, 0 GET &fld
|
|
@ 8, 0 GET field->&fld
|
|
@ 9, 0 GET _tst1->&fld
|
|
@ 10, 0 GET &als->&fld
|
|
@ 11, 0 GET _tst&idx->&fld
|
|
|
|
@ 13, 0 GET &als->F1
|
|
@ 14, 0 GET _tst&idx->F1
|
|
|
|
InKey( 0 )
|
|
|
|
idx := "2"
|
|
fld := "F" + idx
|
|
als := "_tst" + idx
|
|
|
|
READ
|
|
|
|
RETURN
|