otherlibs/unix/readlink.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 <alloc.h>
  18 #include <fail.h>
  19
  20 #ifdef HAS_SYMLINK
  21
  22 #include <sys/param.h>
  23 #include "unixsupport.h"
  24
  25 #ifndef PATH_MAX
  26 #ifdef MAXPATHLEN
  27 #define PATH_MAX MAXPATHLEN
  28 #else
  29 #define PATH_MAX 512
  30 #endif
  31 #endif
  32
  33 CAMLprim value unix_readlink(value path)
  34 {
  35   char buffer[PATH_MAX];
  36   int len;
  37   len = readlink(String_val(path), buffer, sizeof(buffer) - 1);
  38   if (len == -1) uerror("readlink", path);
  39   buffer[len] = '\0';
  40   return copy_string(buffer);
  41 }
  42
  43 #else
  44
  45 CAMLprim value unix_readlink(value path)
  46 { invalid_argument("readlink not implemented"); }
  47
  48 #endif