summaryrefslogtreecommitdiff
path: root/grammars/video/Shared/general.gf
blob: 98922c8c643da66214dfe4de5729903d24bd0408 (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
abstract general = {

cat
Action ; 
DMove ; 
DMoves ; 
DMoveList ; 

Ind ; 
Prop ; 

fun
--- DMove
dmoves : DMoves -> DMoveList ; 
dmoves1 : DMove -> DMoves ; 
dmoves2 : DMove -> DMoves -> DMove ;

-- File name User/general.Abs.gf

cat
Answer ;
ShortAns ;
NegShortAns ;
NegProp ;
Neg ;

fun
answer : Answer -> DMove ;
--request :  Action -> DMove ;

--- Answers
propans : Prop -> Answer ; 
negpropans : NegProp -> Answer ; 
shortans : ShortAns -> Answer ; 
negShortAns : NegShortAns -> Answer ; 

negprop : Neg -> Prop -> NegProp ;
neg : Neg ;

--Short answers
swedish : ShortAns ; 
english : ShortAns ; 
yes : ShortAns ; 
no : NegShortAns ;
indShortAns : Ind -> ShortAns ; 
not : ShortAns -> NegShortAns ;

--avsluta??
--börja om
top : Action ;
}