mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-02 12:08:34 -06:00
Covered PredetNP & PrepNP in NounCgg.gf & AdverbCgg.gf alongside Predet & Adv Lexicon in StructuralCgg.gf. Errors in SentenceCgg.gf because the verb system is still a mess.
This commit is contained in:
+10
-2
@@ -5,13 +5,21 @@ concrete PhraseCgg of Phrase = CatCgg ** open Prelude, ResCgg in {
|
||||
lin
|
||||
|
||||
UttS sent = sent ;
|
||||
|
||||
UttQS qs = qs ; --: QS -> Utt ;-- does John walk
|
||||
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
|
||||
|
||||
NoPConj = {s = ""} ;
|
||||
NoVoc = {s = ""} ;
|
||||
|
||||
|
||||
-- Utterances are formed from sentences, questions, and imperatives.
|
||||
UttNP np = {s= np.s!Acc}; --: NP -> Utt ;
|
||||
UttAdv adv = {s = adv.s}; --: Adv -> Utt ; -- in the house
|
||||
UttImpSg pol imp = {s =
|
||||
case pol.isTrue of {
|
||||
True => imp.s!True;
|
||||
False => (mkSubjClitic (AgMUBAP2 Sg)) ++ imp.s!False
|
||||
}
|
||||
};--: Pol -> Imp -> Utt ; -- (do not) walk ----s
|
||||
{-
|
||||
--1 Phrase: Phrases and Utterances
|
||||
|
||||
|
||||
Reference in New Issue
Block a user