Index: trunk/util/pcblib-static.cgi
===================================================================
--- trunk/util/pcblib-static.cgi (revision 466)
+++ trunk/util/pcblib-static.cgi (revision 467)
@@ -28,7 +28,49 @@
list_fps()
{
- echo TODO
+ find $fpdir | awk -v "fpdir=$fpdir" -v "CGI=$CGI" '
+ /.svn/ { next }
+ /parametric/ { next }
+
+ {
+ name=$0
+ sub(fpdir, "", name)
+ if (!(name ~ "/"))
+ next
+ dir=name
+ fn=name
+ sub("/.*", "", dir)
+ sub("^[^/]*/", "", fn)
+ vfn = fn
+ sub(".fp$", "", vfn)
+
+ LLEN[dir] += length(vfn)
+
+ vfn = "" vfn ""
+
+ if (LLEN[dir] > 8) {
+ LLEN[dir] = 0
+ sep = "
"
+ }
+ else
+ sep = " "
+ if (DIR[dir] != "")
+ DIR[dir] = DIR[dir] sep vfn
+ else
+ DIR[dir] = vfn
+ }
+
+ END {
+ print "
" n + print " |
---|
" DIR[n] + print " |