Update of /cvsroot/wisp/wisp/tools
In directory usw-pr-cvs1:/tmp/cvs-serv31590/tools
Modified Files:
Makefile.am
Added Files:
undoc.wisp
Log Message:
Moved undoc.wisp from doc/examples to the tools directory.
--- NEW FILE: undoc.wisp ---
;;;; undoc.wisp - list the undocumented builtin procedures
;;
;; Copyleft © 2002 by Andres Soolo (di...@us...)
;; This file is licensed under the GNU GPL v2. If you
;; don't know what that means, please do read the GPL.
;;
;;;; @(#) $Id: undoc.wisp,v 1.1 2002/09/04 14:34:44 digg Exp $
(use lists qsort wispdoc)
(define total (make-box 0))
(define (process-package name)
(my wid (or (call-with-input-file (string-append
(if (eq? name #t)
"builtin"
(symbol->string name))
".wid") 'system-path 'signal-not
parse-wid-file)
'())
(my undoc (qsort! symbol<?
(filter-map
(lambda (c)
(my (name . value) c
(and (or (procedure? value)
(macro? value))
(not (assq (car (origin value)) wid))
name)))
(case name
((#t)
(dict->alist (regular-env)))
(symbol?
(module-ref name))
(else (raise 'huh? name)))))
(if (not (null? undoc))
(my c (length undoc)
(incr! total[] c)
(print "$[c] undocumented objects in $[name]:\n")
(print "$[undoc]\n\n"))))))
; FIXME: acquire the list automatically
; Note that cgi is not in the list.
(for-each process-package
'(#t and-let arithmetics balanced baudot block-port codecoll
collectors cpu/general cpu/ia32 display encoding files
format/as format/elfexec frer getopt ini keyboard lists
mingle morse phases promises qsort random regex string-port
strings syscalls tester time unicode unix url wispdoc xml))
(print "Total of $[total[]] undocumented procedures.\n")
Index: Makefile.am
===================================================================
RCS file: /cvsroot/wisp/wisp/tools/Makefile.am,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- Makefile.am 28 Aug 2002 20:05:43 -0000 1.12
+++ Makefile.am 4 Sep 2002 14:34:44 -0000 1.13
@@ -7,7 +7,7 @@
#### @(#) $Id$
EXTRA_DIST = .cvsignore build.sh debsnap frer was worth \
- pretty.wisp pretty.ssh.pl sfweb
+ pretty.wisp pretty.ssh.pl sfweb undoc.wisp
bin_SCRIPTS = frer was worth
|
