guile-scsh autoloading

[Thien-Thi Nguyen]

i'd like use Eric Marsden's pg.scm (socket interface to postgres) using
guile, specifically w/ help from guile-scsh.  i started going through
pg.scm to figure out which (scsh FOO) module to include in a wrapper,
which led me to look into generating an autoload file for guile-scsh
(rather easy, see below).

now i'm wondering if maybe this would be a good file to generate and
install along w/ the other .scm files.  if so, adding `AC_PATH_PROG
(GUILE_TOOLS, guile-tools)' to configure.in is no big deal...  but what
should go in Makefile.am?

generally, a similar question can be asked of ice-9, srfi and scripts
directories (in guile-core).  the autoload mechanism is sort of a large
hammer but is friendly to newbies (to a particular codebase).  i picture
an autoload file per directory, i.e., for any module (x y z), there will
be an autoload file x/y/autoload.scm...

thi


____________________________________________________
cd /home/ttn/build/.gnu/subversions/guile-scsh/
guile-tools generate-autoload *.scm
;;; do not edit --- generated 2001-07-22 03:03:21
(define-module (guile-user)
  :autoload (scsh ascii) (ascii->char char->ascii)
  :autoload (scsh awk) (awk)
  :autoload (scsh bitwise) (arithmetic-shift bitwise-not bitwise-and 
bitwise-ior bitwise-xor)
  :autoload (scsh char-set) (char:newline char:tab char:page char:return 
char:space char:vtab char-ascii? char-set? char-set-copy char-set= char-set<= 
char-set-size char-set-adjoin char-set-delete char-set-adjoin! char-set-delete! 
char-set-for-each char-set-fold reduce-char-set char-set chars->char-set 
string->char-set ascii-range->char-set predicate->char-set ->char-set 
char-set-members char-set-contains? char-set-every? char-set-any 
char-set-invert char-set-union char-set-intersection char-set-difference 
char-set-invert! char-set-union! char-set-intersection! char-set-difference! 
char-set:lower-case char-set:upper-case char-set:alphabetic char-set:numeric 
char-set:alphanumeric char-set:graphic char-set:printing char-set:whitespace 
char-set:blank char-set:control char-set:punctuation char-set:hex-digit 
char-set:ascii char-set:empty char-set:full char-lower-case? char-upper-case? 
char-alphabetic? char-numeric? char-alphanumeric? char-graphic? char-printing? 
char-whitespace? char-blank? char-control? char-punctuation? char-hex-digit? 
char-ascii? char-set:s)
  :autoload (scsh define-foreign-syntax) (foreign-source define-foreign)
  :autoload (scsh defrec) (define-record-discloser define-record)
  :autoload (scsh fdports) (open/create+trunc open/write+append+create 
shell-open)
  :autoload (scsh features) (immutable? make-immutable!)
  :autoload (scsh fileinfo) (file-not-readable? file-not-writable? 
file-not-executable? file-readable? file-writable? file-executable? 
file-not-exists? file-exists? file-type file-group file-inode file-last-access 
file-last-mod file-last-status-change file-mode file-nlinks file-owner 
file-size file-directory? file-fifo? file-regular? file-socket? file-special? 
file-symlink?)
  :autoload (scsh filesys) (delete-filesys-object create-directory create-fifo 
create-hard-link create-symlink rename-file)
  :autoload (scsh fluid) (make-fluid set-fluid! fluid let-fluid)
  :autoload (scsh fname) (file-name-as-directory file-name-directory? 
file-name-non-directory? directory-as-file-name 
ensure-file-name-is-nondirectory file-name-absolute? file-name-directory 
file-name-nondirectory split-file-name path-list->file-name file-name-extension 
file-name-sans-extension replace-extension parse-file-name expand-file-name 
simplify-file-name resolve-tilde-file-name resolve-file-name absolute-file-name 
home-dir home-file)
  :autoload (scsh fr) (field-splitter infix-splitter suffix-splitter 
sloppy-suffix-splitter record-reader field-reader)
  :autoload (scsh glob) (glob glob-quote maybe-directory-files)
  :autoload (scsh jar-defrecord) (define-record-type define-accessor 
define-accessors)
  :autoload (scsh let-opt) (let-optionals let-optionals* #{:optional}#)
  :autoload (scsh loophole) (loophole)
  :autoload (scsh module-system) (define-structure structure-ref)
  :autoload (scsh netconst) (options/boolean options/value options/linger 
shutdown/receives shutdown/sends shutdown/sends+receives)
  :autoload (scsh network) (socket-connect bind-listen-accept-loop socket? 
socket:family socket:inport socket:outport socket-address? 
socket-address:address socket-address:family internet-address->socket-address 
socket-address->internet-address create-socket close-socket bind-socket 
connect-socket listen-socket accept-connection socket-remote-address 
socket-local-address shutdown-socket create-socket-pair receive-message 
receive-message! receive-message/partial receive-message!/partial send-message 
send-message/partial socket-option set-socket-option host-info host-info? 
host-info:name host-info:aliases host-info:addresses network-info network-info? 
network-info:name network-info:aliases network-info:net service-info 
service-info? service-info:name service-info:aliases service-info:port 
service-info:protocol protocol-info protocol-info? protocol-info:name 
protocol-info:aliases protocol-info:number)
  :autoload (scsh newports) (fdport? set-port-buffering bufpol/block 
bufpol/line bufpol/none call/fdes close-after with-current-input-port* 
with-current-output-port* with-current-error-port* with-current-input-port 
with-current-output-port with-current-error-port set-current-input-port! 
set-current-output-port! set-current-error-port!)
  :autoload (scsh population) (make-population add-to-population! 
population-reduce population->list walk-population)
  :autoload (scsh primitives) (unspecific)
  :autoload (scsh procobj) (proc:pid proc? pid->proc autoreap-policy 
reap-zombies new-child-proc wait/poll wait/stopped-children wait wait-any 
wait-process-group reaped-procs)
  :autoload (scsh rdelim) (read-line read-paragraph read-delimited 
read-delimited! skip-char-set)
  :autoload (scsh reading) (reading-error)
  :autoload (scsh rw) (bogus-substring-spec? read-string/partial read-string! 
read-string write-string)
  :autoload (scsh scsh-condition) (with-errno-handler errno-error 
with-errno-handler*)
  :autoload (scsh scsh-version) (scsh-major-version scsh-minor-version 
scsh-version-string)
  :autoload (scsh scsh) (with-cwd with-umask with-env with-total-env 
with-stdio-ports call-terminally fork/pipe %fork/pipe tail-pipe tail-pipe+ 
alist-update alist-compress add-before add-after with-env* with-total-env* 
with-cwd* with-umask* create-temp-file temp-file-channel run/collecting* 
run/port+proc* run/port* run/file* run/string* run/strings* run/sexp* 
run/sexps* port->string port->string-list port->sexp-list port->list port-fold 
char-filter string-filter y-or-n? stdio->stdports with-stdio-ports* 
stdports->stdio command-line-arguments arg* arg argv home-directory 
exec-path-list suspend exec/env exec-path/env exec-path exec fork %fork 
stringify)
  :autoload (scsh sighandlers) (signal->interrupt with-enabled-interrupts 
enabled-interrupts set-enabled-interrupts set-interrupt-handler 
interrupt-handler)
  :autoload (scsh signals) (syntax-error)
  :autoload (scsh stringcoll) (make-string-collector collect-string! 
clear-string-collector! string-collector->string)
  :autoload (scsh syntax-helpers) (transcribe-process-form 
transcribe-extended-process-form)
  :autoload (scsh syntax) (define-simple-syntax exec-epf & run || && 
run-collecting run/port+proc run/port run/strings run/file run/string run/sexp 
run/sexps)
  :autoload (scsh syscalls) (%exec %%fork cwd user-gid user-effective-gid 
set-gid user-supplementary-gids user-uid user-effective-uid set-uid 
user-login-name pid parent-pid set-process-group become-session-leader 
set-umask process-times cpu-ticks/sec set-file-mode set-file-owner 
set-file-group read-symlink delete-directory set-file-times file-info 
file-info:type file-info:gid file-info:inode file-info:atime file-info:mtime 
file-info:ctime file-info:mode file-info:nlinks file-info:uid file-info:size 
sync-file sync-file-system seek/set seek/delta seek/end tell pipe 
signal-process signal-process-group pause-until-interrupt user-info 
user-info:name user-info:uid user-info:gid user-info:home-dir user-info:shell 
name->user-info uid->user-info ->uid ->username %homedir group-info 
group-info:name group-info:gid group-info:members ->gid ->groupname 
directory-files env->alist alist->env fdes-flags set-fdes-flags fdes-status 
set-fdes-status open/read open/write open/read+write open/non-blocking 
open/append open/exclusive open/create open/truncate open/no-control-tty 
fdflags/close-on-exec sleep sleep-until system-name)
  :autoload (scsh time) (make-date date? date:seconds date:minute date:hour 
date:month-day date:month date:year date:tz-name date:tz-secs date:summer? 
date:week-day date:year-day set-date:seconds set-date:minute set-date:hour 
set-date:month-day set-date:month set-date:year set-date:tz-name 
set-date:tz-secs set-date:summer? set-date:week-day set-date:year-day 
modify-date:seconds modify-date:minute modify-date:hour modify-date:month-day 
modify-date:month modify-date:year modify-date:tz-name modify-date:tz-secs 
modify-date:summer? modify-date:week-day modify-date:year-day time+ticks 
ticks/sec time date date->string format-date)
  :autoload (scsh utilities) (del delete filter first first? nth fold 
fold-right any every mapv mapv! vector-every? copy-vector initialize-vector 
vector-append vfold vfold-right check-arg conjoin disjoin negate compose 
call/cc deprecated-proc deposit-bit-field real->exact-integer)
  :autoload (scsh weak) (make-weak-pointer weak-pointer-ref weak-pointer?))
  ;;; 496 symbols in 39 modules

Compilation finished at Sun Jul 22 03:03:22