home *** CD-ROM | disk | FTP | other *** search
- /*--------------------------------------------------------------------*/
- /* m k d i r . c */
- /* */
- /* Support routines for UUPC/extended */
- /*--------------------------------------------------------------------*/
-
- /*--------------------------------------------------------------------*/
- /* Changes Copyright (c) 1989 by Andrew H. Derbyshire. */
- /* */
- /* Changes Copyright (c) 1990-1993 by Kendra Electronic */
- /* Wonderworks. */
- /* */
- /* All rights reserved except those explicitly granted by the */
- /* UUPC/extended license agreement. */
- /*--------------------------------------------------------------------*/
-
- /*--------------------------------------------------------------------*/
- /* RCS Information */
- /*--------------------------------------------------------------------*/
-
- /*
- * $Id: MKDIR.C 1.4 1993/04/11 00:31:31 dmwatt Exp $
- *
- * Revision history:
- * $Log: MKDIR.C $
- * Revision 1.4 1993/04/11 00:31:31 dmwatt
- * Global edits for year, TEXT, etc.
- *
- * Revision 1.3 1993/03/24 01:57:30 ahd
- * Delete unneeded currentfile()
- *
- */
-
- #include <stdio.h>
- #include <stdlib.h>
- #include <string.h>
- #include <time.h>
-
- #ifdef __GNUC__
- #include <os2.h>
- #else
- #include <direct.h>
- #endif
-
- /*--------------------------------------------------------------------*/
- /* UUPC/extended include files */
- /*--------------------------------------------------------------------*/
-
- #include "lib.h"
-
- /*--------------------------------------------------------------------*/
- /* M K D I R */
- /* */
- /* Like mkdir() but create intermediate directories as well */
- /*--------------------------------------------------------------------*/
-
- int MKDIR(const char *inpath)
- {
- char *cp;
- char *path;
-
- if (*inpath == '\0')
- return 0;
-
- cp = path = normalize(inpath );
-
-
- /*--------------------------------------------------------------------*/
- /* See if we need to make any intermediate directories */
- /*--------------------------------------------------------------------*/
-
- cp = path ;
- while ((cp = strchr(cp, '/')) != nil(char)) {
- *cp = '\0';
-
- #ifndef __GNUC__
- mkdir(path);
- #else
- DosCreateDir( path, 0);
- #endif
- *cp = '/';
- cp++;
- }
-
- /*--------------------------------------------------------------------*/
- /* Make last dir */
- /*--------------------------------------------------------------------*/
-
- return mkdir(inpath);
-
- } /*MKDIR*/
-