/*
 *	mkdir
 *
 *	Amiga (Manx) Library
 *
 *	$Id: mkdir.c,v 1.2 90/01/16 10:26:45 crash Exp Locker: crash $
 */

#ifndef lint
static char RCSid[] = "$Id: mkdir.c,v 1.2 90/01/16 10:26:45 crash Exp Locker: crash $";
#endif /* lint */

#include <libraries/dos.h>
#include <exec/memory.h>

#ifdef MCH_AMIGA
# include <functions.h>		/* Manx */
#else
# include <proto/exec.h>	/* Lattice */
#endif

#ifdef TEST
# include <stdio.h>
#endif

#ifndef NULL
# define NULL 0L
#endif


/*--------------------------------------------------------------*/
/*	mkdir(name): make a directory with the given name.			*/
/*--------------------------------------------------------------*/

int mkdir( name )
char *name;
{
	register struct FileLock *lock;

#ifdef TEST
	fprintf( stderr, "mkdir: %s\n", name );
#endif
	lock = CreateDir( name );
	if ( !lock )
	   return (int)IoErr();
	else 
	   UnLock( lock );
	return 0;
}

#ifdef TEST
main()
{
	char command[100];

	gets( command );
	fprintf( stderr, "%d\n", mkdir( command ));
}
#endif