usr.sbin/config/main.c

   1 /*
   2  * Copyright (c) 1980, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  *
  33  * @(#) Copyright (c) 1980, 1993 The Regents of the University of California.  All rights reserved.
  34  * @(#)main.c   8.1 (Berkeley) 6/6/93
  35  * $FreeBSD: src/usr.sbin/config/main.c,v 1.37.2.3 2001/06/13 00:25:53 cg Exp $
  36  * $DragonFly: src/usr.sbin/config/main.c,v 1.24 2008/07/11 09:28:20 thomas Exp $
  37  */
  38
  39 #include <sys/types.h>
  40 #include <sys/stat.h>
  41 #include <sys/file.h>
  42 #include <sys/mman.h>
  43 #include <sys/param.h>
  44 #include <ctype.h>
  45 #include <err.h>
  46 #include <stdio.h>
  47 #include <dirent.h>
  48 #include <sysexits.h>
  49 #include <unistd.h>
  50 #include "y.tab.h"
  51 #include "config.h"
  52
  53 #ifndef TRUE
  54 #define TRUE    (1)
  55 #endif
  56
  57 #ifndef FALSE
  58 #define FALSE   (0)
  59 #endif
  60
  61 #define CDIR    "../compile/"
  62
  63 char *  PREFIX;
  64 char    destdir[MAXPATHLEN];
  65 char    srcdir[MAXPATHLEN];
  66
  67 static int no_config_clobber = TRUE;
  68 int     debugging;
  69 int     profiling;
  70
  71 static void configfile(void);
  72 static void get_srcdir(void);
  73 static void usage(void);
  74
  75 /*
  76  * Config builds a set of files for building a UNIX
  77  * system given a description of the desired system.
  78  */
  79 int
  80 main(int argc, char *argv[])
  81 {
  82         struct stat buf;
  83         int ch, len;
  84         unsigned int i;
  85         char *p;
  86         char linksrc[64], linkdest[MAXPATHLEN];
  87         static const char *emus[] = { "linux" };
  88
  89         while ((ch = getopt(argc, argv, "d:gpr")) != -1)
  90                 switch (ch) {
  91                 case 'd':
  92                         if (*destdir == '\0')
  93                                 strlcpy(destdir, optarg, sizeof(destdir));
  94                         else
  95                                 errx(2, "directory already set");
  96                         break;
  97                 case 'g':
  98                         debugging++;
  99                         break;
 100                 case 'p':
 101                         profiling++;
 102                         break;
 103                 case 'r':
 104                         no_config_clobber = FALSE;
 105                         break;
 106                 case '?':
 107                 default:
 108                         usage();
 109                 }
 110         argc -= optind;
 111         argv += optind;
 112
 113         if (argc != 1)
 114                 usage();
 115
 116         if (freopen(PREFIX = *argv, "r", stdin) == NULL)
 117                 err(2, "%s", PREFIX);
 118
 119         if (*destdir != '\0') {
 120                 len = strlen(destdir);
 121                 while (len > 1 && destdir[len - 1] == '/')
 122                         destdir[--len] = '\0';
 123                 get_srcdir();
 124         } else {
 125                 strlcpy(destdir, CDIR, sizeof(destdir));
 126                 strlcat(destdir, PREFIX, sizeof(destdir));
 127         }
 128
 129         p = path(NULL);
 130         if (stat(p, &buf)) {
 131                 if (mkdir(p, 0777))
 132                         err(2, "%s", p);
 133         }
 134         else if ((buf.st_mode & S_IFMT) != S_IFDIR) {
 135                 errx(2, "%s isn't a directory", p);
 136         }
 137         else if (!no_config_clobber) {
 138                 char tmp[strlen(p) + 8];
 139
 140                 fprintf(stderr, "Removing old directory %s:  ", p);
 141                 fflush(stderr);
 142                 snprintf(tmp, sizeof(tmp), "rm -rf %s", p);
 143                 if (system(tmp)) {
 144                         fprintf(stderr, "Failed!\n");
 145                         err(2, "%s", tmp);
 146                 }
 147                 fprintf(stderr, "Done.\n");
 148                 if (mkdir(p, 0777))
 149                         err(2, "%s", p);
 150         }
 151
 152         dtab = NULL;
 153         if (yyparse())
 154                 exit(3);
 155         if (platformname == NULL) {
 156                 printf("Specify platform architecture, e.g. 'platform pc32'\n");
 157                 exit(1);
 158         }
 159         if (machinename == NULL) {
 160                 printf("Specify machine architecture, e.g. 'machine i386'\n");
 161                 exit(1);
 162         }
 163         if (machinearchname == NULL) {
 164                 printf("Specify cpu architecture, e.g. 'machine_arch i386'\n");
 165                 exit(1);
 166         }
 167         newbus_ioconf();
 168
 169         /*
 170          * "machine" points into platform/<PLATFORM>/include
 171          */
 172         if (*srcdir == '\0')
 173                 snprintf(linkdest, sizeof(linkdest), "../../platform/%s/include",
 174                     platformname);
 175         else
 176                 snprintf(linkdest, sizeof(linkdest), "%s/platform/%s/include",
 177                     srcdir, platformname);
 178         symlink(linkdest, path("machine"));
 179
 180         /*
 181          * "machine_base" points into platform/<PLATFORM>
 182          */
 183         if (*srcdir == '\0')
 184                 snprintf(linkdest, sizeof(linkdest), "../../platform/%s",
 185                     platformname);
 186         else
 187                 snprintf(linkdest, sizeof(linkdest), "%s/platform/%s",
 188                     srcdir, platformname);
 189         symlink(linkdest, path("machine_base"));
 190
 191         /*
 192          * "cpu" points to cpu/<MACHINE_ARCH>/include
 193          */
 194         if (*srcdir == '\0')
 195                 snprintf(linkdest, sizeof(linkdest),
 196                          "../../cpu/%s/include", machinearchname);
 197         else
 198                 snprintf(linkdest, sizeof(linkdest),
 199                          "%s/cpu/%s/include", srcdir, machinearchname);
 200         symlink(linkdest, path("cpu"));
 201
 202         /*
 203          * "cpu_base" points to cpu/<MACHINE_ARCH>
 204          */
 205         if (*srcdir == '\0')
 206                 snprintf(linkdest, sizeof(linkdest), "../../cpu/%s",
 207                     machinearchname);
 208         else
 209                 snprintf(linkdest, sizeof(linkdest), "%s/cpu/%s",
 210                     srcdir, machinearchname);
 211         symlink(linkdest, path("cpu_base"));
 212
 213         /*
 214          * XXX check directory structure for architecture subdirectories and
 215          * create the symlinks automatically XXX
 216          */
 217         if (*srcdir == '\0')
 218                 snprintf(linkdest, sizeof(linkdest),
 219                     "../../../../../net/i4b/include/%s",
 220                     machinearchname);
 221         else
 222                 snprintf(linkdest, sizeof(linkdest), "%s/net/i4b/include/%s",
 223                     srcdir, machinearchname);
 224         mkdir(path("net"), 0755);
 225         mkdir(path("net/i4b"), 0755);
 226         mkdir(path("net/i4b/include"), 0755);
 227         symlink(linkdest, path("net/i4b/include/machine"));
 228
 229         for (i = 0; i < sizeof(emus) / sizeof(emus[0]); ++i) {
 230                 if (*srcdir == 0)  {
 231                         snprintf(linkdest, sizeof(linkdest),
 232                             "../../emulation/%s/%s",
 233                             emus[i], machinearchname);
 234                 } else {
 235                         snprintf(linkdest, sizeof(linkdest),
 236                             "%s/emulation/%s/%s",
 237                             srcdir, emus[i], machinearchname);
 238                 }
 239                 snprintf(linksrc, sizeof(linksrc), "arch_%s", emus[i]);
 240                 symlink(linkdest, path(linksrc));
 241         }
 242
 243         options();                      /* make options .h files */
 244         makefile();                     /* build Makefile */
 245         headers();                      /* make a lot of .h files */
 246         configfile();                   /* put config file into kernel*/
 247         printf("Kernel build directory is %s\n", p);
 248         exit(EX_OK);
 249 }
 250
 251 /*
 252  * get_srcdir
 253  *      determine the root of the kernel source tree
 254  *      and save that in srcdir.
 255  */
 256 static void
 257 get_srcdir(void)
 258 {
 259
 260         if (realpath("..", srcdir) == NULL)
 261                 errx(2, "Unable to find root of source tree");
 262 }
 263
 264 static void
 265 usage(void)
 266 {
 267
 268         fprintf(stderr, "usage: config [-gpr] [-d destdir] sysname\n");
 269         exit(1);
 270 }
 271
 272 /*
 273  * get_word
 274  *      returns EOF on end of file
 275  *      NULL on end of line
 276  *      pointer to the word otherwise
 277  */
 278 char *
 279 get_word(FILE *fp)
 280 {
 281         static char line[80];
 282         int ch;
 283         char *cp;
 284         int escaped_nl = 0;
 285
 286 begin:
 287         while ((ch = getc(fp)) != EOF)
 288                 if (ch != ' ' && ch != '\t')
 289                         break;
 290         if (ch == EOF)
 291                 return((char *)EOF);
 292         if (ch == '\\') {
 293                 escaped_nl = 1;
 294                 goto begin;
 295         }
 296         if (ch == '\n') {
 297                 if (escaped_nl) {
 298                         escaped_nl = 0;
 299                         goto begin;
 300                 }
 301                 else
 302                         return(NULL);
 303         }
 304         cp = line;
 305         *cp++ = ch;
 306         while ((ch = getc(fp)) != EOF) {
 307                 if (isspace(ch))
 308                         break;
 309                 *cp++ = ch;
 310         }
 311         *cp = 0;
 312         if (ch == EOF)
 313                 return((char *)EOF);
 314         ungetc(ch, fp);
 315         return(line);
 316 }
 317
 318 /*
 319  * get_quoted_word
 320  *      like get_word but will accept something in double or single quotes
 321  *      (to allow embedded spaces).
 322  */
 323 char *
 324 get_quoted_word(FILE *fp)
 325 {
 326         static char line[256];
 327         int ch;
 328         char *cp;
 329         int escaped_nl = 0;
 330
 331 begin:
 332         while ((ch = getc(fp)) != EOF)
 333                 if (ch != ' ' && ch != '\t')
 334                         break;
 335         if (ch == EOF)
 336                 return((char *)EOF);
 337         if (ch == '\\') {
 338                 escaped_nl = 1;
 339                 goto begin;
 340         }
 341         if (ch == '\n') {
 342                 if (escaped_nl) {
 343                         escaped_nl = 0;
 344                         goto begin;
 345                 }
 346                 else
 347                         return(NULL);
 348         }
 349         cp = line;
 350         if (ch == '"' || ch == '\'') {
 351                 int quote = ch;
 352
 353                 while ((ch = getc(fp)) != EOF) {
 354                         if (ch == quote)
 355                                 break;
 356                         if (ch == '\n') {
 357                                 *cp = 0;
 358                                 printf("config: missing quote reading `%s'\n",
 359                                         line);
 360                                 exit(2);
 361                         }
 362                         *cp++ = ch;
 363                 }
 364         } else {
 365                 *cp++ = ch;
 366                 while ((ch = getc(fp)) != EOF) {
 367                         if (isspace(ch))
 368                                 break;
 369                         *cp++ = ch;
 370                 }
 371                 if (ch != EOF)
 372                         ungetc(ch, fp);
 373         }
 374         *cp = 0;
 375         if (ch == EOF)
 376                 return((char *)EOF);
 377         return(line);
 378 }
 379
 380 /*
 381  * prepend the path to a filename
 382  */
 383 char *
 384 path(const char *file)
 385 {
 386         char *cp;
 387
 388         cp = malloc((size_t)(strlen(destdir) + (file ? strlen(file) : 0) + 2));
 389         strcpy(cp, destdir);
 390         if (file != NULL) {
 391                 strcat(cp, "/");
 392                 strcat(cp, file);
 393         }
 394         return(cp);
 395 }
 396
 397 static void
 398 configfile(void)
 399 {
 400         FILE *fi, *fo;
 401         char *p;
 402         int i;
 403
 404         fi = fopen(PREFIX, "r");
 405         if (fi == NULL)
 406                 err(2, "%s", PREFIX);
 407         fo = fopen(p = path("config.c.new"), "w");
 408         if (fo == NULL)
 409                 err(2, "%s", p);
 410         fprintf(fo, "#include \"opt_config.h\"\n");
 411         fprintf(fo, "#ifdef INCLUDE_CONFIG_FILE \n");
 412         fprintf(fo, "/* Mark config as used, so gcc doesn't optimize it away. */\n");
 413         fprintf(fo, "#include <sys/types.h>\n");
 414         fprintf(fo, "__used\n");
 415         fprintf(fo, "static const char config[] = \"\\\n");
 416         fprintf(fo, "START CONFIG FILE %s\\n\\\n___", PREFIX);
 417         while (EOF != (i = getc(fi))) {
 418                 if (i == '\n') {
 419                         fprintf(fo, "\\n\\\n___");
 420                 } else if (i == '\"') {
 421                         fprintf(fo, "\\\"");
 422                 } else if (i == '\\') {
 423                         fprintf(fo, "\\\\");
 424                 } else {
 425                         putc(i, fo);
 426                 }
 427         }
 428         fprintf(fo, "\\n\\\nEND CONFIG FILE %s\\n\\\n", PREFIX);
 429         fprintf(fo, "\";\n");
 430         fprintf(fo, "\n#endif /* INCLUDE_CONFIG_FILE */\n");
 431         fclose(fi);
 432         fclose(fo);
 433         moveifchanged(path("config.c.new"), path("config.c"));
 434 }
 435
 436 /*
 437  * moveifchanged --
 438  *      compare two files; rename if changed.
 439  */
 440 void
 441 moveifchanged(const char *from_name, const char *to_name)
 442 {
 443         char *p, *q;
 444         int changed;
 445         size_t tsize;
 446         struct stat from_sb, to_sb;
 447         int from_fd, to_fd;
 448
 449         changed = 0;
 450
 451         if ((from_fd = open(from_name, O_RDONLY)) < 0)
 452                 err(EX_OSERR, "moveifchanged open(%s)", from_name);
 453
 454         if ((to_fd = open(to_name, O_RDONLY)) < 0)
 455                 changed++;
 456
 457         if (!changed && fstat(from_fd, &from_sb) < 0)
 458                 err(EX_OSERR, "moveifchanged fstat(%s)", from_name);
 459
 460         if (!changed && fstat(to_fd, &to_sb) < 0)
 461                 err(EX_OSERR, "moveifchanged fstat(%s)", to_name);
 462
 463         if (!changed && from_sb.st_size != to_sb.st_size)
 464                 changed++;
 465
 466         tsize = (size_t)from_sb.st_size;
 467
 468         if (!changed) {
 469                 p = mmap(NULL, tsize, PROT_READ, MAP_SHARED, from_fd, (off_t)0);
 470 #ifndef MAP_FAILED
 471 #define MAP_FAILED ((caddr_t)-1)
 472 #endif
 473                 if (p == MAP_FAILED)
 474                         err(EX_OSERR, "mmap %s", from_name);
 475                 q = mmap(NULL, tsize, PROT_READ, MAP_SHARED, to_fd, (off_t)0);
 476                 if (q == MAP_FAILED)
 477                         err(EX_OSERR, "mmap %s", to_name);
 478
 479                 changed = memcmp(p, q, tsize);
 480                 munmap(p, tsize);
 481                 munmap(q, tsize);
 482         }
 483         if (changed) {
 484                 if (rename(from_name, to_name) < 0)
 485                         err(EX_OSERR, "rename(%s, %s)", from_name, to_name);
 486         } else {
 487                 if (unlink(from_name) < 0)
 488                         err(EX_OSERR, "unlink(%s)", from_name);
 489         }
 490 }