mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-09 06:51:44 +00:00
47 lines
2.5 KiB
Haskell
47 lines
2.5 KiB
Haskell
--- CheckRDF.hs.orig 2007-03-02 19:13:07.000000000 +0100
|
|
+++ CheckRDF.hs 2009-01-26 18:28:22.000000000 +0100
|
|
@@ -24,9 +24,12 @@
|
|
import Directory ( doesFileExist, getPermissions, readable, removeFile )
|
|
import List ( partition, intersperse, groupBy, sortBy)
|
|
import Time (getClockTime,toCalendarTime,calendarTimeToString)
|
|
+import Char (toLower)
|
|
|
|
import Text.XML.HaXml.Types
|
|
import Text.XML.HaXml.Parse (xmlParse)
|
|
+import Text.XML.HaXml.Posn (noPos)
|
|
+import Text.XML.HaXml.Xtract.Lex (lexXtract)
|
|
import Text.XML.HaXml.Xtract.Parse (parseXtract)
|
|
import Text.PrettyPrint.HughesPJ (render, vcat)
|
|
import Text.XML.HaXml.Pretty (content)
|
|
@@ -52,15 +55,15 @@
|
|
mkNewRDF :: RDFConfig -> FilePath -> String -> RDF
|
|
mkNewRDF config filename contents =
|
|
let elem = getElem $ xmlParse filename contents
|
|
- ct = render $ vcat $ map content $ dfilter (parseXtract "channel/title/-") elem
|
|
- cl = render $ vcat $ map content $ dfilter (parseXtract "channel/link/-") elem
|
|
- len1 = length $ dfilter (parseXtract "//item/title") elem
|
|
- len2 = length $ dfilter (parseXtract "//item/link") elem
|
|
+ ct = render $ vcat $ map content $ dfilter (parseXtract (lexXtract (map toLower) "channel/title/-")) elem
|
|
+ cl = render $ vcat $ map content $ dfilter (parseXtract (lexXtract (map toLower) "channel/link/-")) elem
|
|
+ len1 = length $ dfilter (parseXtract (lexXtract (map toLower) "//item/title")) elem
|
|
+ len2 = length $ dfilter (parseXtract (lexXtract (map toLower) "//item/link")) elem
|
|
items = if len1 == len2
|
|
then (map (\ i -> (render $ vcat $ map content $
|
|
- dfilter (parseXtract ("//item/title["++i++"]/-")) elem
|
|
+ dfilter (parseXtract (lexXtract (map toLower) ("//item/title["++i++"]/-"))) elem
|
|
,render $ vcat $ map content $
|
|
- dfilter (parseXtract ("//item/link["++i++"]/-" )) elem)
|
|
+ dfilter (parseXtract (lexXtract (map toLower) ("//item/link["++i++"]/-" ))) elem)
|
|
)
|
|
$ map show [0..len1-1])
|
|
else []
|
|
@@ -69,7 +72,7 @@
|
|
,clink = cl
|
|
,citems = rdfitems
|
|
}
|
|
- where getElem (Document _ _ e _) = CElem e
|
|
+ where getElem (Document _ _ e _) = CElem e noPos
|
|
dfilter f = \ x -> f x x
|
|
mkRDFItem (t,l) = RDFItem {title = substituteChar '\n' ' ' $ rmCDATA t
|
|
,link = filter (/='\n') $ rmCDATA l
|