Subversion Repositories or1k

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;