From 0af48ff470d066ee594233fbd330de3f94bcb572 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Tue, 7 Feb 2012 22:05:19 +0400
Subject: [PATCH] NetBSD

---
 link.c  | 4 +++-
 main.ml | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/link.c b/link.c
index a5b78ee..76ea42d 100644
--- a/link.c
+++ b/link.c
@@ -2513,7 +2513,7 @@ static void set_wm_class (int hack)
 
 enum { piunknown, pilinux, piwindows, piosx,
        pisun, pifreebsd, pidragonflybsd,
-       piopenbsd, pimingw, picygwin };
+       piopenbsd, pinetbsd, pimingw, picygwin };
 
 CAMLprim value ml_platform (value unit_v)
 {
@@ -2534,6 +2534,8 @@ CAMLprim value ml_platform (value unit_v)
     platid = pifreebsd;
 #elif defined __OpenBSD__
     platid = piopenbsd;
+#elif defined __NetBSD__
+    platid = pinetbsd;
 #elif defined __sun__
     platid = pisun;
 #elif defined __APPLE__
diff --git a/main.ml b/main.ml
index ef7e6c7..53599d3 100644
--- a/main.ml
+++ b/main.ml
@@ -38,7 +38,8 @@ and colorspace     = | Rgb | Bgr | Gray
 ;;
 
 type platform = | Punknown | Plinux | Pwindows | Posx | Psun
-                | Pfreebsd | Pdragonflybsd | Popenbsd | Pmingw | Pcygwin;;
+                | Pfreebsd | Pdragonflybsd | Popenbsd | Pnetbsd
+                | Pmingw | Pcygwin;;
 
 external init : Unix.file_descr -> params -> unit = "ml_init";;
 external seltext : string -> (int * int * int * int) -> unit = "ml_seltext";;
@@ -64,6 +65,7 @@ let platform_to_string = function
   | Pfreebsd      -> "FreeBSD"
   | Pdragonflybsd -> "DragonflyBSD"
   | Popenbsd      -> "OpenBSD"
+  | Pnetbsd       -> "NetBSD"
   | Pcygwin       -> "Cygwin"
   | Pmingw        -> "MingW"
 ;;
-- 
2.11.4.GIT