X-Git-Url: http://woldlab.caltech.edu/gitweb/?p=pysam.git;a=blobdiff_plain;f=samtools%2Fmsvc_compat.h;fp=samtools%2Fmsvc_compat.h;h=624cc99e410a87822205c377bba33f6a33496fff;hp=0000000000000000000000000000000000000000;hb=d02fe5283ed7a93a2f76a5d6dc6e37b40c11b9b1;hpb=d828f9c9aa78e3d1687265b52de841f3f3852089

diff --git a/samtools/msvc_compat.h b/samtools/msvc_compat.h
new file mode 100644
index 0000000..624cc99
--- /dev/null
+++ b/samtools/msvc_compat.h
@@ -0,0 +1,60 @@
+// Windows-specific code, include with:
+// #ifdef _MSC_VER
+// #include <msvc_compat.h>
+// #endif
+
+//#define _CRT_SECURE_NO_WARNINGS
+#ifndef MSVC_COMPAT_H
+#define MSVC_COMPAT_H
+
+#define inline __inline
+#define __func__ __FUNCTION__
+
+#include <float.h>
+#define isnan _isnan
+static int isinf(double x) {
+    int y = _finite(x);
+    if(y == 0) {
+       return 0;
+    } else {
+       return 1;
+    }
+}
+#define alloca _alloca
+#define atoll _atoi64
+
+#define ftello ftell
+
+typedef int bool;
+
+static int R_OK = 4;
+
+#ifndef lgamma
+/* Log gamma function
+ * \log{\Gamma(z)}
+ * AS245, 2nd algorithm, http://lib.stat.cmu.edu/apstat/245
+ */
+static double lgamma(double z)
+{
+	double x = 0;
+	x += 0.1659470187408462e-06 / (z+7);
+	x += 0.9934937113930748e-05 / (z+6);
+	x -= 0.1385710331296526     / (z+5);
+	x += 12.50734324009056      / (z+4);
+	x -= 176.6150291498386      / (z+3);
+	x += 771.3234287757674      / (z+2);
+	x -= 1259.139216722289      / (z+1);
+	x += 676.5203681218835      / z;
+	x += 0.9999999999995183;
+	return log(x) - 5.58106146679532777 - z + (z-0.5) * log(z+6.5);
+}
+#endif
+
+#ifndef M_LN10
+#define 	M_LN10   2.30258509299404568402
+#endif
+#ifndef M_LN2
+#define 	M_LN2   0.69314718055994530942
+#endif
+
+#endif