mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
added functions to Ron and Chi needed for YAQL
This commit is contained in:
@@ -105,10 +105,10 @@ oper
|
||||
= ATManner ;
|
||||
|
||||
mkPrep = overload { ---- is this the right order of the fields?
|
||||
mkPrep : Str -> Preposition
|
||||
= \s -> ResChi.mkPreposition [] s ;
|
||||
mkPrep : Str -> Str -> Preposition
|
||||
= \s,t -> ResChi.mkPreposition s t ;
|
||||
mkPrep : Str -> Prep
|
||||
= \s -> lin Prep (ResChi.mkPreposition [] s) ;
|
||||
mkPrep : Str -> Str -> Prep
|
||||
= \s,t -> lin Prep (ResChi.mkPreposition s t) ;
|
||||
} ;
|
||||
|
||||
emptyPrep : Preposition = mkPrep [] ;
|
||||
|
||||
@@ -32,6 +32,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
|
||||
} ;
|
||||
|
||||
UseComp comp = comp ;
|
||||
UseCopula = predV copula ;
|
||||
|
||||
SlashVV v vp = ---- too simple?
|
||||
insertObj (mkNP (infVP vp)) (predV v) ** {c2 = vp.c2 ; isPre = vp.isPre} ;
|
||||
@@ -59,5 +60,7 @@ concrete VerbChi of Verb = CatChi ** open ResChi, Prelude in {
|
||||
|
||||
CompAdv adv = insertObj adv (predV zai_V) ;
|
||||
|
||||
VPSlashPrep vp prep = vp ** {c2 = prep ; isPre = True} ;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user