#include <mitsuba/core/random.h>
#include <mitsuba/core/fresolver.h>
#include <stdarg.h>
#include <iomanip>
#include <errno.h>

/* Some of the implementations in this file are based on PBRT */

#if defined(__OSX__)
#include <sys/sysctl.h>
#elif defined(WIN32)
#include <direct.h>
#else
#include <malloc.h>
#endif

#if defined(WIN32)
#include <winsock2.h>
#include <ws2tcpip.h>
#else
#include <sys/types.h>
#include <sys/socket.h>
#include <netdb.h>
#endif

#if !defined(L1_CACHE_LINE_SIZE)
#define L1_CACHE_LINE_SIZE 64
#endif

MTS_NAMESPACE_BEGIN

#ifdef MTS_SSE
static const float pinf = std::numeric_limits<float>::infinity();
static const float flt_max = std::numeric_limits<float>::max();
const MM_ALIGN16 SSEVector SSEConstants::zero	  = SSEVector(-1.0f, 0.0f, 0.0f, 0.0f);
const MM_ALIGN16 SSEVector SSEConstants::one	  = SSEVector(1.0f, 1.0f, 1.0f, 1.0f);
const MM_ALIGN16 SSEVector SSEConstants::max	  = SSEVector(flt_max, flt_max, flt_max, flt_max);
const MM_ALIGN16 SSEVector SSEConstants::eps	  = SSEVector(Epsilon, Epsilon, Epsilon, Epsilon);
const MM_ALIGN16 SSEVector SSEConstants::op_eps   = SSEVector(1+Epsilon, 1+Epsilon, 1+Epsilon, 1+Epsilon);
const MM_ALIGN16 SSEVector SSEConstants::om_eps   = SSEVector(1-Epsilon, 1-Epsilon, 1-Epsilon, 1-Epsilon);
const MM_ALIGN16 SSEVector SSEConstants::p_inf	  = SSEVector(pinf, pinf, pinf, pinf);
const MM_ALIGN16 SSEVector SSEConstants::n_inf	  = SSEVector(-pinf, -pinf, -pinf, -pinf);
const MM_ALIGN16 SSEVector SSEConstants::ffffffff = SSEVector((int32_t) 0xFFFFFFFF, (int32_t) 0xFFFFFFFF, (int32_t) 0xFFFFFFFF, (int32_t) 0xFFFFFFFF);
#endif

const int primeTable[primeTableSize] = {
	2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 
	109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 
	229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 
	353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 
	479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563, 569, 571, 577, 587, 593, 599, 601, 607, 613, 
	617, 619, 631, 641, 643, 647, 653, 659, 661, 673, 677, 683, 691, 701, 709, 719, 727, 733, 739, 743, 751, 
	757, 761, 769, 773, 787, 797, 809, 811, 821, 823, 827, 829, 839, 853, 857, 859, 863, 877, 881, 883, 887, 
	907, 911, 919, 929, 937, 941, 947, 953, 967, 971, 977, 983, 991, 997, 1009, 1013, 1019, 1021, 1031, 1033, 
	1039, 1049, 1051, 1061, 1063, 1069, 1087, 1091, 1093, 1097, 1103, 1109, 1117, 1123, 1129, 1151, 1153, 
	1163, 1171, 1181, 1187, 1193, 1201, 1213, 1217, 1223, 1229, 1231, 1237, 1249, 1259, 1277, 1279, 1283, 
	1289, 1291, 1297, 1301, 1303, 1307, 1319, 1321, 1327, 1361, 1367, 1373, 1381, 1399, 1409, 1423, 1427, 
	1429, 1433, 1439, 1447, 1451, 1453, 1459, 1471, 1481, 1483, 1487, 1489, 1493, 1499, 1511, 1523, 1531, 
	1543, 1549, 1553, 1559, 1567, 1571, 1579, 1583, 1597, 1601, 1607, 1609, 1613, 1619, 1621, 1627, 1637, 
	1657, 1663, 1667, 1669, 1693, 1697, 1699, 1709, 1721, 1723, 1733, 1741, 1747, 1753, 1759, 1777, 1783, 
	1787, 1789, 1801, 1811, 1823, 1831, 1847, 1861, 1867, 1871, 1873, 1877, 1879, 1889, 1901, 1907, 1913, 
	1931, 1933, 1949, 1951, 1973, 1979, 1987, 1993, 1997, 1999, 2003, 2011, 2017, 2027, 2029, 2039, 2053, 
	2063, 2069, 2081, 2083, 2087, 2089, 2099, 2111, 2113, 2129, 2131, 2137, 2141, 2143, 2153, 2161, 2179, 
	2203, 2207, 2213, 2221, 2237, 2239, 2243, 2251, 2267, 2269, 2273, 2281, 2287, 2293, 2297, 2309, 2311, 
	2333, 2339, 2341, 2347, 2351, 2357, 2371, 2377, 2381, 2383, 2389, 2393, 2399, 2411, 2417, 2423, 2437, 
	2441, 2447, 2459, 2467, 2473, 2477, 2503, 2521, 2531, 2539, 2543, 2549, 2551, 2557, 2579, 2591, 2593, 
	2609, 2617, 2621, 2633, 2647, 2657, 2659, 2663, 2671, 2677, 2683, 2687, 2689, 2693, 2699, 2707, 2711, 
	2713, 2719, 2729, 2731, 2741, 2749, 2753, 2767, 2777, 2789, 2791, 2797, 2801, 2803, 2819, 2833, 2837, 
	2843, 2851, 2857, 2861, 2879, 2887, 2897, 2903, 2909, 2917, 2927, 2939, 2953, 2957, 2963, 2969, 2971, 
	2999, 3001, 3011, 3019, 3023, 3037, 3041, 3049, 3061, 3067, 3079, 3083, 3089, 3109, 3119, 3121, 3137, 
	3163, 3167, 3169, 3181, 3187, 3191, 3203, 3209, 3217, 3221, 3229, 3251, 3253, 3257, 3259, 3271, 3299, 
	3301, 3307, 3313, 3319, 3323, 3329, 3331, 3343, 3347, 3359, 3361, 3371, 3373, 3389, 3391, 3407, 3413, 
	3433, 3449, 3457, 3461, 3463, 3467, 3469, 3491, 3499, 3511, 3517, 3527, 3529, 3533, 3539, 3541, 3547, 
	3557, 3559, 3571, 3581, 3583, 3593, 3607, 3613, 3617, 3623, 3631, 3637, 3643, 3659, 3671, 3673, 3677, 
	3691, 3697, 3701, 3709, 3719, 3727, 3733, 3739, 3761, 3767, 3769, 3779, 3793, 3797, 3803, 3821, 3823, 
	3833, 3847, 3851, 3853, 3863, 3877, 3881, 3889, 3907, 3911, 3917, 3919, 3923, 3929, 3931, 3943, 3947, 
	3967, 3989, 4001, 4003, 4007, 4013, 4019, 4021, 4027, 4049, 4051, 4057, 4073, 4079, 4091, 4093, 4099, 
	4111, 4127, 4129, 4133, 4139, 4153, 4157, 4159, 4177, 4201, 4211, 4217, 4219, 4229, 4231, 4241, 4243, 
	4253, 4259, 4261, 4271, 4273, 4283, 4289, 4297, 4327, 4337, 4339, 4349, 4357, 4363, 4373, 4391, 4397, 
	4409, 4421, 4423, 4441, 4447, 4451, 4457, 4463, 4481, 4483, 4493, 4507, 4513, 4517, 4519, 4523, 4547, 
	4549, 4561, 4567, 4583, 4591, 4597, 4603, 4621, 4637, 4639, 4643, 4649, 4651, 4657, 4663, 4673, 4679, 
	4691, 4703, 4721, 4723, 4729, 4733, 4751, 4759, 4783, 4787, 4789, 4793, 4799, 4801, 4813, 4817, 4831, 
	4861, 4871, 4877, 4889, 4903, 4909, 4919, 4931, 4933, 4937, 4943, 4951, 4957, 4967, 4969, 4973, 4987, 
	4993, 4999, 5003, 5009, 5011, 5021, 5023, 5039, 5051, 5059, 5077, 5081, 5087, 5099, 5101, 5107, 5113, 
	5119, 5147, 5153, 5167, 5171, 5179, 5189, 5197, 5209, 5227, 5231, 5233, 5237, 5261, 5273, 5279, 5281, 
	5297, 5303, 5309, 5323, 5333, 5347, 5351, 5381, 5387, 5393, 5399, 5407, 5413, 5417, 5419, 5431, 5437, 
	5441, 5443, 5449, 5471, 5477, 5479, 5483, 5501, 5503, 5507, 5519, 5521, 5527, 5531, 5557, 5563, 5569, 
	5573, 5581, 5591, 5623, 5639, 5641, 5647, 5651, 5653, 5657, 5659, 5669, 5683, 5689, 5693, 5701, 5711, 
	5717, 5737, 5741, 5743, 5749, 5779, 5783, 5791, 5801, 5807, 5813, 5821, 5827, 5839, 5843, 5849, 5851, 
	5857, 5861, 5867, 5869, 5879, 5881, 5897, 5903, 5923, 5927, 5939, 5953, 5981, 5987, 6007, 6011, 6029, 
	6037, 6043, 6047, 6053, 6067, 6073, 6079, 6089, 6091, 6101, 6113, 6121, 6131, 6133, 6143, 6151, 6163, 
	6173, 6197, 6199, 6203, 6211, 6217, 6221, 6229, 6247, 6257, 6263, 6269, 6271, 6277, 6287, 6299, 6301, 
	6311, 6317, 6323, 6329, 6337, 6343, 6353, 6359, 6361, 6367, 6373, 6379, 6389, 6397, 6421, 6427, 6449, 
	6451, 6469, 6473, 6481, 6491, 6521, 6529, 6547, 6551, 6553, 6563, 6569, 6571, 6577, 6581, 6599, 6607, 
	6619, 6637, 6653, 6659, 6661, 6673, 6679, 6689, 6691, 6701, 6703, 6709, 6719, 6733, 6737, 6761, 6763, 
	6779, 6781, 6791, 6793, 6803, 6823, 6827, 6829, 6833, 6841, 6857, 6863, 6869, 6871, 6883, 6899, 6907, 
	6911, 6917, 6947, 6949, 6959, 6961, 6967, 6971, 6977, 6983, 6991, 6997, 7001, 7013, 7019, 7027, 7039, 
	7043, 7057, 7069, 7079, 7103, 7109, 7121, 7127, 7129, 7151, 7159, 7177, 7187, 7193, 7207, 7211, 7213, 
	7219, 7229, 7237, 7243, 7247, 7253, 7283, 7297, 7307, 7309, 7321, 7331, 7333, 7349, 7351, 7369, 7393, 
	7411, 7417, 7433, 7451, 7457, 7459, 7477, 7481, 7487, 7489, 7499, 7507, 7517, 7523, 7529, 7537, 7541, 
	7547, 7549, 7559, 7561, 7573, 7577, 7583, 7589, 7591, 7603, 7607, 7621, 7639, 7643, 7649, 7669, 7673, 
	7681, 7687, 7691, 7699, 7703, 7717, 7723, 7727, 7741, 7753, 7757, 7759, 7789, 7793, 7817, 7823, 7829, 
	7841, 7853, 7867, 7873, 7877, 7879, 7883, 7901, 7907, 7919
};


// -----------------------------------------------------------------------
//  General utility functions
// -----------------------------------------------------------------------

std::vector<std::string> tokenize(const std::string &string, const std::string &delim) {
	std::string::size_type lastPos = string.find_first_not_of(delim, 0);
	std::string::size_type pos = string.find_first_of(delim, lastPos);
	std::vector<std::string> tokens;

	while (std::string::npos != pos || std::string::npos != lastPos) {
		tokens.push_back(string.substr(lastPos, pos - lastPos));
		lastPos = string.find_first_not_of(delim, pos);
		pos = string.find_first_of(delim, lastPos);
	}

	return tokens;
}

std::string toLowerCase(const std::string &pString) {
	std::string result;
	result.reserve(pString.length());

	for (unsigned int i=0; i<pString.length(); i++)
		result += std::tolower(pString[i]);

	return result;
}

std::string indent(const std::string &string, int amount) {
	/* This could probably be done faster (is not
	   really speed-critical though) */
	std::istringstream iss(string);
	std::ostringstream oss;
	std::string str;
	bool firstLine = true;
	while (!iss.eof()) {
		std::getline(iss, str);
		if (!firstLine) {
			for (int i=0; i<amount; ++i)
				oss << "  ";
		}
		oss << str;
		if (!iss.eof())
			oss << endl;
		firstLine = false;
	}
	return oss.str();
}

bool endsWith(const std::string& str, const std::string& end) {
	std::string::size_type pos = str.rfind(end);
	return (pos == str.size() - end.size());
}

void * __restrict allocAligned(size_t size) {
#if defined(WIN32)
	return _aligned_malloc(size, L1_CACHE_LINE_SIZE);
#elif defined(__OSX__)
	/* OSX malloc already returns 16-byte aligned data suitable
	   for AltiVec and SSE computations */
	return malloc(size);
#else
	return memalign(L1_CACHE_LINE_SIZE, size);
#endif
}

void freeAligned(void *ptr) {
#if defined(WIN32)
	_aligned_free(ptr);
#else
	free(ptr);
#endif
}

int getProcessorCount() {
#if defined(WIN32)
	SYSTEM_INFO sys_info;
	GetSystemInfo(&sys_info);
	return sys_info.dwNumberOfProcessors;
#elif defined(__OSX__)
	int nprocs;
	size_t nprocsSize = sizeof(int);
	if (sysctlbyname("hw.activecpu", &nprocs, &nprocsSize, NULL, 0))
		SLog(EError, "Could not detect the number of processors!");
	return (int) nprocs;
#else
	return sysconf(_SC_NPROCESSORS_CONF);
#endif
}

#if defined(WIN32)
std::string lastErrorText() {
	DWORD errCode = GetLastError();
	char *errorText = NULL;
	if (!FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER 
		| FORMAT_MESSAGE_FROM_SYSTEM
		| FORMAT_MESSAGE_IGNORE_INSERTS,
		NULL,
		errCode,
		MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
		(LPTSTR) &errorText,
		0,
		NULL)) {
		return "Internal error while looking up an error code";
	}
	std::string result(errorText);
	LocalFree(errorText);
	return result;
}
#endif


std::string getHostName() {
	char hostName[128];
	if (gethostname(hostName, sizeof(hostName)) != 0)
#if defined(WIN32)
		SLog(EError, "Could not retrieve the computer's host name: %s!",
			lastErrorText().c_str());
#else
		SLog(EError, "Could not retrieve the computer's host name : %s!",
			strerror(errno));
#endif
	return hostName;
}

std::string getFQDN() {
	struct addrinfo *addrInfo = NULL, hints;
	memset(&hints, 0, sizeof(addrinfo));
	// Only look for IPv4 addresses -- perhaps revisit this later
	hints.ai_family = AF_INET; // AF_UNSPEC
	hints.ai_socktype = SOCK_STREAM;
	hints.ai_protocol = IPPROTO_TCP;

	int retVal = getaddrinfo(getHostName().c_str(), NULL, &hints, &addrInfo);
	if (addrInfo == NULL || retVal != 0) {
		SLog(EWarn, "Could not retrieve the computer's fully "
			"qualified domain name: could not resolve host address \"%s\"!",
			getHostName().c_str());
		return getHostName();
	}

	char fqdn[NI_MAXHOST];
	retVal = getnameinfo(addrInfo->ai_addr, sizeof(struct sockaddr_in), 
		fqdn, NI_MAXHOST, NULL, 0, 0);
	if (retVal != 0) {
		freeaddrinfo(addrInfo);
#if defined(WIN32)
		SLog(EWarn, "Could not retrieve the computer's fully "
			"qualified domain name: error %i!", WSAGetLastError());
#else
		SLog(EWarn, "Could not retrieve the computer's fully "
			"qualified domain name: error %i!", gai_strerror(retVal));
#endif
		return getHostName();
	}
		
	freeaddrinfo(addrInfo);

	return fqdn;
}

Float log2(Float value) {
	static Float invLn2 = (Float) 1.0f / std::log((Float) 2.0f);
	return std::log(value) * invLn2;
}

std::string formatString(const char *pFmt, ...) {
	char tmp[2048]; /* Limited to 2k */
	va_list iterator;

	va_start(iterator, pFmt);
	vsnprintf(tmp, 2048, pFmt, iterator);
	va_end(iterator);

	return std::string(tmp);
}

int log2i(int value) {
  int r = 0;
  while ((value >> r) != 0)
    r++;
  return r-1;
}

int modulo(int a, int b) {
	int result = a - int(a/b) * b;
	return (result < 0) ? result+b : result;
}

/* Fast rounding & power-of-two test algorithms from PBRT */
bool isPowerOfTwo(unsigned int i) {
	return (i & (i-1)) == 0;
}

unsigned int roundToPowerOfTwo(unsigned int i) {
	i--;
	i |= i >> 1; i |= i >> 2;
	i |= i >> 4; i |= i >> 8;
	i |= i >> 16;
	return i+1;
}


// -----------------------------------------------------------------------
//  Numerical utility functions
// -----------------------------------------------------------------------

bool solveQuadratic(Float a, Float b, Float c, Float &x0, Float &x1) {
	/* Linear case */
	if (a == 0) {
		if (b != 0) {
			x0 = x1 = -c / b;
			return true;
		}
		return false;
	}

	Float discrim = b*b - 4.0f*a*c;

	/* Leave if there is no solution */
	if (discrim < 0)
		return false;

	Float temp, sqrtDiscrim = std::sqrt(discrim);

	/* Numerically stable version of (-b (+/-) sqrtDiscrim) / (2 * a)
	 *
	 * Based on the observation that one solution is always
	 * accurate while the other is not. Finds the solution of
	 * greater magnitude which does not suffer from loss of
	 * precision and then uses the identity x1 * x2 = c / a
	 */
	if (b < 0)
		temp = -0.5f * (b - sqrtDiscrim);
	else
		temp = -0.5f * (b + sqrtDiscrim);

	x0 = temp / a;
	x1 = c / temp;

	/* Return the results so that x0 < x1 */
	if (x0 > x1)
		std::swap(x0, x1);

	return true;
}

bool solveLinearSystem2x2(const Float a[2][2], const Float b[2], Float x[2]) {
	Float det = a[0][0] * a[1][1] - a[0][1] * a[1][0];

	if (std::abs(det) < Epsilon)
		return false;

	Float inverse = (Float) 1.0f / det;

	x[0] = (a[1][1] * b[0] - a[0][1] * b[1]) * inverse;
	x[1] = (a[0][0] * b[1] - a[1][0] * b[0]) * inverse;

	return true;
}

void stratifiedSample1D(Random *random, Float *dest, int count, bool jitter) {
	Float invCount = 1.0f / count;

	for (int i=0; i<count; i++) {
		Float offset = jitter ? random->nextFloat() : 0.5f;
		*dest++ = (i + offset) * invCount;
	}
}

void stratifiedSample2D(Random *random, Point2 *dest, int countX, int countY, bool jitter) {
	Float invCountX = 1.0f / countX;
	Float invCountY = 1.0f / countY;

	for (int x=0; x<countX; x++) {
		for (int y=0; y<countY; y++) {
			Float offsetX = jitter ? random->nextFloat() : 0.5f;
			Float offsetY = jitter ? random->nextFloat() : 0.5f;
			*dest++ = Point2(
				(x + offsetX) * invCountX,
				(y + offsetY) * invCountY
			);
		}
	}
}

void latinHypercube(Random *random, Float *dest, int nSamples, int nDim) {
	Float delta = 1 / (Float) nSamples;
	for (int i = 0; i < nSamples; ++i)
		for (int j = 0; j < nDim; ++j)
			dest[nDim * i + j] = (i + random->nextFloat()) * delta;
	for (int i = 0; i < nDim; ++i) {
		for (int j = 0; j < nSamples; ++j) {
			int other = random->nextInteger(nSamples);
			std::swap(dest[nDim * j + i], dest[nDim * other + i]);
		}
	}
}


Vector sphericalDirection(Float theta, Float phi) {
	Float sinTheta = std::sin(theta);
	return Vector(
		sinTheta * std::cos(phi),
		sinTheta * std::sin(phi),
		std::cos(theta)
	);
}

Vector squareToSphere(const Point2 &sample) {
	Float z = 1.0f - 2.0f * sample.y;
	Float r = 1.0f - z * z;
	r = std::sqrt(std::max((Float) 0, r));
	Float phi = 2.0f * M_PI * sample.x;
	return Vector(r * std::cos(phi), r * std::sin(phi), z);
}

Vector squareToHemisphere(const Point2 &sample) {
	Float phi = 2.0f * M_PI * sample.x;
	Float r2 = sample.y;
	Float tmp = std::sqrt(1-std::min((Float) 1, r2*r2));

	return Vector(
		std::cos(phi) * tmp,
		std::sin(phi) * tmp,
		r2
	);
}

Vector squareToHemispherePSA(const Point2 &sample) {
	Float r = std::sqrt(sample.x);
	Float phi = 2.0f * M_PI * sample.y;
	Float dirX = r * std::cos(phi);
	Float dirY = r * std::sin(phi);
	Float z = std::sqrt(1 - std::min((Float) 1, dirX*dirX + dirY*dirY));

	return Vector(
		dirX, dirY, z
	);
}

Point2 squareToDisk(const Point2 &sample) {
	Float r = std::sqrt(sample.x);
	Float phi = 2.0f * M_PI * sample.y;
	Float dirX = r * std::cos(phi);
	Float dirY = r * std::sin(phi);

	return Point2(
		dirX, dirY
	);
}


void coordinateSystem(const Vector &a, Vector &b, Vector &c) {
	if (std::abs(a.x) > std::abs(a.y)) {
		Float invLen = 1.0f / std::sqrt(a.x * a.x + a.z * a.z);
		b = Vector(-a.z * invLen, 0.0f, a.x * invLen);
	} else {
		Float invLen = 1.0f / std::sqrt(a.y * a.y + a.z * a.z);
		b = Vector(0.0f, -a.z * invLen, a.y * invLen);
	}
	c = cross(a, b);
}

Point2 squareToTriangle(const Point2 &sample) {
	Float a = std::sqrt(1.0f - sample.x);
	return Point2(1 - a, a * sample.y);
}

Point2 toSphericalCoordinates(const Vector &v) {
	return Point2(
		std::acos(v.z),
		std::atan2(v.y, v.x)
	);
}

Point2 squareToDiskConcentric(const Point2 &sample) {
	Float r1 = 2.0f*sample.x - 1.0f;
	Float r2 = 2.0f*sample.y - 1.0f;

	Point2 coords;
	if (r1 == 0 && r2 == 0) {
		coords = Point2(0, 0);
	} else if (r1 > -r2) { /* Regions 1/2 */
		if (r1 > r2)
			coords = Point2(r1, (M_PI/4.0f) * r2/r1);
		else
			coords = Point2(r2, (M_PI/4.0f) * (2.0f - r1/r2));
	} else { /* Regions 3/4 */
		if (r1<r2)
			coords = Point2(-r1, (M_PI/4.0f) * (4.0f + r2/r1));
		else 
			coords = Point2(-r2, (M_PI/4.0f) * (6.0f- - r1/r2));
	}
	return Point2(
		coords.x*std::cos(coords.y),
		coords.x*std::sin(coords.y)
	);
}

Float squareToConePdf(Float cosCutoff) {
	return 1 / (2 * (Float) M_PI * (1 - cosCutoff));
}

Vector squareToCone(Float cosCutoff, const Point2 &sample) {
	Float cosTheta = (1-sample.x) + sample.x * cosCutoff;
	Float sinTheta = std::sqrt(1 - cosTheta * cosTheta);
	Float phi = sample.y * (2 * (Float) M_PI);
	return Vector(std::cos(phi) * sinTheta,
		std::sin(phi) * sinTheta, cosTheta);
}

Float lanczosSinc(Float t, Float tau) {
	t = std::abs(t);
	if (t < Epsilon)
		return 1.0f;
	else if (t > 1.0f)
		return 0.0f;
	t *= M_PI;
	Float sincTerm = std::sin(t*tau)/(t*tau);
	Float windowTerm = std::sin(t)/t;
	return sincTerm * windowTerm;
}

/* The following functions calculate the reflected and refracted 
	directions in addition to the fresnel coefficients. Based on 
	PBRT and the paper "Derivation of Refraction Formulas" 
	by Paul S. Heckbert. */
Float fresnelDielectric(Float cosTheta1, Float cosTheta2, 
						Float etaExt, Float etaInt) {
	Float Rs = (etaExt * cosTheta1 - etaInt * cosTheta2)
			/ (etaExt * cosTheta1 + etaInt * cosTheta2);
	Float Rp = (etaInt * cosTheta1 - etaExt * cosTheta2)
			/ (etaInt * cosTheta1 + etaExt * cosTheta2);

	return (Rs * Rs + Rp * Rp) / 2.0f;
}

Spectrum fresnelConductor(Float cosTheta, const Spectrum &eta, const Spectrum &k) {
	Spectrum tmp = (eta*eta + k*k) * (cosTheta * cosTheta);

	Spectrum rParl2 = (tmp - (eta * (2.0f * cosTheta)) + 1.0f)
					/ (tmp + (eta * (2.0f * cosTheta)) + 1.0f);

	Spectrum tmpF = eta*eta + k*k;

	Spectrum rPerp2 = (tmpF - (eta * (2.0f * cosTheta)) + cosTheta*cosTheta) /
					  (tmpF + (eta * (2.0f * cosTheta)) + cosTheta*cosTheta);

	return (rParl2 + rPerp2) / 2.0f;
}

Float fresnel(Float cosTheta1, Float etaExt, Float etaInt) {
	/* Swap the indices of refraction if the interaction starts
		at the inside of the object */
	if (cosTheta1 < 0.0f)
		std::swap(etaInt, etaExt);

	/* Using Snell's law, calculate the sine of the angle
		between the transmitted ray and the surface normal */
	Float sinTheta2 = etaExt/etaInt * 
		std::sqrt(std::max((Float) 0.0f, 1.0f - cosTheta1*cosTheta1));

	if (sinTheta2 > 1.0f)
		return 1.0f;  /* Total internal reflection! */

	/* Use the sin^2+cos^2=1 identity - max() guards against
		numerical imprecision*/
	Float cosTheta2 = std::sqrt(std::max((Float) 0.0f, 
		1.0f - sinTheta2*sinTheta2));

	/* Finally compute the reflection coefficient */
	return fresnelDielectric(std::abs(cosTheta1), cosTheta2, 
		etaInt, etaExt);
}

Float radicalInverse(int b, int i) {
	Float invB = (Float) 1 / (Float) b;
	Float x = 0.0f, f = invB;
	
	while (i) {
		x += f * (Float) (i % b);
		i /= b;
		f *= invB;
	}
	return x;
}

Float radicalInverseIncremental(int b, Float x) {
	Float invB = (Float) 1 / (Float) b;
	Float h, hh, r = 1.0f - x - (Float) 1e-10;

	if (invB < r) {
		x += invB;
	} else {
		h = invB;
		do {
			hh = h;
			h *= invB;
		} while (h >= r);

		x += hh + h - 1.0f;
	}
	return x;
}

std::string timeToString(Float time) {
	std::ostringstream os;
	char suffix = 's';
#ifdef WIN32
	if (ubi_isnan(time) || std::isinf(time)) {
#else
	if (ubi_isnan(time) || std::fpclassify(time) == FP_INFINITE) {
#endif
		return "inf";
	}
	os << std::setprecision(1) << std::fixed;
	if (time > 60) {
		time /= 60; suffix = 'm';
		if (time > 60) {
			time /= 60; suffix = 'h';
			if (time > 12) {
				time /= 12; suffix = 'd';
			}
		}
	}
	os << time << suffix;
	return os.str();
}

double normalQuantile(double p) {
	// By Peter J. Acklam
	// http://home.online.no/~pjacklam/notes/invnorm/impl/sprouse/ltqnorm.c
	static const double LOW = 0.02425;
	static const double HIGH = 0.97575;
	double q, r;

	/* Coefficients in rational approximations. */
	static const double a[] = {
		-3.969683028665376e+01,
		 2.209460984245205e+02,
		-2.759285104469687e+02,
		 1.383577518672690e+02,
		-3.066479806614716e+01,
		 2.506628277459239e+00
	};
	static const double b[] = {
		-5.447609879822406e+01,
		 1.615858368580409e+02,
		-1.556989798598866e+02,
		 6.680131188771972e+01,
		-1.328068155288572e+01
	};
	static const double c[] = {
		-7.784894002430293e-03,
		-3.223964580411365e-01,
		-2.400758277161838e+00,
		-2.549732539343734e+00,
		 4.374664141464968e+00,
		 2.938163982698783e+00
	};
	static const double d[] = {
		7.784695709041462e-03,
		3.224671290700398e-01,
		2.445134137142996e+00,
		3.754408661907416e+00
	};

	errno = 0;

	if (p < 0 || p > 1) {
		errno = EDOM;
		return 0.0;
	} else if (p == 0) {
		errno = ERANGE;
		return -HUGE_VAL /* minus "infinity" */;
	} else if (p == 1) {
		errno = ERANGE;
		return HUGE_VAL /* "infinity" */;
	} else if (p < LOW) {
		/* Rational approximation for lower region */
		q = sqrt(-2*log(p));
		return (((((c[0]*q+c[1])*q+c[2])*q+c[3])*q+c[4])*q+c[5]) /
			((((d[0]*q+d[1])*q+d[2])*q+d[3])*q+1);
	} else if (p > HIGH) {
		/* Rational approximation for upper region */
		q  = sqrt(-2*log(1-p));
		return -(((((c[0]*q+c[1])*q+c[2])*q+c[3])*q+c[4])*q+c[5]) /
			((((d[0]*q+d[1])*q+d[2])*q+d[3])*q+1);
	} else {
		/* Rational approximation for central region */
		q = p - 0.5;
		r = q*q;
		return (((((a[0]*r+a[1])*r+a[2])*r+a[3])*r+a[4])*r+a[5])*q /
			(((((b[0]*r+b[1])*r+b[2])*r+b[3])*r+b[4])*r+1);
	}
}

ThreadLocal<FileResolver> FileResolver::m_tls;

MTS_IMPLEMENT_CLASS(FileResolver, false, Object)
MTS_NAMESPACE_END