[Wisp-cvs] wisp/tools undoc.wisp,NONE,1.1 Makefile.am,1.12,1.13

[<di...@us...>]

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