[[project @ 2000-12-04 23:18:03 by ghouston]
ghouston**20001204231803
 Ignore-this: 6209739406627068b9224819b3fc3fba
 	* scsh.scm: define module (scsh scsh).
 	(command-line-arguments): define directly here instead of in init.scm.
 	(init-scsh-vars): call here instead of in init.scm.
 	(exit): removed, use Guile definition.
 
 	* syscalls.scm (define-errno-syscall): don't export
 	* network.scm: define module (scsh network).
 	(define-errno-syscall): copied from syscalls.scm.
 	* netconst.scm: define module (scsh netconst).
 	(maybe-define, maybe-define-so): export the generated definitions.
 	* fr.scm: define module (scsh fr).
 	* awk.scm: define module (scsh awk).
 	* newports.scm: define module (scsh newports).
 	* time.scm: define module (scsh time).
 	* filesys.scm: define module (scsh filesys).
 	rename-file: use guile primitive rename-file instead of
 	%rename-file.
 	* filemtch.scm: file removed.  it's deprecated/obsolete/broken.
 	* glob.scm: define module (scsh glob).
 	* fileinfo.scm: define module (scsh fileinfo).
 	* syntax.scm: define module (scsh syntax).
 	* init.scm: load new modules.
 	* Makefile.am (pkgdata_DATA): filemtch.scm removed.
] rmfile ./filemtch.scm
hunk ./ChangeLog 1
+2000-12-04  Gary Houston  <ghouston@arglist.com>
+
+	* scsh.scm: define module (scsh scsh).
+	(command-line-arguments): define directly here instead of in init.scm.
+	(init-scsh-vars): call here instead of in init.scm.
+	(exit): removed, use Guile definition.
+
+	* syscalls.scm (define-errno-syscall): don't export
+	* network.scm: define module (scsh network).
+	(define-errno-syscall): copied from syscalls.scm.
+	* netconst.scm: define module (scsh netconst).
+	(maybe-define, maybe-define-so): export the generated definitions.
+	* fr.scm: define module (scsh fr).
+	* awk.scm: define module (scsh awk).
+	* newports.scm: define module (scsh newports).
+	* time.scm: define module (scsh time).
+	* filesys.scm: define module (scsh filesys).
+	rename-file: use guile primitive rename-file instead of
+	%rename-file.
+	* filemtch.scm: file removed.  it's deprecated/obsolete/broken.
+	* glob.scm: define module (scsh glob).
+	* fileinfo.scm: define module (scsh fileinfo).
+	* syntax.scm: define module (scsh syntax).
+	* init.scm: load new modules.
+	* Makefile.am (pkgdata_DATA): filemtch.scm removed.
+
hunk ./Makefile.am 10
-	fileinfo.scm filemtch.scm filesys.scm \
+	fileinfo.scm filesys.scm \
hunk ./USAGE 122
+;; rx macro generates code that requires
+;; (scsh rx re)
hunk ./awk.scm 4
+(define-module (scsh awk)
+  :use-module (ice-9 receive)
+  :use-module (scsh utilities)
+  :use-module (scsh alt-syntax)
+  :use-module (scsh rx parse)
+  :use-module (scsh rx re-low)
+  :use-module (scsh rx re-high)
+  :use-module (scsh rx re-syntax)
+)
+(export-syntax awk)
+
hunk ./fileinfo.scm 7
+(define-module (scsh fileinfo)
+  :use-module (scsh syscalls)
+  :use-module (scsh scsh-condition)
+  :use-module (scsh bitwise)
+  :use-module (scsh fname)
+  :use-module (scsh let-opt)
+  :use-module (scsh syntax)
+  :use-module (scsh alt-syntax)
+  :use-module (scsh utilities)
+  :use-module (scsh errno)
+)
+(export 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?)
+
hunk ./filesys.scm 5
+(define-module (scsh filesys)
+  :use-module (scsh scsh-condition)
+  :use-module (scsh syscalls)
+  :use-module (scsh let-opt)
+  :use-module (scsh fileinfo)
+  :use-module (scsh errno)
+  :use-module (scsh scsh)
+)
+(export delete-filesys-object create-directory create-fifo create-hard-link
+	create-symlink rename-file)
+
hunk ./filesys.scm 116
+(if (not (defined? 'guile-rename-file))
+    (define guile-rename-file rename-file))
+
hunk ./filesys.scm 126
-	(%rename-file old-fname new-fname))))
+	(guile-rename-file old-fname new-fname))))
hunk ./fr.scm 10
+(define-module (scsh fr)
+  :use-module (ice-9 receive)
+  :use-module (scsh let-opt)
+  :use-module (scsh char-set)
+  :use-module (scsh rdelim)
+  :use-module (scsh rx re)
+  :use-module (scsh rx re-low)
+  :use-module (scsh rx re-high)
+  :use-module (scsh rx re-syntax)
+)
+(export field-splitter infix-splitter suffix-splitter sloppy-suffix-splitter
+	record-reader field-reader)
+
hunk ./glob.scm 11
+(define-module (scsh glob)
+  :use-module (ice-9 receive)
+  :use-module (scsh fname)
+  :use-module (scsh fileinfo)
+  :use-module (scsh rx re-high)
+  :use-module (scsh rx re)
+  :use-module (scsh utilities)
+  :use-module (scsh char-set)
+  :use-module (scsh scsh-condition)
+  :use-module (scsh syscalls)
+)
+(export glob glob-quote maybe-directory-files)
+
hunk ./init.scm 40
+
+	     ;; rx macro generates code that requires
+	     ;; (scsh rx re)
hunk ./init.scm 44
+
hunk ./init.scm 71
-)
hunk ./init.scm 72
-(load-from-path "scsh/syntax.scm")
-(load-from-path "scsh/fileinfo.scm")
-(load-from-path "scsh/glob.scm")
-(load-from-path "scsh/filemtch.scm")
-(load-from-path "scsh/filesys.scm")
-(load-from-path "scsh/time.scm")
-(load-from-path "scsh/newports.scm")
-(load-from-path "scsh/awk.scm")
-(load-from-path "scsh/fr.scm")
-(load-from-path "scsh/netconst.scm")
-(load-from-path "scsh/network.scm")
-(load-from-path "scsh/scsh.scm")
+	     ;; define-simple-syntax generates code that requires
+	     ;; (scsh alt-syntax).
+	     (scsh syntax)
+
+	     (scsh fileinfo)
+	     (scsh glob)
+
+	     ;; replaces rename-file.
+	     (scsh filesys)
+	     
+	     (scsh time)
+	     (scsh newports)
+
+	     (scsh fr)
+
+	     ;; the awk macro generates code that reqiures:
+	     ;; (scsh rx re-syntax)
+	     ;; (scsh rx re)
+	     ;; (scsh rx re-high)
+	     (scsh awk)
hunk ./init.scm 93
-(init-scsh-vars #f)
-(set! command-line-arguments (cdr (command-line)))
+	     ;; also exports symbols such as address-family/unspecified.
+	     (scsh netconst)
+
+	     (scsh network)
+	     (scsh scsh)
+)
hunk ./netconst.scm 1
+(define-module (scsh netconst))
+(export options/boolean options/value options/linger
+	shutdown/receives shutdown/sends shutdown/sends+receives)
+;; more generated exports below.
+
hunk ./netconst.scm 7
-  `(if (defined? ',value)
-       (define ,name ,value)))
+  `(cond ((defined? ',value)
+	  (define ,name ,value)
+	  (export ,name))))
hunk ./netconst.scm 14
-    `(if (defined? ',value)
-	 (begin
-	   (define ,name ,value)
-	   (set! ,type-var (cons ,value ,type-var))))))
+    `(cond ((defined? ',value)
+	    (define ,name ,value)
+	    (export ,name)
+	    (set! ,type-var (cons ,value ,type-var))))))
hunk ./netconst.scm 59
-
-(undefine maybe-define)
-(undefine maybe-define-so)
hunk ./network.scm 6
+(define-module (scsh network)
+  :use-module (ice-9 receive)
+  :use-module (scsh define-foreign-syntax)
+  :use-module (scsh netconst)
+  :use-module (scsh let-opt)
+  :use-module (scsh errno)
+  :use-module (scsh rw)
+  :use-module (scsh defrec)
+)
+(export 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
+)
+
+;; noop for Guile.
+(defmacro define-errno-syscall args #f)
+
hunk ./newports.scm 8
+(define-module (scsh newports)
+  :use-module (ice-9 receive)
+  :use-module (scsh syntax)
+  :use-module (scsh alt-syntax)
+)
+(export 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!)
hunk ./procobj.scm 20
+  :use-module (scsh errno)
hunk ./procobj.scm 24
-	wait-process-group)
+	wait-process-group reaped-procs)
hunk ./rdelim.scm 12
+  :use-module (scsh errno)
hunk ./scsh.scm 6
+(define-module (scsh scsh)
+  :use-module (ice-9 receive)
+  :use-module (scsh utilities)
+  :use-module (scsh syscalls)
+  :use-module (scsh syntax)
+  :use-module (scsh alt-syntax)
+  :use-module (scsh bitwise)
+  :use-module (scsh fluid)
+  :use-module (scsh let-opt)
+  :use-module (scsh newports)
+  :use-module (scsh scsh-condition)
+  :use-module (scsh stringcoll)
+  :use-module (scsh fileinfo)
+  :use-module (scsh fname)
+  :use-module (scsh rw)
+  :use-module (scsh sighandlers)
+  :use-module (scsh procobj)
+)
+(export 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
+)
+(export-syntax with-cwd with-umask with-env with-total-env
+	       run/port run/file run/string run/strings run/sexp run/sexps
+	       with-stdio-ports
+)
+
hunk ./scsh.scm 646
-(define command-line-arguments #f)	; Doesn't include program.
+(define command-line-arguments 	; Doesn't include program.
+  (cdr (command-line)))
hunk ./scsh.scm 769
-(define (exit . maybe-status)
-  (flush-all-ports)
-  (primitive-exit (:optional  maybe-status 0))
-  (display "The evil undead walk the earth." 2)
-  (error "(exit) returned."))
+;(define (exit . maybe-status)
+;  (flush-all-ports)
+;  (primitive-exit (:optional  maybe-status 0))
+;  (display "The evil undead walk the earth." 2)
+;  (error "(exit) returned."))
hunk ./scsh.scm 807
+(init-scsh-vars #f)
+
hunk ./syntax.scm 5
+(define-module (scsh syntax)
+  :use-module (scsh alt-syntax)
+  :use-module (scsh syntax-helpers)
+  :use-module (scsh procobj)
+  :use-module (scsh scsh)
+)
+(export-syntax define-simple-syntax exec-epf & run || && run-collecting
+	       run/port+proc run/port run/strings run/file run/string
+	       run/sexp run/sexps)
+
hunk ./syntax.scm 73
-(define-simple-syntax (run/pty . epf)
-  (run/pty* (lambda () (exec-epf . epf))))
+;(define-simple-syntax (run/pty . epf)
+;  (run/pty* (lambda () (exec-epf . epf))))
hunk ./syscalls.scm 16
+  :use-module (scsh errno)
hunk ./syscalls.scm 44
-(export-syntax define-errno-syscall)
-
hunk ./time.scm 4
+(define-module (scsh time)
+  :use-module (scsh define-foreign-syntax)
+  :use-module (scsh defrec)
+  :use-module (scsh let-opt)
+  :use-module (scsh utilities)
+  :use-module (ice-9 receive)
+)
+(export 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)
+