mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-01 23:32:51 -06:00
fixed decodeUTF8 for pgf; removed old resources from darcs
This commit is contained in:
34
lib/resource/interlingua/IdiomIna.gf
Normal file
34
lib/resource/interlingua/IdiomIna.gf
Normal file
@@ -0,0 +1,34 @@
|
||||
concrete IdiomIna of Idiom = CatIna ** open Prelude, ResIna in {
|
||||
|
||||
flags optimize=all_subs ;
|
||||
|
||||
lin
|
||||
ImpersCl vp = mkClause "il" Sp3 vp ;
|
||||
GenericCl vp = mkClause "on" Sp3 vp ;
|
||||
|
||||
CleftNP np rs = mkClause "lo" Sp3
|
||||
(insertObj [] Acc (mkInvarNP (rs.s ! Sp3))
|
||||
(insertObj [] Acc np
|
||||
(predV esserV)));
|
||||
-- ??? number/case agreement
|
||||
|
||||
CleftAdv ad s = mkClause "lo" Sp3
|
||||
(insertObj [] Acc (mkInvarNP ("que" ++ s.s))
|
||||
(insertObj [] Acc (mkInvarNP (ad.s)) (predV esserV))) ;
|
||||
|
||||
|
||||
ExistNP np =
|
||||
mkClause "il" Sp3 ((insertObj "" Acc np) (predV haberV)) ;
|
||||
-- Il ha colonias que non pote reclamar mesmo un tal origine. (sample text 3)
|
||||
|
||||
ExistIP ip = mkQuestion {s=ip.s ! Acc} (mkClause "il" Sp3 (predV haberV)) ;
|
||||
-- Never seen the above, but we can deduce it exists, since it's
|
||||
-- merely an interrogative form of ExistNP.
|
||||
|
||||
ProgrVP vp = vp; -- progressive tense is the same as present in Interlingua.
|
||||
-- (parag. 80+ of Grammatica de Interlingua)
|
||||
|
||||
ImpPl1 vp = {s = "que" ++ (mkClause "nos" {n = Pl ; p = P1} vp).s ! Pres ! Simul ! Pos ! ODir};
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user