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

Add 1-tree treebank for Phrasebook in a few languages

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-28 00:34:46 +01:00
parent 83bc3c9c6e
commit 33e0e98aec
4 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/compiler/GF/Compile/GrammarToLPGF.hs
View File

@@ -239,13 +239,13 @@ mkParamTuples defs = map (addIndexes . mk') pdefs
let Just def = L.find (\(C.ParamDef p _) -> pid == p) pdefs
in mk' def
mk'' x@(C.Param p0 [pid1,pid2]) =
let
Just def1 = L.find (\(C.ParamDef p _) -> pid1 == p) pdefs
Just def2 = L.find (\(C.ParamDef p _) -> pid2 == p) pdefs
lf1 = mk' def1
lf2 = mk' def2
in replaceEmpty lf2 lf1
-- mk'' x@(C.Param p0 [pid1,pid2]) =
-- let
-- Just def1 = L.find (\(C.ParamDef p _) -> pid1 == p) pdefs
-- Just def2 = L.find (\(C.ParamDef p _) -> pid2 == p) pdefs
-- lf1 = mk' def1
-- lf2 = mk' def2
-- in replaceEmpty lf2 lf1
mk'' x@(C.Param p0 (pid:pids)) =
let

1
src/runtime/haskell/LPGF.hs
View File

@@ -191,6 +191,7 @@ eval cxt t = case t of
LFProjection t u ->
case (eval cxt t, eval cxt u) of
(LFMissing f, _) -> LFMissing f
(_, LFMissing f) -> LFMissing f
(LFTuple vs, LFInt i) -> vs !! (i-1)
(tp@(LFTuple _), LFTuple is) | all isInt is -> foldl (\(LFTuple vs) (LFInt i) -> vs !! (i-1)) tp is
(t',u') -> error $ printf "Incompatible projection:\n- %s ~> %s\n- %s ~> %s" (show t) (show t') (show u) (show u')

7
testsuite/lpgf/phrasebook/Phrasebook.treebank Normal file
View File

@@ -0,0 +1,7 @@
Phrasebook: PQuestion (HowFarFrom (APlace (CitRestaurant Indian)) (ThePlace Bank))
PhrasebookDan: hvor langt er en [Indian] restaurant fra banken?
PhrasebookFin: kuinka kaukana pankki on [Indian] ravintolasta?
PhrasebookFre: quelle est la distance d'un restaurant [Indian] à la banque?
PhrasebookGer: wie weit ist die Bank von einem [Indian] Restaurant entfernt?
PhrasebookNor: hvor langt er det til banken fra en [Indian] restaurant?
PhrasebookSwe: hur långt är det till banken från en indisk restaurang?

1
testsuite/lpgf/phrasebook/Phrasebook.trees Normal file
View File

@@ -0,0 +1 @@
PQuestion (HowFarFrom (APlace (CitRestaurant Indian)) (ThePlace Bank))