63 lines
977 B
Scheme
63 lines
977 B
Scheme
;;; history data structure
|
|
|
|
(define-interface history-interface
|
|
(export make-empty-history
|
|
history?
|
|
entry?
|
|
entry-data
|
|
append-history-item!
|
|
insert-history-item!
|
|
history-next-entry
|
|
history-prev-entry
|
|
history-first-entry
|
|
history-last-entry))
|
|
|
|
(define-structure history history-interface
|
|
(open scheme
|
|
define-record-types)
|
|
(files history))
|
|
|
|
;;; nuit evaluates the expressions entered into command buffer in this
|
|
;;; package
|
|
|
|
(define-structure nuit-eval-structure (export)
|
|
(open scheme-with-scsh
|
|
srfi-1
|
|
pps)
|
|
(begin))
|
|
|
|
;;; nuit
|
|
|
|
(define-interface nuit-interface
|
|
(export nuit))
|
|
|
|
(define-structure nuit nuit-interface
|
|
(open scheme-with-scsh
|
|
external-calls
|
|
define-record-types
|
|
conditions
|
|
signals
|
|
handle
|
|
ncurses
|
|
srfi-1
|
|
srfi-6
|
|
srfi-13
|
|
debugging
|
|
inspect-exception
|
|
rt-modules
|
|
tty-debug
|
|
pps
|
|
history)
|
|
(files nuit-engine
|
|
handle-fatal-error
|
|
directory-files
|
|
find
|
|
cd
|
|
browse-directory-list
|
|
browse-list
|
|
process))
|
|
|
|
|
|
|
|
|