(Vhistory_length, Qhistory_length): New variables.
[emacs.git] / lib-src / make-path.c
blobc4e5bf931446426268a971d9a818fd79e512e8ea
1 /* Make all the directories along a path.
2 Copyright (C) 1992 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
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.
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.
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 Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* This program works like mkdir, except that it generates
21 intermediate directories if they don't exist. This is just like
22 the `mkdir -p' command on most systems; unfortunately, the mkdir
23 command on some of the purer BSD systems (like Mt. Xinu) don't have
24 that option. */
26 #include <sys/types.h>
27 #include <sys/stat.h>
28 #include <stdio.h>
29 #include <errno.h>
31 extern int errno;
33 char *prog_name;
35 /* Create directory DIRNAME if it does not exist already.
36 Then give permission for everyone to read and search it.
37 Return 0 if successful, 1 if not. */
39 int
40 touchy_mkdir (dirname)
41 char *dirname;
43 struct stat buf;
45 /* If DIRNAME already exists and is a directory, don't create. */
46 if (! (stat (dirname, &buf) >= 0
47 && (buf.st_mode & S_IFMT) == S_IFDIR))
49 /* Otherwise, try to make it. If DIRNAME exists but isn't a directory,
50 this will signal an error. */
51 if (mkdir (dirname, 0777) < 0)
53 fprintf (stderr, "%s: ", prog_name);
54 perror (dirname);
55 return 1;
59 /* Make sure everyone can look at this directory. */
60 if (stat (dirname, &buf) < 0)
62 fprintf (stderr, "%s: ", prog_name);
63 perror (dirname);
64 return 1;
66 if (chmod (dirname, 0555 | (buf.st_mode & 0777)) < 0)
68 fprintf (stderr, "%s: ", prog_name);
69 perror (dirname);
72 return 0;
75 int
76 main (argc, argv)
77 int argc;
78 char **argv;
80 prog_name = *argv;
82 for (argc--, argv++; argc > 0; argc--, argv++)
84 char *dirname = *argv;
85 int i;
87 /* Stop at each slash in dirname and try to create the directory.
88 Skip any initial slash. */
89 for (i = (dirname[0] == '/') ? 1 : 0; dirname[i]; i++)
90 if (dirname[i] == '/')
92 dirname[i] = '\0';
93 if (touchy_mkdir (dirname) < 0)
94 goto next_dirname;
95 dirname[i] = '/';
98 touchy_mkdir (dirname);
100 next_dirname:
104 return 0;