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

extended api with some IQuant rules

Browse Source
This commit is contained in:
aarne
2008-06-20 11:54:37 +00:00
parent 3d74636d2d
commit 6f60b26413
3 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/resource-1.4/Make.hs
View File

@@ -30,10 +30,10 @@ langs = [
langsLang = langs `except` ["Ara"]
-- languages for which to compile Try
langsAPI = langsLang `except` ["Cat","Hin","Ina","Rus","Tha"]
langsAPI = langsLang `except` ["Bul","Cat","Hin","Ina","Rus","Tha"]
-- languages for which to compile Mathematical
langsMath = langsLang `except` ["Bul","Cat","Hin","Ina","Rus","Tha"]
langsMath = langsAPI
-- languages for which to run treebank test
langsTest = langsLang `except` ["Cat","Hin","Spa","Tha"]

19
lib/resource-1.4/api/Constructors.gf
View File

@@ -704,25 +704,25 @@ incomplete resource Constructors = open Grammar in {
mkQCl : IP -> QCl -- 8. what is there
} ;
{-
--3 IP, interrogative pronouns
mkIP : overload {
-- Interrogative pronouns
-- can be formed much like noun phrases, by using interrogative determiners.
-- can be formed much like noun phrases, by using interrogative quantifiers.
mkIP : IDet -> N -> IP ; -- 1. which city
mkIP : IDet -> (Num) -> (Ord) -> CN -> IP ; -- 2. which five best cities
mkIP : IQuant -> N -> IP ; -- 1. which city
mkIP : IQuant -> (Num) -> CN -> IP ; -- 2. which five big cities
-- An interrogative pronoun can be modified by an adverb.
mkIP : IP -> Adv -> IP -- 3. who in Paris
mkIP : IP -> Adv -> IP -- 3. who in Paris
} ;
-- More interrogative pronouns and determiners can be found in $Structural$.
-}
--3 IAdv, interrogative adverbs.
@@ -1315,11 +1315,18 @@ incomplete resource Constructors = open Grammar in {
= IdetCN ;
mkIP : IDet -> N -> IP -- which song
= \i,n -> IdetCN i (UseN n) ;
mkIP : IQuant -> CN -> IP -- which songs
= \i,n -> IdetCN (IdetQuant i NumSg) n ;
mkIP : IQuant -> Num -> CN -> IP -- which songs
= \i,nu,n -> IdetCN (IdetQuant i nu) n ;
mkIP : IQuant -> N -> IP -- which song
= \i,n -> IdetCN (IdetQuant i NumSg) (UseN n) ;
mkIP : IP -> Adv -> IP -- who in Europe
= AdvIP
} ;
whichSg_IDet : IDet = IdetQuant which_IQuant NumSg ;
whichPl_IDet : IDet = IdetQuant which_IQuant NumPl ;
mkIAdv : Prep -> IP -> IAdv = PrepIP ;