src/IPv4Address.hs

   1 module IPv4Address where
   2
   3 import Bit
   4 import Octet
   5
   6 type Maskbits = Int
   7
   8 data IPv4Address = IPv4Address { octet1 :: Octet,
   9                                  octet2 :: Octet,
  10                                  octet3 :: Octet,
  11                                  octet4 :: Octet }
  12                  deriving (Eq, Show)
  13
  14
  15 min_address :: IPv4Address -> Maskbits -> IPv4Address
  16 min_address addr mask
  17     | mask == 32 = IPv4Address oct1 oct2 oct3 oct4
  18     | mask == 31 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 a30 a31 Zero)
  19     | mask == 30 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 a30 Zero Zero)
  20     | mask == 29 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 Zero Zero Zero)
  21     | mask == 28 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 Zero Zero Zero Zero)
  22     | mask == 27 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 Zero Zero Zero Zero Zero)
  23     | mask == 26 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 Zero Zero Zero Zero Zero Zero)
  24     | mask == 25 = IPv4Address oct1 oct2 oct3 (Octet a25 Zero Zero Zero Zero Zero Zero Zero)
  25     | mask == 24 = IPv4Address oct1 oct2 oct3 (min_octet)
  26     | mask == 23 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 a22 a23 Zero) (min_octet)
  27     | mask == 22 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 a22 Zero Zero) (min_octet)
  28     | mask == 21 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 Zero Zero Zero) (min_octet)
  29     | mask == 20 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 Zero Zero Zero Zero) (min_octet)
  30     | mask == 19 = IPv4Address oct1 oct2 (Octet a17 a18 a19 Zero Zero Zero Zero Zero) (min_octet)
  31     | mask == 18 = IPv4Address oct1 oct2 (Octet a17 a18 Zero Zero Zero Zero Zero Zero) (min_octet)
  32     | mask == 17 = IPv4Address oct1 oct2 (Octet a17 Zero Zero Zero Zero Zero Zero Zero) (min_octet)
  33     | mask == 16 = IPv4Address oct1 oct2 (min_octet) (min_octet)
  34     | mask == 15 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 a14 a15 Zero) (min_octet) (min_octet)
  35     | mask == 14 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 a14 Zero Zero) (min_octet) (min_octet)
  36     | mask == 13 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 Zero Zero Zero) (min_octet) (min_octet)
  37     | mask == 12 = IPv4Address oct1 (Octet a9 a10 a11 a12 Zero Zero Zero Zero) (min_octet) (min_octet)
  38     | mask == 11 = IPv4Address oct1 (Octet a9 a10 a11 Zero Zero Zero Zero Zero) (min_octet) (min_octet)
  39     | mask == 10 = IPv4Address oct1 (Octet a9 a10 Zero Zero Zero Zero Zero Zero) (min_octet) (min_octet)
  40     | mask == 9 = IPv4Address oct1 (Octet a9 Zero Zero Zero Zero Zero Zero Zero) (min_octet) (min_octet)
  41     | mask == 8 = IPv4Address oct1 (min_octet) (min_octet) (min_octet)
  42     | mask == 7 = IPv4Address (Octet a1 a2 a3 a4 a5 a6 a7 Zero) (min_octet) (min_octet) (min_octet)
  43     | mask == 6 = IPv4Address (Octet a1 a2 a3 a4 a5 a6 Zero Zero) (min_octet) (min_octet) (min_octet)
  44     | mask == 5 = IPv4Address (Octet a1 a2 a3 a4 a5 Zero Zero Zero) (min_octet) (min_octet) (min_octet)
  45     | mask == 4 = IPv4Address (Octet a1 a2 a3 a4 Zero Zero Zero Zero) (min_octet) (min_octet) (min_octet)
  46     | mask == 3 = IPv4Address (Octet a1 a2 a3 Zero Zero Zero Zero Zero) (min_octet) (min_octet) (min_octet)
  47     | mask == 2 = IPv4Address (Octet a1 a2 Zero Zero Zero Zero Zero Zero) (min_octet) (min_octet) (min_octet)
  48     | mask == 1 = IPv4Address (Octet a1 Zero Zero Zero Zero Zero Zero Zero) (min_octet) (min_octet) (min_octet)
  49     | mask == 0 = IPv4Address (min_octet) (min_octet) (min_octet) (min_octet)
  50     | otherwise = addr
  51     where
  52       a1  = (b1 oct1)
  53       a2  = (b2 oct1)
  54       a3  = (b3 oct1)
  55       a4  = (b4 oct1)
  56       a5  = (b5 oct1)
  57       a6  = (b6 oct1)
  58       a7  = (b7 oct1)
  59       a9  = (b1 oct2)
  60       a10 = (b2 oct2)
  61       a11 = (b3 oct2)
  62       a12 = (b4 oct2)
  63       a13 = (b5 oct2)
  64       a14 = (b6 oct2)
  65       a15 = (b7 oct2)
  66       a17 = (b1 oct3)
  67       a18 = (b2 oct3)
  68       a19 = (b3 oct3)
  69       a20 = (b4 oct3)
  70       a21 = (b5 oct3)
  71       a22 = (b6 oct3)
  72       a23 = (b7 oct3)
  73       a25 = (b1 oct4)
  74       a26 = (b2 oct4)
  75       a27 = (b3 oct4)
  76       a28 = (b4 oct4)
  77       a29 = (b5 oct4)
  78       a30 = (b6 oct4)
  79       a31 = (b7 oct4)
  80       oct1 = (octet1 addr)
  81       oct2 = (octet2 addr)
  82       oct3 = (octet3 addr)
  83       oct4 = (octet4 addr)
  84
  85
  86
  87 max_address :: IPv4Address -> Maskbits -> IPv4Address
  88 max_address addr mask
  89     | mask == 32 = IPv4Address oct1 oct2 oct3 oct4
  90     | mask == 31 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 a30 a31 One)
  91     | mask == 30 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 a30 One One)
  92     | mask == 29 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 a29 One One One)
  93     | mask == 28 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 a28 One One One One)
  94     | mask == 27 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 a27 One One One One One)
  95     | mask == 26 = IPv4Address oct1 oct2 oct3 (Octet a25 a26 One One One One One One)
  96     | mask == 25 = IPv4Address oct1 oct2 oct3 (Octet a25 One One One One One One One)
  97     | mask == 24 = IPv4Address oct1 oct2 oct3 (max_octet)
  98     | mask == 23 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 a22 a23 One) (max_octet)
  99     | mask == 22 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 a22 One One) (max_octet)
 100     | mask == 21 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 a21 One One One) (max_octet)
 101     | mask == 20 = IPv4Address oct1 oct2 (Octet a17 a18 a19 a20 One One One One) (max_octet)
 102     | mask == 19 = IPv4Address oct1 oct2 (Octet a17 a18 a19 One One One One One) (max_octet)
 103     | mask == 18 = IPv4Address oct1 oct2 (Octet a17 a18 One One One One One One) (max_octet)
 104     | mask == 17 = IPv4Address oct1 oct2 (Octet a17 One One One One One One One) (max_octet)
 105     | mask == 16 = IPv4Address oct1 oct2 (max_octet) (max_octet)
 106     | mask == 15 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 a14 a15 One) (max_octet) (max_octet)
 107     | mask == 14 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 a14 One One) (max_octet) (max_octet)
 108     | mask == 13 = IPv4Address oct1 (Octet a9 a10 a11 a12 a13 One One One) (max_octet) (max_octet)
 109     | mask == 12 = IPv4Address oct1 (Octet a9 a10 a11 a12 One One One One) (max_octet) (max_octet)
 110     | mask == 11 = IPv4Address oct1 (Octet a9 a10 a11 One One One One One) (max_octet) (max_octet)
 111     | mask == 10 = IPv4Address oct1 (Octet a9 a10 One One One One One One) (max_octet) (max_octet)
 112     | mask == 9 = IPv4Address oct1 (Octet a9 One One One One One One One) (max_octet) (max_octet)
 113     | mask == 8 = IPv4Address oct1 (max_octet) (max_octet) (max_octet)
 114     | mask == 7 = IPv4Address (Octet a1 a2 a3 a4 a5 a6 a7 One) (max_octet) (max_octet) (max_octet)
 115     | mask == 6 = IPv4Address (Octet a1 a2 a3 a4 a5 a6 One One) (max_octet) (max_octet) (max_octet)
 116     | mask == 5 = IPv4Address (Octet a1 a2 a3 a4 a5 One One One) (max_octet) (max_octet) (max_octet)
 117     | mask == 4 = IPv4Address (Octet a1 a2 a3 a4 One One One One) (max_octet) (max_octet) (max_octet)
 118     | mask == 3 = IPv4Address (Octet a1 a2 a3 One One One One One) (max_octet) (max_octet) (max_octet)
 119     | mask == 2 = IPv4Address (Octet a1 a2 One One One One One One) (max_octet) (max_octet) (max_octet)
 120     | mask == 1 = IPv4Address (Octet a1 One One One One One One One) (max_octet) (max_octet) (max_octet)
 121     | mask == 0 = IPv4Address (max_octet) (max_octet) (max_octet) (max_octet)
 122     | otherwise = addr
 123     where
 124       a1  = (b1 oct1)
 125       a2  = (b2 oct1)
 126       a3  = (b3 oct1)
 127       a4  = (b4 oct1)
 128       a5  = (b5 oct1)
 129       a6  = (b6 oct1)
 130       a7  = (b7 oct1)
 131       a9  = (b1 oct2)
 132       a10 = (b2 oct2)
 133       a11 = (b3 oct2)
 134       a12 = (b4 oct2)
 135       a13 = (b5 oct2)
 136       a14 = (b6 oct2)
 137       a15 = (b7 oct2)
 138       a17 = (b1 oct3)
 139       a18 = (b2 oct3)
 140       a19 = (b3 oct3)
 141       a20 = (b4 oct3)
 142       a21 = (b5 oct3)
 143       a22 = (b6 oct3)
 144       a23 = (b7 oct3)
 145       a25 = (b1 oct4)
 146       a26 = (b2 oct4)
 147       a27 = (b3 oct4)
 148       a28 = (b4 oct4)
 149       a29 = (b5 oct4)
 150       a30 = (b6 oct4)
 151       a31 = (b7 oct4)
 152       oct1 = (octet1 addr)
 153       oct2 = (octet2 addr)
 154       oct3 = (octet3 addr)
 155       oct4 = (octet4 addr)
 156
 157
 158
 159 min_octet1 :: IPv4Address -> Maskbits -> Octet
 160 min_octet1 addr mask = octet1 (min_address addr mask)
 161
 162 min_octet2 :: IPv4Address -> Maskbits -> Octet
 163 min_octet2 addr mask = octet2 (min_address addr mask)
 164
 165 min_octet3 :: IPv4Address -> Maskbits -> Octet
 166 min_octet3 addr mask = octet3 (min_address addr mask)
 167
 168 min_octet4 :: IPv4Address -> Maskbits -> Octet
 169 min_octet4 addr mask = octet4 (min_address addr mask)
 170
 171 max_octet1 :: IPv4Address -> Maskbits -> Octet
 172 max_octet1 addr mask = octet1 (max_address addr mask)
 173
 174 max_octet2 :: IPv4Address -> Maskbits -> Octet
 175 max_octet2 addr mask = octet2 (max_address addr mask)
 176
 177 max_octet3 :: IPv4Address -> Maskbits -> Octet
 178 max_octet3 addr mask = octet3 (max_address addr mask)
 179
 180 max_octet4 :: IPv4Address -> Maskbits -> Octet
 181 max_octet4 addr mask = octet4 (max_address addr mask)