mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-14 23:39:32 -06:00
getting started with overloaded API for 1.4; some determiner syntax missing
This commit is contained in:
@@ -61,11 +61,11 @@ abstract Noun = Cat ** {
|
||||
|
||||
-- The construction of numerals is defined in [Numeral Numeral.html].
|
||||
|
||||
-- $Num$ can be modified by certain adverbs.
|
||||
-- A $Card$ can be modified by certain adverbs.
|
||||
|
||||
AdNum : AdN -> Card -> Card ; -- almost 51
|
||||
|
||||
-- $Ord$ consists of either digits or numeral words.
|
||||
-- An $Ord$ consists of either digits or numeral words.
|
||||
-- Also superlative forms of adjectives behave syntactically like ordinals.
|
||||
|
||||
OrdDigits : Digits -> Ord ; -- 51st
|
||||
|
||||
1500
lib/resource-1.4/api/Constructors.gf
Normal file
1500
lib/resource-1.4/api/Constructors.gf
Normal file
File diff suppressed because it is too large
Load Diff
3
lib/resource-1.4/api/ConstructorsEng.gf
Normal file
3
lib/resource-1.4/api/ConstructorsEng.gf
Normal file
@@ -0,0 +1,3 @@
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
resource ConstructorsEng = Constructors with (Grammar = GrammarEng) ;
|
||||
4
lib/resource-1.4/api/Syntax.gf
Normal file
4
lib/resource-1.4/api/Syntax.gf
Normal file
@@ -0,0 +1,4 @@
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
interface Syntax = Constructors, Cat, Structural, Numeral ;
|
||||
|
||||
4
lib/resource-1.4/api/SyntaxEng.gf
Normal file
4
lib/resource-1.4/api/SyntaxEng.gf
Normal file
@@ -0,0 +1,4 @@
|
||||
--# -path=.:alltenses:prelude
|
||||
|
||||
instance SyntaxEng of Syntax = ConstructorsEng, CatEng, StructuralEng, NumeralEng ;
|
||||
|
||||
3
lib/resource-1.4/api/TryEng.gf
Normal file
3
lib/resource-1.4/api/TryEng.gf
Normal file
@@ -0,0 +1,3 @@
|
||||
--# -path=.:alltenses-1.4:prelude
|
||||
|
||||
resource TryEng = SyntaxEng, LexiconEng, ParadigmsEng - [mkAdv] ;
|
||||
@@ -18,7 +18,7 @@ import GF.Grammar.PrGrammar
|
||||
|
||||
import GF.Compile.Rename (renameSourceTerm)
|
||||
import GF.Compile.CheckGrammar (justCheckLTerm)
|
||||
import GF.Compile.Compute (computeConcreteRec)
|
||||
import GF.Compile.Compute (computeConcrete)
|
||||
|
||||
import GF.Data.Operations
|
||||
import qualified Data.ByteString.Char8 as BS
|
||||
@@ -47,6 +47,5 @@ checkTermAny gr m t = do
|
||||
justCheckLTerm gr t1
|
||||
|
||||
computeTerm :: Grammar -> Term -> Err Term
|
||||
computeTerm = computeConcreteRec
|
||||
|
||||
computeTerm = computeConcrete
|
||||
|
||||
|
||||
Reference in New Issue
Block a user