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

next-lib now compiles webalt ; removed subdir mathematical/ for simplicity

Browse Source
This commit is contained in:
aarne
2008-10-06 15:27:14 +00:00
parent e56e6483f6
commit 43dcd61cbf
29 changed files with 157 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
next-lib/src/api/CombinatorsCat.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:alltenses:prelude
--# -path=.:alltenses
resource CombinatorsCat = Combinators with
(Cat = CatCat),

2
next-lib/src/api/CombinatorsSpa.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:alltenses:prelude
--# -path=.:alltenses
resource CombinatorsSpa = Combinators with
(Cat = CatSpa),

2
next-lib/src/api/ConstructorsCat.gf
View File

@@ -1,3 +1,3 @@
--# -path=.:alltenses:prelude
--# -path=.:alltenses
resource ConstructorsCat = Constructors with (Grammar = GrammarCat) ;

18
next-lib/src/api/Symbolic.gf
View File

@@ -1,11 +1,11 @@
--1 Symbolic: Noun Phrases with mathematical symbols
incomplete resource Symbolic = open Symbol, Grammar in {
incomplete resource Symbolic = open Symbol, Grammar, PredefCnc in {
oper
symb : overload {
symb : Str -> NP ; -- x
symb : Integer -> NP ; -- 23
symb : Int -> NP ; -- 23
symb : Float -> NP ; -- 0.99
symb : N -> Digits -> NP ; -- level 4
symb : N -> Card -> NP ; -- level four
@@ -13,7 +13,10 @@ incomplete resource Symbolic = open Symbol, Grammar in {
symb : Det -> N -> Card -> NP ; -- the number four
symb : Det -> CN -> Card -> NP ; -- the even number four
symb : Det -> N -> Str -> Str -> NP ; -- the levels i and j
symb : Det -> CN -> [Symb] -> NP -- the basic levels i, j, and k
symb : Det -> CN -> [Symb] -> NP ; -- the basic levels i, j, and k
symb : Symb -> S ; -- A
symb : Symb -> Card ; -- n
symb : Symb -> Ord -- n'th
} ;
mkSymb : Str -> Symb ;
@@ -25,9 +28,9 @@ incomplete resource Symbolic = open Symbol, Grammar in {
symb = overload {
symb : Str -> NP
= \s -> UsePN (SymbPN (mkSymb s)) ;
symb : Integer -> NP
symb : Int -> NP
= \i -> UsePN (IntPN i) ;
symb : Floating -> NP
symb : Float -> NP
= \i -> UsePN (FloatPN i) ;
symb : N -> Digits -> NP
= \c,i -> CNNumNP (UseN c) (NumDigits i) ;
@@ -42,7 +45,10 @@ incomplete resource Symbolic = open Symbol, Grammar in {
symb : Det -> N -> Str -> Str -> NP
= \c,n,x,y -> CNSymbNP c (UseN n) (BaseSymb (mkSymb x) (mkSymb y)) ;
symb : Det -> CN -> [Symb] -> NP
= CNSymbNP
= CNSymbNP ;
symb : Symb -> S = SymbS ;
symb : Symb -> Card = SymbNum ;
symb : Symb -> Ord = SymbOrd
} ;
mkSymb : Str -> Symb = \s -> {s = s ; lock_Symb = <>} ;

2
next-lib/src/api/SymbolicCat.gf
View File

@@ -2,4 +2,4 @@
resource SymbolicCat = Symbolic with
(Symbol = SymbolCat),
(Syntax = SyntaxCat) ;
(Grammar = GrammarCat) ;

2
next-lib/src/api/SymbolicSpa.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:present:mathematical:prelude
--# -path=.:present:prelude
resource SymbolicSpa = Symbolic with
(Symbol = SymbolSpa),

5
next-lib/src/api/SyntaxCat.gf
View File

@@ -1,4 +1,5 @@
--# -path=.:alltenses:prelude
--# -path=.:alltenses
instance SyntaxCat of Syntax = ConstructorsCat, CatCat, StructuralCat, CombinatorsCat ;
instance SyntaxCat of Syntax =
ConstructorsCat, CatCat, StructuralCat, CombinatorsCat ;

2
next-lib/src/api/SyntaxSpa.gf
View File

@@ -1,4 +1,4 @@
--# -path=.:alltenses:prelude
--# -path=.:alltenses
instance SyntaxSpa of Syntax =
ConstructorsSpa, CatSpa, StructuralSpa, CombinatorsSpa ;