examples/tutorial/embedded/Query.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

abstract Query = {

  flags startcat=Question ;

  cat 
    Answer ; Question ; Object ;

  fun 
    Even   : Object -> Question ;
    Odd    : Object -> Question ;
    Prime  : Object -> Question ;
    Number : Int -> Object ;

    Yes : Answer ;
    No  : Answer ;
}