home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / unixlib / src / mkdir.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  426b  |  21 lines
  1. #include "amiga.h"
  2. #include <stdarg.h>
  3.  
  4. int mkdir(char *name, mode_t mode)
  5. {
  6.   BPTR lock;
  7.   long amode;
  8.  
  9.   chkabort();
  10.  
  11.   if (lock = CreateDir(name))
  12.     {
  13.       UnLock(lock);
  14.       /* We remove script because mode 777 contains it by def, but it is
  15.          meaningless for directories */
  16.       amode = _make_protection(mode) & ~(FIBF_SCRIPT);
  17.       if (SetProtection(name, _make_protection(mode))) return 0;
  18.     }
  19.   ERROR;
  20. }
  21.