source: to-imperative/trunk/samples/Vector/vector.rf @ 1042

Last change on this file since 1042 was 1042, checked in by sveta, 18 years ago
  • Test for VECTOR.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 462 bytes
Line 
1$use Vector;
2$use StdIO;
3$vector V;
4
5Main  = <Vector ('VA')('B') > :: s1,
6        <Vector s1 s1> :: s2,
7        <PrintLN "\n Vector1 =" <Vector-To-Exp s1>>
8        <PrintLN "\n Vector2 = " <Vector-To-Exp s2>>
9        <Vector-Fill s1 'C'>
10        <PrintLN "\n Vector3 = " <Vector-To-Exp s1>>
11        <Vector-Init s1 1 ('DDD')>
12        <PrintLN "\n Vector4 = " <Vector-To-Exp s1>
13        " length = " <Vector-Length s1>
14        "element 2 of 2" <Vector-Ref s2 2>>;
Note: See TracBrowser for help on using the repository browser.