You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
80 lines
2.0 KiB
80 lines
2.0 KiB
5 years ago
|
diff --git a/cccc/cccc.g b/cccc/cccc.g
|
||
|
index bdb6805..fd7b504 100644
|
||
|
--- a/cccc/cccc.g
|
||
|
+++ b/cccc/cccc.g
|
||
|
@@ -84,6 +84,30 @@ inline void endOfLine(CLexer &lexer)
|
||
|
#token MAC_NL "\r" << endOfLine(*this); >>
|
||
|
#token UNIX_NL "\n" << endOfLine(*this); >>
|
||
|
|
||
|
+/* augment dialect policies -- M.H added */
|
||
|
+#lexclass SKIP_STMT
|
||
|
+#token SKCOLON ";" << skip();mode(START); >>
|
||
|
+#token SKANYTHING "~[; \t\n]" << skip();more();>>
|
||
|
+#token SKNL "\n" << skip();endOfLine(*this);>>
|
||
|
+#token SKBLANK "[ \t]+" << skip(); >>
|
||
|
+#lexclass START
|
||
|
+
|
||
|
+#lexclass SKIP_BLOCK
|
||
|
+#token SK_ANY "[a-zA-Z0-9_]*"
|
||
|
+<<
|
||
|
+std::string treatment =
|
||
|
+ CCCC_Options::dialectKeywordPolicy(parse_language,lextext());
|
||
|
+
|
||
|
+if ( treatment != "stop_skipping" )
|
||
|
+{
|
||
|
+ skip();
|
||
|
+}
|
||
|
+else
|
||
|
+{
|
||
|
+ mode(COMMENT_LINE);skip();
|
||
|
+}
|
||
|
+>>
|
||
|
+#lexclass START
|
||
|
|
||
|
/* preprocessor constructs - comments, #defines etc */
|
||
|
|
||
|
@@ -343,17 +367,29 @@ inline void endOfLine(CLexer &lexer)
|
||
|
if( treatment == "ignore" )
|
||
|
{
|
||
|
skip();
|
||
|
+ //std::cout << toktext << std::endl <<" :ignore" << std::endl;
|
||
|
}
|
||
|
// Ultimately, the next two cases will need to be handled
|
||
|
// using a #lexclass or something similar, for the moment
|
||
|
// we just try to skip the tokens themselves.
|
||
|
else if ( treatment == "start_skipping" )
|
||
|
{
|
||
|
- skip();
|
||
|
+ mode(SKIP_BLOCK);skip();
|
||
|
}
|
||
|
else if ( treatment == "stop_skipping" )
|
||
|
{
|
||
|
- skip();
|
||
|
+ skip(); mode(COMMENT_LINE);
|
||
|
+ //gobble end of line M.H.
|
||
|
+ }
|
||
|
+ else if ( treatment == "skip_line" )//M.H added
|
||
|
+ {
|
||
|
+ mode(COMMENT_LINE);skip();
|
||
|
+ //std::cout << "skip_line" << std::endl;
|
||
|
+ }
|
||
|
+ else if ( treatment == "skip_stmt" )//M.H added
|
||
|
+ {
|
||
|
+ mode(SKIP_STMT);skip();
|
||
|
+ //std::cout << "skip_stmt" << std::endl;
|
||
|
}
|
||
|
>>
|
||
|
|
||
|
@@ -426,8 +462,10 @@ void init(const string& filename, const string& language)
|
||
|
pu=ParseUtility::currentInstance();
|
||
|
ps=ParseStore::currentInstance();
|
||
|
|
||
|
- ANTLRParser::init();
|
||
|
parse_language=language;
|
||
|
+ ANTLRParser::init();
|
||
|
+ //parse_language=language;
|
||
|
+ //move above, M.H.1st otherwise time init not to language
|
||
|
}
|
||
|
|
||
|
>>
|