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

doc of prob

Browse Source
This commit is contained in:
aarne
2005-11-01 08:20:09 +00:00
parent 1116d7540e
commit 36839cba86
3 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Probabilistic/Probabilistic.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/11/01 09:10:54 $
-- > CVS $Date: 2005/11/01 09:20:09 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.4 $
-- > CVS $Revision: 1.5 $
--
-- Probabilistic abstract syntax. AR 30\/10\/2005
--
@@ -83,7 +83,7 @@ pProb s = case words s of
"--#":"prob":f:p:_ | isDouble p -> [(zIdent f, read p)]
f:ps@(g:rest) -> case span (/= "--#") ps of
(_,_:"prob":p:_) | isDouble p -> [(zIdent f', readD p)] where
f' = if f=="fun" then ident g else ident f
f' = if elem f ["fun","lin","data"] then ident g else ident f
_ -> []
_ -> []
where