1929 lines
52 KiB
Scheme
1929 lines
52 KiB
Scheme
#| -*-Scheme-*-
|
||
|
||
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
|
||
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
|
||
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
|
||
2017, 2018, 2019, 2020 Massachusetts Institute of Technology
|
||
|
||
This file is part of MIT/GNU Scheme.
|
||
|
||
MIT/GNU Scheme is free software; you can redistribute it and/or modify
|
||
it under the terms of the GNU General Public License as published by
|
||
the Free Software Foundation; either version 2 of the License, or (at
|
||
your option) any later version.
|
||
|
||
MIT/GNU Scheme is distributed in the hope that it will be useful, but
|
||
WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
General Public License for more details.
|
||
|
||
You should have received a copy of the GNU General Public License
|
||
along with MIT/GNU Scheme; if not, write to the Free Software
|
||
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
|
||
USA.
|
||
|
||
|#
|
||
|
||
;;;; Edwin Packaging
|
||
|
||
(global-definitions "../runtime/")
|
||
(global-definitions "../xml/")
|
||
|
||
(define-package (edwin)
|
||
(files "utils"
|
||
"nvector"
|
||
"ring"
|
||
"strtab"
|
||
"strpad"
|
||
"class"
|
||
|
||
"paths"
|
||
"struct" ; low-level data structures
|
||
"regops" ; low-level editing operations
|
||
"motion" ; low-level mark movement
|
||
"search" ; search/match chars and strings
|
||
"comatch" ; combinatoric matcher
|
||
"image" ; character-display imaging
|
||
"comman" ; editor command/variable abstractions
|
||
"docstr" ; out-of-core documentation support
|
||
"modes" ; editor mode abstraction
|
||
"buffer" ; buffer abstraction
|
||
"bufset" ; buffer-set abstraction
|
||
|
||
"edtstr" ; editor abstraction
|
||
"editor" ; editor top level
|
||
"curren" ; current state
|
||
"simple" ; simple editing operations
|
||
"debuge" ; edwin debugging tools
|
||
"calias" ; character aliasing
|
||
"things" ; generic text objects
|
||
"tparse" ; text parsing
|
||
"syntax" ; word and list parsing
|
||
"fileio" ; file <-> buffer
|
||
|
||
"abbrev" ; abbrevs
|
||
"autold" ; autoloaded definitions
|
||
"autosv" ; auto save
|
||
"basic" ; basic commands
|
||
"bufcom" ; buffer commands
|
||
"comhst" ; command history
|
||
"dabbrev" ; M-x dabbrev-expand
|
||
"evlcom" ; evaluation commands
|
||
"filcom" ; file commands
|
||
"fill" ; text-fill commands
|
||
"hlpcom" ; help commands
|
||
"kilcom" ; kill commands
|
||
"kmacro" ; keyboard macros
|
||
"lincom" ; line commands
|
||
"lspcom" ; lisp commands
|
||
"motcom" ; motion commands
|
||
"mousecom" ; mouse commands
|
||
"replaz" ; replace commands
|
||
"schmod" ; scheme mode
|
||
"scrcom" ; frame commands
|
||
"sercom" ; search commands
|
||
"texcom" ; text commands
|
||
"wincom" ; window commands
|
||
|
||
"modefs" ; fundamental mode
|
||
|
||
"loadef" ; auto-load definitions
|
||
"c-mode" ; C mode
|
||
"javamode" ; Java mode
|
||
"htmlmode" ; HTML mode
|
||
"midas" ; MIDAS mode
|
||
"pasmod" ; Pascal mode
|
||
"tximod" ; Texinfo mode
|
||
"notify" ; mode-line notifications
|
||
"outline" ; outline minor mode
|
||
"sort" ; sorting commands
|
||
"webster" ; access a Webster server
|
||
"world-monitor"
|
||
)
|
||
|
||
(parent ())
|
||
(import (runtime)
|
||
define-primitives
|
||
string-for-primitive
|
||
ucode-primitive
|
||
ucode-type)
|
||
(import (runtime char-syntax)
|
||
char-syntax-table/entries)
|
||
(import (runtime character)
|
||
bucky-bits->prefix)
|
||
(import (runtime microcode-tables)
|
||
fixed-objects-item
|
||
update-fixed-objects-item!)
|
||
(import (runtime port)
|
||
(make-port make-textual-port)
|
||
(make-port-type make-textual-port-type)
|
||
(port/input-channel input-port-channel)
|
||
(port/output-channel output-port-channel)
|
||
(port/state textual-port-state)
|
||
generic-port-operation:write-substring)
|
||
#|
|
||
(import (blowfish)
|
||
blowfish-encrypt-port
|
||
blowfish-file?
|
||
read-blowfish-file-header
|
||
write-blowfish-file-header)
|
||
(import (gdbm)
|
||
gdbm-close
|
||
gdbm-delete
|
||
gdbm-exists?
|
||
gdbm-fetch
|
||
gdbm-firstkey
|
||
gdbm-nextkey
|
||
gdbm-open
|
||
gdbm-reorganize
|
||
gdbm-store
|
||
gdbm_fast
|
||
gdbm_replace
|
||
gdbm_wrcreat)
|
||
|#
|
||
(export ()
|
||
create-editor
|
||
create-editor-args
|
||
inhibit-editor-init-file?
|
||
reset-editor
|
||
reset-editor-windows
|
||
(save-editor-files debug-save-files))
|
||
(export (edwin class-macros)
|
||
class-instance-transforms))
|
||
|
||
(define-package (edwin adapters)
|
||
(files "adapters")
|
||
(parent ())
|
||
(export (edwin)
|
||
(call-with-append-file edwin:call-with-append-file)
|
||
(call-with-input-file edwin:call-with-input-file)
|
||
(call-with-output-file edwin:call-with-output-file)
|
||
char-set:graphic))
|
||
|
||
(define-package (edwin string)
|
||
(files "string")
|
||
(parent (edwin))
|
||
(import (runtime character-set)
|
||
char-set-table)
|
||
(export (edwin)
|
||
(set-vector-8b-length! set-string-length!)
|
||
(vector-8b-length string-length)
|
||
(vector-8b-maximum-length string-maximum-length)
|
||
(vector-8b? string?)
|
||
ascii-string-copy
|
||
burst-string
|
||
bytevector->string
|
||
char->string
|
||
decorated-string-append
|
||
error:not-string
|
||
guarantee-string
|
||
guarantee-string-index
|
||
guarantee-substring
|
||
guarantee-substring-end-index
|
||
guarantee-substring-start-index
|
||
list->string
|
||
make-string
|
||
make-vector-8b
|
||
random-byte-vector
|
||
set-string-length!
|
||
string
|
||
string->bytevector
|
||
string->list
|
||
string->vector
|
||
string-append
|
||
string-capitalize
|
||
string-capitalize!
|
||
string-capitalized?
|
||
string-ci-hash
|
||
string-ci<=?
|
||
string-ci<?
|
||
string-ci=?
|
||
string-ci>=?
|
||
string-ci>?
|
||
string-compare
|
||
string-compare-ci
|
||
string-copy
|
||
string-copy!
|
||
string-downcase
|
||
string-downcase!
|
||
string-fill!
|
||
string-find-next-char
|
||
string-find-next-char-ci
|
||
string-find-next-char-in-set
|
||
string-find-previous-char
|
||
string-find-previous-char-ci
|
||
string-find-previous-char-in-set
|
||
string-for-each
|
||
string-hash
|
||
string-head
|
||
string-head!
|
||
string-length
|
||
string-lower-case?
|
||
string-map
|
||
string-match-backward
|
||
string-match-backward-ci
|
||
string-match-forward
|
||
string-match-forward-ci
|
||
string-maximum-length
|
||
string-move!
|
||
string-null?
|
||
string-pad-left
|
||
string-pad-right
|
||
string-prefix-ci?
|
||
string-prefix?
|
||
string-ref
|
||
string-replace
|
||
string-replace!
|
||
string-search-all
|
||
string-search-backward
|
||
string-search-forward
|
||
string-set!
|
||
string-suffix-ci?
|
||
string-suffix?
|
||
string-tail
|
||
string-trim
|
||
string-trim-left
|
||
string-trim-right
|
||
string-upcase
|
||
string-upcase!
|
||
string-upper-case?
|
||
string<=?
|
||
string<?
|
||
string=?
|
||
string>=?
|
||
string>?
|
||
string?
|
||
substring
|
||
substring->list
|
||
substring-capitalize!
|
||
substring-capitalized?
|
||
substring-ci<?
|
||
substring-ci=?
|
||
substring-downcase!
|
||
substring-fill!
|
||
substring-find-next-char
|
||
substring-find-next-char-ci
|
||
substring-find-next-char-in-set
|
||
substring-find-previous-char
|
||
substring-find-previous-char-ci
|
||
substring-find-previous-char-in-set
|
||
substring-lower-case?
|
||
substring-match-backward
|
||
substring-match-backward-ci
|
||
substring-match-forward
|
||
substring-match-forward-ci
|
||
substring-move!
|
||
substring-move-left!
|
||
substring-move-right!
|
||
substring-prefix-ci?
|
||
substring-prefix?
|
||
substring-replace
|
||
substring-replace!
|
||
substring-search-all
|
||
substring-search-backward
|
||
substring-search-forward
|
||
substring-suffix-ci?
|
||
substring-suffix?
|
||
substring-upcase!
|
||
substring-upper-case?
|
||
substring<?
|
||
substring=?
|
||
substring?
|
||
vector-8b-fill!
|
||
vector-8b-find-next-char
|
||
vector-8b-find-next-char-ci
|
||
vector-8b-find-previous-char
|
||
vector-8b-find-previous-char-ci
|
||
vector-8b-ref
|
||
vector-8b-set!)
|
||
(initialization (initialize-package!)))
|
||
|
||
(define-package (edwin class-macros)
|
||
(files "clsmac")
|
||
(parent (edwin))
|
||
(export (edwin window)
|
||
==>
|
||
define-class
|
||
define-method
|
||
usual==>
|
||
with-instance-variables)
|
||
(import (runtime syntax)
|
||
classifier->runtime
|
||
classify-form
|
||
expr-item
|
||
hist-car
|
||
hist-cddr))
|
||
|
||
(define-package (edwin class-macros transform-instance-variables)
|
||
(files "xform")
|
||
(parent (edwin class-macros))
|
||
(export (edwin class-macros)
|
||
transform-instance-variables))
|
||
|
||
(define-package (edwin class-constructor)
|
||
(files "clscon")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
class?
|
||
make-class
|
||
name->class)
|
||
(export (edwin class-macros)
|
||
make-class
|
||
name->class))
|
||
|
||
(define-package (edwin macros)
|
||
(files "macros")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
command-defined?
|
||
command-name->scheme-name
|
||
define-command
|
||
define-editor-alias
|
||
define-major-mode
|
||
define-minor-mode
|
||
define-variable
|
||
define-variable-per-buffer
|
||
edwin-syntax-table
|
||
local-set-variable!
|
||
mode-name->scheme-name
|
||
ref-command
|
||
ref-command-object
|
||
ref-mode-object
|
||
ref-variable
|
||
ref-variable-object
|
||
set-variable!
|
||
variable-name->scheme-name))
|
||
|
||
(define-package (edwin group-operations)
|
||
(files "grpops")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
finish-group-insert!
|
||
group-copy-substring!
|
||
group-delete!
|
||
group-delete-left-char!
|
||
group-delete-right-char!
|
||
group-extract-and-delete-string!
|
||
group-extract-string
|
||
group-insert-char!
|
||
group-insert-chars!
|
||
group-insert-string!
|
||
group-insert-substring!
|
||
group-left-char
|
||
group-replace-char!
|
||
group-replace-string!
|
||
group-replace-substring!
|
||
group-right-char
|
||
prepare-gap-for-insert!))
|
||
|
||
(define-package (edwin comtab)
|
||
(files "comtab")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
comtab->alist
|
||
comtab-entry
|
||
comtab-key-bindings
|
||
comtab-key?
|
||
comtab?
|
||
define-key
|
||
define-prefix-key
|
||
local-comtab-entry
|
||
make-comtab
|
||
prefix-key-list?))
|
||
|
||
(define-package (edwin undo)
|
||
(files "undo")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
disable-group-undo!
|
||
edwin-command$undo
|
||
edwin-variable$undo-limit
|
||
edwin-variable$undo-strong-limit
|
||
enable-group-undo!
|
||
undo-boundary!
|
||
undo-done!
|
||
undo-leave-window!
|
||
undo-more
|
||
undo-record-deletion!
|
||
undo-record-insertion!
|
||
undo-record-property-changes!
|
||
undo-record-replacement!
|
||
undo-start
|
||
with-group-undo-disabled))
|
||
|
||
(define-package (edwin display-type)
|
||
(files "display")
|
||
(parent (edwin))
|
||
(export ()
|
||
editor-display-types)
|
||
(export (edwin)
|
||
display-type?
|
||
display-type/available?
|
||
display-type/get-input-operations
|
||
display-type/make-screen
|
||
display-type/multiple-screens?
|
||
display-type/name
|
||
display-type/with-display-grabbed
|
||
display-type/with-interrupts-disabled
|
||
display-type/with-interrupts-enabled
|
||
make-display-type
|
||
name->display-type))
|
||
|
||
(define-package (edwin screen)
|
||
(files "screen")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
default-face
|
||
default-face?
|
||
guarantee-screen
|
||
highlight-face
|
||
initialize-screen-root-window!
|
||
screen-beep
|
||
screen-clear-rectangle
|
||
screen-deleted?
|
||
screen-direct-output-char
|
||
screen-direct-output-move-cursor
|
||
screen-direct-output-substring
|
||
screen-discard!
|
||
screen-enter!
|
||
screen-exit!
|
||
screen-force-update
|
||
screen-get-output-line
|
||
screen-in-update?
|
||
screen-line-draw-cost
|
||
screen-modeline-event!
|
||
screen-move-cursor
|
||
screen-needs-update?
|
||
screen-output-char
|
||
screen-output-substring
|
||
screen-root-window
|
||
screen-scroll-lines-down
|
||
screen-scroll-lines-up
|
||
screen-select-cursor!
|
||
screen-select-window!
|
||
screen-selected-window
|
||
screen-state
|
||
screen-typein-window
|
||
screen-visibility
|
||
screen-visible?
|
||
screen-window-list
|
||
screen-window0
|
||
screen-x-size
|
||
screen-y-size
|
||
screen?
|
||
set-screen-debug-trace!
|
||
set-screen-root-window!
|
||
update-screen!
|
||
window-screen
|
||
with-screen-in-update))
|
||
|
||
(define-package (edwin window)
|
||
(files "window"
|
||
"utlwin"
|
||
"bufwin"
|
||
"bufwfs"
|
||
"bufwiu"
|
||
"bufwmc"
|
||
"modwin"
|
||
"buffrm"
|
||
"edtfrm")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
display-style/discard-screen-contents?
|
||
display-style/ignore-input?
|
||
display-style/ignore-redisplay-flags?
|
||
display-style/no-screen-output?
|
||
dont-restore-saved-configuration
|
||
edwin-variable$cursor-centering-point
|
||
edwin-variable$mode-line-inverse-video
|
||
edwin-variable$scroll-step
|
||
edwin-variable$char-image-strings
|
||
edwin-variable$tab-width
|
||
edwin-variable$truncate-lines
|
||
edwin-variable$truncate-partial-width-windows
|
||
screen-window-configuration
|
||
set-screen-window-configuration!
|
||
set-window-buffer!
|
||
set-window-debug-trace!
|
||
set-window-point!
|
||
set-window-start-mark!
|
||
window-buffer
|
||
window-char->image
|
||
window-clear-override-message!
|
||
window-configuration?
|
||
window-coordinates->mark
|
||
window-direct-output-backward-char!
|
||
window-direct-output-forward-char!
|
||
window-direct-output-insert-char!
|
||
window-direct-output-insert-newline!
|
||
window-direct-output-insert-substring!
|
||
window-direct-output-cursor!
|
||
window-direct-update!
|
||
window-home-cursor!
|
||
window-mark->coordinates
|
||
window-mark->x
|
||
window-mark->y
|
||
window-mark-visible?
|
||
window-modeline-event!
|
||
(window-needs-redisplay? buffer-frame-needs-redisplay?)
|
||
window-override-message
|
||
window-point
|
||
window-point-coordinates
|
||
window-point-x
|
||
window-point-y
|
||
window-root-window
|
||
window-redraw!
|
||
window-scroll-y-absolute!
|
||
window-scroll-y-relative!
|
||
window-select-time
|
||
window-set-override-message!
|
||
window-start-mark
|
||
(window-x-size buffer-frame-x-size)
|
||
window-y-center
|
||
(window-y-size buffer-frame-y-size)
|
||
(window? buffer-frame?)
|
||
with-saved-configuration)
|
||
(export (edwin screen)
|
||
editor-frame-screen
|
||
editor-frame-select-cursor!
|
||
editor-frame-cursor-window
|
||
editor-frame-select-window!
|
||
editor-frame-selected-window
|
||
editor-frame-typein-window
|
||
editor-frame-update-display!
|
||
editor-frame-window0
|
||
editor-frame-windows
|
||
make-editor-frame))
|
||
|
||
(define-package (edwin window combination)
|
||
(files "comwin")
|
||
(parent (edwin window))
|
||
(export (edwin)
|
||
window+
|
||
window-
|
||
window-1+
|
||
window-delete!
|
||
window-grow-horizontally!
|
||
window-grow-vertically!
|
||
window-has-down-neighbor?
|
||
window-has-horizontal-neighbor?
|
||
window-has-left-neighbor?
|
||
window-has-no-neighbors?
|
||
window-has-right-neighbor?
|
||
window-has-up-neighbor?
|
||
window-has-vertical-neighbor?
|
||
window-split-horizontally!
|
||
window-split-vertically!
|
||
window1+)
|
||
(export (edwin window)
|
||
combination-child
|
||
combination-leaf-window
|
||
combination-vertical?
|
||
combination?
|
||
window-next
|
||
window0))
|
||
|
||
(define-package (edwin modeline-string)
|
||
(files "modlin")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
add-minor-mode-line-entry!
|
||
edwin-variable$global-mode-string
|
||
edwin-variable$minor-mode-alist
|
||
edwin-variable$mode-line-buffer-identification
|
||
edwin-variable$mode-line-format
|
||
edwin-variable$mode-line-modified
|
||
edwin-variable$mode-line-procedure
|
||
edwin-variable$mode-line-process
|
||
edwin-variable$mode-name
|
||
format-modeline-string
|
||
modeline-string!
|
||
remove-minor-mode-line-entry!))
|
||
|
||
(define-package (edwin command-reader)
|
||
(files "comred")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
abort-current-command
|
||
add-command-suffix!
|
||
auto-argument-mode?
|
||
command-argument
|
||
command-history-list
|
||
command-message-receive
|
||
command-reader
|
||
current-command
|
||
current-command-key
|
||
dispatch-on-key
|
||
dispatch-on-command
|
||
execute-button-command
|
||
execute-key
|
||
execute-command
|
||
execute-command-history-entry
|
||
keyboard-keys-read
|
||
last-command
|
||
last-command-key
|
||
maybe-add-command-suffix!
|
||
override-next-command!
|
||
read-and-dispatch-on-key
|
||
return-to-command-loop
|
||
set-command-argument!
|
||
set-command-message!
|
||
set-current-command!
|
||
top-level-command-reader))
|
||
|
||
(define-package (edwin keyboard)
|
||
(files "input")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
append-command-prompt!
|
||
append-message
|
||
clear-message
|
||
command-prompt
|
||
keyboard-read
|
||
keyboard-peek
|
||
keyboard-peek-no-hang
|
||
keyboard-read-char
|
||
message
|
||
message-args->string
|
||
message-wrapper
|
||
reset-command-prompt!
|
||
set-command-prompt!
|
||
temporary-message))
|
||
|
||
(define-package (edwin prompt)
|
||
(files "prompt")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
call-with-confirmed-pass-phrase
|
||
call-with-stored-pass-phrase
|
||
call-with-pass-phrase
|
||
completion-message
|
||
delete-stored-pass-phrase
|
||
edwin-command$exit-minibuffer
|
||
edwin-command$exit-minibuffer-yes-or-no
|
||
edwin-command$minibuffer-complete
|
||
edwin-command$minibuffer-complete-and-exit
|
||
edwin-command$minibuffer-complete-word
|
||
edwin-command$minibuffer-completion-help
|
||
edwin-command$minibuffer-yank-default
|
||
edwin-command$repeat-complex-command
|
||
edwin-mode$minibuffer-local
|
||
edwin-mode$minibuffer-local-completion
|
||
edwin-mode$minibuffer-local-must-match
|
||
edwin-mode$minibuffer-local-yes-or-no
|
||
edwin-variable$enable-recursive-minibuffers
|
||
edwin-variable$completion-auto-help
|
||
lookup-prompt-option
|
||
pop-up-completions-list
|
||
pop-up-generated-completions
|
||
prompt-for-alist-value
|
||
prompt-for-char
|
||
prompt-for-command
|
||
prompt-for-completed-string
|
||
prompt-for-confirmation?
|
||
prompt-for-key
|
||
prompt-for-number
|
||
prompt-for-string
|
||
prompt-for-string-table-name
|
||
prompt-for-string-table-value
|
||
prompt-for-string/prompt
|
||
prompt-for-typein
|
||
prompt-for-variable
|
||
prompt-for-yes-or-no?
|
||
prompt-history-strings
|
||
prompt-options-default-string
|
||
set-prompt-history-strings!
|
||
standard-completion
|
||
temporary-typein-message
|
||
typein-edit-other-window
|
||
within-typein-edit
|
||
within-typein-edit?
|
||
write-completions-list)
|
||
(export (edwin screen)
|
||
make-typein-buffer-name))
|
||
|
||
(define-package (edwin buffer-input-port)
|
||
(files "bufinp")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
call-with-input-mark
|
||
call-with-input-region
|
||
make-buffer-input-port
|
||
with-input-from-mark
|
||
with-input-from-region))
|
||
|
||
(define-package (edwin buffer-output-port)
|
||
(files "bufout")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
call-with-output-mark
|
||
mark->output-port
|
||
output-port->mark
|
||
with-output-to-mark))
|
||
|
||
(define-package (edwin window-output-port)
|
||
(files "winout")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
window-output-port
|
||
with-output-to-current-point
|
||
with-output-to-window-point))
|
||
|
||
(define-package (edwin regular-expression)
|
||
(files "regexp")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
delete-match
|
||
preserving-match-data
|
||
re-match-buffer-forward
|
||
re-match-data
|
||
re-match-end
|
||
re-match-extract-string
|
||
re-match-forward
|
||
re-match-start
|
||
re-search-backward
|
||
re-search-buffer-backward
|
||
re-search-buffer-forward
|
||
re-search-forward
|
||
re-substitute-registers
|
||
replace-match
|
||
search-backward
|
||
search-forward
|
||
set-re-match-data!)
|
||
(import (runtime regular-expression)
|
||
registers))
|
||
|
||
(define-package (edwin lisp-indentation)
|
||
(files "linden")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-variable$lisp-body-indent
|
||
edwin-variable$lisp-indent-hook
|
||
edwin-variable$lisp-indent-methods
|
||
edwin-variable$lisp-indent-offset
|
||
edwin-variable$lisp-indent-regexps
|
||
indent-code-rigidly
|
||
lisp-comment-indentation
|
||
lisp-comment-locate
|
||
lisp-indent-definition
|
||
lisp-indent-line
|
||
lisp-indent-sexp
|
||
lisp-indent-special-form
|
||
standard-lisp-indent-hook))
|
||
|
||
(define-package (edwin command-argument)
|
||
(files "argred")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
command-argument-multiplier-only?
|
||
command-argument-negative-only?
|
||
command-argument-numeric-value
|
||
command-argument-prompt
|
||
command-argument-self-insert?
|
||
command-argument-value
|
||
edwin-command$auto-argument
|
||
edwin-command$auto-digit-argument
|
||
edwin-command$auto-negative-argument
|
||
edwin-command$digit-argument
|
||
edwin-command$negative-argument
|
||
edwin-command$universal-argument))
|
||
|
||
(define-package (edwin buffer-menu)
|
||
(files "bufmnu")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-variable$buffer-menu-kill-on-quit))
|
||
|
||
(define-package (edwin register-command)
|
||
(files "regcom")
|
||
(parent (edwin)))
|
||
|
||
(define-package (edwin c-indentation)
|
||
(files "cinden")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
c-compute-indentation
|
||
c-indent-expression
|
||
c-indent-line
|
||
edwin-variable$c-argdecl-indent
|
||
edwin-variable$c-brace-imaginary-offset
|
||
edwin-variable$c-brace-offset
|
||
edwin-variable$c-continued-brace-offset
|
||
edwin-variable$c-continued-statement-offset
|
||
edwin-variable$c-indent-level
|
||
edwin-variable$c-label-offset))
|
||
|
||
(define-package (edwin incremental-search)
|
||
(files "iserch")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
isearch))
|
||
|
||
(define-package (edwin command-summary)
|
||
(files "keymap")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
describe-bindings
|
||
edwin-command$describe-bindings
|
||
edwin-command$make-command-summary
|
||
make-command-summary))
|
||
|
||
(define-package (edwin inferior-repl)
|
||
(files "intmod")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
buffer/inferior-cmdl
|
||
current-repl-buffer
|
||
current-repl-buffer*
|
||
edwin-command$inferior-cmdl-abort-nearest
|
||
edwin-command$inferior-cmdl-abort-previous
|
||
edwin-command$inferior-cmdl-abort-top-level
|
||
edwin-command$inferior-cmdl-breakpoint
|
||
edwin-command$inferior-cmdl-self-insert
|
||
edwin-command$inferior-repl-eval-defun
|
||
edwin-command$inferior-repl-eval-last-sexp
|
||
edwin-command$inferior-repl-eval-region
|
||
edwin-command$repl
|
||
edwin-command$set-inferior-repl-buffer
|
||
edwin-mode$inferior-cmdl
|
||
edwin-mode$inferior-repl
|
||
edwin-variable$inferior-repl-write-results
|
||
edwin-variable$repl-enable-transcript-buffer
|
||
edwin-variable$repl-error-decision
|
||
global-repl-buffer
|
||
inferior-repl-eval-expression
|
||
inferior-repl-eval-region
|
||
local-repl-buffer
|
||
repl-buffer-list
|
||
repl-buffer?
|
||
set-local-repl-buffer!
|
||
start-inferior-repl!)
|
||
(import (runtime user-interface)
|
||
default/write-values))
|
||
|
||
(define-package (edwin dired)
|
||
(files "dired")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
dired-filename-start
|
||
dired-mark-files!
|
||
dired-marked-files
|
||
dired-next-files
|
||
dired-pathname
|
||
dired-this-file
|
||
edwin-command$dired
|
||
edwin-command$dired-abort
|
||
edwin-command$dired-backup-unmark
|
||
edwin-command$dired-clean-directory
|
||
edwin-command$dired-do-copy
|
||
edwin-command$dired-do-deletions
|
||
edwin-command$dired-do-rename
|
||
edwin-command$dired-encrypt/decrypt-file
|
||
edwin-command$dired-find-file
|
||
edwin-command$dired-find-file-other-window
|
||
edwin-command$dired-flag-auto-save-files
|
||
edwin-command$dired-flag-backup-files
|
||
edwin-command$dired-flag-file-deletion
|
||
edwin-command$dired-mark
|
||
edwin-command$dired-next-line
|
||
edwin-command$dired-other-window
|
||
edwin-command$dired-previous-line
|
||
edwin-command$dired-quit
|
||
edwin-command$dired-revert
|
||
edwin-command$dired-summary
|
||
edwin-command$dired-unmark
|
||
edwin-command$dired-unmark-all-files
|
||
edwin-command$list-directory
|
||
edwin-mode$dired
|
||
edwin-variable$dired-backup-overwrite
|
||
edwin-variable$dired-kept-versions
|
||
edwin-variable$dired-mode-hook
|
||
edwin-variable$dired-trivial-filenames
|
||
for-each-dired-mark
|
||
insert-dired-entry!
|
||
make-dired-buffer))
|
||
|
||
(define-package (edwin info)
|
||
(files "info")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$info
|
||
edwin-command$info-cease-edit
|
||
edwin-command$info-current-menu-item
|
||
edwin-command$info-directory
|
||
edwin-command$info-edit
|
||
edwin-command$info-exit
|
||
edwin-command$info-fifth-menu-item
|
||
edwin-command$info-first-menu-item
|
||
edwin-command$info-follow-reference
|
||
edwin-command$info-fourth-menu-item
|
||
edwin-command$info-goto-node
|
||
edwin-command$info-help
|
||
edwin-command$info-last
|
||
edwin-command$info-menu
|
||
edwin-command$info-next
|
||
edwin-command$info-previous
|
||
edwin-command$info-search
|
||
edwin-command$info-second-menu-item
|
||
edwin-command$info-summary
|
||
edwin-command$info-tagify
|
||
edwin-command$info-third-menu-item
|
||
edwin-command$info-up
|
||
edwin-command$info-validate
|
||
edwin-variable$info-current-file
|
||
edwin-variable$info-current-node
|
||
edwin-variable$info-current-subfile
|
||
edwin-variable$info-default-directory-list
|
||
edwin-variable$info-directory
|
||
edwin-variable$info-directory-list
|
||
edwin-variable$info-enable-active-nodes
|
||
edwin-variable$info-enable-edit
|
||
edwin-variable$info-history
|
||
edwin-variable$info-previous-search
|
||
edwin-variable$info-selection-key
|
||
edwin-variable$info-suffix-list
|
||
edwin-variable$info-tag-table-end
|
||
edwin-variable$info-tag-table-start))
|
||
|
||
(define-package (edwin rectangle)
|
||
(files "reccom")
|
||
(parent (edwin)))
|
||
|
||
(define-package (edwin tags)
|
||
(files "tagutl")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$find-tag
|
||
edwin-command$find-tag-other-window
|
||
edwin-command$tags-loop-continue
|
||
edwin-command$tags-query-replace
|
||
edwin-command$tags-search
|
||
edwin-command$visit-additional-tags-table
|
||
edwin-command$visit-tags-table
|
||
edwin-variable$new-tags-behavior?
|
||
edwin-variable$tags-table-pathnames))
|
||
|
||
(define-package (edwin occurrence)
|
||
(files "occur")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$count-matches
|
||
edwin-command$delete-matching-lines
|
||
edwin-command$delete-non-matching-lines
|
||
edwin-command$flush-lines
|
||
edwin-command$how-many
|
||
edwin-command$keep-lines
|
||
edwin-command$list-matching-lines
|
||
edwin-command$occur
|
||
edwin-command$occur-mode-goto-occurrence
|
||
edwin-mode$occur
|
||
edwin-variable$list-matching-lines-default-context-lines
|
||
pop-up-occur-buffer))
|
||
|
||
(define-package (edwin debugger)
|
||
(files "debug")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
debug-scheme-error
|
||
edwin-command$browse-continuation
|
||
edwin-command$browse-environment
|
||
edwin-command$browser-next-line
|
||
edwin-command$browser-previous-line
|
||
edwin-command$browser-quit
|
||
edwin-command$browser-select-line
|
||
edwin-command$browser-where
|
||
edwin-mode$continuation-browser
|
||
edwin-mode$environment-browser
|
||
edwin-variable$debugger-confirm-return?
|
||
edwin-variable$debugger-expand-reductions?
|
||
edwin-variable$debugger-hide-system-code?
|
||
edwin-variable$debugger-max-subproblems
|
||
edwin-variable$debugger-one-at-a-time?
|
||
edwin-variable$debugger-open-markers?
|
||
edwin-variable$debugger-quit-on-restart?
|
||
edwin-variable$debugger-quit-on-return?
|
||
edwin-variable$debugger-show-help-message?
|
||
edwin-variable$debugger-split-window?
|
||
edwin-variable$debugger-start-new-frame?
|
||
edwin-variable$debugger-start-new-screen?
|
||
edwin-variable$debugger-verbose-mode?
|
||
edwin-variable$environment-package-limit)
|
||
(import (runtime debugger)
|
||
command/condition-restart
|
||
command/frame
|
||
command/print-environment-procedure
|
||
command/print-expression
|
||
command/show-all-frames
|
||
command/show-current-frame
|
||
debugger-pp
|
||
dstate/condition
|
||
dstate/environment-list
|
||
dstate/expression
|
||
dstate/number-of-reductions
|
||
dstate/previous-subproblems
|
||
dstate/reduction
|
||
dstate/reduction-number
|
||
dstate/subexpression
|
||
dstate/subproblem
|
||
dstate/subproblem-number
|
||
dstate/using-history?
|
||
expression-indentation
|
||
improper-list-length
|
||
make-initial-dstate
|
||
print-reduction-expression
|
||
print-subproblem-environment
|
||
print-subproblem-expression
|
||
reduction-environment
|
||
reduction-expression
|
||
set-current-subproblem!
|
||
set-dstate/environment-list!
|
||
set-dstate/reduction-number!)
|
||
(import (runtime debugger-utilities)
|
||
print-binding
|
||
output-to-string
|
||
write-dbg-name
|
||
print-user-friendly-name)
|
||
(import (runtime error-handler)
|
||
hook/invoke-restart)
|
||
(import (edwin buffer-output-port)
|
||
port/mark)
|
||
(import (runtime rep)
|
||
default/repl-eval
|
||
write-restarts))
|
||
|
||
(define-package (edwin text-properties)
|
||
(files "txtprp")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
add-text-property
|
||
get-text-properties
|
||
get-text-property
|
||
highlight-region
|
||
highlight-region-excluding-indentation
|
||
highlight-subgroup
|
||
local-comtabs
|
||
next-property-change
|
||
next-specific-property-change
|
||
previous-property-change
|
||
previous-specific-property-change
|
||
region-read-only
|
||
region-writeable
|
||
remove-text-property
|
||
set-region-local-comtabs!
|
||
set-subgroup-local-comtabs!
|
||
subgroup-read-only
|
||
subgroup-writeable)
|
||
(export (edwin group-operations)
|
||
text-not-deleteable?
|
||
text-not-insertable?
|
||
text-not-replaceable?
|
||
update-intervals-for-deletion!
|
||
update-intervals-for-insertion!
|
||
update-intervals-for-replacement!)
|
||
(export (edwin undo)
|
||
group-extract-properties
|
||
group-reinsert-properties!
|
||
reinsert-properties-size))
|
||
|
||
(define-package (edwin process)
|
||
(parent (edwin))
|
||
(import (runtime primitive-io)
|
||
channel-descriptor-for-select)
|
||
(export (edwin)
|
||
accept-process-output
|
||
add-process-filter
|
||
buffer-processes ; always present
|
||
continue-process
|
||
delete-process ; always present
|
||
edwin-command$list-processes
|
||
edwin-command$shell-command
|
||
edwin-command$shell-command-on-region
|
||
edwin-variable$delete-exited-processes
|
||
edwin-variable$exec-path
|
||
edwin-variable$process-connection-type
|
||
edwin-variable$shell-file-name
|
||
get-buffer-process ; always present
|
||
get-process-by-name
|
||
handle-process-status-changes
|
||
hangup-process
|
||
interrupt-process
|
||
kill-process
|
||
process-arguments
|
||
process-arguments->string
|
||
process-buffer
|
||
process-exit-reason
|
||
process-filter
|
||
process-kill-without-query
|
||
process-list ; always present
|
||
process-mark
|
||
process-name
|
||
process-output-available? ; always present
|
||
process-runnable?
|
||
process-send-char
|
||
process-send-eof
|
||
process-send-string
|
||
process-send-substring
|
||
process-sentinel
|
||
process-status
|
||
process-status-changes? ; always present
|
||
process-status-message
|
||
quit-process
|
||
remove-process-filter
|
||
run-synchronous-process
|
||
run-synchronous-process-1
|
||
set-process-buffer!
|
||
set-process-filter!
|
||
set-process-kill-without-query!
|
||
set-process-sentinel!
|
||
shell-command
|
||
standard-process-filter
|
||
start-process
|
||
stop-process
|
||
subprocesses-available? ; always present
|
||
))
|
||
|
||
(os-type-case
|
||
((dos)
|
||
(define-package (edwin dosjob)
|
||
(files "doscom" "dosshell")
|
||
(parent (edwin)))))
|
||
|
||
(os-type-case
|
||
((unix dos nt)
|
||
(define-package (edwin screen console-screen)
|
||
(files "ansi" "termcap" "tterm")
|
||
(parent (edwin screen))
|
||
(export (edwin)
|
||
resize-screen)
|
||
(import (edwin keyboard)
|
||
keyboard-peek-busy-no-hang)
|
||
(import (edwin process)
|
||
register-process-output-events)
|
||
(import (runtime primitive-io)
|
||
channel-descriptor-for-select
|
||
%channel-read
|
||
channel-type=terminal?
|
||
have-select?
|
||
terminal-get-state
|
||
terminal-output-baud-rate
|
||
terminal-raw-input
|
||
terminal-raw-output
|
||
terminal-set-state)
|
||
(initialization (initialize-package!)))))
|
||
|
||
(os-type-case
|
||
((unix)
|
||
(extend-package (edwin)
|
||
(files "unix"
|
||
"comint" ; command interpreter process stuff
|
||
"compile" ; compilation subprocess
|
||
"shell" ; shell subprocess commands
|
||
"techinfo" ; techinfo commands
|
||
"telnet" ; telnet subprocess commands
|
||
"manual" ; man page display
|
||
"print" ; printer output
|
||
))
|
||
|
||
(extend-package (edwin dired)
|
||
(files "dirunx")
|
||
(export (edwin)
|
||
edwin-command$dired-chgrp
|
||
edwin-command$dired-chmod
|
||
edwin-command$dired-chown
|
||
edwin-command$dired-do-compress))
|
||
|
||
(extend-package (edwin process)
|
||
(files "process"))
|
||
|
||
(define-package (edwin screen x-screen)
|
||
(files "xterm")
|
||
(parent (edwin screen))
|
||
(import (runtime ffi)
|
||
load-option-quietly)))
|
||
((nt)
|
||
(global-definitions "../win32/win32")
|
||
|
||
(extend-package (edwin)
|
||
(files "dos"
|
||
"dosfile"
|
||
"comint" ; command interpreter process stuff
|
||
"compile" ; compilation subprocess
|
||
"shell" ; shell subprocess commands
|
||
)
|
||
(import (win32)
|
||
get-module-file-name
|
||
get-module-handle))
|
||
|
||
(extend-package (edwin dired)
|
||
(files "dirw32")
|
||
(export (edwin)
|
||
edwin-command$dired-chmod
|
||
edwin-command$dired-hidden-toggle))
|
||
|
||
(extend-package (edwin screen console-screen)
|
||
(files "bios"))
|
||
|
||
(extend-package (edwin process)
|
||
(files "process"))
|
||
|
||
(define-package (edwin screen win32)
|
||
(files "win32")
|
||
(parent (edwin screen))
|
||
(import (win32)
|
||
adjust-window-rect
|
||
destroy-window
|
||
get-client-rect
|
||
get-handle
|
||
get-menu
|
||
get-system-metrics
|
||
get-window-rect
|
||
load-icon
|
||
make-rect
|
||
mb_ok
|
||
message-beep
|
||
rect/bottom
|
||
rect/left
|
||
rect/right
|
||
rect/top
|
||
send-message
|
||
set-active-window
|
||
set-focus
|
||
set-window-pos
|
||
set-window-text
|
||
show-window
|
||
sleep
|
||
sm_cxframe
|
||
sm_cycaption
|
||
sm_cyframe
|
||
sm_cymenu
|
||
sw_showminnoactive
|
||
swp_nomove
|
||
swp_nosize
|
||
swp_nozorder
|
||
update-window
|
||
ws_overlappedwindow)
|
||
(import (edwin keyboard)
|
||
keyboard-peek-busy-no-hang)
|
||
(export (edwin win-commands)
|
||
win32-screen/get-client-size
|
||
win32-screen/get-position
|
||
win32-screen/set-background-color!
|
||
win32-screen/set-font!
|
||
win32-screen/set-foreground-color!
|
||
win32-screen/set-icon!
|
||
win32-screen/set-name!
|
||
win32-screen/set-position!
|
||
win32-screen/set-size!)
|
||
(initialization (initialize-package!)))
|
||
|
||
(define-package (edwin win32-keys)
|
||
(files "key-w32")
|
||
(parent (edwin))
|
||
(export (edwin screen win32)
|
||
win32-make-special-key)
|
||
(export (edwin)
|
||
;; the END key
|
||
end)
|
||
(initialization (initialize-package!)))
|
||
|
||
(define-package (edwin win-commands)
|
||
(files "win32com")
|
||
(parent (edwin))
|
||
(import (win32)
|
||
load-icon
|
||
get-handle)
|
||
(export (edwin)
|
||
edwin-command$set-background-color
|
||
edwin-command$set-default-font
|
||
edwin-command$set-font
|
||
edwin-command$set-foreground-color
|
||
edwin-command$set-frame-position
|
||
edwin-command$set-frame-size
|
||
edwin-command$set-icon
|
||
edwin-command$show-frame-position
|
||
edwin-command$show-frame-size)
|
||
(export (edwin screen win32)
|
||
update-win32-screen-name!))))
|
||
|
||
(define-package (edwin diff)
|
||
(files "diff")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
diff-to-buffer
|
||
edwin-command$diff
|
||
edwin-command$diff-auto-save
|
||
edwin-command$diff-backup
|
||
edwin-command$diff-buffer-with-file
|
||
edwin-variable$diff-program
|
||
edwin-variable$diff-switches))
|
||
|
||
(define-package (edwin vc)
|
||
(files "vc"
|
||
"vc-rcs"
|
||
"vc-cvs"
|
||
"vc-svn"
|
||
"vc-bzr"
|
||
"vc-git")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$vc-diff
|
||
edwin-command$vc-directory
|
||
edwin-command$vc-dired
|
||
edwin-command$vc-finish-logentry
|
||
edwin-command$vc-insert-headers
|
||
edwin-command$vc-next-action
|
||
edwin-command$vc-print-log
|
||
edwin-command$vc-register
|
||
edwin-command$vc-revert-buffer
|
||
edwin-command$vc-toggle-read-only
|
||
edwin-command$vc-version-diff
|
||
edwin-command$vc-version-other-window
|
||
edwin-mode$vc-log
|
||
edwin-variable$git-diff-switches
|
||
edwin-variable$vc-checkin-hooks
|
||
edwin-variable$vc-checkout-carefully
|
||
edwin-variable$vc-command-messages
|
||
edwin-variable$vc-cvs-stay-local
|
||
edwin-variable$vc-default-init-version
|
||
edwin-variable$vc-delete-logbuf-window
|
||
edwin-variable$vc-display-status
|
||
edwin-variable$vc-follow-symlinks
|
||
edwin-variable$vc-initial-comment
|
||
edwin-variable$vc-keep-workfiles
|
||
edwin-variable$vc-log-mode-hook
|
||
edwin-variable$vc-make-backup-files
|
||
edwin-variable$vc-mode-line-status
|
||
edwin-variable$vc-rcs-preserve-mod-times
|
||
edwin-variable$vc-suppress-confirm))
|
||
|
||
(define-package (edwin rcs-parse)
|
||
(files "rcsparse")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
parse-rcs-admin
|
||
rcs-admin/access-list
|
||
rcs-admin/branch
|
||
rcs-admin/comment
|
||
rcs-admin/description
|
||
rcs-admin/expand
|
||
rcs-admin/head
|
||
rcs-admin/locks
|
||
rcs-admin/strict?
|
||
rcs-admin/symbols
|
||
rcs-admin?
|
||
rcs-delta/author
|
||
rcs-delta/branches
|
||
rcs-delta/date
|
||
rcs-delta/next
|
||
rcs-delta/number
|
||
rcs-delta/state
|
||
rcs-delta?
|
||
rcs-find-delta
|
||
rcs-number-head
|
||
rcs-number-length))
|
||
|
||
(define-package (edwin sendmail)
|
||
(files "sendmail")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
add-buffer-mime-attachment!
|
||
buffer-mime-attachments
|
||
buffer-mime-processing-enabled?
|
||
disable-buffer-mime-processing!
|
||
edwin-command$add-mime-file-attachment
|
||
edwin-command$kill-mime-attachment
|
||
edwin-command$mail
|
||
edwin-command$mail-bcc
|
||
edwin-command$mail-browse-attachments
|
||
edwin-command$mail-cc
|
||
edwin-command$mail-fill-yanked-message
|
||
edwin-command$mail-other-window
|
||
edwin-command$mail-send
|
||
edwin-command$mail-send-and-exit
|
||
edwin-command$mail-signature
|
||
edwin-command$mail-subject
|
||
edwin-command$mail-to
|
||
edwin-command$mail-yank-original
|
||
edwin-command$mime-attachments-quit
|
||
edwin-mode$mail
|
||
edwin-mode$mime-attachments
|
||
edwin-variable$file-type-to-mime-type
|
||
edwin-variable$mail-abbreviate-mime
|
||
edwin-variable$mail-archive-file-name
|
||
edwin-variable$mail-authentication
|
||
edwin-variable$mail-default-reply-to
|
||
edwin-variable$mail-from-style
|
||
edwin-variable$mail-full-name
|
||
edwin-variable$mail-header-function
|
||
edwin-variable$mail-header-separator
|
||
edwin-variable$mail-host-address
|
||
edwin-variable$mail-identify-reader
|
||
edwin-variable$mail-interactive
|
||
edwin-variable$mail-mode-hook
|
||
edwin-variable$mail-organization
|
||
edwin-variable$mail-relay-host
|
||
edwin-variable$mail-relay-service
|
||
edwin-variable$mail-reply-buffer
|
||
edwin-variable$mail-self-blind
|
||
edwin-variable$mail-setup-hook
|
||
edwin-variable$mail-yank-ignored-headers
|
||
edwin-variable$mail-yank-prefix
|
||
edwin-variable$mime-attachments-mode-hook
|
||
edwin-variable$send-mail-procedure
|
||
edwin-variable$sendmail-program
|
||
edwin-variable$smtp-greeting-hostname
|
||
edwin-variable$smtp-require-valid-recipients
|
||
edwin-variable$smtp-trace
|
||
edwin-variable$smtp-user-name
|
||
edwin-variable$user-mail-address
|
||
enable-buffer-mime-processing!
|
||
finish-preparing-mail-buffer
|
||
global-mailer-version-string
|
||
mail-field-end
|
||
mail-field-end!
|
||
mail-field-region
|
||
mail-field-start
|
||
mail-from-string
|
||
mail-full-name
|
||
mail-header-end
|
||
mail-insert-field
|
||
mail-insert-field-value
|
||
mail-insert-field-value!
|
||
mail-match-header-separator
|
||
mail-new-field!
|
||
mail-organization-string
|
||
mail-position-on-field
|
||
mail-position-on-cc-field
|
||
mail-setup
|
||
mailer-version-string
|
||
make-initialized-mail-buffer
|
||
make-mail-buffer
|
||
prepare-mail-buffer-for-sending
|
||
random-mime-boundary-string
|
||
set-buffer-mime-attachments!
|
||
user-mail-address))
|
||
|
||
(define-package (edwin mail-alias)
|
||
(files "malias")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
define-mail-alias
|
||
expand-mail-aliases
|
||
guarantee-mail-aliases))
|
||
|
||
(define-package (edwin rmail)
|
||
(files "rmail"
|
||
"rmailsrt"
|
||
"rmailsum")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$rmail
|
||
edwin-command$rmail-delete-backward
|
||
edwin-command$rmail-delete-forward
|
||
edwin-command$rmail-delete-message
|
||
edwin-command$rmail-expunge
|
||
edwin-command$rmail-get-new-mail
|
||
edwin-command$rmail-input
|
||
edwin-command$rmail-last-message
|
||
edwin-command$rmail-next-message
|
||
edwin-command$rmail-next-undeleted-message
|
||
edwin-command$rmail-output
|
||
edwin-command$rmail-output-to-rmail-file
|
||
edwin-command$rmail-previous-message
|
||
edwin-command$rmail-previous-undeleted-message
|
||
edwin-command$rmail-reply
|
||
edwin-command$rmail-show-message
|
||
edwin-command$rmail-sort-by-author
|
||
edwin-command$rmail-sort-by-date
|
||
edwin-command$rmail-sort-by-recipient
|
||
edwin-command$rmail-sort-by-size-lines
|
||
edwin-command$rmail-sort-by-subject
|
||
edwin-command$rmail-summary
|
||
edwin-command$rmail-summary-beginning-of-buffer
|
||
edwin-command$rmail-summary-by-recipients
|
||
edwin-command$rmail-summary-delete-message
|
||
edwin-command$rmail-summary-delete-message-backward
|
||
edwin-command$rmail-summary-delete-message-forward
|
||
edwin-command$rmail-summary-exit
|
||
edwin-command$rmail-summary-expunge
|
||
edwin-command$rmail-summary-expunge-and-save
|
||
edwin-command$rmail-summary-get-new-mail
|
||
edwin-command$rmail-summary-input
|
||
edwin-command$rmail-summary-mail
|
||
edwin-command$rmail-summary-next-message
|
||
edwin-command$rmail-summary-next-undeleted-message
|
||
edwin-command$rmail-summary-output
|
||
edwin-command$rmail-summary-output-to-rmail-file
|
||
edwin-command$rmail-summary-previous-message
|
||
edwin-command$rmail-summary-previous-undeleted-message
|
||
edwin-command$rmail-summary-quit
|
||
edwin-command$rmail-summary-reply
|
||
edwin-command$rmail-summary-scroll-message-down
|
||
edwin-command$rmail-summary-scroll-message-up
|
||
edwin-command$rmail-summary-show-message
|
||
edwin-command$rmail-summary-toggle-header
|
||
edwin-command$rmail-summary-undelete-message
|
||
edwin-command$rmail-summary-undelete-message-backward
|
||
edwin-command$rmail-summary-undelete-message-forward
|
||
edwin-command$rmail-toggle-header
|
||
edwin-command$rmail-undelete-previous-message
|
||
edwin-mode$rmail
|
||
edwin-mode$rmail-summary
|
||
edwin-variable$rmail-buffer
|
||
edwin-variable$rmail-default-dont-reply-to-names
|
||
edwin-variable$rmail-delete-after-output
|
||
edwin-variable$rmail-dont-reply-to-names
|
||
edwin-variable$rmail-file-name
|
||
edwin-variable$rmail-ignored-headers
|
||
edwin-variable$rmail-inbox-list
|
||
edwin-variable$rmail-last-file
|
||
edwin-variable$rmail-last-rmail-file
|
||
edwin-variable$rmail-message-filter
|
||
edwin-variable$rmail-mode-hook
|
||
edwin-variable$rmail-new-mail-hook
|
||
edwin-variable$rmail-pop-accounts
|
||
edwin-variable$rmail-pop-procedure
|
||
edwin-variable$rmail-primary-inbox-list
|
||
edwin-variable$rmail-primary-pop-server
|
||
edwin-variable$rmail-reply-with-re
|
||
edwin-variable$rmail-summary-buffer
|
||
edwin-variable$rmail-summary-mode-hook
|
||
edwin-variable$rmail-summary-vector
|
||
fetch-all-fields
|
||
fetch-first-field
|
||
fetch-last-field
|
||
guarantee-rmail-variables-initialized
|
||
make-in-reply-to-field
|
||
prompt-for-rmail-output-filename
|
||
rfc822-region->babyl
|
||
rfc822-region-reply-headers
|
||
rmail-output-to-rmail-file
|
||
rmail-output-to-unix-mail-file
|
||
rmail-spool-directory
|
||
with-buffer-open))
|
||
|
||
(define-package (edwin rfc822)
|
||
(files "rfc822")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
rfc822:addresses->string
|
||
rfc822:canonicalize-address-string
|
||
rfc822:canonicalize-named-address-string
|
||
rfc822:first-address
|
||
rfc822:header-field-name?
|
||
rfc822:parse-addr-spec
|
||
rfc822:parse-domain
|
||
rfc822:parse-list
|
||
rfc822:parse-msg-id
|
||
rfc822:parse-word
|
||
rfc822:quote-string
|
||
rfc822:unquote-string
|
||
rfc822:received-header-components
|
||
rfc822:string->addresses
|
||
rfc822:string->named-addresses
|
||
rfc822:string->tokens
|
||
rfc822:string-tokenizer
|
||
rfc822:strip-comments
|
||
rfc822:strip-quoted-names
|
||
rfc822:tokens->string))
|
||
|
||
(define-package (edwin stepper)
|
||
(files "eystep")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$step-defun
|
||
edwin-command$step-expression
|
||
edwin-command$step-last-sexp
|
||
edwin-command$stepper-contract
|
||
edwin-command$stepper-expand
|
||
edwin-command$stepper-run
|
||
edwin-command$stepper-step
|
||
edwin-command$stepper-step-over
|
||
edwin-command$stepper-step-until
|
||
edwin-command$stepper-step-until-visibly
|
||
edwin-command$stepper-summary
|
||
edwin-mode$stepper)
|
||
(import (runtime debugger)
|
||
debugger-pp)
|
||
(import (runtime stepper)
|
||
step-output
|
||
step-output-final-result
|
||
step-output-initialize
|
||
stepper-last-event
|
||
stepper-root-node
|
||
ynode-children
|
||
ynode-contract!
|
||
ynode-doesnt-need-redisplay!
|
||
ynode-exp
|
||
ynode-exp-special
|
||
ynode-expand!
|
||
ynode-hidden-children?
|
||
ynode-needs-redisplay?
|
||
ynode-result
|
||
ynode-result-special
|
||
ynode-type
|
||
ynode-value-node)
|
||
(initialization (initialize-package!)))
|
||
|
||
(define-package (edwin paredit)
|
||
(files "paredit")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$paredit-backslash
|
||
edwin-command$paredit-backward
|
||
edwin-command$paredit-backward-delete
|
||
edwin-command$paredit-close-list
|
||
edwin-command$paredit-close-list-and-newline
|
||
edwin-command$paredit-close-string-and-newline
|
||
edwin-command$paredit-doublequote
|
||
edwin-command$paredit-forward
|
||
edwin-command$paredit-forward-delete
|
||
edwin-command$paredit-kill
|
||
edwin-command$paredit-mode
|
||
edwin-command$paredit-newline
|
||
edwin-command$paredit-open-list
|
||
edwin-command$paredit-raise-sexp
|
||
edwin-command$paredit-recentre-on-sexp
|
||
edwin-command$paredit-splice-sexp
|
||
edwin-command$paredit-wrap-sexp
|
||
edwin-mode$paredit))
|
||
|
||
(define-package (edwin news-reader)
|
||
(files "snr")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$news-all-groups
|
||
edwin-command$news-catch-up-group
|
||
edwin-command$news-clear-read-messages
|
||
edwin-command$news-collapse-threads
|
||
edwin-command$news-compose-article
|
||
edwin-command$news-compose-article-other-window
|
||
edwin-command$news-compose-followup-article
|
||
edwin-command$news-delete-article
|
||
edwin-command$news-delete-thread
|
||
edwin-command$news-expand-threads
|
||
edwin-command$news-expunge-group
|
||
edwin-command$news-forward-article
|
||
edwin-command$news-group-next-thread
|
||
edwin-command$news-group-next-thread-article
|
||
edwin-command$news-group-next-unread-article
|
||
edwin-command$news-group-next-unread-header
|
||
edwin-command$news-group-previous-thread
|
||
edwin-command$news-group-previous-thread-article
|
||
edwin-command$news-group-previous-unread-article
|
||
edwin-command$news-group-previous-unread-header
|
||
edwin-command$news-group-quit
|
||
edwin-command$news-group-show-header
|
||
edwin-command$news-group-show-subject
|
||
edwin-command$news-ignore-article-thread
|
||
edwin-command$news-ignore-thread
|
||
edwin-command$news-kill-current-buffer
|
||
edwin-command$news-mark-article
|
||
edwin-command$news-mark-thread
|
||
edwin-command$news-move-to-distribution
|
||
edwin-command$news-move-to-followup-to
|
||
edwin-command$news-move-to-keywords
|
||
edwin-command$news-move-to-newsgroups
|
||
edwin-command$news-move-to-summary
|
||
edwin-command$news-new-groups
|
||
edwin-command$news-next-article
|
||
edwin-command$news-next-article-in-thread
|
||
edwin-command$news-next-thread-article
|
||
edwin-command$news-next-unread-article
|
||
edwin-command$news-next-unread-article-in-thread
|
||
edwin-command$news-output-article
|
||
edwin-command$news-output-article-to-rmail-file
|
||
edwin-command$news-previous-article
|
||
edwin-command$news-previous-article-in-thread
|
||
edwin-command$news-previous-thread-article
|
||
edwin-command$news-previous-unread-article
|
||
edwin-command$news-previous-unread-article-in-thread
|
||
edwin-command$news-read-group-headers
|
||
edwin-command$news-read-marked-bodies
|
||
edwin-command$news-read-subscribed-group-headers
|
||
edwin-command$news-refresh-group
|
||
edwin-command$news-refresh-groups
|
||
edwin-command$news-reply-to-article
|
||
edwin-command$news-revert-group
|
||
edwin-command$news-save-server-data
|
||
edwin-command$news-select-article
|
||
edwin-command$news-select-group
|
||
edwin-command$news-subscribe-group
|
||
edwin-command$news-subscribe-group-by-name
|
||
edwin-command$news-toggle-article-context
|
||
edwin-command$news-toggle-article-header
|
||
edwin-command$news-toggle-online
|
||
edwin-command$news-toggle-thread
|
||
edwin-command$news-unmark-article
|
||
edwin-command$news-unmark-article-backwards
|
||
edwin-command$news-unmark-thread
|
||
edwin-command$news-unsubscribe-group
|
||
edwin-command$news-unsubscribe-group-backwards
|
||
edwin-command$read-newsrc-file
|
||
edwin-command$rnews
|
||
edwin-command$write-newsrc-file
|
||
edwin-mode$compose-news
|
||
edwin-mode$news-article
|
||
edwin-mode$news-common
|
||
edwin-mode$news-group
|
||
edwin-mode$news-server
|
||
edwin-variable$compose-news-mode-hook
|
||
edwin-variable$news-article-context-lines
|
||
edwin-variable$news-article-highlight-selected
|
||
edwin-variable$news-article-mode-hook
|
||
edwin-variable$news-automatically-collapse-threads
|
||
edwin-variable$news-common-mode-hook
|
||
edwin-variable$news-group-author-columns
|
||
edwin-variable$news-group-cache-policy
|
||
edwin-variable$news-group-ignore-hidden-subjects
|
||
edwin-variable$news-group-ignored-subject-retention
|
||
edwin-variable$news-group-keep-ignored-headers
|
||
edwin-variable$news-group-keep-seen-headers
|
||
edwin-variable$news-group-mode-hook
|
||
edwin-variable$news-group-show-author-name
|
||
edwin-variable$news-group-show-context-headers
|
||
edwin-variable$news-group-show-seen-headers
|
||
edwin-variable$news-header-filter
|
||
edwin-variable$news-hide-groups
|
||
edwin-variable$news-initially-collapse-threads
|
||
edwin-variable$news-join-threads-with-same-subject
|
||
edwin-variable$news-kept-headers
|
||
edwin-variable$news-refresh-group-when-selected
|
||
edwin-variable$news-server
|
||
edwin-variable$news-server-initial-refresh
|
||
edwin-variable$news-server-mode-hook
|
||
edwin-variable$news-server-name-appearance
|
||
edwin-variable$news-server-offline-timeout
|
||
edwin-variable$news-server-proxy-alist
|
||
edwin-variable$news-show-nonexistent-groups
|
||
edwin-variable$news-show-unsubscribed-groups
|
||
edwin-variable$news-sort-groups
|
||
edwin-variable$news-split-threads-on-subject-changes
|
||
news-header-splitting-filter
|
||
news-header-regexp-filter))
|
||
|
||
(define-package (edwin nntp)
|
||
(files "nntp")
|
||
(parent (edwin))
|
||
#|
|
||
;; This program doesn't need to be part of Edwin except for these
|
||
;; two bindings. MESSAGE could be easily implemented in any
|
||
;; interface. OS/FIND-PROGRAM has nothing to do with Edwin in the
|
||
;; first place, and should be in the runtime system.
|
||
(parent ())
|
||
(import (edwin)
|
||
message
|
||
os/find-program)
|
||
|#
|
||
(export (edwin news-reader)
|
||
canonicalize-subject
|
||
compare-subjects
|
||
find-active-news-group
|
||
find-news-group
|
||
make-news-group
|
||
make-nntp-connection
|
||
news-group:<
|
||
news-group:active?
|
||
news-group:cached-header
|
||
news-group:cached-headers
|
||
news-group:close-database
|
||
news-group:connection
|
||
news-group:discard-cached-header!
|
||
news-group:estimated-n-articles
|
||
news-group:first-article
|
||
news-group:header
|
||
news-group:headers
|
||
news-group:id->header
|
||
news-group:last-article
|
||
news-group:name
|
||
news-group:pre-read-headers
|
||
news-group:purge-header-cache
|
||
news-group:purge-pre-read-headers
|
||
news-group:reader-hook
|
||
news-group:server
|
||
news-group:server-info
|
||
news-group:update-server-info!
|
||
news-group:use-gdbm?
|
||
news-group?
|
||
news-header:<
|
||
news-header:field-value
|
||
news-header:followup-to
|
||
news-header:followups
|
||
news-header:from
|
||
news-header:group
|
||
news-header:guarantee-full-text!
|
||
news-header:message-id
|
||
news-header:n-lines
|
||
news-header:number
|
||
news-header:pre-read-body
|
||
news-header:pre-read-body?
|
||
news-header:read-body
|
||
news-header:reader-hook
|
||
news-header:real?
|
||
news-header:references
|
||
news-header:subject
|
||
news-header:text
|
||
news-header:thread
|
||
news-header:xref
|
||
news-header?
|
||
news-thread:<
|
||
news-thread:for-each-header
|
||
news-thread:reader-hook
|
||
news-thread:root
|
||
news-thread?
|
||
nntp-connection:active-groups
|
||
nntp-connection:close
|
||
nntp-connection:closed?
|
||
nntp-connection:new-groups
|
||
nntp-connection:post-article
|
||
nntp-connection:purge-group-cache
|
||
nntp-connection:reader-hook
|
||
nntp-connection:reopen
|
||
nntp-connection:server
|
||
nntp-connection?
|
||
organize-headers-into-threads
|
||
set-news-group:reader-hook!
|
||
set-news-group:server-info!
|
||
set-news-group:use-gdbm!
|
||
set-news-header:reader-hook!
|
||
set-news-thread:reader-hook!
|
||
set-nntp-connection:reader-hook!
|
||
token->number))
|
||
|
||
(define-package (edwin keyparser)
|
||
(files "keyparse")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
define-keyparser-pattern
|
||
define-keyparser-statement-leader
|
||
delete-keyparser-pattern
|
||
delete-keyparser-statement-leader
|
||
edwin-command$complete-keyword
|
||
edwin-command$keyparser-indent-line
|
||
edwin-command$keyparser-indent-region
|
||
edwin-variable$keyparser-description
|
||
edwin-variable$keyword-table
|
||
keyparse-forward
|
||
keyparse-initial
|
||
keyparse-partial
|
||
keyparser-compute-indentation
|
||
keyparser-compute-indentation-1
|
||
keyparser-fragment/indent-body
|
||
keyparser-fragment/indent-header
|
||
keyparser-fragment/keyword
|
||
keyparser-fragment/match-header
|
||
keyparser-fragment/parse-body
|
||
keyparser-fragment/parse-header
|
||
keyparser-fragment/pop-container
|
||
keyparser-fragment?
|
||
keyparser-patterns
|
||
keyparser-stack-entry/end?
|
||
keyparser-stack-entry/fragment
|
||
keyparser-stack-entry/index
|
||
keyparser-stack-entry/keyword
|
||
keyparser-stack-entry/pattern
|
||
keyparser-stack-entry/start
|
||
keyparser-stack-entry?
|
||
keyparser-statement-leaders
|
||
make-keyparser-description
|
||
make-keyparser-fragment))
|
||
|
||
(define-package (edwin verilog)
|
||
(files "verilog")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$verilog-mode
|
||
edwin-mode$verilog))
|
||
|
||
(define-package (edwin vhdl)
|
||
(files "vhdl")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$vhdl-mode
|
||
edwin-mode$vhdl))
|
||
|
||
(define-package (edwin password-edit)
|
||
(files "pwedit" "pwparse")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$mouse-toggle-pw-form
|
||
edwin-command$toggle-pw-form
|
||
edwin-command$view-password-file
|
||
edwin-mode$password-view))
|
||
|
||
(define-package (edwin debian-changelog)
|
||
(files "debian-changelog")
|
||
(parent (edwin))
|
||
(export (edwin)
|
||
edwin-command$debian-changelog-add-entry
|
||
edwin-command$debian-changelog-add-version
|
||
edwin-command$debian-changelog-distribution
|
||
edwin-command$debian-changelog-finalize-and-save
|
||
edwin-command$debian-changelog-finalize-last-version
|
||
edwin-command$debian-changelog-unfinalize-last-version
|
||
edwin-command$debian-changelog-urgency
|
||
edwin-mode$debian-changelog
|
||
edwin-variable$add-log-full-name
|
||
edwin-variable$add-log-mailing-address
|
||
edwin-variable$debian-changelog-mode-hook))
|