GenLanguageDef

lexerの設定ファイルとなる型

code:hs

data GenLanguageDef s u m = LanguageDef {

commentStart :: String, -- コメント開始

commentEnd :: String, -- コメント終了

commentLine :: String, -- 1行コメントの開始

nestedComments :: Bool, -- わからん

identStart :: ParsecT s u m Char, -- identの始まり

identLetter :: ParsecT s u m Char, -- identの終わり

opStart :: ParsecT s u m Char,

opLetter :: ParsecT s u m Char,

caseSensitive :: Bool

}

nestedComments

「ネストされたブロックコメントをサポートするかどうか」

「ネストされたコメント」が具体的に何を指しているのかがわからない

code:hs

haskellStyle, javaStyle :: LanguageDef st

haskellStyle = emptyDef

{ commentStart = "{-"

, commentEnd = "-}"

, commentLine = "--"

, nestedComments = True

, identStart = letter

, identLetter = alphaNum <|> oneOf "_'"

, opStart = opLetter haskellStyle

, opLetter = oneOf ":!#$%&*+./<=>?@\\^|-~"

, reservedOpNames= []

, reservedNames = []

, caseSensitive = True

}

javaStyle = emptyDef

{ commentStart = "/*"

, commentEnd = "*/"

, commentLine = "//"

, nestedComments = True

, identStart = letter

, identLetter = alphaNum <|> oneOf "_'"

, reservedNames = []

, reservedOpNames= []

, caseSensitive = False

}

既にあるものを利用する