[dhcp] 04/12: dhcp: change module names to reflect directory structure

[Rohan Prinja]

wenderen pushed a commit to branch master
in repository dhcp.

commit c616589cbbe2300d8c9da66d779dd212863825ac
Author: Rohan Prinja <address@hidden>
Date:   Thu Jun 4 02:51:14 2015 +0530

    dhcp: change module names to reflect directory structure
---
 dhcp/options/base.scm  |   46 ++++++++++++++++++++++++++++++++++++++++++++++
 dhcp/options/names.scm |    2 +-
 2 files changed, 47 insertions(+), 1 deletions(-)

diff --git a/dhcp/options/base.scm b/dhcp/options/base.scm
new file mode 100644
index 0000000..500014e
--- /dev/null
+++ b/dhcp/options/base.scm
@@ -0,0 +1,46 @@
+;;; GNU Guix DHCP Client.
+;;;
+;;; Copyright 2015 Free Software Foundation, Inc.
+;;;
+;;; 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/>.
+
+(define-module (dhcp options base)
+  #:export (<dhcp-option>
+           make-dhcp-option))
+
+(use-modules (oop goops)
+            (rnrs bytevectors))
+
+; DHCP option object.
+; See RFC 2132 for a list of DHCP options.
+(define-class <dhcp-option> ()
+  (code #:init-keyword #:code)
+  (len #:init-keyword #:len)
+  (val #:init-keyword #:val))
+
+; code = option code, lies between 0 and 255
+; len = length of option in bytes when it is serialized into a,
+; bytevector, excluding 'code' and 'len' fields
+; val = bytevector of length 'len' containing the option value
+; name = option name, stored as a symbol
+
+; Note: the actual net length of the option when serialized as a
+; bytevector is (+ len 2), and not 'len', because 'code' and
+; 'len' take up one byte each. Exceptions to this are the
+; 'Pad' and 'End' options, both of which are 1 byte only.
+; For such one-byte options, 'len' is 0 and 'val' is #nil.
+
+; Create a <dhcp-option> instance.
+(define-syntax-rule (make-dhcp-option code len val)
+  (make <dhcp-option> #:code code #:len len #:val val))
diff --git a/dhcp/options/names.scm b/dhcp/options/names.scm
index 0502f96..1786cad 100644
--- a/dhcp/options/names.scm
+++ b/dhcp/options/names.scm
@@ -15,7 +15,7 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-(define-module (options names)
+(define-module (dhcp options names)
   #:export (map-name-to-code))
 
 (use-modules (rnrs enums))