adapted GFCC2FCFG to other uses of GFCC, made it to default parser

This commit is contained in:
aarne
2007-09-19 13:49:12 +00:00
parent a886f7042b
commit 7825a1a1c5
8 changed files with 97 additions and 70 deletions

View File

@@ -260,7 +260,7 @@ updateShellState opts ign mcnc sh ((_,sgr,gr,eenv),rts) = do
let fromGFC = snd . snd . Cnv.convertGFC opts
(mcfgs, cfgs) = unzip $ map (curry fromGFC cgr) concrs
fcfgs = FCnv.convertGrammar (C2GFCC.mkCanon2gfcc cgr)
fcfgs = FCnv.convertGrammar (C2GFCC.mkCanon2gfccNoUTF8 cgr)
pInfos = zipWith3 Prs.buildPInfo mcfgs (map snd fcfgs) cfgs