htc/tree.htc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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}}
}