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

add bracketLinearizeAll for variants

Browse Source
This commit is contained in:
Prasanth Kolachina
2018-05-24 09:47:27 +02:00
parent 10df5a7269
commit 6faad1b3cf
2 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF.hs
View File

@@ -58,7 +58,7 @@ module PGF(
-- * Operations -- * Operations
-- ** Linearization -- ** Linearization
linearize, linearizeAllLang, linearizeAll, bracketedLinearize, tabularLinearizes, linearize, linearizeAllLang, linearizeAll, bracketedLinearize, bracketedLinearizeAll, tabularLinearizes,
groupResults, -- lins of trees by language, removing duplicates groupResults, -- lins of trees by language, removing duplicates
showPrintName, showPrintName,

7
src/runtime/haskell/PGF/Linearize.hs
View File

@@ -4,6 +4,7 @@ module PGF.Linearize
, linearizeAll , linearizeAll
, linearizeAllLang , linearizeAllLang
, bracketedLinearize , bracketedLinearize
, bracketedLinearizeAll
, tabularLinearizes , tabularLinearizes
) where ) where
@@ -47,6 +48,12 @@ bracketedLinearize pgf lang = head . map (snd . untokn Nothing . firstLin cnc) .
head [] = [] head [] = []
head (bs:bss) = bs head (bs:bss) = bs
-- | Linearizes given expression as a bracketed string in the language
bracketedLinearizeAll :: PGF -> Language -> Tree -> [[BracketedString]]
bracketedLinearizeAll pgf lang = map (snd . untokn Nothing . firstLin cnc) . linTree pgf cnc
where
cnc = lookMap (error "no lang") lang (concretes pgf)
firstLin cnc arg@(ct@(cat,n_fid),fid,fun,es,(xs,lin)) = firstLin cnc arg@(ct@(cat,n_fid),fid,fun,es,(xs,lin)) =
case IntMap.lookup fid (linrefs cnc) of case IntMap.lookup fid (linrefs cnc) of
Just (funid:_) -> snd (mkLinTable cnc (const True) [] funid [arg]) ! 0 Just (funid:_) -> snd (mkLinTable cnc (const True) [] funid [arg]) ! 0