1 files changed, 15 insertions, 0 deletions
diff --git a/otherlibs/unix/cst2constr.c b/otherlibs/unix/cst2constr.c
new file mode 100644
index 000000000..7a519a750
--- /dev/null
+++ b/otherlibs/unix/cst2constr.c
@@ -0,0 +1,15 @@
+#include <mlvalues.h>
+#include <fail.h>
+#include "cst2constr.h"
+
+value cst_to_constr(n, tbl, size, deflt)
+     int n;
+     int * tbl;
+     int size;
+     int deflt;
+{
+  int i;
+  for (i = 0; i < size; i++)
+    if (n == tbl[i]) return Atom(i);
+  return Atom(deflt);
+}