1995-08-09 08:06:35 -07:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
|
|
|
|
/* Caml Special Light */
|
|
|
|
|
/* */
|
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 1995 Institut National de Recherche en Informatique et */
|
|
|
|
|
/* Automatique. Distributed only by permission. */
|
|
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
1995-05-08 08:18:32 -07:00
|
|
|
#include <mlvalues.h>
|
|
|
|
|
#include <memory.h>
|
|
|
|
|
#include "unix.h"
|
|
|
|
|
|
|
|
|
|
char ** cstringvect(arg)
|
|
|
|
|
value arg;
|
|
|
|
|
{
|
|
|
|
|
char ** res;
|
|
|
|
|
mlsize_t size, i;
|
|
|
|
|
|
|
|
|
|
size = Wosize_val(arg);
|
|
|
|
|
res = (char **) stat_alloc((size + 1) * sizeof(char *));
|
|
|
|
|
for (i = 0; i < size; i++) res[i] = String_val(Field(arg, i));
|
|
|
|
|
res[size] = NULL;
|
|
|
|
|
return res;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
