|
|
1.1 ! root 1: x_vlist = cluster is create, store, fetch, size, equal ! 2: ! 3: rep = null ! 4: ! 5: create = proc (n: int) returns (cvt) signals (toobig) ! 6: end create ! 7: ! 8: store = proc (list: cvt, i: int, x, y, flags: int) signals (bounds) ! 9: end store ! 10: ! 11: fetch = proc (list: cvt, i: int) returns (int, int, int) signals (bounds) ! 12: end fetch ! 13: ! 14: size = proc (list: cvt) returns (int) ! 15: end size ! 16: ! 17: equal = proc (list1, list2: cvt) returns (bool) ! 18: end equal ! 19: ! 20: end x_vlist
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.