/*
 * Copyright 2011 Tomas Zeman <tzeman@volny.cz>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
package net.tz.ip

import java.net.InetAddress
import net.liftweb.common._
import net.liftweb.util.Helpers._

case class IpAddress(inet: InetAddress) {
  lazy val toBigInt = BigInt(1, inet.getAddress)
  lazy val bytes = inet.getAddress
  lazy val v: IpVersion.Ver = IpVersion.fromLen(bytes.length)
  override def toString = inet.getHostAddress
}

object IpAddress {
  def apply(ip: String): Box[IpAddress] =
    tryo { IpAddress(InetAddress getByName ip) }

  def apply(a: Array[Byte]): Box[IpAddress] =
    tryo { IpAddress(InetAddress getByAddress a) }

  import IpVersion._
  import scala.collection.mutable.ArrayBuffer

  def apply(v: Ver, i: BigInt): Box[IpAddress] = {
    val a = i.toByteArray
    val bytes = if (a.length < v.len) {
      (ArrayBuffer.tabulate[Byte](v.len-a.length) { _ => 0} ++ a).toArray
    } else if (a.length == v.len + 1) {
      a drop 1
    } else {
      a
    }
    tryo { IpAddress(InetAddress.getByAddress(bytes)) }
  }
}

object IpVersion extends Enumeration {
  val v4 = Ver(4, "IPv4", 4, 32, BigInt(2).pow(32) - 1)
  val v6 = Ver(6, "IPv6", 16, 128, BigInt(2).pow(128) - 1)
  val IPv4 = v4
  val IPv6 = v6

  def fromLen(len: Int): Ver = len match {
    case  4 => v4
    case 16 => v6
    case _ => throw new NoSuchElementException("No element for length " + len)
  }

  case class Ver(val i: Int, val name: String, val len: Int,
    val bits: Int, val ones: BigInt) extends Val(i, name)
}

// vim: set ts=2 sw=2 et: