-
--- Takes an IP address String in CIDR notation, and returns a list of
--- its octets (as Ints).
-octets_from_cidr_string :: String -> [Octet]
-octets_from_cidr_string s =
- map octet_from_string (take 4 (splitWith (`elem` "./") s))
-
-
-cidr_from_string :: String -> Cidr
-cidr_from_string s
- | addr == IPv4Address.None = Cidr.None
- | mbits == Maskbits.None = Cidr.None
- | otherwise = Cidr addr mbits
- where
- addr = ipv4address_from_octets (oct1) (oct2) (oct3) (oct4)
- oct1 = (octs !! 0)
- oct2 = (octs !! 1)
- oct3 = (octs !! 2)
- oct4 = (octs !! 3)
- octs = octets_from_cidr_string s
- mbits = maskbits_from_cidr_string s
-
-
-
-min_address :: Cidr -> IPv4Address
-min_address (Cidr IPv4Address.None _) = IPv4Address.None
-min_address (Cidr _ Maskbits.None) = IPv4Address.None
-min_address (Cidr addr mask)
- | mask == ThirtyTwo = addr
- | mask == ThirtyOne = addr { octet4 = apply_mask oct4 Seven }
- | mask == Thirty = addr { octet4 = apply_mask oct4 Six }
- | mask == TwentyNine = addr { octet4 = apply_mask oct4 Five }
- | mask == TwentyEight = addr { octet4 = apply_mask oct4 Four }
- | mask == TwentySeven = addr { octet4 = apply_mask oct4 Three }
- | mask == TwentySix = addr { octet4 = apply_mask oct4 Two }
- | mask == TwentyFive = addr { octet4 = apply_mask oct4 One }
- | mask == TwentyFour = addr { octet4 = min_octet }
- | mask == TwentyThree = addr { octet3 = apply_mask oct3 Seven,
- octet4 = min_octet }
- | mask == TwentyTwo = addr { octet3 = apply_mask oct3 Six,
- octet4 = min_octet }
- | mask == TwentyOne = addr { octet3 = apply_mask oct3 Five,
- octet4 = min_octet }
- | mask == Twenty = addr { octet3 = apply_mask oct3 Four,
- octet4 = min_octet }
- | mask == Nineteen = addr { octet3 = apply_mask oct3 Three,
- octet4 = min_octet }
- | mask == Eighteen = addr { octet3 = apply_mask oct3 Two,
- octet4 = min_octet }
- | mask == Seventeen = addr { octet3 = apply_mask oct3 One,
- octet4 = min_octet }
- | mask == Sixteen = addr { octet3 = min_octet,
- octet4 = min_octet }
- | mask == Fifteen = addr { octet2 = apply_mask oct2 Seven,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Fourteen = addr { octet2 = apply_mask oct2 Six,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Thirteen = addr { octet2 = apply_mask oct2 Five,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Twelve = addr { octet2 = apply_mask oct2 Four,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Eleven = addr { octet2 = apply_mask oct2 Three,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Ten = addr { octet2 = apply_mask oct2 Two,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Nine = addr { octet2 = apply_mask oct2 One,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Eight = addr { octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Seven = addr { octet1 = apply_mask oct1 Seven,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Six = addr { octet1 = apply_mask oct1 Six,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Five = addr { octet1 = apply_mask oct1 Five,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Four = addr { octet1 = apply_mask oct1 Four,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Three = addr { octet1 = apply_mask oct1 Three,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Two = addr { octet1 = apply_mask oct1 Two,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == One = addr { octet1 = apply_mask oct1 One,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | mask == Zero = addr { octet1 = min_octet,
- octet2 = min_octet,
- octet3 = min_octet,
- octet4 = min_octet }
- | otherwise = addr