Consistent way to show scanner state

Create a consistent way to display the state mnemonics of the different scanners (analogous to the fortranscanner.l)
Use an automatic procedure to generate the routine with the translation of the states to a string.

1 files changed, 1 insertions, 44 deletions

diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 09c4490..38abb89 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -2882,47 +2882,4 @@ extern "C" { // some bogus code to keep the compiler happy
 }
 #endif
 
-#define scanStateToString(x) case x: resultString = #x; break;
-static const char *stateToString(int state)
-{
-  const char *resultString;
-  switch(state)
-  {
-    scanStateToString(INITIAL)
-    scanStateToString(Subprog)
-    scanStateToString(SubprogPrefix)
-    scanStateToString(Parameterlist)
-    scanStateToString(SubprogBody)
-    scanStateToString(SubprogBodyContains)
-    scanStateToString(Start)
-    scanStateToString(Comment)
-    scanStateToString(Module)
-    scanStateToString(Program)
-    scanStateToString(ModuleBody)
-    scanStateToString(ModuleBodyContains)
-    scanStateToString(AttributeList)
-    scanStateToString(Variable)
-    scanStateToString(Initialization)
-    scanStateToString(ArrayInitializer)
-    scanStateToString(Enum)
-    scanStateToString(Typedef)
-    scanStateToString(TypedefBody)
-    scanStateToString(TypedefBodyContains)
-    scanStateToString(InterfaceBody)
-    scanStateToString(StrIgnore)
-    scanStateToString(String)
-    scanStateToString(Use)
-    scanStateToString(UseOnly)
-    scanStateToString(ModuleProcedure)
-    scanStateToString(Prepass)
-    scanStateToString(DocBlock)
-    scanStateToString(DocBackLine)
-    scanStateToString(EndDoc)
-    scanStateToString(BlockData)
-    scanStateToString(Prototype)
-    scanStateToString(PrototypeSubprog)
-    scanStateToString(PrototypeArgs)
-    default: resultString = "Unknown"; break;
-  }
-  return resultString;
-}
+#include "fortranscanner.l.h"