blob: 41372a43c707cb818288917fe3ab68d029fbc0e3 (
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
52
53
54
55
56
57
|
--# -path=.:../Common:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/scandinavian:resource-1.0/swedish
concrete TramUserSwe of TramUser = GodisUserSwe, StopsSwe ** TramUserI
with (Grammar=GrammarSwe), (GodisLang=GodisLangSwe),
(TramSystemI=TramSystemSwe), (TramLexicon=TramLexiconSwe);
-- concrete TramUserSwe of TramUser = GodisUserSwe, StopsSwe **
-- open Prelude, GrammarSwe, GodisLangSwe, TramLexiconSwe, TramSystemSwe, CommonScand in {
-- ------------------------------------------------------------------------
-- -- Predicates
-- lin
-- shortest_route
-- = variants{ askQS shortest_route_Q;
-- ss (variants{["hitta"]; ["ge mig"]; ["fråga efter"]} ++
-- variants{["en rutt"]; ["kortaste vägen"]; ["en resväg"]})};
-- shortest_route__dept x
-- = ss ( ["jag vill åka från"] ++ x.s!NPNom);
-- shortest_route__dest x
-- = ss ( ["jag vill åka till"] ++ x.s!NPNom);
-- shortest_route__dept_dest x y
-- = ss ( variants{["jag vill åka från"] ++ x.s!NPNom ++ "till" ++ y.s!NPNom ;
-- ["jag vill åka till"] ++ y.s!NPNom ++ "från" ++ x.s!NPNom} );
-- dest_stop x = ss( "till" ++ x.s!NPNom);
-- dept_stop x = ss( "från" ++ x.s!NPNom);
-- dept_dest_stop x y = ss(variants{"till" ++ y.s!NPNom ++ "från" ++ x.s!NPNom;
-- "från" ++ x.s!NPNom ++ "till" ++ y.s!NPNom} );
-- stop_dest_stop x y = ss(x.s!NPNom ++ "till" ++ y.s!NPNom);
-- stop_dept_stop x y = ss(x.s!NPNom ++ "från" ++ y.s!NPNom);
-- ----------------------------------------------------------------------
-- -- Short answers
-- lin
-- stop x = ansNP x;
-- ----------------------------------------------------------------------
-- -- Actions
-- lin
-- top = reqVP top;
-- help = variants{ reqVP help;
-- ss ["hur gör jag nu"] };
-- }
|
