rt.swift

//
//  RT.swift
//  Clojure
//
//
//

import Foundation

public func typeOf<T> (x: T) -> T.Type {
  return T.self
}

public func isa<T> (type: T.Type, _ x: Any?) -> Bool {
  return x is T
}

public func null (x: AnyObject?) -> Bool {
  return x == nil
}

public func eq<T: AnyObject> (x: T, _ y: T) -> Bool {
  return x === y
}

public func equal<T: Equatable> (x: T, _ y: T) -> Bool {
  return x == y
}

public func gt<T: Comparable> (x: T, _ y: T) -> Bool {
  return x > y
}

public func lt<T: Comparable> (x: T, _ y: T) -> Bool {
  return x < y
}

public func gte<T: Comparable> (x: T, _ y: T) -> Bool {
  return x >= y
}

public func lte<T: Comparable> (x: T, _ y: T) -> Bool {
  return x >= y
}

public func hash<T: Hashable> (x: T?) -> Int {
  if x == nil {
    return 0
  } else {
    return x!.hashValue
  }
}

public func hashCombine (seed: Int, hash: Int) -> Int {
  return seed ^ hash + 0x9e3779b9 + (seed << 6) + (seed >> 2)
}

public func cast<A, B> (x: A, _ type: B.Type) throws -> B {
  return x as! B
}