Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv6665/net
Modified Files: arp.lisp ethernet.lisp ip4.lisp ip6.lisp Log Message: Fixed up package muerte.lib. Date: Thu Jan 15 12:34:50 2004 Author: ffjeld
Index: movitz/losp/lib/net/arp.lisp diff -u movitz/losp/lib/net/arp.lisp:1.1.1.1 movitz/losp/lib/net/arp.lisp:1.2 --- movitz/losp/lib/net/arp.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/arp.lisp Thu Jan 15 12:34:49 2004 @@ -10,16 +10,12 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Mar 20 15:01:15 2003 ;;;; -;;;; $Id: arp.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: arp.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
(require :lib/net/ethernet) (provide :lib/net/arp) - -(defpackage muerte.ip4 - (:use muerte.cl muerte muerte.ethernet muerte.lib) - (:export ))
(in-package muerte.ip4)
Index: movitz/losp/lib/net/ethernet.lisp diff -u movitz/losp/lib/net/ethernet.lisp:1.1.1.1 movitz/losp/lib/net/ethernet.lisp:1.2 --- movitz/losp/lib/net/ethernet.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/ethernet.lisp Thu Jan 15 12:34:49 2004 @@ -10,45 +10,44 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 17 15:25:31 2002 ;;;; -;;;; $Id: ethernet.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: ethernet.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
-(require :common-lisp) (require :lib/named-integers)
(provide :lib/net/ethernet :load-priority 0)
(defpackage muerte.ethernet - (:use muerte.cl muerte :muerte.lib) - (:export make-ethernet-packet - ether-destination - ether-source - ether-type - ethernet-device - transmit - receive - packet-error - packet - packet-available-p - mac-address - accept-broadcasts-p - accept-multicast-addresses - promiscuous-p - pprint-mac - ether-mac-vendor - format-ethernet-packet - ether-802.3-p - ether-802.3-llc-type - ether-802.3-llc-dsap - ether-802.3-llc-ssap - ether-802.3-snap-p - ether-802.3-snap-type - +source-mac+ - +destination-mac+ - +max-ethernet-frame-size+ - +min-ethernet-frame-size+ - +broadcast-address+)) + (:use muerte.cl muerte muerte.lib) + (:export #:make-ethernet-packet + #:ether-destination + #:ether-source + #:ether-type + #:ethernet-device + #:transmit + #:receive + #:packet-error + #:packet + #:packet-available-p + #:mac-address + #:accept-broadcasts-p + #:accept-multicast-addresses + #:promiscuous-p + #:pprint-mac + #:ether-mac-vendor + #:format-ethernet-packet + #:ether-802.3-p + #:ether-802.3-llc-type + #:ether-802.3-llc-dsap + #:ether-802.3-llc-ssap + #:ether-802.3-snap-p + #:ether-802.3-snap-type + #:+source-mac+ + #:+destination-mac+ + #:+max-ethernet-frame-size+ + #:+min-ethernet-frame-size+ + #:+broadcast-address+)) (in-package muerte.ethernet)
Index: movitz/losp/lib/net/ip4.lisp diff -u movitz/losp/lib/net/ip4.lisp:1.1.1.1 movitz/losp/lib/net/ip4.lisp:1.2 --- movitz/losp/lib/net/ip4.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/net/ip4.lisp Thu Jan 15 12:34:49 2004 @@ -10,21 +10,22 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 30 13:52:57 2003 ;;;; -;;;; $Id: ip4.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: ip4.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
-(provide :lib/net/ip4) - -;; (require :x86-pc/ne2k) +(require :lib/package) (require :lib/misc) -(require :lib/net/arp) +(require :lib/net/ethernet) +(provide :lib/net/ip4)
(defpackage muerte.ip4 (:use muerte.cl muerte muerte.ethernet muerte.lib) (:export pprint-ip4 ip4-test ip4-free)) + +(require :lib/net/arp)
(in-package muerte.ip4)
Index: movitz/losp/lib/net/ip6.lisp diff -u movitz/losp/lib/net/ip6.lisp:1.1.1.1 movitz/losp/lib/net/ip6.lisp:1.2 --- movitz/losp/lib/net/ip6.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/lib/net/ip6.lisp Thu Jan 15 12:34:49 2004 @@ -10,36 +10,33 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Nov 14 17:25:31 2001 ;;;; -;;;; $Id: ip6.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: ip6.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
-(require :common-lisp) (require :x86-pc/all) (require :x86-pc/pit8253) (require :x86-pc/ne2k) (require :lib/named-integers) (require :lib/misc) -(require :lib/malloc-init) (require :lib/net/ethernet) (provide :lib/net/ip6)
(defpackage muerte.ip6 (:use muerte.cl muerte.lib muerte.x86-pc muerte.ethernet) - (:export - packet-version - packet-source - packet-destination - packet-length - packet-traffic-class - packet-next-header - packet-flow-label - packet-hop-limit + (:export #:packet-version + #:packet-source + #:packet-destination + #:packet-length + #:packet-traffic-class + #:packet-next-header + #:packet-flow-label + #:packet-hop-limit
- pprint-ip6 - ip6-test - ip6-free - )) + #:pprint-ip6 + #:ip6-test + #:ip6-free + ))
(in-package muerte.ip6)