2010-06-18 12:46:31 UTC

;; I am in the process of shifting ttn-do from “Guile 1.4.x only” to work
;; with Guile 1.4.x through 1.9.x.  This page documents some of the changes
;; in ttn-do as well as my efforts to improve 1.9 in the process.
;;
;; In the following tables, ‘update’ means try to apply the improvements
;; made in Guile 1.4 to 1.9 (and possibly) 1.8; ‘check’ means analyze
;; feasability; ‘ok’ means probably ok to trust as-is; ‘propose’ means
;; offer to add to 1.9 (including whatever adjustments deemed necessary by
;; the Guile maintainers).

*** module usage [2/4]
  - [X] cleanup (database ...) => only Guile-PG
  - [ ] cleanup (scripts ...)
     | (scripts PROGRAM)              | update  | new: check-hv, qop<-args |
     | (scripts frisk)                | update  |                          |
     | (scripts guile-config)         | propose |                          |
     | (scripts punify)               | update  | new: write-punily        |
     | (scripts read-scheme-source)   | propose |                          |
     | (scripts summarize-guile-TODO) | update  |                          |
  - [ ] cleanup (ice-9 ...)
     | (ice-9 and-let-star)   | check  |                 |
     | (ice-9 common-list)    | ok     |                 |
     | (ice-9 documentation)  | check  |                 |
     | (ice-9 editing-buffer) | update |                 |
     | (ice-9 expect)         | ok     |                 |
     | (ice-9 format)         | ok     |                 |
     | (ice-9 ftw)            | update |                 |
     | (ice-9 gap-buffer)     | update |                 |
     | (ice-9 gumm)           | ZONKED |                 |
     | (ice-9 mapping)        | check  |                 |
     | (ice-9 optargs-kw)     | check  | mimic Guile-WWW |
     | (ice-9 popen)          | check  |                 |
     | (ice-9 pretty-print)   | update |                 |
     | (ice-9 q)              | ok     |                 |
     | (ice-9 rdelim)         | ok     |                 |
     | (ice-9 receive)        | ok     |                 |
     | (ice-9 regex)          | ok     |                 |
     | (ice-9 rw)             | check  |                 |
     | (ice-9 streams)        | ok     |                 |
     | (ice-9 string-fun)     | ZONKED | X               |
  - [X] cleanup (srfi srfi-...)
     | (srfi srfi- 1) | ok     |
     | (srfi srfi-11) | ok     |
     | (srfi srfi-13) | ok     |
     | (srfi srfi-14) | ok     |
     | (srfi srfi-56) | ZONKED |

*** guile interpreter (Scheme)
     | return-it | ZONKED   |
     | eval2     | ??? eval |
     |           |          |

*** libguile API
     | 1.4        | 1.9         | xen.h       | gi.h     |
     | GH_DEFPROC | SCM_DEFINE  |             | PRIMPROC |
     | gh_c[ad]+r | scm_c[ad]+r | XEN_C[AD]+R |          |
     |            |             |             |          |

*** frisk -x -d
75 files, 124 modules (71 internal, 53 external), 389 edges

x (sdl sdl)
                         regular        (ttn-do audio-cd-control)
                         regular        (ttn-do mq)
x (ice-9 format)
                         regular        (ttn-do check-topodefs)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do whirlpool-sum)
x (scripts read-scheme-source)
                         regular        (ttn-do check-topodefs)
x (scripts frisk)
                         regular        (ttn-do circle-frisk)
                         regular        (ttn-do grumi)
x (srfi srfi-13)
                         regular        (ttn-do concordance)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do grumi)
                         regular        (ttn-do gutenberg2mbox)
                         regular        (ttn-do make-gnu-project)
                         regular        (ttn-do mmci)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do read-xpilot-robots)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do xout)
                         regular        (ttn-do xprop)
                         autoload       (ttn-do zzz banalities)
                         regular        (ttn-do zzz filesystem)
                         regular        (ttn-do zzz subprocess)
                         regular        (ttn-do zzz various-db)
x (srfi srfi-14)
                         regular        (ttn-do concordance)
                         regular        (ttn-do gutenberg2mbox)
                         regular        (ttn-do mmci)
                         regular        (ttn-do xout)
                         regular        (ttn-do zzz filesystem)
                         regular        (ttn-do zzz subprocess)
x (ice-9 rdelim)
                         regular        (ttn-do concordance)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do fortune)
                         regular        (ttn-do gutenberg2mbox)
                         regular        (ttn-do make-boot-set)
                         regular        (ttn-do mmci)
                         regular        (ttn-do random-info-node)
                         regular        (ttn-do read-xpilot-robots)
                         regular        (ttn-do wcat)
                         regular        (ttn-do zz xml mixp)
                         regular        (ttn-do zzz lookingfor)
                         regular        (ttn-do zzz subprocess)
                         regular        (ttn-do zzz various-db)
x (ice-9 regex)
                         regular        (ttn-do concordance)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do mmci)
                         regular        (ttn-do publish)
                         regular        (ttn-do random-info-node)
                         regular        (ttn-do read-xpilot-robots)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do wcat)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do xml2sexp)
                         regular        (ttn-do zzz filesystem)
                         regular        (ttn-do zzz lookingfor)
                         regular        (ttn-do zzz various-db)
x (ttn-do zz sys linux-gnu)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do gxferm)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do xout)
                         regular        (guile-user)
                         regular        (ttn-do zzz subprocess)
                         regular        (ttn-do zzz x-protocol)
x (ice-9 editing-buffer)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do function-tree)
                         regular        (ttn-do grumi)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do magic)
                         regular        (ttn-do make-gnu-project)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do report-zonkables)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do sgfc)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do whirlpool-sum)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do xearth-mapdata-to-text-db-table)
                         regular        (guile-user)
                         regular        (ttn-do zzz x-umbrages)
x (ice-9 popen)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do grumi)
                         regular        (ttn-do make-gnu-project)
                         regular        (ttn-do pg2edb)
                         autoload       (ttn-do pp)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do vcg-convert)
                         regular        (ttn-do xml2sexp)
                         regular        (ttn-do zzz subprocess)
x (srfi srfi-1)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do grumi)
                         regular        (ttn-do mq)
                         regular        (ttn-do publish)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do valid-ucs-p)
                         regular        (ttn-do xout)
                         regular        (ttn-do zzz x-kbgrunge)
                         regular        (ttn-do zzz x-protocol)
                         regular        (ttn-do zzz x-umbrages)
x (ice-9 ftw)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do mmci)
                         regular        (ttn-do rm-rf)
x (ice-9 common-list)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do mmci)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do zzz filesystem)
x (ice-9 rw)
                         regular        (ttn-do demo)
                         regular        (ttn-do fortune)
x [computed in demo.scm]
                         computed       (ttn-do demo)
x (ice-9 optargs-kw)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do format-atom-feed)
                         regular        (ttn-do mq)
                         regular        (ttn-do zzz emacsdream)
                         regular        (ttn-do zzz publishing)
                         regular        (ttn-do zzz subprocess)
                         regular        (ttn-do zzz x-kbgrunge)
x (ice-9 documentation)
                         regular        (ttn-do grumi)
                         regular        (ttn-do scm2bin)
                         autoload       (ttn-do zzz banalities)
x (srfi srfi-11)
                         regular        (ttn-do grumi)
                         regular        (ttn-do mq)
                         regular        (ttn-do valid-ucs-p)
                         regular        (ttn-do xout)
                         regular        (ttn-do zzz x-protocol)
x (www server-utils big-dishing-loop)
                         regular        (ttn-do grumi)
                         regular        (ttn-do sizzweb)
x (www utcsec)
                         regular        (ttn-do grumi)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do write-html-directory-index)
x (ice-9 and-let-star)
                         regular        (ttn-do grumi)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do mmci)
                         regular        (ttn-do zzz x-umbrages)
x (ice-9 mapping)
                         regular        (ttn-do magic)
                         regular        (ttn-do zzz various-db)
x (database postgres)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do show-pubstats)
x (database postgres-col-defs)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do pg2edb)
x (database postgres-meta)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do pg2edb)
x (sdl ttf)
                         regular        (ttn-do mq)
x (sdl misc-utils)
                         regular        (ttn-do mq)
x (sdl gfx)
                         regular        (ttn-do mq)
x (sdl simple)
                         regular        (ttn-do mq)
x (database postgres-types)
                         regular        (ttn-do pg2edb)
x (database postgres-table)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do zzz various-db)
x (ice-9 gap-buffer)
                         regular        (ttn-do phone)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do zzz subprocess)
x (ice-9 pretty-print)
                         regular        (ttn-do pp)
                         autoload       (ttn-do vcg-convert)
                         regular        (ttn-do xearth-mapdata-to-text-db-table)
                         regular        (ttn-do xml2sexp)
                         regular        (ttn-do xprop)
                         regular        (guile-user)
                         regular        (guile-user)
x (ice-9 receive)
                         regular        (ttn-do publish)
x (ice-9 q)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do zzz x-protocol)
x (ice-9 expect)
                         regular        (ttn-do run-signed-batch-job)
x (scripts guile-config)
                         regular        (ttn-do scm2bin)
x (database postgres-qcons)
                         regular        (ttn-do show-pubstats)
x (www server-utils filesystem)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do write-html-directory-index)
x (www server-utils log)
                         regular        (ttn-do sizzweb)
x (www data http-status)
                         regular        (ttn-do sizzweb)
x (www data mime-types)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do write-html-directory-index)
x (scripts summarize-guile-TODO)
                         regular        (ttn-do todo)
x (www http)
                         regular        (ttn-do wcat)
x (www main)
                         regular        (ttn-do wcat)
x (ttn-do zz xml expat)
                         regular        (ttn-do zz xml mixp)
                         regular        (guile-user)
x (guile-user)
x (ice-9 getopt-long)
                         autoload       (ttn-do zzz banalities)
x (ice-9 streams)
                         regular        (ttn-do zzz emacsdream)
x ./personally.scm
                         computed       (guile-user)
                         computed       (guile-user)
x [computed in zzz/x-kbgrunge.scm]
                         computed       (ttn-do zzz x-kbgrunge)
x [computed in zzz/x-protocol.scm]
                         computed       (ttn-do zzz x-protocol)


*** frisk -i -d
75 files, 124 modules (71 internal, 53 external), 389 edges

i (ttn-do audio-cd-control)
i (ttn-do zzz banalities)
                         regular        (ttn-do audio-cd-control)
                         regular        (ttn-do check-topodefs)
                         regular        (ttn-do circle-frisk)
                         regular        (ttn-do concordance)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do demo)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do format-atom-feed)
                         regular        (ttn-do format-css)
                         regular        (ttn-do fortune)
                         regular        (ttn-do function-tree)
                         regular        (ttn-do generate-C-symbol-set)
                         regular        (ttn-do grumi)
                         regular        (ttn-do gutenberg2mbox)
                         regular        (ttn-do gxferm)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do magic)
                         regular        (ttn-do make-boot-set)
                         regular        (ttn-do make-gnu-project)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do mmci)
                         regular        (ttn-do mq)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do phone)
                         regular        (ttn-do pp)
                         regular        (ttn-do ppmglobe)
                         regular        (ttn-do primes)
                         regular        (ttn-do publish)
                         regular        (ttn-do random-info-node)
                         regular        (ttn-do randomish-wep-key)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do read-xpilot-robots)
                         regular        (ttn-do refresh-hardlinks)
                         regular        (ttn-do report-zonkables)
                         regular        (ttn-do rm-rf)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do sgfc)
                         regular        (ttn-do show-pubstats)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do todo)
                         regular        (ttn-do valid-ucs-p)
                         regular        (ttn-do vcg-convert)
                         regular        (ttn-do wcat)
                         regular        (ttn-do whirlpool-sum)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do x-list-extensions)
                         regular        (ttn-do xearth-mapdata-to-text-db-table)
                         regular        (ttn-do xlsatoms)
                         regular        (ttn-do xlsfonts)
                         regular        (ttn-do xml2sexp)
                         regular        (ttn-do xout)
                         regular        (ttn-do xprop)
i (ttn-do zzz personally)
                         regular        (ttn-do audio-cd-control)
                         regular        (ttn-do check-topodefs)
                         regular        (ttn-do circle-frisk)
                         regular        (ttn-do concordance)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do debian-package-downstream)
                         regular        (ttn-do demo)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do format-atom-feed)
                         regular        (ttn-do format-css)
                         regular        (ttn-do fortune)
                         regular        (ttn-do function-tree)
                         regular        (ttn-do generate-C-symbol-set)
                         regular        (ttn-do grumi)
                         regular        (ttn-do gutenberg2mbox)
                         regular        (ttn-do gxferm)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do magic)
                         regular        (ttn-do make-boot-set)
                         regular        (ttn-do make-gnu-project)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do mmci)
                         regular        (ttn-do mq)
                         regular        (ttn-do pg2edb)
                         regular        (ttn-do phone)
                         regular        (ttn-do pp)
                         regular        (ttn-do ppmglobe)
                         regular        (ttn-do primes)
                         regular        (ttn-do publish)
                         regular        (ttn-do random-info-node)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do read-xpilot-robots)
                         regular        (ttn-do refresh-hardlinks)
                         regular        (ttn-do report-zonkables)
                         regular        (ttn-do rm-rf)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do scm2bin)
                         regular        (ttn-do sgfc)
                         regular        (ttn-do show-pubstats)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do todo)
                         regular        (ttn-do valid-ucs-p)
                         regular        (ttn-do vcg-convert)
                         regular        (ttn-do wcat)
                         regular        (ttn-do whirlpool-sum)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do x-list-extensions)
                         regular        (ttn-do xlsatoms)
                         regular        (ttn-do xml2sexp)
                         regular        (ttn-do xout)
                         regular        (ttn-do xprop)
                         regular        (ttn-do zz xml mixp)
                         regular        (guile-user)
                         regular        (guile-user)
                         regular        (ttn-do zzz emacsdream)
                         regular        (ttn-do zzz lookingfor)
                         regular        (ttn-do zzz publishing)
                         regular        (ttn-do zzz senz-altro)
                         regular        (ttn-do zzz subprocess)
                         regular        (guile-user)
                         regular        (ttn-do zzz x-kbgrunge)
                         regular        (guile-user)
                         regular        (ttn-do zzz x-protocol)
                         regular        (ttn-do zzz x-umbrages)
i (ttn-do check-topodefs)
i (ttn-do circle-frisk)
i (ttn-do zzz x-umbrages)
                         regular        (ttn-do circle-frisk)
                         regular        (ttn-do function-tree)
                         regular        (ttn-do x-list-extensions)
                         regular        (ttn-do xlsatoms)
                         regular        (ttn-do xlsfonts)
                         regular        (ttn-do xout)
                         regular        (ttn-do xprop)
i (ttn-do concordance)
i (ttn-do cron-walk)
i (ttn-do zzz publishing)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do format-atom-feed)
                         regular        (ttn-do format-css)
                         regular        (ttn-do generate-C-symbol-set)
                         regular        (ttn-do grumi)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do write-html-directory-index)
                         regular        (ttn-do zzz xhtml-tree)
i (ttn-do zzz filesystem)
                         regular        (ttn-do cron-walk)
                         regular        (ttn-do demo)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do format-css)
                         regular        (ttn-do grumi)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do phone)
                         regular        (ttn-do publish)
                         regular        (ttn-do rcs-fast-export)
                         regular        (ttn-do refresh-hardlinks)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do todo)
                         regular        (ttn-do write-html-directory-index)
i (ttn-do debian-package-downstream)
i (ttn-do demo)
i (ttn-do display-state-summary)
i (ttn-do zzz lookingfor)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do phone)
                         regular        (ttn-do publish)
i (ttn-do zzz subprocess)
                         regular        (ttn-do display-state-summary)
                         regular        (ttn-do gxferm)
                         regular        (ttn-do htmlize-scheme)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do make-boot-set)
                         regular        (ttn-do ppmglobe)
                         regular        (ttn-do publish)
                         regular        (ttn-do random-info-node)
                         regular        (ttn-do run-signed-batch-job)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do snap-iso)
                         regular        (ttn-do xout)
i (ttn-do display-wurld)
i (ttn-do imgtxtlink)
                         regular        (ttn-do display-wurld)
i (ttn-do zzz xhtml-tree)
                         regular        (ttn-do display-wurld)
                         regular        (ttn-do format-atom-feed)
                         regular        (ttn-do grumi)
                         regular        (ttn-do imgtxtlink)
                         regular        (ttn-do sizzweb)
                         regular        (ttn-do write-html-directory-index)
i (ttn-do format-atom-feed)
i (ttn-do format-css)
i (ttn-do fortune)
i (ttn-do function-tree)
i (ttn-do zzz x-protocol)
                         regular        (ttn-do function-tree)
                         regular        (ttn-do x-list-extensions)
                         regular        (ttn-do xlsfonts)
                         regular        (ttn-do xout)
                         regular        (ttn-do xprop)
                         regular        (ttn-do zzz x-kbgrunge)
                         regular        (ttn-do zzz x-umbrages)
i (ttn-do generate-C-symbol-set)
i (ttn-do grumi)
i (ttn-do zzz senz-altro)
                         regular        (ttn-do grumi)
                         regular        (ttn-do sizzweb)
i (ttn-do gutenberg2mbox)
i (ttn-do gxferm)
i (ttn-do htmlize-scheme)
i (ttn-do magic)
i (ttn-do scm2bin)
                         regular        (ttn-do magic)
i (ttn-do make-boot-set)
i (ttn-do make-gnu-project)
i (ttn-do make-pgtable)
i (ttn-do zzz various-db)
                         regular        (ttn-do make-pgtable)
                         regular        (ttn-do publish)
                         regular        (ttn-do report-zonkables)
                         regular        (ttn-do show-pubstats)
i (ttn-do mmci)
i (ttn-do mq)
i (ttn-do pg2edb)
i (ttn-do phone)
i (ttn-do pp)
i (ttn-do ppmglobe)
i (ttn-do primes)
i (ttn-do publish)
i (ttn-do random-info-node)
i (ttn-do randomish-wep-key)
i (ttn-do rcs-fast-export)
i (ttn-do read-xpilot-robots)
i (ttn-do refresh-hardlinks)
i (ttn-do report-zonkables)
i (ttn-do rm-rf)
i (ttn-do run-signed-batch-job)
i (ttn-do sgfc)
i (ttn-do show-pubstats)
i (ttn-do sizzweb)
i (ttn-do snap-iso)
i (ttn-do todo)
i (ttn-do valid-ucs-p)
i (ttn-do zzz emacsdream)
                         regular        (ttn-do valid-ucs-p)
                         regular        (ttn-do xout)
                         regular        (ttn-do zz xml mixp)
i (ttn-do vcg-convert)
i (ttn-do wcat)
i (ttn-do whirlpool-sum)
i (ttn-do write-html-directory-index)
i (ttn-do x-list-extensions)
i (ttn-do xearth-mapdata-to-text-db-table)
i (ttn-do xlsatoms)
i (ttn-do xlsfonts)
i (ttn-do xml2sexp)
i (ttn-do zz xml mixp)
                         regular        (ttn-do xml2sexp)
                         regular        (guile-user)
i (ttn-do xout)
i (ttn-do zzz x-kbgrunge)
                         regular        (ttn-do xout)
i (ttn-do xprop)