curry-frontend-0.2.12: src/Curry/Syntax.hs

{-
  A simple interface for reading and manipulating Curry
  source code.

  (c) 2009, Holger Siegel.
-}

module Curry.Syntax
  ( module Curry.Syntax.Type
  , parseModule
  , parseHeader
  ) where

import Control.Monad
import Data.List

import Curry.Base.MessageMonad
import Curry.Syntax.Type
import qualified Curry.Syntax.Parser as CSP
import Curry.Syntax.Unlit

-- | Parses a curry module.
parseModule :: Bool -> FilePath -> String -> MsgMonad Module
parseModule likeFlat fn =
  unlitLiterate fn >=> CSP.parseSource likeFlat fn

-- | Pares a curry header
parseHeader :: FilePath -> String -> MsgMonad Module
parseHeader fn =
  unlitLiterate fn >=> CSP.parseHeader fn

-- Literate source files use the extension ".lcurry"
unlitLiterate :: FilePath -> String -> MsgMonad String
unlitLiterate fn s
  | isLiterateSource fn = unlit fn s
  | otherwise = return s

-- | Compute if a file contains literate curry by its extension
isLiterateSource :: FilePath -> Bool
isLiterateSource fn = litExt `isSuffixOf` fn

litExt = ".lcurry"