From f138b8f35df95e5b7ab1525b9c1349fbc315aa2e Mon Sep 17 00:00:00 2001
From: Oleg Batrashev <ogbash@gmail.com>
Date: Tue, 21 May 2013 09:31:53 +0300
Subject: Prototype scan for function, does not yet catch parameter types.

---
 src/fortranscanner.l | 37 +++++++++++++++++++++++++++++++++++--
 1 file changed, 35 insertions(+), 2 deletions(-)

diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index eae6d6e..66a6f6e 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -187,6 +187,7 @@ static InterfaceType     ifType = IF_NONE;
 static bool              functionLine = FALSE;
 
 static char              stringStartSymbol; // single or double quote
+static bool 		 parsingPrototype = FALSE; // see parsePrototype()
 
 //! Accumulated modifiers of current statement, eg variable declaration.
 static SymbolModifiers currentModifiers;
@@ -307,6 +308,12 @@ PREFIX    (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA
 %x	EndDoc
 
 %x      BlockData
+
+/** prototype parsing */
+%x  	Prototype
+%x  	PrototypeSubprog
+%x	PrototypeArgs
+
 %%
 
  /*-----------------------------------------------------------------------------------*/
@@ -1099,6 +1106,23 @@ private                                 {
                                           yy_pop_state();                                          
   					}
 
+ /*-----Prototype parsing -------------------------------------------------------------------------*/
+<Prototype>{BS}{SUBPROG}{BS_}		{
+					  BEGIN(PrototypeSubprog);
+					}
+<PrototypeSubprog>{ID}{BS}		{ current->name = yytext;
+					  current->name.stripWhiteSpace();
+					  BEGIN(PrototypeArgs);
+					 }
+<PrototypeArgs>{
+"("|")"|","|{BS_}			{ current->args += yytext; }
+{ID}					{ current->args += yytext; 
+					  Argument *a = new Argument;
+					  a->name = yytext;
+					  current->argList->append(a);
+					}
+}
+
  /*------------------------------------------------------------------------------------------------*/
 
 <*>"\n"                                 {
@@ -1111,7 +1135,10 @@ private                                 {
  /*---- error: EOF in wrong state --------------------------------------------------------------------*/
 
 <*><<EOF>>                              {
-                                          if ( include_stack_ptr <= 0 ) {
+					  if (parsingPrototype) {
+					    yyterminate();
+
+					  } else if ( include_stack_ptr <= 0 ) {
                                             if (YY_START!=INITIAL && YY_START!=Start) {
                                               DBG_CTX((stderr,"==== Error: EOF reached in wrong state (end missing)"));
                                               scanner_abort();
@@ -2304,7 +2331,13 @@ void FortranLanguageScanner::resetCodeParserState()
 
 void FortranLanguageScanner::parsePrototype(const char *text)
 {
-  current->name = QCString(text).lower();
+  QCString buffer = QCString(text).lower();
+  pushBuffer(buffer);
+  parsingPrototype = TRUE;
+  BEGIN(Prototype);
+  fscanYYlex();
+  parsingPrototype = FALSE;
+  popBuffer();
 }
 
 static void scanner_abort() 
-- 
cgit v0.12