commander-s/scheme/nuit-packages.scm

;;; 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))