attic/hsedit
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

jump over syscall

Browse source
This commit is contained in:
Armin Friedl 2016-08-29 12:53:53 +02:00
parent 1585965801
commit 77e7213249
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/App/Fontifier.hs
View file

@ -195,6 +195,8 @@ invAcc a i ('[':t) = invAcc a (i+1 + g) (drop g t) -- TODO check reads in f
-- if it is found set its boolean value to true -- if it is found set its boolean value to true
-- if it is not found add its slice to the result -- if it is not found add its slice to the result
-- all variables with false at the end of a block are unused -- all variables with false at the end of a block are unused
invAcc a i ('.':t) = invAcc a (i+1 + g) (drop g t)
where g = fromJust (elemIndex ';' t)
invAcc a i s@(c:t) = let writeAcc = getWrite i s invAcc a i s@(c:t) = let writeAcc = getWrite i s
matchLen = (length $ (\(v,_,_) -> v) (fromJust writeAcc)) matchLen = (length $ (\(v,_,_) -> v) (fromJust writeAcc))
readAcc = getRead i s readAcc = getRead i s