grammars/video/System/genSystemSwe.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

-- File name System/general.Swe.gf

concrete genSystemSwe of genSystem = generalSwe ** open icm100ResSwe in {

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

pattern
greet = ["Välkommen till videobandspelaren"] ;
quit = "hejdå" ;

lin
ask a = {s = a.s} ;

lin
---Language
change_language = {s = "byt" ++ "språk"} ;
language_alt = {s = ["vill du använda svenska eller engelska"]} ;

---Actions
lin
actionQ = {s = "Vad" ++ "kan" ++ "jag" ++ "stå" ++ "till" ++ "tjänst" ++ "med"} ;

lin
whQuestion w = {s = w.s };
altQuestion a1 a2 = {s = "vill" ++ "du" ++ "spela" ++ "in" ++ a1.s ++ "eller" ++ a2.s};

--- Issue
issue i = {s = i.s} ;

pattern
nil = "[]" ;
}