workbench/c/Unpack/support.c

   1 /*
   2     Copyright © 2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <dos/dos.h>
   8
   9 #include <proto/dos.h>
  10
  11 #include "support.h"
  12
  13 BOOL MakeDir( CONST_STRPTR path )
  14 {
  15     BPTR lock = CreateDir( path );
  16
  17     if( lock != NULL )
  18     {
  19         UnLock( lock );
  20         return TRUE;
  21     }
  22
  23     return FALSE;
  24 }
  25
  26 BOOL MakeDirs( STRPTR path )
  27 {
  28     STRPTR position;
  29     BOOL   success = FALSE;
  30     BPTR   lock    = NULL;
  31
  32     for( position = path; *position != '\0'; position++ )
  33     {
  34         if( *position == '/' )
  35         {
  36             *position = '\0';
  37
  38             if( (lock = Lock( path, SHARED_LOCK )) != NULL )
  39             {
  40                 UnLock( lock );
  41                 success = TRUE;
  42             }
  43             else
  44             {
  45                 success = MakeDir( path );
  46             }
  47
  48             *position = '/';
  49
  50             if( !success ) return FALSE;
  51         }
  52     }
  53
  54     return TRUE;
  55 }
  56