Changeset 1047 for to-imperative/trunk/samples/Vector

Timestamp:

Jul 19, 2003, 5:48:11 PM (18 years ago)

Author:

sveta

Message:

• Test for Vector.

Location:

to-imperative/trunk/samples/Vector

Files:

• vector.out (added)
• vector.rf (modified) (1 diff)

to-imperative/trunk/samples/Vector/vector.rf

@@ -5 +5 @@
 Main  = <Vector ('VA')('B') > :: s1,
         <Vector s1 s1> :: s2,
-        <PrintLN "\n Vector1 =" <Vector-To-Exp s1>>
-        <PrintLN "\n Vector2 = " <Vector-To-Exp s2>>
+        <PrintLN "Vector1 =" <Vector-To-Exp s1>>
+        <PrintLN "Vector2 = " <Vector-To-Exp s2>>
         <Vector-Fill s1 'C'>
-        <PrintLN "\n Vector3 = " <Vector-To-Exp s1>>
-        <Vector-Init s1 1 ('DDD')>
-        <PrintLN "\n Vector4 = " <Vector-To-Exp s1>
-        " length = " <Vector-Length s1>
-        "element 2 of 2" <Vector-Ref s2 2>>;
+        <PrintLN "Vector-Fill = " <Vector-To-Exp s1>>
+        <Vector-Init s1 5 ('DDD')>
+        <PrintLN "Vector-Init = " <Vector-To-Exp s1>
+        " \n length = " <Vector-Length s1>
+        "\n element 2 of 2" <Vector-Ref s2 2>>
+        <Vector-Replace s1 ('ABC') s1 >
+        <PrintLN "Replace = " <Vector-To-Exp s1>>
+        <Subvector s1 0 2> :: s3,
+        <PrintLN "Subvector =" <Vector-To-Exp s3>> 
+        <Subvector-Fill s3 1 1 "s3 s3 s3">
+        <PrintLN "Subvector-Fill =" <Vector-To-Exp s3>>;