31 lines
1.2 KiB
C
31 lines
1.2 KiB
C
/***********************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
/* */
|
|
/* Copyright 1996 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
/* the special exception on linking described in file ../../LICENSE. */
|
|
/* */
|
|
/***********************************************************************/
|
|
|
|
/* $Id$ */
|
|
|
|
#include <mlvalues.h>
|
|
#include <memory.h>
|
|
#include "unixsupport.h"
|
|
|
|
char ** cstringvect(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;
|
|
}
|