Merge HEAD from ../scsi-misc-2.6-old
[linux-2.6] / scripts / basic / split-include.c
1 /*
2  * split-include.c
3  *
4  * Copyright abandoned, Michael Chastain, <mailto:mec@shout.net>.
5  * This is a C version of syncdep.pl by Werner Almesberger.
6  *
7  * This program takes autoconf.h as input and outputs a directory full
8  * of one-line include files, merging onto the old values.
9  *
10  * Think of the configuration options as key-value pairs.  Then there
11  * are five cases:
12  *
13  *    key      old value   new value   action
14  *
15  *    KEY-1    VALUE-1     VALUE-1     leave file alone
16  *    KEY-2    VALUE-2A    VALUE-2B    write VALUE-2B into file
17  *    KEY-3    -           VALUE-3     write VALUE-3  into file
18  *    KEY-4    VALUE-4     -           write an empty file
19  *    KEY-5    (empty)     -           leave old empty file alone
20  */
21
22 #include <sys/stat.h>
23 #include <sys/types.h>
24
25 #include <ctype.h>
26 #include <errno.h>
27 #include <fcntl.h>
28 #include <stdio.h>
29 #include <stdlib.h>
30 #include <string.h>
31 #include <unistd.h>
32
33 #define ERROR_EXIT(strExit)                                             \
34     {                                                                   \
35         const int errnoSave = errno;                                    \
36         fprintf(stderr, "%s: ", str_my_name);                           \
37         errno = errnoSave;                                              \
38         perror((strExit));                                              \
39         exit(1);                                                        \
40     }
41
42
43
44 int main(int argc, const char * argv [])
45 {
46     const char * str_my_name;
47     const char * str_file_autoconf;
48     const char * str_dir_config;
49
50     FILE * fp_config;
51     FILE * fp_target;
52     FILE * fp_find;
53
54     int buffer_size;
55
56     char * line;
57     char * old_line;
58     char * list_target;
59     char * ptarget;
60
61     struct stat stat_buf;
62
63     /* Check arg count. */
64     if (argc != 3)
65     {
66         fprintf(stderr, "%s: wrong number of arguments.\n", argv[0]);
67         exit(1);
68     }
69
70     str_my_name       = argv[0];
71     str_file_autoconf = argv[1];
72     str_dir_config    = argv[2];
73
74     /* Find a buffer size. */
75     if (stat(str_file_autoconf, &stat_buf) != 0)
76         ERROR_EXIT(str_file_autoconf);
77     buffer_size = 2 * stat_buf.st_size + 4096;
78
79     /* Allocate buffers. */
80     if ( (line        = malloc(buffer_size)) == NULL
81     ||   (old_line    = malloc(buffer_size)) == NULL
82     ||   (list_target = malloc(buffer_size)) == NULL )
83         ERROR_EXIT(str_file_autoconf);
84
85     /* Open autoconfig file. */
86     if ((fp_config = fopen(str_file_autoconf, "r")) == NULL)
87         ERROR_EXIT(str_file_autoconf);
88
89     /* Make output directory if needed. */
90     if (stat(str_dir_config, &stat_buf) != 0)
91     {
92         if (mkdir(str_dir_config, 0755) != 0)
93             ERROR_EXIT(str_dir_config);
94     }
95
96     /* Change to output directory. */
97     if (chdir(str_dir_config) != 0)
98         ERROR_EXIT(str_dir_config);
99
100     /* Put initial separator into target list. */
101     ptarget = list_target;
102     *ptarget++ = '\n';
103
104     /* Read config lines. */
105     while (fgets(line, buffer_size, fp_config))
106     {
107         const char * str_config;
108         int is_same;
109         int itarget;
110
111         if (line[0] != '#')
112             continue;
113         if ((str_config = strstr(line, "CONFIG_")) == NULL)
114             continue;
115
116         /* Make the output file name. */
117         str_config += sizeof("CONFIG_") - 1;
118         for (itarget = 0; !isspace(str_config[itarget]); itarget++)
119         {
120             int c = (unsigned char) str_config[itarget];
121             if (isupper(c)) c = tolower(c);
122             if (c == '_')   c = '/';
123             ptarget[itarget] = c;
124         }
125         ptarget[itarget++] = '.';
126         ptarget[itarget++] = 'h';
127         ptarget[itarget++] = '\0';
128
129         /* Check for existing file. */
130         is_same = 0;
131         if ((fp_target = fopen(ptarget, "r")) != NULL)
132         {
133             fgets(old_line, buffer_size, fp_target);
134             if (fclose(fp_target) != 0)
135                 ERROR_EXIT(ptarget);
136             if (!strcmp(line, old_line))
137                 is_same = 1;
138         }
139
140         if (!is_same)
141         {
142             /* Auto-create directories. */
143             int islash;
144             for (islash = 0; islash < itarget; islash++)
145             {
146                 if (ptarget[islash] == '/')
147                 {
148                     ptarget[islash] = '\0';
149                     if (stat(ptarget, &stat_buf) != 0
150                     &&  mkdir(ptarget, 0755)     != 0)
151                         ERROR_EXIT( ptarget );
152                     ptarget[islash] = '/';
153                 }
154             }
155
156             /* Write the file. */
157             if ((fp_target = fopen(ptarget, "w" )) == NULL)
158                 ERROR_EXIT(ptarget);
159             fputs(line, fp_target);
160             if (ferror(fp_target) || fclose(fp_target) != 0)
161                 ERROR_EXIT(ptarget);
162         }
163
164         /* Update target list */
165         ptarget += itarget;
166         *(ptarget-1) = '\n';
167     }
168
169     /*
170      * Close autoconfig file.
171      * Terminate the target list.
172      */
173     if (fclose(fp_config) != 0)
174         ERROR_EXIT(str_file_autoconf);
175     *ptarget = '\0';
176
177     /*
178      * Fix up existing files which have no new value.
179      * This is Case 4 and Case 5.
180      *
181      * I re-read the tree and filter it against list_target.
182      * This is crude.  But it avoids data copies.  Also, list_target
183      * is compact and contiguous, so it easily fits into cache.
184      *
185      * Notice that list_target contains strings separated by \n,
186      * with a \n before the first string and after the last.
187      * fgets gives the incoming names a terminating \n.
188      * So by having an initial \n, strstr will find exact matches.
189      */
190
191     fp_find = popen("find * -type f -name \"*.h\" -print", "r");
192     if (fp_find == 0)
193         ERROR_EXIT( "find" );
194
195     line[0] = '\n';
196     while (fgets(line+1, buffer_size, fp_find))
197     {
198         if (strstr(list_target, line) == NULL)
199         {
200             /*
201              * This is an old file with no CONFIG_* flag in autoconf.h.
202              */
203
204             /* First strip the \n. */
205             line[strlen(line)-1] = '\0';
206
207             /* Grab size. */
208             if (stat(line+1, &stat_buf) != 0)
209                 ERROR_EXIT(line);
210
211             /* If file is not empty, make it empty and give it a fresh date. */
212             if (stat_buf.st_size != 0)
213             {
214                 if ((fp_target = fopen(line+1, "w")) == NULL)
215                     ERROR_EXIT(line);
216                 if (fclose(fp_target) != 0)
217                     ERROR_EXIT(line);
218             }
219         }
220     }
221
222     if (pclose(fp_find) != 0)
223         ERROR_EXIT("find");
224
225     return 0;
226 }