guile/guile-scsh USAGE init.scm make-module-list

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   00/12/04 15:27:19

Modified files:
        guile-scsh     : USAGE init.scm make-module-list 

Log message:
        

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/USAGE.diff?r1=1.5&r2=1.6
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/init.scm.diff?r1=1.36&r2=1.37
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-scsh/make-module-list.diff?r1=1.2&r2=1.3

Patches:
Index: guile/guile-scsh/USAGE
diff -u guile/guile-scsh/USAGE:1.5 guile/guile-scsh/USAGE:1.6
--- guile/guile-scsh/USAGE:1.5  Mon Dec  4 15:18:03 2000
+++ guile/guile-scsh/USAGE      Mon Dec  4 15:27:19 2000
@@ -7,8 +7,7 @@
 definitions.
 
 It's probably more useful to import parts of scsh individually using
-the Guile module system, but this is not yet possible for all parts of
-the library.
+the Guile module system.
 
 The remainder of this file lists the modules and the exported symbols
 for each.  The modules don't necessarily correspond with scsh
@@ -151,11 +150,11 @@
 (signal->interrupt with-enabled-interrupts enabled-interrupts 
set-enabled-interrupts set-interrupt-handler interrupt-handler)
 
 (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)
+(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)
 
 (scsh syscalls)
 ;; replaces pipe, sleep
-(%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 define-errno-syscall)
+(%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)
 
 (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)
@@ -174,3 +173,37 @@
 ;; map map-in-order for-each member assoc iota list-index
 ;; delete delete!
 (xcons list-tabulate list-copy circular-list iota proper-list? circular-list? 
dotted-list? not-pair? null-list? list= first second third fourth fifth sixth 
seventh eighth ninth tenth car+cdr take drop take-right drop-right take! 
drop-right! take-while drop-while take-while! split-at split-at! span break 
span! break! last length+ append-reverse append-reverse! concatenate 
concatenate! zip unzip1 unzip2 unzip3 unzip4 unzip5 count unfold unfold-right 
fold unfold pair-fold reduce fold-right unfold-right pair-fold-right 
reduce-right append-map append-map! map! pair-for-each filter-map map-in-order 
filter partition remove filter! partition! remove! find find-tail any every 
list-index delete delete! delete-duplicates delete-duplicates! alist-cons 
alist-copy alist-delete alist-delete! lset<= lset= lset-adjoin lset-union 
lset-union! lset-intersection lset-intersection! lset-difference 
lset-difference! lset-xor lset-xor! lset-diff+intersection 
lset-diff+intersection! map for-each member assoc)
+
+(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)
+
+(scsh glob)
+(glob glob-quote maybe-directory-files)
+
+(scsh filesys)
+;; replaces rename-file.
+(delete-filesys-object create-directory create-fifo create-hard-link 
create-symlink rename-file)
+
+(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)
+
+(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!)
+
+(scsh fr)
+(field-splitter infix-splitter suffix-splitter sloppy-suffix-splitter 
record-reader field-reader)
+
+(scsh awk)
+;; the awk macro generates code that requires:
+;; (scsh rx re-syntax), (scsh rx re) (scsh rx re-high)
+(awk)
+
+(scsh netconst)
+;; also exports symbols such as address-family/unspecified.
+(options/boolean options/value options/linger shutdown/receives shutdown/sends 
shutdown/sends+receives)
+
+(scsh network)
+(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)
+
+(scsh scsh)
+(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 with-cwd with-umask with-env 
with-total-env run/port run/file run/string run/strings run/sexp run/sexps 
with-stdio-ports)
Index: guile/guile-scsh/init.scm
diff -u guile/guile-scsh/init.scm:1.36 guile/guile-scsh/init.scm:1.37
--- guile/guile-scsh/init.scm:1.36      Mon Dec  4 15:18:03 2000
+++ guile/guile-scsh/init.scm   Mon Dec  4 15:27:19 2000
@@ -84,7 +84,7 @@
 
             (scsh fr)
 
-            ;; the awk macro generates code that reqiures:
+            ;; the awk macro generates code that requires:
             ;; (scsh rx re-syntax)
             ;; (scsh rx re)
             ;; (scsh rx re-high)
Index: guile/guile-scsh/make-module-list
diff -u guile/guile-scsh/make-module-list:1.2 
guile/guile-scsh/make-module-list:1.3
--- guile/guile-scsh/make-module-list:1.2       Mon Nov 27 13:27:04 2000
+++ guile/guile-scsh/make-module-list   Mon Dec  4 15:27:19 2000
@@ -8,7 +8,6 @@
         (string-append (symbol->string sym) ".scm"))
 ;; list of files to be scanned.
        '(alt-syntax
-        receive
         module-system
         let-opt
         loophole
@@ -53,7 +52,17 @@
         fluid
         stringcoll
         scsh-condition
-        lib/list-lib)))
+        lib/list-lib
+        syntax
+        glob
+        filesys
+        time
+        newports
+        fr
+        awk
+        netconst
+        network
+        scsh)))
 
 ;; if expr is a define-module form, return the name of the module
 ;; e.g., '(scsh alt-syntax).