msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

preposition for toilet in PhrasebookSwe

Browse Source
This commit is contained in:
aarne
2010-05-29 10:22:49 +00:00
parent 510e1118a9
commit a7d3cfaf54
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/phrasebook/WordsSwe.gf
View File

@@ -60,7 +60,7 @@ concrete WordsSwe of Words = SentencesSwe **
Station = mkPlace (mkN "station" "stationer") "på" ; Station = mkPlace (mkN "station" "stationer") "på" ;
Supermarket = mkPlace (mkN "snabbköp" "snabbköp") "på" ; Supermarket = mkPlace (mkN "snabbköp" "snabbköp") "på" ;
Theatre = mkPlace (mkN "teater" "teatrar") "på" ; Theatre = mkPlace (mkN "teater" "teatrar") "på" ;
Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; Toilet = mkPlace2 (mkN "toalett" "toaletter") "på" "på" ;
University = mkPlace (mkN "universitet" "universitet") "på" ; University = mkPlace (mkN "universitet" "universitet") "på" ;
Zoo = mkPlace (mkN "djurpark" "djurparker") "i" ; Zoo = mkPlace (mkN "djurpark" "djurparker") "i" ;
@@ -228,6 +228,8 @@ concrete WordsSwe of Words = SentencesSwe **
mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} = \p,i -> mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} = \p,i ->
mkCNPlace (mkCN p) (mkPrep i) to_Prep ; mkCNPlace (mkCN p) (mkPrep i) to_Prep ;
mkPlace2 : N -> Str -> Str -> {name : CN ; at : Prep ; to : Prep ; isPl : Bool} =
\p,i,t -> mkCNPlace (mkCN p) (mkPrep i) (mkPrep t) ;
open_A = mkA "öppen" "öppet" ; open_A = mkA "öppen" "öppet" ;
closed_A = mkA "stängd" "stängt" ; closed_A = mkA "stängd" "stängt" ;