suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handle tabs in indentation

Browse Source
This commit is contained in:
Adam Sampson 2007-04-25 18:14:21 +00:00
parent 52e1edbcdd
commit d20bf1656d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fco2/Indentation.hs
View File

@ -5,7 +5,6 @@ import Data.List
-- FIXME this doesn't handle multi-line strings
-- FIXME or VALOF processes
-- FIXME or tabs
-- FIXME or continuation lines...
indentMarker = "__indent"
@ -13,6 +12,8 @@ outdentMarker = "__outdent"
eolMarker = "__eol"
countIndent :: String -> Int
-- Tabs are 8 spaces.
countIndent ('\t':cs) = 4 + (countIndent cs)
countIndent (' ':' ':cs) = 1 + (countIndent cs)
countIndent (' ':cs) = error "Bad indentation"
countIndent _ = 0