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

mkTemp in api; Inf to aux in SentenceEng bug fix

Browse Source
This commit is contained in:
aarne
2010-12-20 14:10:48 +00:00
parent 96f7004731
commit 1897ab6ba3
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/api/Constructors.gf
View File

@@ -275,6 +275,14 @@ incomplete resource Constructors = open Grammar in { --%
conditionalTense : Tense -- she would sleep --# notpresent --: conditionalTense : Tense -- she would sleep --# notpresent --:
= TCond ; --# notpresent --% = TCond ; --# notpresent --%
--3 Temp, temporal and aspectual features
-- Temp is a combination of Tense and Ant. In extra modules for some
-- languages, it can also involve aspect and other things.
mkTemp : Tense -> Ant -> Temp
= TTAnt ; --%
--3 ImpForm, imperative form --3 ImpForm, imperative form
-- Imperative form is a parameter that sets the form of imperative -- Imperative form is a parameter that sets the form of imperative

2
src/english/SentenceEng.gf
View File

@@ -12,7 +12,7 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
s = \\pol,n => s = \\pol,n =>
let let
agr = AgP2 (numImp n) ; agr = AgP2 (numImp n) ;
verb = infVP VVInf vp agr ; verb = infVP VVAux vp agr ;
dont = case pol of { dont = case pol of {
CNeg True => "don't" ; CNeg True => "don't" ;
CNeg False => "do" ++ "not" ; CNeg False => "do" ++ "not" ;