annotate lib-src/make-path.c @ 2499:da67547eda51

* configure.in: When checking for X windows, search for an X11 subdirectory of ${x_includes}. * configure.in: Check for gettimeofday function, for getdate.y. Change `configure' to a mixture of custom code and autoconf stuff. autoconf can't derive all the information we need, but we'd really like to be able to take advantage of some of its tests, and its file-editing facilities. * configure.in: Renamed from configure. Quote the sections of shell script we want copied literally to the configure script. (compile): Initialize this to make the autoconf macros' code happy. Use AC_PROG_CC, AC_CONST, and AC_RETSIGTYPE instead of writing out code to do their jobs. Use autoconf to produce Makefile and src/config.h. Remove the Makefile-style comment that autoconf places at the top of src/config.h. (config_h_opts): Removed - no longer necessary. * Makefile.in (configname): Renamed to configuration. (CONFIG_CFLAGS): Renamed to DEFS. (CC, DEFS, C_SWITCH_SYSTEM, version, configuration): Adjusted to get values via autoload @cookies@. (libsrc_libs): Get this from autoconf. We used to do nothing about this. (${SUBDIR}): Pass DEFS to submakes instead of CONFIG_CFLAGS.
author Jim Blandy <jimb@redhat.com>
date Sat, 10 Apr 1993 06:02:36 +0000
parents 3d7bd998e203
children 07010383044d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1646
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Make all the directories along a path.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1992 Free Software Foundation, Inc.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 the Free Software Foundation; either version 1, or (at your option)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 /* This program works like mkdir, except that it generates
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 intermediate directories if they don't exist. This is just like
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 the `mkdir -p' command on most systems; unfortunately, the mkdir
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 command on some of the purer BSD systems (like Mt. Xinu) don't have
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 that option. */
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include <sys/types.h>
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include <sys/stat.h>
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #include <stdio.h>
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #include <errno.h>
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 extern int errno;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 char *prog_name;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 int touchy_mkdir (path)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 char *path;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 {
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 struct stat buf;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39
1660
3d7bd998e203 * make-path.c (touchy_mkdir): Remove debugging output.
Jim Blandy <jimb@redhat.com>
parents: 1646
diff changeset
40 /* If PATH already exists and is a directory, return success. */
1646
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 if (stat (path, &buf) >= 0
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 && (buf.st_mode & S_IFMT) == S_IFDIR)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 return 0;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
1660
3d7bd998e203 * make-path.c (touchy_mkdir): Remove debugging output.
Jim Blandy <jimb@redhat.com>
parents: 1646
diff changeset
45 /* Otherwise, try to make it. If PATH exists but isn't a directory,
1646
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 this will signal an error. */
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 if (mkdir (path, 0777) < 0)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 {
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 fprintf (stderr, "%s: ", prog_name);
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 perror (path);
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 return -1;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 }
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 return 0;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 }
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 int
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 main (argc, argv)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 int argc;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 char **argv;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 {
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 prog_name = *argv;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 for (argc--, argv++; argc > 0; argc--, argv++)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 {
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 char *path = *argv;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 int i;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 /* Stop at each slash in path and try to create the directory.
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 Skip any initial slash. */
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 for (i = (path[0] == '/') ? 1 : 0; path[i]; i++)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 if (path[i] == '/')
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 {
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 path[i] = '\0';
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 if (touchy_mkdir (path) < 0)
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 goto next_pathname;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 path[i] = '/';
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 }
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 touchy_mkdir (path);
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 next_pathname:
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 ;
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84 }
81cdb2347fab Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 }