From 3d64f57fb034d1ee752a5a4ac3a9cb60462f81ae Mon Sep 17 00:00:00 2001
From: thurston <thurston@052ea7fc-9027-0410-9066-f65837a77df0>
Date: Fri, 8 Jun 2007 13:31:54 +0000
Subject: [PATCH] Bug fix: when -S or -M was given the ragel version number was
 not emitted, causing the backend to reject the intermediate format. From Tim
 Potter.

git-svn-id: http://svn.complang.org/ragel/trunk@232 052ea7fc-9027-0410-9066-f65837a77df0
---
 CREDITS             | 3 ++-
 ragel/parsedata.cpp | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/CREDITS b/CREDITS
index eb81547..48cb8cc 100644
--- a/CREDITS
+++ b/CREDITS
@@ -29,4 +29,5 @@ missed.
     Erich Ocean, Alan West, Steven Kibbler, Laurent Boulard, Jon Oberheide,
     David Helder, Lexington Luthor, Jason Jobe, Colin Fleming, Carlos Antunes,
     Steve Horne, Matt Mower, Josef Goettgens, Zed Shaw, Marcus Rueckert, Jeremy
-    Hinegardner, Aaron Campbell, Josh Purinton, Judson Lester, Barry Arthur
+    Hinegardner, Aaron Campbell, Josh Purinton, Judson Lester, Barry Arthur,
+    Tim Potter
diff --git a/ragel/parsedata.cpp b/ragel/parsedata.cpp
index 3a24f2f..0fe69f7 100644
--- a/ragel/parsedata.cpp
+++ b/ragel/parsedata.cpp
@@ -1501,7 +1501,7 @@ void writeMachines( std::ostream &out, std::string hostData, char *inputFileName
 			/* Section/Machine to emit was found. Prepare and emit it. */
 			parseData->prepareMachineGen( graphDictEl );
 			if ( gblErrorCount == 0 ) {
-				out << "<ragel filename=\"" << inputFileName << "\"";
+				out << "<ragel version=\"" VERSION "\" filename=\"" << inputFileName << "\"";
 				writeLanguage( out );
 				out << ">\n";
 				parseData->generateXML( out );
-- 
2.7.4