From ecc132dccfc7617ed413f21ee37539475081f8ec Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 16 Sep 2004 14:47:18 +0000
Subject: Karin C's example

---
 grammars/video/System/genSystemSwe.gf | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 grammars/video/System/genSystemSwe.gf

(limited to 'grammars/video/System/genSystemSwe.gf')

diff --git a/grammars/video/System/genSystemSwe.gf b/grammars/video/System/genSystemSwe.gf
new file mode 100644
index 000000000..8b9a93b0d
--- /dev/null
+++ b/grammars/video/System/genSystemSwe.gf
@@ -0,0 +1,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 = "[]" ;
+}
\ No newline at end of file
-- 
cgit v1.2.3