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

added trivial functions

Browse Source
This commit is contained in:
Krasimir Angelov
2025-08-29 09:15:10 +02:00
parent 4644ef0229
commit b2e2b570e1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/zulu/PhraseZul.gf
View File

@@ -11,13 +11,13 @@ concrete PhraseZul of Phrase = CatZul ** open Prelude, ParamX, ResZul in {
-- UttIP ip = {s = ip.s ! npNom} ; --- Acc also -- UttIP ip = {s = ip.s ! npNom} ; --- Acc also
-- UttIAdv iadv = iadv ; -- UttIAdv iadv = iadv ;
-- UttNP np = {s = np.s ! npNom} ; UttNP np = {s = np.s ! NFull} ;
-- UttVP vp = {s = infVP VVInf vp False Simul CPos (agrP3 Sg)} ; -- UttVP vp = {s = infVP VVInf vp False Simul CPos (agrP3 Sg)} ;
-- UttAdv adv = adv ; -- UttAdv adv = adv ;
-- UttCN n = {s = n.s ! Sg ! Nom} ; -- UttCN n = {s = n.s ! Sg ! Nom} ;
-- UttCard n = {s = n.s ! False ! Nom} ; -- UttCard n = {s = n.s ! False ! Nom} ;
-- UttAP ap = {s = ap.s ! agrP3 Sg} ; UttAP ap = {s = ap.s ! AF1} ;
-- UttInterj i = i ; UttInterj i = i ;
NoPConj = {s = []} ; NoPConj = {s = []} ;
-- PConjConj conj = {s = conj.s2} ; --- -- PConjConj conj = {s = conj.s2} ; ---