grammars/video/Shared/general.Prolog.gf


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

-- File name Shared/general.Prolog.gf
include
	general.Abs.gf ;

flags lexer=codelit ; unlexer=codelit ; startcat=DMoveList ;


oper
app : Str -> Str -> Str = 
		\pred -> \arg -> 
		pred ++ "(" ++ arg ++ ")" ;
appHakeOne : Str -> Str = 
		\arg -> 
		"["++ arg ++ "]" ;


lin 
dmoves dm = {s = appHakeOne dm.s };
dmoves1 dm = {s = dm.s };
dmoves2 dm dms = {s = dm.s ++ "," ++ dms.s };

lin
answer p = {s = app "answer" p.s}; 
--request a = {s = app "request" a.s };

--- Answers
propans  a = {s = a.s} ;
negpropans a = {s = app "not" a.s} ;
shortans a = {s = a.s} ; 
negShortAns a = {s = a.s} ; 

negprop n p = {s = n.s ++ p.s} ;  

pattern
neg = [] ;

pattern
----Short answers
yes = "yes" ;
no = "no";
english = "english" ; ----???
swedish = "swedish" ; ----???

lin
indShortAns a = {s = a.s} ;
not n = {s = n.s} ;

--avsluta??
--börja om
top = { s = "top"} ;