1 ;;;;------------------------------------------------------------------
3 ;;;; Copyright (C) 2003-2004,
4 ;;;; Department of Computer Science, University of Tromso, Norway.
6 ;;;; For distribution policy, see the accompanying file COPYING.
8 ;;;; Filename: muerte-packages.lisp
9 ;;;; Description: Defpackages.
10 ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
11 ;;;; Created at: Fri Feb 13 19:25:41 2004
13 ;;;; $Id: muerte-packages.lisp,v 1.1 2004/02/13 22:10:34 ffjeld Exp $
15 ;;;;------------------------------------------------------------------
17 (defpackage muerte.lib
18 (:use muerte.cl muerte
)
19 (:export
#:*scroll-offset
*
21 #:console-width console-height
26 #:with-saved-excursion
44 #:with-saved-excursion
51 ;; :lib/named-integers
52 #:define-named-integer
58 #:with-named-integers-syntax
63 #:*repl-prompt-context
*
65 #:*repl-readline-context
*
69 (defpackage muerte.x86-pc
70 (:use muerte.cl muerte.lib muerte
)
71 (:export
#:io-space-device
83 #:vga-crt-controller-register
84 #:vga-graphics-register
94 #:*last-interrupt-frame
*
100 #:+pit8253-nanosecond-period
+
106 #:pic8259-end-of-interrupt
110 (defpackage muerte.x86-pc.keyboard
111 (:use muerte.cl muerte muerte.lib muerte.x86-pc
)
119 (defpackage muerte.ethernet
120 (:use muerte.cl muerte muerte.lib
)
121 (:export
#:make-ethernet-packet
132 #:accept-broadcasts-p
133 #:accept-multicast-addresses
137 #:format-ethernet-packet
139 #:ether-802.3-llc-type
140 #:ether-802.3-llc-dsap
141 #:ether-802.3-llc-ssap
143 #:ether-802.3-snap-type
146 #:+max-ethernet-frame-size
+
147 #:+min-ethernet-frame-size
+
148 #:+broadcast-address
+))
150 (defpackage muerte.ip4
151 (:use muerte.cl muerte muerte.ethernet muerte.lib
)
152 (:export
#:pprint-ip4
156 (defpackage muerte.ip6
157 (:use
#:muerte.cl
#:muerte.lib
#:muerte.x86-pc
#:muerte.ethernet
)
158 (:export
#:packet-version
162 #:packet-traffic-class
172 (defpackage muerte.readline
173 (:use
#:muerte.cl
#:muerte.lib
)
176 #:make-readline-buffer
177 #:readline-buffer-string
178 #:readline-buffer-cursor-position
179 #:readline-buffer-cursor-end
180 #:make-readline-context
181 #:contextual-readline
182 #:complete-symbol-name
))
184 (defpackage muerte.debug
185 (:use
#:muerte.cl
#:muerte
#:muerte.x86-pc
)
186 (:export
#:*debugger-function
*
187 #:*debugger-condition
*
188 #:*backtrace-conflate-names
*
189 #:*backtrace-do-conflate
*
190 #:*backtrace-max-frames
*
191 #:*backtrace-max-args
*
192 #:*backtrace-on-error
*
193 #:*backtrace-stack-frame-barrier
*
194 #:*backtrace-do-fresh-lines
*
195 #:*backtrace-be-spartan-p
*
196 #:*backtrace-print-length
*
197 #:*backtrace-print-level
*
201 (defpackage muerte.toplevel
202 (:use
#:muerte.cl
#:muerte
)
203 (:export
#:define-toplevel-command
204 #:invoke-toplevel-command
205 #:*toplevel-commands
*))
207 (defpackage muerte.init
208 (:use muerte.cl muerte muerte.lib
217 #+ignore muerte.x86-pc.serial
))