[movitz-cvs] CVS update: movitz/losp/lib/net/arp.lisp movitz/losp/lib/net/ethernet.lisp movitz/losp/lib/net/ip4.lisp movitz/losp/lib/net/ip6.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Thu Jan 15 17:34:50 UTC 2004
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 at 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 at 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 at 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 at 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)
More information about the Movitz-cvs
mailing list