[dhcp] 03/03: dhcp: correct copyright

[Rohan Prinja]

wenderen pushed a commit to branch master
in repository dhcp.

commit 85624d570c3a0a51aba7eda64ad3703e54394410
Author: Rohan Prinja <address@hidden>
Date:   Tue Jun 9 07:09:08 2015 +0530

    dhcp: correct copyright
---
 arp/messages.scm       |   20 ++++++++++++++++++++
 dhcp/client.scm        |   17 +++++++++++++++++
 dhcp/dhcp.scm          |    2 +-
 dhcp/interfaces.scm    |    2 +-
 dhcp/messages.scm      |   12 ++++++------
 dhcp/options/base.scm  |    2 +-
 dhcp/options/names.scm |    2 +-
 lib/interfaces.c       |    2 +-
 8 files changed, 48 insertions(+), 11 deletions(-)

diff --git a/arp/messages.scm b/arp/messages.scm
new file mode 100644
index 0000000..948388a
--- /dev/null
+++ b/arp/messages.scm
@@ -0,0 +1,20 @@
+#!/usr/local/bin/guile
+coding: utf-8
+!#
+
+; Tell Guile to also search for modules in the
+; current directory.
+(add-to-load-path (dirname (current-filename)))
+
+; Module for constructing and parsing ARP messages
+(define-module (arp-messages)
+  #:export (<arp-message>))
+
+(use-modules (oop goops))
+
+(define-class <arp-message> ()
+  (hw-type #:init-value 1) ; ethernet
+  (protocol-type #:init-value #x800)
+  (hlen #:init-value 48)
+  (plen #:init-value 32) ; ipv4
+  'TODO)
diff --git a/dhcp/client.scm b/dhcp/client.scm
index e9cf826..99e6530 100644
--- a/dhcp/client.scm
+++ b/dhcp/client.scm
@@ -1,3 +1,20 @@
+;;; GNU Guix DHCP Client.
+;;;
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
+;;;
+;;; This program is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
 #!/usr/local/bin/guile \
 -e main -s
 coding: utf-8
diff --git a/dhcp/dhcp.scm b/dhcp/dhcp.scm
index 30a6eab..46242d9 100644
--- a/dhcp/dhcp.scm
+++ b/dhcp/dhcp.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix DHCP Client.
 ;;;
-;;; Copyright 2015 Free Software Foundation, Inc.
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
diff --git a/dhcp/interfaces.scm b/dhcp/interfaces.scm
index 272bdb2..fa595f5 100644
--- a/dhcp/interfaces.scm
+++ b/dhcp/interfaces.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix DHCP Client.
 ;;;
-;;; Copyright 2015 Free Software Foundation, Inc.
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
diff --git a/dhcp/messages.scm b/dhcp/messages.scm
index 5000edd..4c7c422 100644
--- a/dhcp/messages.scm
+++ b/dhcp/messages.scm
@@ -1,6 +1,6 @@
-3;;; GNU Guix DHCP Client.
+;;; GNU Guix DHCP Client.
 ;;;
-;;; Copyright 2015 Free Software Foundation, Inc.
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
@@ -100,8 +100,8 @@ simply ignored whilst serializing."
          (if (eq? #nil opt)
              (loop (1+ i))
              (let ((code i)
-                   (len (slot-ref opt 'len))
-                   (val (slot-ref opt 'val)))
+                   (len (dhcp-option-len opt))
+                   (val (dhcp-option-val opt)))
                (begin
                  (if (zero? len)
                      (bytevector-u8-set! dst idx code)
@@ -208,14 +208,14 @@ from BV starting at index START"
 (define-method (set-option! (msg <dhcp-message>) (opt <dhcp-option>))
   "Set an <option> in a <dhcp-message>."
   (vector-set! (slot-ref msg 'options)
-              (slot-ref opt 'code)
+              (dhcp-option-code opt)
               opt))
 
 (define-method (option-value (msg <dhcp-message>) code)
   "Retrieve an option's value from a <dhcp-message>."
   (let* ((opts (slot-ref msg 'options))
         (opt (vector-ref opts code))
-        (val (slot-ref opt 'val)))
+        (val (dhcp-option-val opt)))
     val))
 
 ; Get the DHCP message type. See Section 9.6, RFC 2132.
diff --git a/dhcp/options/base.scm b/dhcp/options/base.scm
index b0fa14f..2391fdb 100644
--- a/dhcp/options/base.scm
+++ b/dhcp/options/base.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix DHCP Client.
 ;;;
-;;; Copyright 2015 Free Software Foundation, Inc.
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
diff --git a/dhcp/options/names.scm b/dhcp/options/names.scm
index 3b2e516..750f884 100644
--- a/dhcp/options/names.scm
+++ b/dhcp/options/names.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix DHCP Client.
 ;;;
-;;; Copyright 2015 Free Software Foundation, Inc.
+;;; Copyright � 2015 Rohan Prinja <address@hidden>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
diff --git a/lib/interfaces.c b/lib/interfaces.c
index 0d09a9b..1e69ebc 100644
--- a/lib/interfaces.c
+++ b/lib/interfaces.c
@@ -1,6 +1,6 @@
 /// GNU Guix DHCP Client.
 ///
-/// Copyright 2015 Free Software Foundation, Inc.
+/// Copyright � 2015 Rohan Prinja <address@hidden>
 ///
 /// This program is free software; you can redistribute it and/or modify it
 /// under the terms of the GNU General Public License as published by