workbench/libs/rexxsupport/makedir.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Make a directory
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11 #include <proto/rexxsyslib.h>
  12 #include <exec/types.h>
  13 #include <exec/memory.h>
  14 #include <rexx/storage.h>
  15 #include <rexx/errors.h>
  16
  17 #include <ctype.h>
  18 #include <stdlib.h>
  19
  20 #include "rexxsupport_intern.h"
  21 #include "rxfunctions.h"
  22
  23 LONG rxsupp_makedir(struct Library *RexxSupportBase, struct RexxMsg *msg, UBYTE **argstring)
  24 {
  25     BPTR lock;
  26
  27     lock = CreateDir(ARG1(msg));
  28     if (lock == (BPTR)NULL)
  29         *argstring = CreateArgstring("0", 1);
  30     else
  31     {
  32         UnLock(lock);
  33         *argstring = CreateArgstring("1", 1);
  34     }
  35
  36     return RC_OK;
  37 }