GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 08:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

corrections in finnish tram

Browse Source
This commit is contained in:
aarne
2006-11-08 15:12:35 +00:00
parent 8680d918f6
commit 8d80911f0e
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
examples/godis-tram/Tram/TramUserFin.gf
View File

@@ -1,13 +1,19 @@
--# -path=.:../Common:prelude:alltenses:mathematical --# -path=.:../Common:prelude:alltenses:mathematical
concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] ** concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] **
open GrammarFin, GodisLangFin, TramLexiconFin in { open GrammarFin, GodisLangFin, TramLexiconFin, ParadigmsFin in {
lin lin
stop_dest_stop x y = stop_dest_stop x y =
UttAdv (mkAdv ( UttAdv (mkAdv (
fromStr Adv (PrepNP (casePrep from_Case) x) ++ (PrepNP (casePrep from_Case) x).s ++
fromStr Adv (PrepNP (casePrep to_Case) y) (PrepNP (casePrep to_Case) y).s
)
) ;
stop_dept_stop x y =
UttAdv (mkAdv (
(PrepNP (casePrep to_Case) x).s ++
(PrepNP (casePrep from_Case) y).s
) )
) ; ) ;
} }