X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcLexer.hs;h=3d1a640b3c4025f364867adce904098c83a35445;hb=1d47f08d196252b4ee5f4d5b5af2fb4945720762;hp=74bec5dd4c1abaf7893828ad1dd3bb44f012db2f;hpb=4799dfb37be922c17451f8e0f7c8d765a7a7eaab;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcLexer.hs b/utils/hpc/HpcLexer.hs
index 74bec5d..3d1a640 100644
--- a/utils/hpc/HpcLexer.hs
+++ b/utils/hpc/HpcLexer.hs
@@ -7,6 +7,7 @@ data Token
         | SYM Char
         | INT Int
         | STR String
+	| CAT String
 	deriving (Eq,Show)
 
 initLexer :: String -> [Token]
@@ -16,6 +17,7 @@ lexer :: String -> Int -> Int ->  [(Int,Int,Token)]
 lexer (c:cs) line column
   | c == '\n' = lexer cs (succ line) 0
   | c == '\"' = lexerSTR cs line (succ column)
+  | c == '[' = lexerCAT cs "" line (succ column)
   | c `elem` "{};-:" 
               = (line,column,SYM c) : lexer cs line (succ column)
   | isSpace c = lexer cs        line (succ column)
@@ -35,10 +37,15 @@ lexerINT  other s line column = (line,column,INT (read s)) : lexer other line co
 -- not technically correct for the new column count, but a good approximation.
 lexerSTR cs line column
   = case lex ('"' : cs) of
-      [(str,rest)] -> (line,succ column,STR str) 
+      [(str,rest)] -> (line,succ column,STR (read str))
                    : lexer rest line (length (show str) + column + 1)
       _ -> error "bad string"
 
+lexerCAT (c:cs) s line column
+  | c == ']'  =  (line,column,CAT s) : lexer cs line (succ column)
+  | otherwise = lexerCAT cs (s ++ [c]) line (succ column)
+lexerCAT  other s line column = error "lexer failure in CAT"
+
 test = do
           t <- readFile "EXAMPLE.tc"
           print (initLexer t)