749 lines
14 KiB
Scheme
749 lines
14 KiB
Scheme
(define-library
|
|
(retropikzel scsh)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme file)
|
|
(foreign c)
|
|
(srfi 170))
|
|
(export
|
|
;*temp-file-template*
|
|
;->uid
|
|
;->username
|
|
;%exec
|
|
;%exit
|
|
;%fork
|
|
;%fork/pipe
|
|
;%fork/pipe+
|
|
;%read-delimited!
|
|
;&
|
|
;&
|
|
;&&
|
|
;reduce-port
|
|
;absolute-file-name
|
|
;accept-connection
|
|
;add-after
|
|
;add-before
|
|
;alist->env
|
|
;alist-compress
|
|
;alist-delete
|
|
;alist-update
|
|
;arg
|
|
;arg*
|
|
;argv
|
|
;arithmetic-shift
|
|
;ascii->char
|
|
;autoreap-policy
|
|
;awk
|
|
;become-session-leader
|
|
;bin-dir
|
|
;bind-listen-accept-loop
|
|
;bind-prepare-listen-accept-loop
|
|
;bind-socket
|
|
;bitwise-and
|
|
;bitwise-ior
|
|
;bitwise-not
|
|
;bitwise-xor
|
|
;break-dot-lock
|
|
;bufpol/block
|
|
;bufpol/line
|
|
;bufpol/none
|
|
;call-terminally
|
|
;call-with-string-output-port
|
|
;call/fdes
|
|
;cflags
|
|
;char->ascii
|
|
;char-ascii?
|
|
;char-blank?
|
|
;char-digit?
|
|
;char-graphic?
|
|
;char-hex-digit?
|
|
;char-iso-control?
|
|
;char-letter+digit?
|
|
;char-letter?
|
|
;char-lower-case?
|
|
;char-printing?
|
|
;char-punctuation?
|
|
;char-title-case?
|
|
;char-upper-case?
|
|
;char-whitespace?
|
|
;chdir
|
|
;clean-up-cres
|
|
;close
|
|
;close-after
|
|
;close-directory-stream
|
|
;close-socket
|
|
;close-syslog-channel
|
|
;command-line
|
|
;command-line-arguments
|
|
;compiler-flags
|
|
;connect-socket
|
|
;connect-socket-no-wait
|
|
;connect-socket-successful?
|
|
;control-tty-file-name
|
|
;copy-tty-info
|
|
;cppflags
|
|
;cpu-ticks/sec
|
|
;create-directory
|
|
;create-fifo
|
|
;create-hard-link
|
|
;create-socket
|
|
;create-socket-pair
|
|
;create-symlink
|
|
;create-temp-file
|
|
;crypt
|
|
;current-thread
|
|
;cwd
|
|
;date, [2]
|
|
;date, [2]
|
|
;date->string
|
|
;default-lib-dirs
|
|
;define-record
|
|
;defs
|
|
;delete-directory
|
|
;delete-file
|
|
;delete-filesys-object
|
|
;directory-as-file-name
|
|
;directory-files
|
|
;disable-tty-char
|
|
;drain-tty
|
|
;dump-scsh
|
|
;dump-scsh-program
|
|
;dup
|
|
;dup->fdes
|
|
;dup->inport
|
|
;dup->outport
|
|
;enabled-interrupts
|
|
;env->alist
|
|
;errno-error
|
|
;error-output-port
|
|
;exec
|
|
;exec-epf
|
|
;exec-epf
|
|
;exec-path
|
|
;exec-path-list
|
|
;exec-path-search
|
|
;exec-path/env
|
|
;exec-prefix
|
|
;exec/env
|
|
exit
|
|
;expand-file-name
|
|
;fdes->inport
|
|
;fdes->outport
|
|
;fdes-flags
|
|
;fdes-status
|
|
;field-reader
|
|
;field-splitter
|
|
;file-directory?
|
|
;file-executable?
|
|
;file-exists?
|
|
;file-fifo?
|
|
;file-group
|
|
;file-info
|
|
;file-info-directory?
|
|
;file-info-executable?
|
|
;file-info-fifo?
|
|
;file-info-not-executable?
|
|
;file-info-not-readable?
|
|
;file-info-not-writable?
|
|
;file-info-readable?
|
|
;file-info-regular?
|
|
;file-info-socket?
|
|
;file-info-special?
|
|
;file-info-symlink?
|
|
;file-info-writable?
|
|
;file-info:atime
|
|
;file-info:ctime
|
|
;file-info:device
|
|
;file-info:gid
|
|
;file-info:inode
|
|
;file-info:mode
|
|
;file-info:mtime
|
|
;file-info:nlinks
|
|
;file-info:size
|
|
;file-info:type
|
|
;file-info:uid
|
|
;file-inode
|
|
;file-last-access
|
|
;file-last-mod
|
|
;file-last-status-change
|
|
;file-match
|
|
;file-mode
|
|
;file-name-absolute?
|
|
;file-name-as-directory
|
|
;file-name-directory
|
|
;file-name-directory?
|
|
;file-name-extension
|
|
;file-name-non-directory?
|
|
;file-name-nondirectory
|
|
;file-name-sans-extension
|
|
;file-nlinks
|
|
;file-not-executable?
|
|
;file-not-exists?
|
|
;file-not-readable?
|
|
;file-not-writable?
|
|
;file-owner
|
|
;file-readable?
|
|
;file-regular?
|
|
;file-size
|
|
;file-socket?
|
|
;file-special?
|
|
;file-symlink?
|
|
;file-type
|
|
;file-writable?
|
|
;fill-in-date!
|
|
;find-library-file
|
|
;flush-all-ports
|
|
;flush-submatches
|
|
;flush-tty/both
|
|
;flush-tty/input
|
|
;flush-tty/output
|
|
;force-output
|
|
;fork
|
|
;fork-pty-session
|
|
;fork-thread
|
|
;fork/pipe
|
|
;fork/pipe+
|
|
;format-date
|
|
;get-lock-region
|
|
;getenv
|
|
;glob
|
|
;glob-quote
|
|
;group-info, [2]
|
|
;group-info:gid
|
|
;group-info:members
|
|
;group-info:name
|
|
;handle-signal-default
|
|
;home-dir
|
|
;home-directory
|
|
;home-file
|
|
;host
|
|
;host-info
|
|
;if-match
|
|
;if-sre-form
|
|
;ignore-signal
|
|
;include-dir
|
|
;infix-splitter
|
|
;internet-address->socket-address
|
|
;interrupt-handler
|
|
;interrupt-set
|
|
;interrupt/alarm
|
|
;interrupt/alrm
|
|
;interrupt/chld
|
|
;interrupt/cont
|
|
;interrupt/hup
|
|
;interrupt/info
|
|
;interrupt/int
|
|
;interrupt/io
|
|
;interrupt/keyboard
|
|
;interrupt/memory-shortage
|
|
;interrupt/poll
|
|
;interrupt/prof
|
|
;interrupt/pwr
|
|
;interrupt/quit
|
|
;interrupt/term
|
|
;interrupt/tstp
|
|
;interrupt/urg
|
|
;interrupt/usr1
|
|
;interrupt/usr2
|
|
;interrupt/vtalrm
|
|
;interrupt/winch
|
|
;interrupt/xcpu
|
|
;interrupt/xfsz
|
|
;itimer
|
|
;join-strings
|
|
;ldflags
|
|
;let-match
|
|
;lib-dir
|
|
;lib-dirs
|
|
;lib-dirs-list
|
|
;libs
|
|
;linker-flags
|
|
;listen-socket
|
|
;lock-owner-uid
|
|
;lock-region
|
|
;lock-region/no-block
|
|
;lock-region:end
|
|
;lock-region:exclusive?
|
|
;lock-region:len
|
|
;lock-region:proc
|
|
;lock-region:start
|
|
;lock-region:whence
|
|
;lock-region?
|
|
;lock?
|
|
;machine
|
|
;make-char-port-filter
|
|
;make-date
|
|
;make-lock
|
|
;make-lock-region
|
|
;make-md5-context
|
|
;make-placeholder
|
|
;make-pty-generator
|
|
;make-re-char-set
|
|
;make-re-choice
|
|
;make-re-dsm
|
|
;make-re-repeat
|
|
;make-re-seq
|
|
;make-re-string
|
|
;make-re-submatch
|
|
;make-regexp
|
|
;make-string-input-port
|
|
;make-string-output-port
|
|
;make-string-port-filter
|
|
;make-syslog-mask
|
|
;make-syslog-options
|
|
;make-tty-info
|
|
;man-dir
|
|
;match-cond
|
|
;match:end
|
|
;match:start
|
|
;match:substring
|
|
;maybe-obtain-lock
|
|
;md5-context->md5-digest
|
|
;md5-context?
|
|
;md5-digest->number
|
|
;md5-digest-for-port
|
|
;md5-digest-for-string
|
|
;md5-digest?
|
|
;most-recent-sigevent
|
|
;move->fdes
|
|
;network-info
|
|
;next-sigevent
|
|
;next-sigevent-set
|
|
;next-sigevent-set/no-wait
|
|
;next-sigevent/no-wait
|
|
;nice
|
|
;number->md5-digest
|
|
;obtain-dot-lock
|
|
;obtain-lock
|
|
;open-control-tty
|
|
;open-directory-stream
|
|
;open-fdes
|
|
;open-file
|
|
;open-input-file
|
|
;open-output-file
|
|
;open-pty
|
|
;open-syslog-channel
|
|
;os
|
|
;parent-pid
|
|
;parse-file-name
|
|
;parse-sre
|
|
;parse-sres
|
|
;path-list->file-name
|
|
;pid
|
|
;pid->proc
|
|
;pipe
|
|
;placeholder-value
|
|
;placeholder?
|
|
;port->fdes
|
|
;port->list
|
|
;port->sexp-list
|
|
;port->socket
|
|
;port->string
|
|
;port->string-list
|
|
;port-fold
|
|
;port-revealed
|
|
;posix-string->regexp
|
|
;prefix
|
|
;priority
|
|
;proc
|
|
;proc:pid
|
|
;proc?
|
|
;process-group
|
|
;process-sleep
|
|
;process-sleep-until
|
|
;process-times
|
|
;protocol-info
|
|
;pty-name->tty-name
|
|
;re-any
|
|
;re-any?
|
|
;re-bol
|
|
;re-bol?
|
|
;re-bos
|
|
;re-bos?
|
|
;re-char-set
|
|
;re-char-set:cset
|
|
;re-char-set?
|
|
;re-choice
|
|
;re-choice:elts
|
|
;re-choice:tsm
|
|
;re-choice?
|
|
;re-dsm
|
|
;re-dsm:body
|
|
;re-dsm:post-dsm
|
|
;re-dsm:pre-dsm
|
|
;re-dsm:tsm
|
|
;re-dsm?
|
|
;re-empty
|
|
;re-empty?
|
|
;re-eol
|
|
;re-eol?
|
|
;re-eos
|
|
;re-eos?
|
|
;re-nonl
|
|
;re-repeat:from
|
|
;re-repeat:to
|
|
;re-repeat:tsm
|
|
;re-repeat?
|
|
;re-seq
|
|
;re-seq:elts
|
|
;re-seq:tsm
|
|
;re-seq?
|
|
;re-string
|
|
;re-string:chars
|
|
;re-string?
|
|
;re-submatch:post-dsm
|
|
;re-submatch:pre-dsm
|
|
;re-submatch:tsm
|
|
;re-submatch?
|
|
;re-trivial
|
|
;re-trivial?
|
|
;re-tsm
|
|
;read-delimited
|
|
;read-delimited!
|
|
;read-directory-stream
|
|
;read-line
|
|
;read-paragraph
|
|
;read-string
|
|
;read-string!
|
|
;read-string!/partial
|
|
;read-string/partial
|
|
;read-symlink
|
|
;reap-zombies
|
|
;receive-message
|
|
;receive-message!
|
|
;receive-message!/partial
|
|
;receive-message/partial
|
|
;record-reader
|
|
;regexp->posix-string
|
|
;regexp->scheme
|
|
;regexp->sre
|
|
;regexp-fold
|
|
;regexp-fold-right
|
|
;regexp-for-each
|
|
;regexp-search
|
|
;regexp-search?
|
|
;regexp-substitute
|
|
;regexp-substitute/global
|
|
;regexp?, [2]
|
|
;release-dot-lock
|
|
;release-lock
|
|
;release-port-handle
|
|
;relinquish-timeslice
|
|
;rename-file
|
|
;replace-extension
|
|
;resolve-file-name
|
|
;run
|
|
;run
|
|
;run/collecting
|
|
;run/collecting*
|
|
;run/file
|
|
;run/file*
|
|
;run/port
|
|
;run/port*
|
|
;run/port+proc
|
|
;run/port+proc*
|
|
;run/sexp
|
|
;run/sexp*
|
|
;run/sexps
|
|
;run/sexps*
|
|
;run/string
|
|
;run/string*
|
|
;run/strings
|
|
;run/strings*
|
|
;rx
|
|
;seek
|
|
;select
|
|
;select-port-channels
|
|
;select-ports
|
|
;send-message
|
|
;send-message/partial
|
|
;send-tty-break
|
|
;service-info
|
|
;set-enabled-interrupts
|
|
;set-fdes-flags
|
|
;set-fdes-status
|
|
;set-file-group
|
|
;set-file-mode
|
|
;set-file-owner
|
|
;set-file-times
|
|
;set-gid
|
|
;set-interrupt-handler
|
|
;set-port-buffering
|
|
;set-priority
|
|
;set-process-group
|
|
;set-socket-option
|
|
;set-tty-info/drain
|
|
;set-tty-info/flush
|
|
;set-tty-info/now
|
|
;set-tty-process-group
|
|
;set-uid
|
|
;set-umask
|
|
;set-user-effective-gid
|
|
;set-user-effective-uid
|
|
;setenv
|
|
;shutdown-socket
|
|
;sigevent?
|
|
;signal->interrupt
|
|
;signal-process
|
|
;signal-process-group
|
|
;signal/abrt
|
|
;signal/alrm
|
|
;signal/bus
|
|
;signal/chld
|
|
;signal/cont
|
|
;signal/emt
|
|
;signal/fpe
|
|
;signal/hup
|
|
;signal/ill
|
|
;signal/info
|
|
;signal/int
|
|
;signal/io
|
|
;signal/iot
|
|
;signal/kill
|
|
;signal/pipe
|
|
;signal/poll
|
|
;signal/prof
|
|
;signal/pwr
|
|
;signal/quit
|
|
;signal/segv
|
|
;signal/stop
|
|
;signal/sys
|
|
;signal/term
|
|
;signal/trap
|
|
;signal/tstp
|
|
;signal/ttin
|
|
;signal/ttou
|
|
;signal/urg
|
|
;signal/usr1
|
|
;signal/usr2
|
|
;signal/vtalrm
|
|
;signal/winch
|
|
;signal/xcpu
|
|
;signal/xfsz
|
|
;simplify-file-name
|
|
;simplify-regexp
|
|
;skip-char-set
|
|
;sleep
|
|
;sloppy-suffix-splitter
|
|
;socket-address->internet-address
|
|
;socket-address->unix-address
|
|
;socket-connect
|
|
;socket-local-address
|
|
;socket-option
|
|
;socket-remote-address
|
|
;spawn
|
|
;split-file-name
|
|
;spoon
|
|
;sre->regexp
|
|
;sre-form?
|
|
;start-tty-input
|
|
;start-tty-output
|
|
;static-regexp?
|
|
;status:exit-val
|
|
;status:stop-sig
|
|
;status:term-sig
|
|
;stdio->stdports
|
|
;stdports->stdio
|
|
;stop-tty-input
|
|
;stop-tty-output
|
|
;string-match
|
|
;string-output-port-output
|
|
;substitute-env-vars
|
|
;suffix-splitter
|
|
;suspend
|
|
;sync-file
|
|
;sync-file-system
|
|
;syslog, [2], [3]
|
|
;syslog-facility
|
|
;syslog-facility?
|
|
;syslog-level
|
|
;syslog-level?
|
|
;syslog-mask
|
|
;syslog-mask-all
|
|
;syslog-mask-upto
|
|
;syslog-mask?
|
|
;syslog-option
|
|
;syslog-option?
|
|
;syslog-options
|
|
;syslog-options?
|
|
;system-name
|
|
;tell
|
|
;temp-file-channel
|
|
;temp-file-iterate
|
|
;terminate-current-thread
|
|
;thread-name
|
|
;thread-uid
|
|
;thread?
|
|
;ticks/sec
|
|
;time
|
|
;time, [2]
|
|
;time+ticks
|
|
;truncate-file
|
|
;tty-file-name
|
|
;tty-info
|
|
;tty-info record type
|
|
;tty-info:control-chars
|
|
;tty-info:control-flags
|
|
;tty-info:input-flags
|
|
;tty-info:input-speed
|
|
;tty-info:local-flags
|
|
;tty-info:min
|
|
;tty-info:output-flags
|
|
;tty-info:output-speed
|
|
;tty-info:time
|
|
;tty-info?
|
|
;tty-name->pty-name
|
|
;tty-process-group
|
|
;tty?
|
|
;ttyc/2-stop-bits
|
|
;ttyc/carrier-flow-ctl
|
|
;ttyc/char-size
|
|
;ttyc/char-size5
|
|
;ttyc/char-size6
|
|
;ttyc/char-size7
|
|
;ttyc/char-size8
|
|
;ttyc/CTS-output-flow-ctl
|
|
;ttyc/enable-parity
|
|
;ttyc/enable-read
|
|
;ttyc/hup-on-close
|
|
;ttyc/ignore-flags
|
|
;ttyc/no-modem-sync
|
|
;ttyc/odd-parity
|
|
;ttyc/RTS-input-flow-ctl
|
|
;ttychar/delayed-suspend
|
|
;ttychar/delete-char
|
|
;ttychar/delete-line
|
|
;ttychar/delete-word
|
|
;ttychar/discard
|
|
;ttychar/eof
|
|
;ttychar/eol
|
|
;ttychar/eol2
|
|
;ttychar/interrupt
|
|
;ttychar/literal-next
|
|
;ttychar/quit
|
|
;ttychar/reprint
|
|
;ttychar/start
|
|
;ttychar/status
|
|
;ttychar/stop
|
|
;ttychar/suspend
|
|
;ttyin/7bits
|
|
;ttyin/beep-on-overflow
|
|
;ttyin/check-parity
|
|
;ttyin/cr->nl
|
|
;ttyin/ignore-bad-parity-chars
|
|
;ttyin/ignore-break
|
|
;ttyin/ignore-cr
|
|
;ttyin/input-flow-ctl
|
|
;ttyin/interrupt-on-break
|
|
;ttyin/lowercase
|
|
;ttyin/mark-parity-errors
|
|
;ttyin/nl->cr
|
|
;ttyin/output-flow-ctl
|
|
;ttyin/xon-any
|
|
;ttyl/alt-delete-word
|
|
;ttyl/canonical
|
|
;ttyl/case-map
|
|
;ttyl/echo
|
|
;ttyl/echo-ctl
|
|
;ttyl/echo-delete-line
|
|
;ttyl/echo-nl
|
|
;ttyl/enable-signals
|
|
;ttyl/extended
|
|
;ttyl/flush-output
|
|
;ttyl/hardcopy-delete
|
|
;ttyl/no-flush-on-interrupt
|
|
;ttyl/no-kernel-status
|
|
;ttyl/reprint-unread-chars
|
|
;ttyl/ttou-signal
|
|
;ttyl/visual-delete
|
|
;ttyl/visual-delete-line
|
|
;ttyout/all-delay
|
|
;ttyout/bs-delay
|
|
;ttyout/bs-delay0
|
|
;ttyout/bs-delay1
|
|
;ttyout/cr->nl
|
|
;ttyout/cr-delay
|
|
;ttyout/cr-delay0
|
|
;ttyout/cr-delay1
|
|
;ttyout/cr-delay2
|
|
;ttyout/cr-delay3
|
|
;ttyout/delay-w/fill-char
|
|
;ttyout/discard-eot
|
|
;ttyout/enable
|
|
;ttyout/expand-tabs
|
|
;ttyout/ff-delay
|
|
;ttyout/ff-delay0
|
|
;ttyout/ff-delay1
|
|
;ttyout/fill-w/del
|
|
;ttyout/nl->crnl
|
|
;ttyout/nl-delay
|
|
;ttyout/nl-delay0
|
|
;ttyout/nl-delay1
|
|
;ttyout/nl-does-cr
|
|
;ttyout/no-col0-cr
|
|
;ttyout/tab-delay
|
|
;ttyout/tab-delay0
|
|
;ttyout/tab-delay1
|
|
;ttyout/tab-delay2
|
|
;ttyout/tab-delayx
|
|
;ttyout/uppercase
|
|
;ttyout/vtab-delay
|
|
;ttyout/vtab-delay0
|
|
;ttyout/vtab-delay1
|
|
;umask
|
|
;uname
|
|
;uncase
|
|
;uncase-char-set
|
|
;uncase-string
|
|
;unix-address->socket-address
|
|
;unlock-region
|
|
;user-effective-gid
|
|
;user-effective-uid
|
|
;user-gid
|
|
;user-info, [2]
|
|
;user-info:gid
|
|
;user-info:home-dir
|
|
;user-info:name
|
|
;user-info:shell
|
|
;user-info:uid
|
|
;user-login-name
|
|
;user-supplementary-gids
|
|
;user-uid
|
|
;vendor
|
|
;wait
|
|
;wait-any
|
|
;wait-process-group
|
|
;with-current-input-port
|
|
;with-current-input-port*
|
|
;with-current-output-port
|
|
;with-current-output-port*
|
|
;with-cwd
|
|
;with-cwd*
|
|
;with-dot-lock
|
|
;with-dot-lock*
|
|
;with-enabled-interrupts
|
|
;with-enabled-interrupts*
|
|
;with-env
|
|
;with-env*
|
|
;with-errno-handler
|
|
;with-errno-handler*
|
|
;with-error-output-port
|
|
;with-error-output-port*
|
|
;with-region-lock
|
|
;with-region-lock*
|
|
;with-stdio-ports
|
|
;with-stdio-ports*
|
|
;with-syslog-destination
|
|
;with-total-env
|
|
;with-total-env*
|
|
;with-umask
|
|
;with-umask*
|
|
;with-user-effective-gid
|
|
;with-user-effective-gid*
|
|
;with-user-effective-uid
|
|
;with-user-effective-uid*
|
|
;write-string
|
|
;write-string/partial
|
|
)
|
|
(include "scsh.scm"))
|