GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 18:28:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

handle records of parameters

Browse Source
This commit is contained in:
krangelov
2021-12-09 17:45:39 +01:00
parent e413293657
commit 9b0b038984
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -171,6 +171,13 @@ str2lin v = do t <- value2term 0 v
evalError ("the string:" <+> ppTerm Unqualified 0 t $$ evalError ("the string:" <+> ppTerm Unqualified 0 t $$
"cannot be evaluated at compile time.") "cannot be evaluated at compile time.")
param2int (VR as) = compute as
where
compute [] = return (0,[],1)
compute ((lbl,tnk):as) = do
(r, rs ,cnt ) <- force tnk >>= param2int
(r',rs',cnt') <- compute as
return (r*cnt'+r',combine cnt' rs rs',cnt*cnt')
param2int (VApp q tnks) = do param2int (VApp q tnks) = do
(r , cnt ) <- getIdxCnt q (r , cnt ) <- getIdxCnt q
(r',rs',cnt') <- compute tnks (r',rs',cnt') <- compute tnks