1994-09-06 20:23:16 +00:00
|
|
|
vector: MODULE
|
|
|
|
|
|
|
|
|
|
SYNMODE m_index = RANGE(1:10);
|
|
|
|
|
NEWMODE vector = ARRAY (m_index) INT;
|
|
|
|
|
|
|
|
|
|
DCL a, b, c vector;
|
|
|
|
|
|
|
|
|
|
dump: PROC( a vector LOC, c CHAR );
|
1995-12-11 14:59:01 +00:00
|
|
|
DCL i m_index := 5;
|
1994-09-06 20:23:16 +00:00
|
|
|
DO FOR i IN m_index;
|
|
|
|
|
WRITETEXT( STDOUT, "%C(%C)=%C ", c, i, a(i) );
|
|
|
|
|
OD;
|
|
|
|
|
WRITETEXT( STDOUT, "%/" );
|
|
|
|
|
END dump;
|
|
|
|
|
|
|
|
|
|
a := vector [ 1, -1, 2, -2, 3, -3, 4, -4, 5, -5 ];
|
|
|
|
|
b := a;
|
|
|
|
|
b(4) := 4;
|
|
|
|
|
b(7) := 7;
|
|
|
|
|
c := vector [(*): 0];
|
|
|
|
|
|
|
|
|
|
dump(a,'a');
|
|
|
|
|
|
|
|
|
|
END vector;
|
