tools/PascalParser.hs
changeset 6826 8fadeefdd352
parent 6626 a447993f2ad7
child 6836 42382794b73f
equal deleted inserted replaced
6825:aca4a6807ecc 6826:8fadeefdd352
   187             comments
   187             comments
   188             ret <- typeDecl
   188             ret <- typeDecl
   189             comments
   189             comments
   190             return ret
   190             return ret
   191             else
   191             else
   192             return UnknownType
   192             return VoidType
   193         optional $ try $ char ';' >> comments >> string "cdecl"
   193         optional $ try $ char ';' >> comments >> string "cdecl"
   194         comments
   194         comments
   195         return $ FunctionType ret vs
   195         return $ FunctionType ret vs
   196 
   196 
   197 typesDecl = many (aTypeDecl >>= \t -> comments >> return t)
   197 typesDecl = many (aTypeDecl >>= \t -> comments >> return t)