commander-s/scheme/nuit-packages.scm

;;; utilities

(define-interface handle-fatal-error-interface
  (export with-fatal-error-handler*
	  (with-fatal-error-handler :syntax)))

(define-structure handle-fatal-error handle-fatal-error-interface
  (open scheme conditions handle)
  (files handle-fatal-error))

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

;;; layout utilities

(define-interface layout-interface
  (export seperate-line
	  layout-result-standard
	  get-marked-positions-1
	  get-marked-positions-2
	  get-marked-positions-3
	  exp->string
	  sublist

	  fill-up-string
	  cut-to-size

	  ;; old drawing cruft
	  make-result-buffer
	  result-buffer?
	  result-buffer-line
	  set-result-buffer-line!
	  result-buffer-column
	  set-result-buffer-column!
	  result-buffer-y
	  set-result-buffer-y!
	  result-buffer-x
	  set-result-buffer-x!
	  result-buffer-num-lines
	  set-result-buffer-num-lines!
	  result-buffer-num-cols
	  set-result-buffer-num-cols!
	  result-buffer-highlighted
	  set-result-buffer-highlighted!
	  result-buffer-marked
	  set-result-buffer-marked!
	  make-simple-result-buffer-printer))

(define-structure layout layout-interface
  (open scheme
	srfi-6			;; basic string ports
	define-record-types

	tty-debug
	ncurses)
  (files layout))

;;; process viewer plugin

(define-structure process-viewer
    (export)
  (open scheme
	define-record-types
	srfi-1
	srfi-13
	formats
	signals

	focus-table
	ncurses
	pps
	plugin
	layout
	select-list
	tty-debug)
  (files process))

;;; user/group viewer plugin

(define-structure user-group-info-plugin (export)
  (open scheme-with-scsh
        define-record-types
        (subset primitives (record-ref record?))

        dirlist-view-plugin
        fs-object
        plugin
        layout
        select-list
        tty-debug)
  (files user-group-info))
  

;;; file list view plugin

(define-structure dirlist-view-plugin (export make-browser-for-dir
                                              make-fsobjects-viewer)
  (open (modify nuit-eval (hide string-copy))
	srfi-1
	(subset srfi-13 
		(string-copy string-drop string-join
                 string-drop-right string-prefix-length))
	signals
        let-opt

	focus-table
	objects
	layout
	fs-object
	select-list
	plugin
	ncurses
	tty-debug)
  (files browse-directory-list))

;;; standard command plugin

(define-structure standard-command-plugin
  (export standard-command-plugin show-shell-screen)
  (open let-opt
	signals
	srfi-1
	srfi-13
        
        fs-object
	pps
	nuit-eval
	ncurses
	tty-debug
	plugin)
  (files std-command))

(define-structure standard-viewer
    (export make-standard-viewer)
  (open scheme

        tty-debug
	objects
	layout)
  (files std-viewer))

;;; fs-objects

(define-interface fs-object-interface
  (export make-fs-object
	  fs-object?
	  fs-object-name
	  fs-object-path
	  fs-object-info
	  fs-object-complete-path
          combine-path
          file-name->fs-object))

(define-structure fs-object fs-object-interface
  (open scheme-with-scsh
        formats
        handle-fatal-error
	define-record-types)
  (files fs-object))

;;; browse list stuff

(define-interface select-list-interface
  (export make-select-list
	  select-list?
	  
	  make-unmarked-element
	  make-marked-element
	  element?

	  select-list-handle-key-press
	  unmark-current-line
	  mark-current-line
	  move-cursor-up
	  move-cursor-down
	  paint-selection-list
	  paint-selection-list-at
	  select-list-get-selection
	  select-list-selected-entry

	  select-list-navigation-key?
	  select-list-marking-key?))

(define-structure select-list select-list-interface
  (open scheme
	srfi-1
	define-record-types
	signals
	
	tty-debug
	plugin
	layout
	ncurses)
  (files select-list))

;;; inspector

(define-interface nuit-inspector-interface
  (export inspect-value))

(define-structure nuit-inspector-plugin nuit-inspector-interface
  (open scheme
        inspector-internal
        continuations
        formats
        define-record-types
        srfi-1
        srfi-6
        display-conditions
	signals
        
	ncurses
        layout
        select-list
        tty-debug
        plugin)
  (files inspector))

;;; nuit evaluates the expressions entered into command buffer in this
;;; package

(define-structures
  ((nuit-eval (compound-interface 
	       (interface-of scheme-with-scsh)
	       (export focus-value)))
   (nuit-eval/focus-table (export focus-table)))
  (open 
   (modify scheme-with-scsh
	   (rename (directory-files scsh-directory-files)))
   let-opt
   srfi-1

   focus-table
   fs-object
   pps)
  (files eval))

;;; nuit plug-in registration

(define-interface plugin-interface
  (export make-view-plugin
	  view-plugin?
	  view-plugin-constructor
	  view-plugin-type-predicate

	  make-command-plugin
	  command-plugin?
	  command-plugin-command
	  command-plugin-completer
	  command-plugin-evaluater

	  register-plugin!))

(define-interface plugin-host-interface
  (export command-plugin-list
	  view-plugin-list
	  command-completions))

(define-structures
  ((plugin plugin-interface)
   (plugin-host plugin-host-interface))
  (open scheme
	define-record-types
	let-opt
	signals

	completion-sets)
  (files plugins))

;;; objects

(define-interface objects-interface
  (export send))

(define-structure objects objects-interface
  (open scheme
	signals)
  (files objects))

;;; focus table

(define-interface focus-table-interface
  (export make-empty-focus-table
 	  add-focus-object
 	  get-focus-object
	  make-focus-object-reference))

(define-structure focus-table focus-table-interface
   (open scheme
 	define-record-types
 	tables)
   (files focus))

;;; completion-sets

(define-interface completion-set-interface
  (export make-empty-completion-set
	  make-completion-set
	  adjoin-completion-set
	  make-completion-set-for-executables
	  completions-for
	  completions-for-executables))

(define-structure completion-sets completion-set-interface
  (open scheme-with-scsh
	define-record-types
	srfi-1
	thread-fluids)
  (files complete))

;;; nuit 

(define-interface nuit-interface
  (export nuit))

(define-structure nuit nuit-interface    
  (open scheme-with-scsh
	external-calls
	define-record-types
	conditions
	threads
	locks
	signals 
	handle
	rt-modules
	(modify ncurses (hide filter))
	srfi-1
	srfi-6
	srfi-13
	debugging
	inspect-exception
	rt-modules
	tty-debug

	focus-table
	nuit-eval/focus-table
	fs-object
	objects
	plugin
	plugin-host
	layout
	pps
	history
        handle-fatal-error
	completion-sets
	select-list
	;; the following modules are plugins
	dirlist-view-plugin
        user-group-info-plugin
	process-viewer
	standard-command-plugin
	standard-viewer
        nuit-inspector-plugin)
  (files nuit-engine))