GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 01:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Rename Zero grammar to Walking

Browse Source
This commit is contained in:
John J. Camilleri
2021-01-26 09:35:21 +01:00
parent 270e7f021f
commit 6f622b496b
4 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
testsuite/lpgf/Zero.gf → testsuite/lpgf/Walking.gf
View File

@@ -1,5 +1,5 @@
-- From Angelov, Bringert, Ranta (2009) -- From Angelov, Bringert, Ranta (2009)
abstract Zero = { abstract Walking = {
flags startcat = S ; flags startcat = S ;
cat cat
S; NP; VP; S; NP; VP;

2
testsuite/lpgf/ZeroEng.gf → testsuite/lpgf/WalkingEng.gf
View File

@@ -1,5 +1,5 @@
-- From Angelov, Bringert, Ranta (2009) -- From Angelov, Bringert, Ranta (2009)
concrete ZeroEng of Zero = { concrete WalkingEng of Walking = {
lincat lincat
S = Str ; S = Str ;
NP = {s : Str; n : Number} ; NP = {s : Str; n : Number} ;

2
testsuite/lpgf/ZeroGer.gf → testsuite/lpgf/WalkingGer.gf
View File

@@ -1,5 +1,5 @@
-- From Angelov, Bringert, Ranta (2009) -- From Angelov, Bringert, Ranta (2009)
concrete ZeroGer of Zero = { concrete WalkingGer of Walking = {
lincat lincat
S = Str ; S = Str ;
NP = {s : Str; n : Number; p : Person} ; NP = {s : Str; n : Number; p : Person} ;

14
testsuite/lpgf/run.hs
View File

@@ -10,11 +10,11 @@ import Text.Printf (printf)
main :: IO () main :: IO ()
main = do main = do
-- Compile LPGF -- Compile LPGF
lpgf <- compileToLPGF noOptions ["testsuite/lpgf/ZeroEng.gf", "testsuite/lpgf/ZeroGer.gf"] lpgf <- compileToLPGF noOptions ["testsuite/lpgf/WalkingEng.gf", "testsuite/lpgf/WalkingGer.gf"]
writeLPGF noOptions lpgf writeLPGF noOptions lpgf
-- Read back from file -- Read back from file
lpgf <- readLPGF "Zero.lpgf" lpgf <- readLPGF "Walking.lpgf"
-- Do some linearization -- Do some linearization
forM_ [tree1, tree2, tree3] $ \tree -> do forM_ [tree1, tree2, tree3] $ \tree -> do
@@ -35,9 +35,9 @@ tree3 :: Tree
tree3 = mkApp (mkCId "And") [tree1, tree2] tree3 = mkApp (mkCId "And") [tree1, tree2]
-- Initial LPGF, Figures 6 & 7 -- Initial LPGF, Figures 6 & 7
zero :: LPGF walking :: LPGF
zero = LPGF { walking = LPGF {
absname = mkCId "Zero", absname = mkCId "Walking",
abstract = Abstr { abstract = Abstr {
-- cats = Map.fromList [ -- cats = Map.fromList [
-- (mkCId "S", ()), -- (mkCId "S", ()),
@@ -53,7 +53,7 @@ zero = LPGF {
-- ] -- ]
}, },
concretes = Map.fromList [ concretes = Map.fromList [
(mkCId "ZeroEng", Concr { (mkCId "WalkingEng", Concr {
-- lincats = Map.fromList [ -- lincats = Map.fromList [
-- (mkCId "S", LTStr), -- (mkCId "S", LTStr),
-- (mkCId "NP", LTProduct [LTStr, LTInt 2]), -- (mkCId "NP", LTProduct [LTStr, LTInt 2]),
@@ -67,7 +67,7 @@ zero = LPGF {
(mkCId "Walk", LFTuple [LFToken "walks", LFToken "walk"]) (mkCId "Walk", LFTuple [LFToken "walks", LFToken "walk"])
] ]
}), }),
(mkCId "ZeroGer", Concr { (mkCId "WalkingGer", Concr {
-- lincats = Map.fromList [ -- lincats = Map.fromList [
-- (mkCId "S", LTStr), -- (mkCId "S", LTStr),
-- (mkCId "NP", LTProduct [LTStr, LTInt 2, LTInt 3]), -- (mkCId "NP", LTProduct [LTStr, LTInt 2, LTInt 3]),