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 ); | |
DCL i m_index := 5; | |
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; |