Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 21 insertions, 0 deletions

diff --git a/htc/tree.htc b/htc/tree.htc
new file mode 100644
index 0000000..8615108
--- /dev/null
+++ b/htc/tree.htc
@@ -0,0 +1,21 @@
+\const{HTCEXT}{htc htx html}
+\const{SKIPDIR}{sys htc SCCS}
+\def{tree.update}{}{
+  [xmod:=\now];
+  \ldef{trav}{x}{
+    \staturi{\1}{
+      \if(count stat.ALIAS)(@<-stat.);
+      \forall{it}{\dirent{\1}}{
+        \if(\dirmod(it)&24576){
+          \nif(\SKIPDIR which (it past \1)){\trav{[it]/}}
+        }{
+          \if(\HTCEXT which (it rpast ".")){
+            \staturi(it){\if(count stat.ALIAS)(@<-stat.)}
+          }
+        }
+      }
+    }
+  };
+  \db{TREE}{\trav{/}\query(XMOD<xmod){\rem.rec}}
+}
+