]>
Commit | Line | Data |
---|---|---|
07fc65c4 GB |
1 | /**************************************************************************** |
2 | * * | |
3 | * GNAT COMPILER COMPONENTS * | |
4 | * * | |
5 | * M K D I R * | |
6 | * * | |
07fc65c4 GB |
7 | * C Implementation File * |
8 | * * | |
fbf5a39b | 9 | * Copyright (C) 2002-2003, Free Software Foundation, Inc. * |
07fc65c4 GB |
10 | * * |
11 | * GNAT is free software; you can redistribute it and/or modify it under * | |
12 | * terms of the GNU General Public License as published by the Free Soft- * | |
13 | * ware Foundation; either version 2, or (at your option) any later ver- * | |
14 | * sion. GNAT is distributed in the hope that it will be useful, but WITH- * | |
15 | * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY * | |
16 | * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * | |
17 | * for more details. You should have received a copy of the GNU General * | |
18 | * Public License distributed with GNAT; see file COPYING. If not, write * | |
19 | * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, * | |
20 | * MA 02111-1307, USA. * | |
21 | * * | |
22 | * As a special exception, if you link this file with other files to * | |
23 | * produce an executable, this file does not by itself cause the resulting * | |
24 | * executable to be covered by the GNU General Public License. This except- * | |
25 | * ion does not however invalidate any other reasons why the executable * | |
26 | * file might be covered by the GNU Public License. * | |
27 | * * | |
28 | * GNAT was originally developed by the GNAT team at New York University. * | |
1f02b6af | 29 | * Extensive contributions were provided by Ada Core Technologies Inc. * |
07fc65c4 GB |
30 | * * |
31 | ****************************************************************************/ | |
32 | ||
07fc65c4 GB |
33 | #ifdef __vxworks |
34 | #include "vxWorks.h" | |
35 | #endif /* __vxworks */ | |
36 | ||
fbf5a39b AC |
37 | #ifdef IN_RTS |
38 | #include "tconfig.h" | |
39 | #include "tsystem.h" | |
07fc65c4 | 40 | #include <sys/stat.h> |
fbf5a39b AC |
41 | #else |
42 | #include "config.h" | |
43 | #include "system.h" | |
44 | #endif | |
45 | ||
46 | #include "adaint.h" | |
47 | ||
48 | /* This function provides a portable binding to the mkdir function. */ | |
07fc65c4 GB |
49 | |
50 | int | |
51 | __gnat_mkdir (dir_name) | |
52 | char *dir_name; | |
53 | { | |
54 | #if defined (_WIN32) || defined (__vxworks) | |
55 | return mkdir (dir_name); | |
56 | #else | |
57 | return mkdir (dir_name, S_IRWXU | S_IRWXG | S_IRWXO); | |
58 | #endif | |
59 | } |