[Fencommits] fenserve: add storm:depends triples connecting directories to the blocks containing the dir's contents

[Benja Fallenstein]

Thu Mar 29 19:30:21 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * add storm:depends triples connecting directories to the blocks containing the dir's contents
diff -rN -u old-fenserve/FenServe.hs new-fenserve/FenServe.hs
--- old-fenserve/FenServe.hs	2007-03-29 19:30:34.000000000 +0300
+++ new-fenserve/FenServe.hs	2007-03-29 19:30:34.000000000 +0300
@@ -70,11 +70,16 @@
 fs_mimeType        = IRI "http://fenfire.org/2007/fenserve#mimeType"
 fs_language        = IRI "http://fenfire.org/2007/fenserve#language"
 
+storm              =     "http://fenfire.org/2007/storm"
+storm_depends      = IRI "http://fenfire.org/2007/storm#depends"
+
 data Entry = DirEntry { entrySubdir :: Node }
            | FileEntry { entryRepr :: Node } 
            | ExecutableEntry { entryCode :: Node } 
            deriving (Show, Read)
            
+entryNode (DirEntry n) = n; entryNode (FileEntry n) = n; entryNode (ExecutableEntry n) = n
+           
 data Directory = Dir { dirNode :: Node, dirEntries :: [(String,Entry)] }
                  deriving (Show, Read)
 
@@ -102,6 +107,7 @@
     toRDF (Dir node entries) = do
         l <- toRDFList toRDFEntry entries
         tellTs [ (node, rdf_type, fs_Directory), (node, fs_entries, l) ]
+        tellTs [ (node, storm_depends, entryNode $ snd e) | e <- entries ]
         return node
       where toRDFEntry (name, entry) = do e <- toRDF entry; n <- toRDF name
                                           tellTs [(e,fs_filename,n)]; return e