mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 03:32:51 -06:00
27 lines
622 B
Plaintext
27 lines
622 B
Plaintext
--concrete ExtScand of ExtScandAbs = CatScand ** open ResScand in {
|
|
--
|
|
-- lincat
|
|
--
|
|
-- Aux = {s : Polarity => Str} ;
|
|
--
|
|
-- lin
|
|
--
|
|
-- PredAux np aux vp = mkS (np.s ! Nom) np.a
|
|
-- (\\t,ant,b,ord,agr =>
|
|
-- let
|
|
-- fin = aux.s ! b ;
|
|
-- vf : Str -> Str -> {fin, inf : Str} = \x,y ->
|
|
-- {fin = x ; inf = y} ;
|
|
-- in
|
|
-- case ant of {
|
|
-- Simul => vf fin [] ;
|
|
-- Anter => vf fin "have"
|
|
-- }
|
|
-- )
|
|
-- (\\agr => infVP vp agr) ;
|
|
--
|
|
-- can_Aux = {s = \\p => posneg p "can"} ; ---- cannt
|
|
-- must_Aux = {s = \\p => posneg p "must"} ;
|
|
--
|
|
--}
|