1
0
forked from GitHub/gf-core

PeacePhrase_Fin ; -p in resource Makefile

This commit is contained in:
aarne
2006-04-21 15:20:03 +00:00
parent c4560e21b0
commit f75efc970a
2 changed files with 15 additions and 1 deletions

View File

@@ -20,16 +20,23 @@ concrete PeaceLexExt_Fin of PeaceLexExt =
corpse_N = regN "ruumis" ;
doctor_N = regN "lääkäri";
enemy_N = regN "vihollinen";
face_N = regN "naama" ; ---- kasvot
food_N = regN "ruoka";
friend_N = regN "ystävä";
ground_N = regN "maa" ;
knife_N = reg2N "veitsi" "veitsiä" ; ---- veistä
landmine_N = regN "maamiina" ;
map_N = regN "kartta" ;
medicine_N = regN "lääke" ;
police8officer_N = regN "poliisi" ;
skin_N = regN "iho" ;
soldier_N = regN "sotilas" ;
weapon_N = regN "ase";
-- Verbs
cough_V = regV "yskiä" ;
drop_V2 = dirV2 (regV "pudottaa") ;
hurt_V = regV "sattua" ;
need_V2 = dirV2 (regV "tarvita");
own_V2 = dirV2 (regV "omistaa") ;
show_V3 = dirdirV3 (regV "näyttää") ;

View File

@@ -1,7 +1,14 @@
--# -path=.:..:present:prelude
concrete PeacePhrases_Fin of PeacePhrases =
PeaceCat_Fin ** {
PeaceCat_Fin ** open LangFin, ParadigmsFin in {
lin
Hello = { s = "terve" ++ "." } ;
GoodMorning = { s = ["hyvää huomenta"] ++ "." } ;
GoodEvening = { s = ["hyvää iltaa"] ++ "." } ;
WhatIsNamePron p = PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos
(QuestVP whatSg_IP (UseComp (CompNP (DetCN (DetSg (SgQuant (PossPron p)) NoOrd)
(UseN (reg2N "nimi" "nimiä")))))))) NoVoc ;
}