otherlibs/unix/cst2constr.c

   1 /***********************************************************************/
   2 /*                                                                     */
   3 /*                           Objective Caml                            */
   4 /*                                                                     */
   5 /*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
   6 /*                                                                     */
   7 /*  Copyright 1996 Institut National de Recherche en Informatique et   */
   8 /*  en Automatique.  All rights reserved.  This file is distributed    */
   9 /*  under the terms of the GNU Library General Public License, with    */
  10 /*  the special exception on linking described in file ../../LICENSE.  */
  11 /*                                                                     */
  12 /***********************************************************************/
  13
  14 /* $Id$ */
  15
  16 #include <mlvalues.h>
  17 #include <fail.h>
  18 #include "cst2constr.h"
  19
  20 value cst_to_constr(int n, int *tbl, int size, int deflt)
  21 {
  22   int i;
  23   for (i = 0; i < size; i++)
  24     if (n == tbl[i]) return Val_int(i);
  25   return Val_int(deflt);
  26 }