1: #line 482 "./lpsrc/flx_stl.pak"
2:
3:
4: include "stl";
5:
6: var x: stl_vector[int];
7:
8: print$ empty x; endl;
9:
10: push_back (x,4);
11: push_back (x,5);
12: push_back (x,6);
13:
14: insert (x,begin x,3);
15: insert (x,end x,7);
16: insert (x,begin x,2);
17: insert (x,begin x,1);
18:
19: print$ empty x; endl;
20:
21: proc check[c,it,rit with Reversible_Sequence[c,it,rit,int]]
22: {
23:
24: var i = begin x;
25: whilst i != end x do
26: print$ *i; endl;
27: i++;
28: done;
29:
30:
31: i = end x;
32: whilst i != begin x do
33: i--;
34: print$ *i; endl;
35: done;
36:
37:
38: var j = rbegin x;
39: whilst j != rend x do
40: print$ *j; endl;
41: j++;
42: done;
43:
44:
45: j = rend x;
46: whilst j != rbegin x do
47: j--;
48: print$ *j; endl;
49: done;
50: }
51:
52: check [
53: stl_vector[int],
54: stl_vector_iterator[int],
55: stl_vector_reverse_iterator[int],
56: int
57: ]();