blob: 907a6b78725bbf0fc3be86d6912001c82eb7aa6d (
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
|
-- File name Shared/general.Prolog.gf
concrete generalProlog of general = open prologResource in {
flags lexer=codelit ; unlexer=codelit ; startcat=DMoveList ;
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"} ;
}
|
