msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

some new resource API functions

Browse Source
This commit is contained in:
aarne
2009-02-04 17:16:48 +00:00
parent 52c538bfd1
commit 0d3f0d835e
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
next-lib/src/api/Constructors.gf
View File

@@ -139,7 +139,8 @@ incomplete resource Constructors = open Grammar in {
mkUtt : S -> Utt ; -- 1. John walked mkUtt : S -> Utt ; -- 1. John walked
mkUtt : Cl -> Utt ; -- 2. John walks mkUtt : Cl -> Utt ; -- 2. John walks
mkUtt : QS -> Utt ; -- 3. did John walk mkUtt : QS -> Utt ; -- 3. did John walk
mkUtt : Imp -> Utt ; -- 4. love yourself mkUtt : QCl -> Utt ; -- 4. does John walk
mkUtt : Imp -> Utt ; -- 5. love yourself
-- Imperatives can also vary in $ImpForm$ (number/politeness) and -- Imperatives can also vary in $ImpForm$ (number/politeness) and
-- polarity. -- polarity.
@@ -1320,6 +1321,8 @@ incomplete resource Constructors = open Grammar in {
= \c -> UttS (TUseCl TPres ASimul PPos c); = \c -> UttS (TUseCl TPres ASimul PPos c);
mkUtt : QS -> Utt -- is it good mkUtt : QS -> Utt -- is it good
= UttQS ; = UttQS ;
mkUtt : QCl -> Utt -- does John walk
= \c -> UttQS (TUseQCl TPres ASimul PPos c);
mkUtt : ImpForm -> Pol -> Imp -> Utt -- don't help yourselves mkUtt : ImpForm -> Pol -> Imp -> Utt -- don't help yourselves
= mkUttImp ; = mkUttImp ;
mkUtt : ImpForm -> Imp -> Utt -- help yourselves mkUtt : ImpForm -> Imp -> Utt -- help yourselves
@@ -1388,6 +1391,10 @@ incomplete resource Constructors = open Grammar in {
whichSg_IDet : IDet = IdetQuant which_IQuant NumSg ; whichSg_IDet : IDet = IdetQuant which_IQuant NumSg ;
whichPl_IDet : IDet = IdetQuant which_IQuant NumPl ; whichPl_IDet : IDet = IdetQuant which_IQuant NumPl ;
what_IP : IP = whatSg_IP ;
who_IP : IP = whoSg_IP ;
which_IDet : IDet = whichSg_IDet ;
mkIAdv : Prep -> IP -> IAdv = PrepIP ; mkIAdv : Prep -> IP -> IAdv = PrepIP ;
mkRCl = overload { mkRCl = overload {