muerte-packages.lisp

   1 ;;;;------------------------------------------------------------------
   2 ;;;;
   3 ;;;;    Copyright (C) 2003-2004,
   4 ;;;;    Department of Computer Science, University of Tromso, Norway.
   5 ;;;;
   6 ;;;;    For distribution policy, see the accompanying file COPYING.
   7 ;;;;
   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
  12 ;;;;
  13 ;;;; $Id: muerte-packages.lisp,v 1.1 2004/02/13 22:10:34 ffjeld Exp $
  14 ;;;;
  15 ;;;;------------------------------------------------------------------
  16
  17 (defpackage muerte.lib
  18   (:use muerte.cl muerte)
  19   (:export #:*scroll-offset*
  20            #:cursor-x cursor-y
  21            #:console-width console-height
  22            #:console-char
  23            #:scroll-down
  24            #:clear-line
  25            #:local-echo-p
  26            #:with-saved-excursion
  27
  28            ;; :lib/bcd
  29            #:bcd-to-integer
  30            #:integer-to-bcd
  31
  32            ;; :lib/console
  33            #:console
  34            #:console-width
  35            #:console-height
  36            #:cursor-x
  37            #:cursor-y
  38            #:console-char
  39            #:scroll-down
  40            #:put-string
  41            #:clear-line
  42            #:clear-console
  43            #:local-echo-p
  44            #:with-saved-excursion
  45
  46            ;; :lib/misc
  47            #:checksum-octets
  48            #:make-counter-u32
  49            #:u32-add
  50
  51            ;; :lib/named-integers
  52            #:define-named-integer
  53            #:named-integer-case
  54            #:named-integer
  55            #:integer-name
  56            #:name->integer
  57            #:names->integer
  58            #:with-named-integers-syntax
  59
  60            ;; :lib/repl
  61            #:*repl-level*
  62            #:*repl-prompter*
  63            #:*repl-prompt-context*
  64            #:*repl-print-format*
  65            #:*repl-readline-context*
  66            #:read-eval-print
  67            ))
  68
  69 (defpackage muerte.x86-pc
  70   (:use muerte.cl muerte.lib muerte)
  71   (:export #:io-space-device
  72            #:io-space
  73            #:device-name
  74            #:allocate-io-space
  75            #:free-io-space
  76            #:io-space-occupants
  77            #:with-io-space-lock
  78            #:make-io-space
  79            #:reset-device
  80            #:memory-size
  81
  82            #:vga-cursor-location
  83            #:vga-crt-controller-register
  84            #:vga-graphics-register
  85            #:vga-memory-map
  86
  87            #:rtc-register
  88            #:cmos-register
  89
  90            #:idt-init
  91            #:interrupt-handler
  92            #:int-frame-ref
  93            #:software-interrupt
  94            #:*last-interrupt-frame*
  95
  96            #:pit8253-timer-mode
  97            #:pit8253-timer-count
  98
  99            #:+pit8253-frequency+
 100            #:+pit8253-nanosecond-period+
 101
 102            #:textmode-console
 103            #:vga-text-console
 104
 105            #:pic8259-irq-mask
 106            #:pic8259-end-of-interrupt
 107            #:init-pic8259
 108            ))
 109
 110 (defpackage muerte.x86-pc.keyboard
 111   (:use muerte.cl muerte muerte.lib muerte.x86-pc)
 112   (:export poll-char
 113            ;; read-char
 114            poll-keypress
 115            read-keypress
 116            set-leds
 117            cpu-reset))
 118
 119 (defpackage muerte.ethernet
 120   (:use muerte.cl muerte muerte.lib)
 121   (:export #:make-ethernet-packet
 122            #:ether-destination
 123            #:ether-source
 124            #:ether-type
 125            #:ethernet-device
 126            #:transmit
 127            #:receive
 128            #:packet-error
 129            #:packet
 130            #:packet-available-p
 131            #:mac-address
 132            #:accept-broadcasts-p
 133            #:accept-multicast-addresses
 134            #:promiscuous-p
 135            #:pprint-mac
 136            #:ether-mac-vendor
 137            #:format-ethernet-packet
 138            #:ether-802.3-p
 139            #:ether-802.3-llc-type
 140            #:ether-802.3-llc-dsap
 141            #:ether-802.3-llc-ssap
 142            #:ether-802.3-snap-p
 143            #:ether-802.3-snap-type
 144            #:+source-mac+
 145            #:+destination-mac+
 146            #:+max-ethernet-frame-size+
 147            #:+min-ethernet-frame-size+
 148            #:+broadcast-address+))
 149
 150 (defpackage muerte.ip4
 151   (:use muerte.cl muerte muerte.ethernet muerte.lib)
 152   (:export #:pprint-ip4
 153            #:ip4-test
 154            #:ip4-free))
 155
 156 (defpackage muerte.ip6
 157   (:use #:muerte.cl #:muerte.lib #:muerte.x86-pc #:muerte.ethernet)
 158   (:export #:packet-version
 159            #:packet-source
 160            #:packet-destination
 161            #:packet-length
 162            #:packet-traffic-class
 163            #:packet-next-header
 164            #:packet-flow-label
 165            #:packet-hop-limit
 166
 167            #:pprint-ip6
 168            #:ip6-test
 169            #:ip6-free
 170            ))
 171
 172 (defpackage muerte.readline
 173   (:use #:muerte.cl #:muerte.lib)
 174   (:export #:readline
 175            #:readline-buffer
 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))
 183
 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*
 198            #:backtrace
 199            ))
 200
 201 (defpackage muerte.toplevel
 202   (:use #:muerte.cl #:muerte)
 203   (:export #:define-toplevel-command
 204            #:invoke-toplevel-command
 205            #:*toplevel-commands*))
 206
 207 (defpackage muerte.init
 208   (:use muerte.cl muerte muerte.lib
 209         muerte.x86-pc
 210         muerte.readline
 211         muerte.toplevel
 212 ;;;     muerte.ethernet
 213 ;;;     muerte.ip6
 214 ;;;     muerte.ip4
 215         muerte.mop
 216         muerte.debug
 217         #+ignore muerte.x86-pc.serial))