empset.lcl

imports employee, <stdio>;
mutable type empset;
 
only empset empset_create(void) FILE *stderr;
{
  modifies *stderr^;
  /* ensures fresh(result) /\ result' = { }; */
}
 
void empset_final (only empset s) 
{
  modifies s;
  /* ensures trashed(s); */
}
 
void empset_clear(empset s) 
{
  modifies s;
  /* ensures s' = { }; */
}
 
| bool : void | empset_insert (empset s, employee e) 
   internalState; FILE *stderr;
{
  modifies s, internalState, *stderr^;
  /* ensures result = ~(e \in s^) /\ s' = insert(e, s^); */
}
 
void empset_insertUnique (empset s, employee e) internalState; FILE *stderr;
{
  /* requires ~(e \in s^); */
  modifies s, internalState, *stderr^;
  /* ensures s' = insert(e, s^); */
}
 
| bool : void | empset_delete(empset s, employee e) 
{
  modifies s;
  /* ensures result = e \in s^ /\ s' = delete(e, s^); */
}
 
only empset empset_union(empset s1, empset s2) 
   internalState; FILE *stderr;
{
  modifies internalState, *stderr^;
  /* ensures result' = s1^ \U s2^ /\ fresh(result); */
}
 
only empset empset_disjointUnion (empset s1, empset s2) 
  internalState; FILE *stderr;
{
  modifies internalState, *stderr^;
  /* requires s1^ \I s2^ = { }; */
  /* ensures result' = s1^ \U s2^ /\ fresh(result); */
}
 
void empset_intersect (empset s1, empset s2) internalState; FILE *stderr;
{
  modifies s1, internalState, *stderr^;
  /* ensures s1' = s1^ \I s2^; */
}
 
int empset_size(empset s) 
{
  /* ensures result = size(s^); */
}
 
bool empset_member(employee e, empset s) 
{
  /* ensures result = e \in s^; */
}
 
bool empset_subset(empset s1, empset s2) 
{
  /* ensures result = s1^ \subseteq s2^; */
}
 
employee empset_choose(empset s) 
{
  /* requires s^ \neq { }; */
  /* ensures result \in s^; */
}
 
only char *empset_sprint(empset s) FILE *stderr;
{
  modifies *stderr^;
  /* ensures isSprint(result[]', s^) /\ fresh(result[]); */
}
 
void empset_initMod (void) internalState; FILE *stderr;
{
  modifies internalState, *stderr^;
  ensures true;
}
 
iter empset_elements (empset s, yield employee x);