summaryrefslogtreecommitdiff
path: root/Jennisys/examples/List.jen
blob: 85a3b6927f26659538e0828e94a3557c1d0607d4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
interface List[T] {
  var list: seq[T]

  constructor Empty()
    ensures list = []

  constructor Singleton(t: T)
    ensures list = [t]

  constructor Double(p: T, q: T)
    ensures list = [p q]
}

datamodel List[T] {
  var root: Node[T]

  frame
    root

  invariant
    root = null ==> |list| = 0
    root != null ==> list = root.list
}

interface Node[T] {
  var list: seq[T]

  invariant
    |list| > 0

  constructor Init(t: T)
    ensures list = [t]

  constructor Double(p: T, q: T)
    ensures list = [p q]

  method List() returns (ret: seq[T])
    ensures ret = list

  method Tail() returns (tail: Node[T])
    ensures |list| = 1 ==> tail = null
    ensures |list| > 1 ==> tail != null && tail.list = list[1..]

  method Size() returns (ret: int)
    ensures ret = |list|

  method SkipFew(num: int) returns (ret: Node[T])
    requires num >= 0
    ensures num >= |list| ==> ret = null
    ensures num < |list| ==> ret != null && ret.list = list[num..]

  method Get(idx: int) returns (ret: T)
    requires idx >= 0 && idx < |list|
    ensures ret = list[idx]

  method Index(n: T) returns (ret: int)
    ensures n !in list ==> ret = -1
    ensures n in list ==> ret >= 0 && ret < |list| && list[ret] = n

  method Find(n: T) returns (ret: bool)
    ensures ret = (n in list)
	
  method Insert(n: T) 
    ensures list = old(list) + [n]  
}

datamodel Node[T] {
  var data: T
  var next: Node[T]

  frame 
    next

  invariant
    next = null ==> list = [data]
    next != null ==> list = [data] + next.list 
}