blob: f462e3e2399d2d48200e44954b8209ca28162bff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
/*
* util.c
*
* Copyright (c) 1990, 1991, John W. Eaton.
*
* You may distribute under the terms of the GNU General Public
* License as specified in the file COPYING that comes with the man
* distribution.
*
* John W. Eaton
* jwe@che.utexas.edu
* Department of Chemical Engineering
* The University of Texas at Austin
* Austin, Texas 78712
*/
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#ifdef STDC_HEADERS
#include <stdlib.h>
#else
extern int fprintf ();
extern int tolower ();
#endif
extern char *strdup ();
extern int system ();
#include "gripes.h"
/*
* Extract last element of a name like /foo/bar/baz.
*/
char *
mkprogname (s)
register char *s;
{
char *t;
t = strrchr (s, '/');
if (t == (char *)NULL)
t = s;
else
t++;
return strdup (t);
}
void
downcase (s)
char *s;
{
register char c;
while ((c = *s) != '\0')
{
if (isalpha (c))
*s++ = tolower (c);
}
}
/*
* Is file a newer than file b?
*
* case:
*
* a newer than b returns 1
* a older than b returns 0
* stat on a fails returns -1
* stat on b fails returns -2
* stat on a and b fails returns -3
*/
int
is_newer (fa, fb)
register char *fa;
register char *fb;
{
struct stat fa_sb;
struct stat fb_sb;
register int fa_stat;
register int fb_stat;
register int status = 0;
fa_stat = stat (fa, &fa_sb);
if (fa_stat != 0)
status = 1;
fb_stat = stat (fb, &fb_sb);
if (fb_stat != 0)
status |= 2;
if (status != 0)
return -status;
return (fa_sb.st_mtime > fb_sb.st_mtime);
}
/*
* Is path a directory?
*/
int
is_directory (path)
char *path;
{
struct stat sb;
register int status;
status = stat (path, &sb);
if (status != 0)
return -1;
return ((sb.st_mode & S_IFDIR) == S_IFDIR);
}
/*
* Attempt a system () call. Return 1 for success and 0 for failure
* (handy for counting successes :-).
*/
int
do_system_command (command)
char *command;
{
int status = 0;
extern int debug;
/*
* If we're debugging, don't really execute the command -- you never
* know what might be in that mangled string :-O.
*/
if (debug)
fprintf (stderr, "\ntrying command: %s\n", command);
else
status = system (command);
if (status)
return 0;
else
return 1;
}
|
