(Som) WIP: subordinate clauses

This commit is contained in:
Inari Listenmaa
2019-07-25 18:42:16 +03:00
parent e5aa8a6499
commit e4bc20e482
11 changed files with 120 additions and 100 deletions
+2 -7
View File
@@ -1,4 +1,4 @@
concrete AdverbSom of Adverb = CatSom ** open ResSom, ParamSom, Prelude in {
concrete AdverbSom of Adverb = CatSom ** open ResSom, ParamSom, ParadigmsSom, Prelude in {
lin
@@ -24,15 +24,10 @@ lin
-- Subordinate clauses can function as adverbs.
-- : Subj -> S -> Adv ;
-- SubjS subj s = {} ;
SubjS subj s = mkAdv (subj.s ++ s.s ! True) ;
-- Comparison adverbs also work as numeral adverbs.
--AdnCAdv : CAdv -> AdN ; -- less (than five)
--AdnCAdv cadv = {s = } ;
} ;
{-
gt PrepNP in_Prep (DetCN (DetQuant DefArt ?) (UseN ?) | l -bind
gt PrepNP from_Prep (DetCN (DetQuant DefArt ?) (UseN ?)) | l -bind
-}