From e725b10d667678b79b28899093fe4df69d35755c Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 21 Feb 2012 17:26:04 +0000 Subject: [PATCH] fixes in the script for the conversion of PennTreebank --- examples/PennTreebank/Idents.hs | 1 + examples/PennTreebank/translate.hs | 8 ++++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/examples/PennTreebank/Idents.hs b/examples/PennTreebank/Idents.hs index c717940fe..b084d9214 100644 --- a/examples/PennTreebank/Idents.hs +++ b/examples/PennTreebank/Idents.hs @@ -94,6 +94,7 @@ cidGenNP = mkCId "GenNP" cidPredetNP = mkCId "PredetNP" cidDetNP = mkCId "DetNP" cidAdAP = mkCId "AdAP" +cidAdvAP = mkCId "AdvAP" cidPositAdAAdj = mkCId "PositAdAAdj" cideither7or_DConj = mkCId "either7or_DConj" cidboth7and_DConj = mkCId "both7and_DConj" diff --git a/examples/PennTreebank/translate.hs b/examples/PennTreebank/translate.hs index 81d871fb7..35a17e22a 100644 --- a/examples/PennTreebank/translate.hs +++ b/examples/PennTreebank/translate.hs @@ -18,8 +18,8 @@ import Data.Tree test = False main = do - pgf <- readPGF "PennTreebank.pgf" - let Just language = readLanguage "PennTreebankCnc" + pgf <- readPGF "ParseEngAbs.pgf" + let Just language = readLanguage "ParseEng" morpho = buildMorpho pgf language s <- readFile "wsj.02-21" ref <- newIORef (0,0,0) @@ -84,8 +84,8 @@ penn = v <- inside "JJ" (lemma "V2" "s VPPart") pps <- many (cat "PP") let adj = mkApp cidPastPartAP [mkApp v []] - ap0 = foldr (\ada ap -> mkApp cidAdAP [ada,ap]) (mkApp cidPositA [adj]) adas - ap = foldr (\pp ap -> mkApp cidAdAP [ap,pp]) ap0 pps + ap0 = foldr (\ada ap -> mkApp cidAdAP [ada,ap]) adj adas + ap = foldr (\pp ap -> mkApp cidAdvAP [ap,pp]) ap0 pps return ap `mplus` do adas0 <- many pAdA