summaryrefslogtreecommitdiff
path: root/grammars/resource/swedish/TestSwe.gf
diff options
context:
space:
mode:
Diffstat (limited to 'grammars/resource/swedish/TestSwe.gf')
-rw-r--r--grammars/resource/swedish/TestSwe.gf47
1 files changed, 0 insertions, 47 deletions
diff --git a/grammars/resource/swedish/TestSwe.gf b/grammars/resource/swedish/TestSwe.gf
deleted file mode 100644
index 05d02c5ee..000000000
--- a/grammars/resource/swedish/TestSwe.gf
+++ /dev/null
@@ -1,47 +0,0 @@
--- use this path to read the grammar from the same directory
---# -path=.:../abstract:../../prelude
-
-concrete TestSwe of TestAbs = ResSwe ** open SyntaxSwe in {
-
-flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
-
--- a random sample from the lexicon
-
-lin
- Big = stor_25 ;
- Small = liten_1146 ;
- Old = gammal_16 ;
- Young = ung_29 ;
- American = extAdjective (aFin "amerikansk") ;
- Finnish = extAdjective (aFin "finsk") ;
- Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
- Man = extCommNoun Masc man_1144 ;
- Woman = extCommNoun NoMasc (sApa "kvinn") ;
- Car = extCommNoun NoMasc (sBil "bil") ;
- House = extCommNoun NoMasc (sHus "hus") ;
- Light = extCommNoun NoMasc (sHus "ljus") ;
- Walk = extVerb Act gå_1174 ;
- Run = extVerb Act (vFinna "spring" "sprang" "sprung") ;
- Love = extTransVerb (vTala "älsk") [] ;
- Send = extTransVerb (vTala "skick") [] ;
- Wait = extTransVerb (vTala "vänt") "på" ;
- Give = extTransVerb (vFinna "giv" "gav" "giv") [] ** {s3 = "till"} ; --- ge
- Prefer = extTransVerb (vFinna "föredrag" "föredrog" "föredrag") [] **
- {s3 = "framför"} ; --- föredra
-
- Say = extVerb Act (vLeka "säg") ; --- works in present tense...
- Prove = extVerb Act (vTala "bevis") ;
- SwitchOn = extTransVerb (vVända "tän") [] ;
- SwitchOff = extTransVerb (vLeka "släck") [] ;
-
- Mother = mkFun (extCommNoun NoMasc mor_1) "till" ;
- Uncle = mkFun (extCommNoun Masc farbror_8) "till" ;
- Connection = mkFun (extCommNoun NoMasc (sVarelse "förbindelse")) "från" **
- {s3 = "till"} ;
-
- Always = advPre "alltid" ;
- Well = advPost "bra" ;
-
- John = mkProperName "Johan" Utr Masc ;
- Mary = mkProperName "Maria" Utr NoMasc ;
-} ;