From b439b4992c406d15f23bf0d309f2bc57e2fc0196 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 17 Jun 2014 07:53:25 -0400
Subject: [PATCH] Add SportInfo support for minorscoresxml.dtd.

---
 doc/man1/htsn-import.1                      |  2 ++
 schema/minorscoresxml.dtd                   | 24 +++++++++++++++++++++
 schemagen/minorscoresxml/minorscoresxml.xml | 19 ++++++++++++++++
 src/TSN/XML/SportInfo.hs                    |  5 +++--
 test/xml/sportinfo/minorscoresxml.dtd       | 24 +++++++++++++++++++++
 test/xml/sportinfo/minorscoresxml.xml       | 19 ++++++++++++++++
 6 files changed, 91 insertions(+), 2 deletions(-)
 create mode 100644 schema/minorscoresxml.dtd
 create mode 100644 schemagen/minorscoresxml/minorscoresxml.xml
 create mode 100644 test/xml/sportinfo/minorscoresxml.dtd
 create mode 100644 test/xml/sportinfo/minorscoresxml.xml

diff --git a/doc/man1/htsn-import.1 b/doc/man1/htsn-import.1
index b892096..4772d76 100644
--- a/doc/man1/htsn-import.1
+++ b/doc/man1/htsn-import.1
@@ -168,6 +168,8 @@ Cbask_Tourn_MVP_XML.dtd
 Cbask_Tourn_Records_XML.dtd
 .IP \[bu]
 LeagueScheduleXML.dtd
+.IP \[bu]
+minorscoresxml.dtd
 .RE
 .P
 The GameInfo and SportInfo types do not have their own top-level
diff --git a/schema/minorscoresxml.dtd b/schema/minorscoresxml.dtd
new file mode 100644
index 0000000..9af7d60
--- /dev/null
+++ b/schema/minorscoresxml.dtd
@@ -0,0 +1,24 @@
+<!ELEMENT message  (XML_File_ID, heading , category , sport , game+ , time_stamp )>
+
+<!ELEMENT XML_File_ID  (#PCDATA )>
+
+<!ELEMENT heading  (#PCDATA )>
+
+<!ELEMENT category  (#PCDATA )>
+
+<!ELEMENT sport  (#PCDATA )>
+
+<!ELEMENT game  (vteam , vscore , hteam , hscore , status )>
+
+<!ELEMENT vteam  (#PCDATA )>
+
+<!ELEMENT vscore  (#PCDATA )>
+
+<!ELEMENT hteam  (#PCDATA )>
+
+<!ELEMENT hscore  (#PCDATA )>
+
+<!ELEMENT status  (#PCDATA )>
+
+<!ELEMENT time_stamp  (#PCDATA )>
+
diff --git a/schemagen/minorscoresxml/minorscoresxml.xml b/schemagen/minorscoresxml/minorscoresxml.xml
new file mode 100644
index 0000000..0a3aa60
--- /dev/null
+++ b/schemagen/minorscoresxml/minorscoresxml.xml
@@ -0,0 +1,19 @@
+<?xml version="1.0" standalone="no" ?>
+<!DOCTYPE message PUBLIC "-//TSN//DTD Statistics 1.0/EN" "minorscoresxml.dtd">
+<message>
+<XML_File_ID>17</XML_File_ID>
+<heading>BASK-W</heading>
+<category>Minor Scores</category>
+<sport>WBASK</sport>
+<game>
+<vteam>Cleveland</vteam><vscore>0</vscore>
+<hteam>Orlando</hteam><hscore>0</hscore>
+<status>7:00 pm (et)</status>
+</game>
+<game>
+<vteam>Los Angeles</vteam><vscore>0</vscore>
+<hteam>Phoenix</hteam><hscore>0</hscore>
+<status>9:00 pm (et)</status>
+</game>
+<time_stamp> December 5, 2000, at 12:23 PM ET </time_stamp>
+</message>
diff --git a/src/TSN/XML/SportInfo.hs b/src/TSN/XML/SportInfo.hs
index ac90885..3300b3a 100644
--- a/src/TSN/XML/SportInfo.hs
+++ b/src/TSN/XML/SportInfo.hs
@@ -101,7 +101,7 @@ dtds =
     "Cbask_Tourn_MVP_XML.dtd",
     "Cbask_Tourn_Records_XML.dtd",
     "LeagueScheduleXML.dtd",
-    "minorscoresxml.dtd", -- no dtd
+    "minorscoresxml.dtd",
     "Minor_Baseball_League_Leaders_XML.dtd", -- no dtd
     "Minor_Baseball_Standings_XML.dtd", -- no dtd
     "Minor_Baseball_Transactions_XML.dtd", -- no dtd
@@ -345,7 +345,8 @@ sport_info_test_files =
     "Cbask_Tourn_Leaders_XML.xml",
     "Cbask_Tourn_MVP_XML.xml",
     "Cbask_Tourn_Records_XML.xml",
-    "LeagueScheduleXML.xml"
+    "LeagueScheduleXML.xml",
+    "minorscoresxml.xml"
   ]
 
 
diff --git a/test/xml/sportinfo/minorscoresxml.dtd b/test/xml/sportinfo/minorscoresxml.dtd
new file mode 100644
index 0000000..9af7d60
--- /dev/null
+++ b/test/xml/sportinfo/minorscoresxml.dtd
@@ -0,0 +1,24 @@
+<!ELEMENT message  (XML_File_ID, heading , category , sport , game+ , time_stamp )>
+
+<!ELEMENT XML_File_ID  (#PCDATA )>
+
+<!ELEMENT heading  (#PCDATA )>
+
+<!ELEMENT category  (#PCDATA )>
+
+<!ELEMENT sport  (#PCDATA )>
+
+<!ELEMENT game  (vteam , vscore , hteam , hscore , status )>
+
+<!ELEMENT vteam  (#PCDATA )>
+
+<!ELEMENT vscore  (#PCDATA )>
+
+<!ELEMENT hteam  (#PCDATA )>
+
+<!ELEMENT hscore  (#PCDATA )>
+
+<!ELEMENT status  (#PCDATA )>
+
+<!ELEMENT time_stamp  (#PCDATA )>
+
diff --git a/test/xml/sportinfo/minorscoresxml.xml b/test/xml/sportinfo/minorscoresxml.xml
new file mode 100644
index 0000000..2f669e3
--- /dev/null
+++ b/test/xml/sportinfo/minorscoresxml.xml
@@ -0,0 +1,19 @@
+<?xml version="1.0" standalone="no" ?>
+<!DOCTYPE message PUBLIC "-//TSN//DTD Statistics 1.0/EN" "minorscoresxml.dtd">
+<message>
+<XML_File_ID>8193817</XML_File_ID>
+<heading>BASK-W</heading>
+<category>Minor Scores</category>
+<sport>WBASK</sport>
+<game>
+<vteam>Cleveland</vteam><vscore>0</vscore>
+<hteam>Orlando</hteam><hscore>0</hscore>
+<status>7:00 pm (et)</status>
+</game>
+<game>
+<vteam>Los Angeles</vteam><vscore>0</vscore>
+<hteam>Phoenix</hteam><hscore>0</hscore>
+<status>9:00 pm (et)</status>
+</game>
+<time_stamp> December 5, 2000, at 12:23 PM ET </time_stamp>
+</message>
-- 
2.44.2