diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-02-21 17:26:04 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-02-21 17:26:04 +0000 |
| commit | e725b10d667678b79b28899093fe4df69d35755c (patch) | |
| tree | 49a360d7aa467592b1e2be9e57605fdef474d52c /examples | |
| parent | 2eddc116e676b249d300e930263255bfab057622 (diff) | |
fixes in the script for the conversion of PennTreebank
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/PennTreebank/Idents.hs | 1 | ||||
| -rw-r--r-- | 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 |