/***********************************************************************/ /* */ /* Objective Caml */ /* */ /* 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. */ /* */ /***********************************************************************/ /* $Id$ */ #include #include #include #include "unixsupport.h" value unix_chmod(value path, value perm) /* ML */ { int ret; ret = chmod(String_val(path), Int_val(perm)); if (ret == -1) uerror("chmod", path); return Val_unit; }