update.
[chise/xemacs-chise.git] / lib-src / make-path.c
1 /* Make all the directories along a path.
2    Copyright (C) 1992 Free Software Foundation, Inc.
3
4 This file is part of GNU Emacs.
5
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
10
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING.  If not, write to
18 the Free the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA.  */
20
21 /* Synched up with: FSF 19.28. */
22
23 /* This program works like mkdir, except that it generates
24    intermediate directories if they don't exist.  This is just like
25    the `mkdir -p' command on most systems; unfortunately, the mkdir
26    command on some of the purer BSD systems (like Mt. Xinu) don't have
27    that option. */
28
29 #ifdef emacs
30 #include <config.h>
31 #endif
32
33 #include <sys/types.h>
34 #include <sys/stat.h>
35 #include <stdio.h>
36 #include <errno.h>
37
38 char *prog_name;
39
40 static int touchy_mkdir (char *path)
41 {
42   struct stat buf;
43
44   /* If PATH already exists and is a directory, return success.  */
45   if (stat (path, &buf) >= 0
46       && (buf.st_mode & S_IFMT) == S_IFDIR)
47     return 0;
48
49   /* Otherwise, try to make it.  If PATH exists but isn't a directory,
50      this will signal an error.  */
51   if (mkdir (path, 0777) < 0)
52     {
53       fprintf (stderr, "%s: ", prog_name);
54       perror (path);
55       return 1;
56     }
57
58   return 0;
59 }
60
61 int
62 main (int argc, char *argv[])
63 {
64   prog_name = *argv;
65
66   for (argc--, argv++; argc > 0; argc--, argv++)
67     {
68       char *path = *argv;
69       int i;
70
71       /* Stop at each slash in path and try to create the directory.
72          Skip any initial slash.  */
73       for (i = (path[0] == '/') ? 1 : 0; path[i]; i++)
74         if (path[i] == '/')
75           {
76             path[i] = '\0';
77             if (touchy_mkdir (path) < 0)
78               goto next_pathname;
79             path[i] = '/';
80           }
81
82       touchy_mkdir (path);
83
84     next_pathname:
85       ;
86     }
87
88   return 0;
89 }