Commit 4f4d5030 authored by sof's avatar sof
Browse files

[project @ 1999-03-24 08:46:04 by sof]

Pragmas, Haskell (98) report style.
parent 68af1f55
......@@ -323,14 +323,26 @@ NL [\n\r]
PUSH_STATE(UserPragma);
RETURN(SPECIALISE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"speciali"[sz]e {
PUSH_STATE(UserPragma);
RETURN(SPECIALISE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"INLINE" {
PUSH_STATE(UserPragma);
RETURN(INLINE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"inline" {
PUSH_STATE(UserPragma);
RETURN(INLINE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"NOINLINE" {
PUSH_STATE(UserPragma);
RETURN(NOINLINE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"notInline" {
PUSH_STATE(UserPragma);
RETURN(NOINLINE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*"MAGIC_UNFOLDING" {
PUSH_STATE(UserPragma);
RETURN(MAGIC_UNFOLDING_UPRAGMA);
......@@ -353,7 +365,7 @@ NL [\n\r]
RETURN(SOURCE_UPRAGMA);
}
<Code,GlaExt>"{-#"{WS}*[A-Z_]+ {
<Code,GlaExt>"{-#"{WS}*[a-zA-Z_]+ {
fprintf(stderr, "%s:%d: Warning: Unrecognised pragma '",
input_filename, hsplineno);
format_string(stderr, (unsigned char *) yytext, yyleng);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment