GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

occupations in Phrasebook Eng,Fin,Swe,Tha

Browse Source
This commit is contained in:
aarne
2011-12-02 09:50:16 +00:00
parent a32f9664f6
commit 40d03d6578
6 changed files with 75 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
examples/phrasebook/WordsFin.gf
View File

@@ -210,7 +210,7 @@ concrete WordsFin of Words = SentencesFin **
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
IsTranspPlace trans place =
mkQS (mkQCl (mkCl (mkVP (mkVP (mkVP (mkV "päästä")) trans.by) place.to))) ;
mkQS (mkQCl (mkCl (mkVP (mkVP (mkVP (mkV "päästä")) place.to) trans.by))) ;
-- pääseekö keskustaan bussilla
-- mkQS (mkQCl (E.AdvPredNP place.to L.go_V (E.PartCN (trans.name)))) ;
-- meneekö keskustaan bussia
@@ -312,4 +312,17 @@ concrete WordsFin of Words = SentencesFin **
SunShine = mkCl (mkNP the_Det L.sun_N) (mkVP (mkV "paistaa")) ;
Smoke = mkVP (mkV "tupakoida") ;
ADoctor = mkProfession (mkN "lääkäri" "lääkäreitä") ;
AProfessor = mkProfession (mkN "professori" "professoreita") ;
ALawyer = mkProfession (mkN "laki" L.man_N) ;
AEngineer = mkProfession (mkN "insinööri" "insinöörejä") ;
ATeacher = mkProfession (mkN "opettaja" "opettajia") ;
ACook = mkProfession (mkN "kokki") ;
AStudent = mkProfession (mkN "opiskelija" "opiskelijoita") ;
ABusinessman = mkProfession (mkN "liike" L.man_N) ;
oper
mkProfession : N -> NPPerson -> Cl = \n,p -> mkCl p.name n ;
}