home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / workbench / c / makedir.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  765 b   |  45 lines
  1. /*
  2.     (C) 1995-97 AROS - The Amiga Replacement OS
  3.     $Id: makedir.c,v 1.5 1997/01/27 00:22:37 ldp Exp $
  4.  
  5.     Desc: Makedir CLI command
  6.     Lang: english
  7. */
  8.  
  9. #include <exec/memory.h>
  10. #include <exec/execbase.h>
  11. #include <proto/exec.h>
  12. #include <dos/dos.h>
  13. #include <proto/dos.h>
  14. #include <utility/tagitem.h>
  15.  
  16. int main (int argc, char ** argv)
  17. {
  18.     STRPTR args[1]={ 0 };
  19.     struct RDArgs *rda;
  20.     LONG error=0;
  21.     BPTR lock;
  22.  
  23.     rda=ReadArgs("DIR/A",(IPTR *)args,NULL);
  24.     if(rda!=NULL)
  25.     {
  26.     lock = CreateDir(args[0]);
  27.  
  28.     if (lock)
  29.         UnLock(lock);
  30.     else
  31.     {
  32.         VPrintf ("Cannot create %s:", (ULONG *)args);
  33.         error = RETURN_FAIL;
  34.     }
  35.  
  36.     FreeArgs(rda);
  37.     }
  38.     else
  39.     error=RETURN_FAIL;
  40.  
  41.     if(error)
  42.     PrintFault(IoErr(),"MakeDir");
  43.     return error;
  44. }
  45.