X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FSportInfo.hs;h=7c5f1ac6da983dc2d6b4a8c6f2af007d0cc43431;hb=3c937a49488d466ce38cccda3eabe2115a5238fe;hp=289107dced3821edca77b04d18280dacc9354371;hpb=693560d7bd853ebfceef39458d0539e2c239789c;p=dead%2Fhtsn-import.git diff --git a/src/TSN/XML/SportInfo.hs b/src/TSN/XML/SportInfo.hs index 289107d..7c5f1ac 100644 --- a/src/TSN/XML/SportInfo.hs +++ b/src/TSN/XML/SportInfo.hs @@ -25,6 +25,7 @@ where -- System imports. import Data.Either ( rights ) +import Data.String.Utils ( replace ) import Data.Time.Clock ( UTCTime ) import Database.Groundhog ( countAll, @@ -60,10 +61,6 @@ import Xml ( -- | The DTDs for everything that we consider \"Sport Info.\" -- --- TODO: This is the list from the old implementation. We need to --- make sure that we are really receiving XML for these DTDs --- (i.e. the names are correct). --- dtds :: [String] dtds = [ "CBASK_3PPctXML.dtd", @@ -78,17 +75,11 @@ dtds = "CBASK_FGPctXML.dtd", "CBASK_FoulsXML.dtd", "CBASK_FTPctXML.dtd", - "Cbask_Indv_No_Avg_XML.dtd", -- no xml "Cbask_Indv_Scoring_XML.dtd", - "Cbask_Indv_Shooting_XML.dtd", -- no xml "CBASK_MinutesXML.dtd", "Cbask_Polls_XML.dtd", "CBASK_ReboundsXML.dtd", "CBASK_ScoringLeadersXML.dtd", - "CBASK_StealsXML.dtd", -- no xml - "Cbask_Team_Scoring_Rebound_Margin_XML.dtd", -- no xml - "Cbask_Team_Scoring_XML.dtd", -- no xml - "Cbask_Team_Shooting_Pct_XML.dtd", -- no xml "Cbask_Team_ThreePT_Made_XML.dtd", "Cbask_Team_ThreePT_PCT_XML.dtd", "Cbask_Team_Win_Pct_XML.dtd", @@ -174,28 +165,18 @@ dtds = "nflfirstdownxml.dtd", "NFLFumbleLeaderXML.dtd", "NFLGiveTakeXML.dtd", - "NFLGrassTurfDomeOutsideXML.dtd", -- no xml "NFLInside20XML.dtd", - "NFLInterceptionLeadersXML.dtd", -- no xml "NFLKickoffsXML.dtd", "NFLMondayNightXML.dtd", - "NFLPassingLeadersXML.dtd", -- no xml "NFLPassLeadXML.dtd", "NFLQBStartsXML.dtd", - "NFLReceivingLeadersXML.dtd", -- no xml - "NFLRushingLeadersXML.dtd", -- no xml "NFLSackLeadersXML.dtd", "nflstandxml.dtd", - "NFLTackleFFLeadersXML.dtd", -- no xml "NFLTeamRankingsXML.dtd", - "NFLTopKickoffReturnXML.dtd", -- no xml "NFLTopPerformanceXML.dtd", - "NFLTopPuntReturnXML.dtd", -- no xml "NFLTotalYardageXML.dtd", - "NFLYardsXML.dtd", -- no xml "NFL_KickingLeaders_XML.dtd", "NFL_NBA_Draft_XML.dtd", - "NFL_PuntingLeaders_XML.dtd", -- no xml "NFL_Roster_XML.dtd", "NFL_Team_Stats_XML.dtd", "Transactions_XML.dtd", @@ -315,138 +296,10 @@ sport_info_tests = -- sport_info_test_files :: [FilePath] sport_info_test_files = - map ("test/xml/sportinfo/" ++) [ - "CBASK_3PPctXML.xml", - "Cbask_All_Tourn_Teams_XML.xml", - "CBASK_AssistsXML.xml", - "Cbask_Awards_XML.xml", - "CBASK_BlocksXML.xml", - "Cbask_Conf_Standings_XML.xml", - "Cbask_DivII_III_Indv_Stats_XML.xml", - "Cbask_DivII_Team_Stats_XML.xml", - "Cbask_DivIII_Team_Stats_XML.xml", - "CBASK_FGPctXML.xml", - "CBASK_FoulsXML.xml", - "CBASK_FTPctXML.xml", - "Cbask_Indv_Scoring_XML.xml", - "CBASK_MinutesXML.xml", - "Cbask_Polls_XML.xml", - "CBASK_ReboundsXML.xml", - "CBASK_ScoringLeadersXML.xml", - "Cbask_Team_ThreePT_Made_XML.xml", - "Cbask_Team_ThreePT_PCT_XML.xml", - "Cbask_Team_Win_Pct_XML.xml", - "Cbask_Top_Twenty_Five_XML.xml", - "CBASK_TopTwentyFiveResult_XML.xml", - "Cbask_Tourn_Awards_XML.xml", - "Cbask_Tourn_Champs_XML.xml", - "Cbask_Tourn_Indiv_XML.xml", - "Cbask_Tourn_Leaders_XML.xml", - "Cbask_Tourn_MVP_XML.xml", - "Cbask_Tourn_Records_XML.xml", - "LeagueScheduleXML.xml", - "minorscoresxml.xml", - "Minor_Baseball_League_Leaders_XML.xml", - "Minor_Baseball_Standings_XML.xml", - "Minor_Baseball_Transactions_XML.xml", - "mlbbattingavgxml.xml", - "mlbdoublesleadersxml.xml", - "MLBGamesPlayedXML.xml", - "MLBGIDPXML.xml", - "MLBHitByPitchXML.xml", - "mlbhitsleadersxml.xml", - "mlbhomerunsxml.xml", - "MLBHRFreqXML.xml", - "MLBIntWalksXML.xml", - "MLBKORateXML.xml", - "mlbonbasepctxml.xml", - "MLBOPSXML.xml", - "MLBPlateAppsXML.xml", - "mlbrbisxml.xml", - "mlbrunsleadersxml.xml", - "MLBSacFliesXML.xml", - "MLBSacrificesXML.xml", - "MLBSBSuccessXML.xml", - "mlbsluggingpctxml.xml", - "mlbstandxml.xml", - "mlbstandxml_preseason.xml", - "mlbstolenbasexml.xml", - "mlbtotalbasesleadersxml.xml", - "mlbtriplesleadersxml.xml", - "MLBWalkRateXML.xml", - "mlbwalksleadersxml.xml", - "MLBXtraBaseHitsXML.xml", - "MLB_ERA_Leaders.xml", - "MLB_Pitching_Appearances_Leaders.xml", - "MLB_Pitching_Balks_Leaders.xml", - "MLB_Pitching_CG_Leaders.xml", - "MLB_Pitching_ER_Allowed_Leaders.xml", - "MLB_Pitching_Hits_Allowed_Leaders.xml", - "MLB_Pitching_Hit_Batters_Leaders.xml", - "MLB_Pitching_HR_Allowed_Leaders.xml", - "MLB_Pitching_IP_Leaders.xml", - "MLB_Pitching_Runs_Allowed_Leaders.xml", - "MLB_Pitching_Saves_Leaders.xml", - "MLB_Pitching_Shut_Outs_Leaders.xml", - "MLB_Pitching_Starts_Leaders.xml", - "MLB_Pitching_Strike_Outs_Leaders.xml", - "MLB_Pitching_Walks_Leaders.xml", - "MLB_Pitching_WHIP_Leaders.xml", - "MLB_Pitching_Wild_Pitches_Leaders.xml", - "MLB_Pitching_Win_Percentage_Leaders.xml", - "MLB_Pitching_WL_Leaders.xml", - "NBA_Team_Stats_XML.xml", - "NBA3PPctXML.xml", - "NBAAssistsXML.xml", - "NBABlocksXML.xml", - "nbaconfrecxml.xml", - "nbadaysxml.xml", - "nbadivisionsxml.xml", - "NBAFGPctXML.xml", - "NBAFoulsXML.xml", - "NBAFTPctXML.xml", - "NBAMinutesXML.xml", - "NBAReboundsXML.xml", - "NBAScorersXML.xml", - "nbastandxml.xml", - "NBAStealsXML.xml", - "nbateamleadersxml.xml", - "nbatripledoublexml.xml", - "NBATurnoversXML.xml", - "NCAA_Conference_Schedule_XML.xml", - "nflfirstdownxml.xml", - "NFLFumbleLeaderXML.xml", - "NFLGiveTakeXML.xml", - "NFLInside20XML.xml", - "NFLKickoffsXML.xml", - "NFLMondayNightXML.xml", - "NFLPassLeadXML.xml", - "NFLQBStartsXML.xml", - "NFLSackLeadersXML.xml", - "nflstandxml.xml", - "NFLTeamRankingsXML.xml", - "NFLTopPerformanceXML.xml", - "NFLTotalYardageXML.xml", - "NFL_KickingLeaders_XML.xml", - "NFL_NBA_Draft_XML.xml", - "NFL_Roster_XML.xml", - "NFL_Team_Stats_XML.xml", - "Transactions_XML.xml", - "Weekly_Sched_XML.xml", - "WNBA_Team_Leaders_XML.xml", - "WNBA3PPctXML.xml", - "WNBAAssistsXML.xml", - "WNBABlocksXML.xml", - "WNBAFGPctXML.xml", - "WNBAFoulsXML.xml", - "WNBAFTPctXML.xml", - "WNBAMinutesXML.xml", - "WNBAReboundsXML.xml", - "WNBAScorersXML.xml", - "wnbastandxml.xml", - "WNBAStealsXML.xml", - "WNBATurnoversXML.xml" ] - + map (change_suffix . add_path) dtds + where + add_path = ("test/xml/sportinfo/" ++ ) + change_suffix = replace ".dtd" ".xml" -- | Make sure we can parse every element of 'sport_info_test_files'.