tools/PascalParser.hs
changeset 6836 42382794b73f
parent 6826 8fadeefdd352
child 6858 608c8b057c3b
equal deleted inserted replaced
6835:00b2fd32305d 6836:42382794b73f
   286             comments
   286             comments
   287             ret <- typeDecl
   287             ret <- typeDecl
   288             comments
   288             comments
   289             return ret
   289             return ret
   290             else
   290             else
   291             return UnknownType
   291             return VoidType
   292         char ';'
   292         char ';'
   293         comments
   293         comments
   294         forward <- liftM isJust $ optionMaybe (try (string "forward;") >> comments)
   294         forward <- liftM isJust $ optionMaybe (try (string "forward;") >> comments)
   295         many functionDecorator
   295         many functionDecorator
   296         b <- if isImpl && (not forward) then
   296         b <- if isImpl && (not forward) then