moved phrases like 'I am hungry' from Greetings to Words to make them more general

This commit is contained in:
aarne
2010-03-30 21:48:24 +00:00
parent 61c82fa40e
commit 5e2d2e61c3
16 changed files with 56 additions and 55 deletions

View File

@@ -3,6 +3,7 @@
concrete WordsRon of Words = SentencesRon ** open
SyntaxRon,
ParadigmsRon,
BeschRon,
DiffPhrasebookRon in
{
flags coding=utf8 ;
@@ -46,6 +47,19 @@ Boring = mkAPA "plictisitor" "plictisitoare" "plictisitori" "plictisitoare" ;
Romanian = SyntaxRon.mkNP (mkPN "română") ; ---- ?
-- Swedish = mkNP (mkPN "suédois") ;
-- AHungry p = mkCl p have_V2 (SyntaxRon.mkNP a_Det (mkN "foame")) ;
-- AThirsty p = mkCl p (E.ComplCN have_V2 (mkCN (mkN "sete" feminine))) ;
-- ATired p = mkCl p (mkA "stanco") ;
-- AScared p = mkCl p (E.ComplCN have_V2 (mkCN (mkN "paura" feminine))) ;
AUnderstand p = mkCl p (v_besch83 "înţelege") ;
{-
GImHungry = ss "mi-e foame" ;
GImThirsty = ss "mi-e sete" ;
GImTired = ss "mi-e somn" ;
GImScared = ss "mi-e frică" ;
-}
oper
mkAPA : (_,_,_,_ : Str) -> AP = \x,y,z,u -> mkAP (mkA x y z u) ;