1 /*
2 * Copyright (c) 1999-2016 Apple Inc. All rights reserved.
3 *
4 * @APPLE_LICENSE_HEADER_START@
5 *
6 * "Portions Copyright (c) 1999 Apple Computer, Inc. All Rights
7 * Reserved. This file contains Original Code and/or Modifications of
8 * Original Code as defined in and that are subject to the Apple Public
9 * Source License Version 1.0 (the 'License'). You may not use this file
10 * except in compliance with the License. Please obtain a copy of the
11 * License at http://www.apple.com/publicsource and read it before using
12 * this file.
13 *
14 * The Original Code and all software distributed under the License are
15 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
16 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
17 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the
19 * License for the specific language governing rights and limitations
20 * under the License."
21 *
22 * @APPLE_LICENSE_HEADER_END@
23 */
24 /*
25 * Mach Operating System
26 * Copyright (c) 1990 Carnegie-Mellon University
27 * Copyright (c) 1989 Carnegie-Mellon University
28 * Copyright (c) 1988 Carnegie-Mellon University
29 * Copyright (c) 1987 Carnegie-Mellon University
30 * All rights reserved. The CMU software License Agreement specifies
31 * the terms and conditions for use and redistribution.
32 */
33
34 /*
35 * Copyright (c) 1980 Regents of the University of California.
36 * All rights reserved.
37 *
38 * Redistribution and use in source and binary forms are permitted
39 * provided that the above copyright notice and this paragraph are
40 * duplicated in all such forms and that any documentation,
41 * advertising materials, and other materials related to such
42 * distribution and use acknowledge that the software was developed
43 * by the University of California, Berkeley. The name of the
44 * University may not be used to endorse or promote products derived
45 * from this software without specific prior written permission.
46 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
47 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
48 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
49 */
50
51 #ifndef lint
52 static char sccsid[] __attribute__((used)) = "@(#)mkmakefile.c 5.21 (Berkeley) 6/18/88";
53 #endif /* not lint */
54
55 /*
56 * Build the makefile for the system, from
57 * the information in the files files and the
58 * additional files for the machine being compiled to.
59 */
60
61 #include <stdio.h>
62 #include <unistd.h> /* for unlink */
63 #include <ctype.h>
64 #include "parser.h"
65 #include "config.h"
66
67 void read_files(void);
68 void do_objs(FILE *fp, const char *msg, int ext, int flags);
69 void do_files(FILE *fp, const char *msg, char ext);
70 void do_machdep(FILE *ofp);
71 void do_rules(FILE *f);
72 void copy_dependencies(FILE *makin, FILE *makout);
73
74 struct file_list *fl_lookup(char *file);
75 struct file_list *fltail_lookup(char *file);
76 struct file_list *new_fent(void);
77
78 void put_source_file_name(FILE *fp, struct file_list *tp);
79
80
81 #define next_word(fp, wd) \
82 { const char *word = get_word(fp); \
83 if (word == (char *)EOF) \
84 return; \
85 else \
86 wd = word; \
87 }
88
89 static struct file_list *fcur;
90 const char *tail(const char *fn);
91 char *allCaps(char *str);
92
93 /*
94 * Lookup a file, by name.
95 */
96 struct file_list *
fl_lookup(char * file)97 fl_lookup(char *file)
98 {
99 struct file_list *fp;
100
101 for (fp = ftab; fp != 0; fp = fp->f_next) {
102 if (eq(fp->f_fn, file)) {
103 return fp;
104 }
105 }
106 return 0;
107 }
108
109 /*
110 * Lookup a file, by final component name.
111 */
112 struct file_list *
fltail_lookup(char * file)113 fltail_lookup(char *file)
114 {
115 struct file_list *fp;
116
117 for (fp = ftab; fp != 0; fp = fp->f_next) {
118 if (eq(tail(fp->f_fn), tail(file))) {
119 return fp;
120 }
121 }
122 return 0;
123 }
124
125 /*
126 * Make a new file list entry
127 */
128 struct file_list *
new_fent(void)129 new_fent(void)
130 {
131 struct file_list *fp;
132
133 fp = (struct file_list *) malloc(sizeof *fp);
134 fp->f_needs = 0;
135 fp->f_next = 0;
136 fp->f_flags = 0;
137 fp->f_type = 0;
138 fp->f_extra = (char *) 0;
139 if (fcur == 0) {
140 fcur = ftab = fp;
141 } else {
142 fcur->f_next = fp;
143 }
144 fcur = fp;
145 return fp;
146 }
147
148 char *COPTS;
149
150 const char *
get_VPATH(void)151 get_VPATH(void)
152 {
153 static char *vpath = NULL;
154
155 if ((vpath == NULL) &&
156 ((vpath = getenv("VPATH")) != NULL) &&
157 (*vpath != ':')) {
158 char *buf = malloc((unsigned)(strlen(vpath) + 2));
159
160 vpath = strcat(strcpy(buf, ":"), vpath);
161 }
162
163 return vpath ? vpath : "";
164 }
165
166
167 /*
168 * Build the makefile from the skeleton
169 */
170 void
makefile(void)171 makefile(void)
172 {
173 FILE *ifp, *ofp;
174 FILE *dfp;
175 char pname[BUFSIZ];
176 char line[BUFSIZ];
177 struct opt *op;
178
179 read_files();
180 (void) sprintf(line, "%s/Makefile.template", config_directory);
181 ifp = fopenp(VPATH, line, pname, "r");
182 if (ifp == 0) {
183 perror(line);
184 exit(1);
185 }
186 dfp = fopen(path("Makefile"), "r");
187 rename(path("Makefile"), path("Makefile.old"));
188 unlink(path("Makefile.old"));
189 ofp = fopen(path("Makefile"), "w");
190 if (ofp == 0) {
191 perror(path("Makefile"));
192 exit(1);
193 }
194 fprintf(ofp, "SOURCE_DIR=%s\n", source_directory);
195
196 fprintf(ofp, "export CONFIG_DEFINES =");
197 if (profiling) {
198 fprintf(ofp, " -DGPROF");
199 }
200
201 for (op = opt; op; op = op->op_next) {
202 if (op->op_value) {
203 fprintf(ofp, " -D%s=\"%s\"", op->op_name, op->op_value);
204 } else {
205 fprintf(ofp, " -D%s", op->op_name);
206 }
207 }
208 fprintf(ofp, "\n");
209 for (op = mkopt; op; op = op->op_next) {
210 if (op->op_value) {
211 fprintf(ofp, "%s=%s\n", op->op_name, op->op_value);
212 } else {
213 fprintf(ofp, "%s\n", op->op_name);
214 }
215 }
216
217 while (fgets(line, BUFSIZ, ifp) != 0) {
218 if (*line == '%') {
219 goto percent;
220 }
221 if (profiling && strncmp(line, "COPTS=", 6) == 0) {
222 char *cp;
223 fprintf(ofp,
224 "GPROF.EX=$(SOURCE_DIR)/machdep/%s/gmon.ex\n", machinename);
225 cp = index(line, '\n');
226 if (cp) {
227 *cp = 0;
228 }
229 cp = line + 6;
230 while (*cp && (*cp == ' ' || *cp == '\t')) {
231 cp++;
232 }
233 COPTS = malloc((unsigned)(strlen(cp) + 1));
234 if (COPTS == 0) {
235 printf("config: out of memory\n");
236 exit(1);
237 }
238 strcpy(COPTS, cp);
239 fprintf(ofp, "%s -pg\n", line);
240 continue;
241 }
242 fprintf(ofp, "%s", line);
243 continue;
244 percent:
245 if (eq(line, "%OBJS\n")) {
246 do_objs(ofp, "OBJS=", -1, 0);
247 } else if (eq(line, "%LIBOBJS\n")) {
248 do_objs(ofp, "LIBOBJS=", -1, LIBRARYDEP);
249 } else if (eq(line, "%CFILES\n")) {
250 do_files(ofp, "CFILES=", 'c');
251 do_objs(ofp, "COBJS=", 'c', 0);
252 } else if (eq(line, "%CXXFILES\n")) {
253 do_files(ofp, "CXXFILES=", 'p');
254 do_objs(ofp, "CXXOBJS=", 'p', 0);
255 } else if (eq(line, "%SFILES\n")) {
256 do_files(ofp, "SFILES=", 's');
257 do_objs(ofp, "SOBJS=", 's', 0);
258 } else if (eq(line, "%MACHDEP\n")) {
259 do_machdep(ofp);
260 } else if (eq(line, "%RULES\n")) {
261 do_rules(ofp);
262 } else {
263 fprintf(stderr,
264 "Unknown %% construct in generic makefile: %s",
265 line);
266 }
267 }
268 if (dfp != NULL) {
269 copy_dependencies(dfp, ofp);
270 (void) fclose(dfp);
271 }
272 (void) fclose(ifp);
273 (void) fclose(ofp);
274 }
275
276 /*
277 * Read in the information about files used in making the system.
278 * Store it in the ftab linked list.
279 */
280 void
read_files(void)281 read_files(void)
282 {
283 FILE *fp;
284 struct file_list *tp, *pf;
285 struct device *dp;
286 struct opt *op;
287 const char *wd;
288 char *this, *needs;
289 const char *devorprof;
290 int options;
291 int not_option;
292 int f_flags;
293 char pname[BUFSIZ];
294 char fname[1024];
295 char *rest = (char *) 0;
296 int nreqs, first = 1, isdup;
297
298 ftab = 0;
299 (void) sprintf(fname, "%s/files", config_directory);
300 openit:
301 fp = fopenp(VPATH, fname, pname, "r");
302 if (fp == 0) {
303 perror(fname);
304 exit(1);
305 }
306 next:
307 options = 0;
308 rest = (char *) 0;
309 /*
310 * filename [ standard | optional ]
311 * [ dev* | profiling-routine ] [ device-driver]
312 */
313 wd = get_word(fp);
314 if (wd == (char *)EOF) {
315 (void) fclose(fp);
316 if (first == 1) {
317 (void) sprintf(fname, "%s/files.%s", config_directory, machinename);
318 first++;
319 goto openit;
320 }
321 return;
322 }
323 if (wd == 0) {
324 goto next;
325 }
326 /*
327 * Allow comment lines beginning witha '#' character.
328 */
329 if (*wd == '#') {
330 while ((wd = get_word(fp)) && wd != (char *)EOF) {
331 ;
332 }
333 goto next;
334 }
335
336 this = ns(wd);
337 next_word(fp, wd);
338 if (wd == 0) {
339 printf("%s: No type for %s.\n",
340 fname, this);
341 exit(1);
342 }
343 if ((pf = fl_lookup(this)) && (pf->f_type != INVISIBLE || pf->f_flags)) {
344 isdup = 1;
345 } else {
346 isdup = 0;
347 }
348 tp = 0;
349 nreqs = 0;
350 devorprof = "";
351 needs = 0;
352 f_flags = 0;
353 if (eq(wd, "standard")) {
354 goto checkdev;
355 }
356 if (!eq(wd, "optional")) {
357 printf("%s: %s must be optional or standard\n", fname, this);
358 exit(1);
359 }
360 if (strncmp(this, "OPTIONS/", 8) == 0) {
361 options++;
362 }
363 not_option = 0;
364 nextopt:
365 next_word(fp, wd);
366 if (wd == 0) {
367 goto doneopt;
368 }
369 if (eq(wd, "not")) {
370 not_option = !not_option;
371 goto nextopt;
372 }
373 devorprof = wd;
374 if (eq(wd, "device-driver") || eq(wd, "profiling-routine")) {
375 next_word(fp, wd);
376 goto save;
377 }
378 if (eq(wd, "xnu-library")) {
379 f_flags |= LIBRARYDEP;
380 goto nextopt;
381 }
382 if (eq(wd, "bound-checks")) {
383 f_flags |= BOUND_CHECKS;
384 goto nextopt;
385 }
386 if (eq(wd, "bound-checks-soft")) {
387 f_flags |= BOUND_CHECKS_SOFT;
388 goto nextopt;
389 }
390 nreqs++;
391 if (needs == 0 && nreqs == 1) {
392 needs = ns(wd);
393 }
394 if (isdup) {
395 goto invis;
396 }
397 if (options) {
398 struct opt *lop = 0;
399 struct device tdev;
400
401 /*
402 * Allocate a pseudo-device entry which we will insert into
403 * the device list below. The flags field is set non-zero to
404 * indicate an internal entry rather than one generated from
405 * the configuration file. The slave field is set to define
406 * the corresponding symbol as 0 should we fail to find the
407 * option in the option list.
408 */
409 init_dev(&tdev);
410 tdev.d_name = ns(wd);
411 tdev.d_type = PSEUDO_DEVICE;
412 tdev.d_flags++;
413 tdev.d_slave = 0;
414
415 for (op = opt; op; lop = op, op = op->op_next) {
416 char *od = allCaps(ns(wd));
417
418 /*
419 * Found an option which matches the current device
420 * dependency identifier. Set the slave field to
421 * define the option in the header file.
422 */
423 if (strcmp(op->op_name, od) == 0) {
424 tdev.d_slave = 1;
425 if (lop == 0) {
426 opt = op->op_next;
427 } else {
428 lop->op_next = op->op_next;
429 }
430 free(op);
431 op = 0;
432 }
433 free(od);
434 if (op == 0) {
435 break;
436 }
437 }
438 newdev(&tdev);
439 }
440 for (dp = dtab; dp != 0; dp = dp->d_next) {
441 if (eq(dp->d_name, wd) && (dp->d_type != PSEUDO_DEVICE || dp->d_slave)) {
442 if (not_option) {
443 goto invis; /* dont want file if option present */
444 } else {
445 goto nextopt;
446 }
447 }
448 }
449 if (not_option) {
450 goto nextopt; /* want file if option missing */
451 }
452 for (op = opt; op != 0; op = op->op_next) {
453 if (op->op_value == 0 && opteq(op->op_name, wd)) {
454 if (nreqs == 1) {
455 free(needs);
456 needs = 0;
457 }
458 goto nextopt;
459 }
460 }
461
462 invis:
463 while ((wd = get_word(fp)) != 0) {
464 ;
465 }
466 if (tp == 0) {
467 tp = new_fent();
468 }
469 tp->f_fn = this;
470 tp->f_type = INVISIBLE;
471 tp->f_needs = needs;
472 tp->f_flags = isdup;
473 goto next;
474
475 doneopt:
476 if (nreqs == 0) {
477 printf("%s: what is %s optional on?\n",
478 fname, this);
479 exit(1);
480 }
481
482 checkdev:
483 if (wd) {
484 if (*wd == '|') {
485 goto getrest;
486 }
487 next_word(fp, wd);
488 while (wd) {
489 if (eq(wd, "xnu-library")) {
490 f_flags |= LIBRARYDEP;
491 next_word(fp, wd);
492 continue;
493 }
494 if (eq(wd, "bound-checks")) {
495 f_flags |= BOUND_CHECKS;
496 next_word(fp, wd);
497 continue;
498 }
499 if (eq(wd, "bound-checks-soft")) {
500 f_flags |= BOUND_CHECKS_SOFT;
501 next_word(fp, wd);
502 continue;
503 }
504
505 devorprof = wd;
506 next_word(fp, wd);
507 break;
508 }
509 }
510
511 save:
512 getrest:
513 if (wd) {
514 if (*wd == '|') {
515 rest = ns(get_rest(fp));
516 } else {
517 printf("%s: syntax error describing %s\n",
518 fname, this);
519 exit(1);
520 }
521 }
522 if (eq(devorprof, "profiling-routine") && profiling == 0) {
523 goto next;
524 }
525 if (tp == 0) {
526 tp = new_fent();
527 }
528 tp->f_fn = this;
529 tp->f_extra = rest;
530 if (options) {
531 tp->f_type = INVISIBLE;
532 } else if (eq(devorprof, "device-driver")) {
533 tp->f_type = DRIVER;
534 } else if (eq(devorprof, "profiling-routine")) {
535 tp->f_type = PROFILING;
536 } else {
537 tp->f_type = NORMAL;
538 }
539 tp->f_flags = f_flags;
540 tp->f_needs = needs;
541 if (pf && pf->f_type == INVISIBLE) {
542 pf->f_flags = 1; /* mark as duplicate */
543 }
544 goto next;
545 }
546
547 int
opteq(const char * cp,const char * dp)548 opteq(const char *cp, const char *dp)
549 {
550 char c, d;
551
552 for (;; cp++, dp++) {
553 if (*cp != *dp) {
554 c = isupper(*cp) ? tolower(*cp) : *cp;
555 d = isupper(*dp) ? tolower(*dp) : *dp;
556 if (c != d) {
557 return 0;
558 }
559 }
560 if (*cp == 0) {
561 return 1;
562 }
563 }
564 }
565
566 void
put_source_file_name(FILE * fp,struct file_list * tp)567 put_source_file_name(FILE *fp, struct file_list *tp)
568 {
569 if ((tp->f_fn[0] == '.') && (tp->f_fn[1] == '/')) {
570 fprintf(fp, "%s ", tp->f_fn);
571 } else {
572 fprintf(fp, "$(SOURCE_DIR)/%s ", tp->f_fn);
573 }
574 }
575
576 void
do_objs(FILE * fp,const char * msg,int ext,int flags)577 do_objs(FILE *fp, const char *msg, int ext, int flags)
578 {
579 struct file_list *tp;
580 int lpos, len;
581 char *cp;
582 char och;
583 const char *sp;
584
585 fprintf(fp, "%s", msg);
586 lpos = strlen(msg);
587 for (tp = ftab; tp != 0; tp = tp->f_next) {
588 if (tp->f_type == INVISIBLE) {
589 continue;
590 }
591
592 /*
593 * Check flags (if any)
594 */
595 if (flags && ((tp->f_flags & flags) != flags)) {
596 continue;
597 }
598
599 /*
600 * Check for '.o' file in list
601 */
602 cp = tp->f_fn + (len = strlen(tp->f_fn)) - 1;
603 if (ext != -1 && *cp != ext) {
604 continue;
605 } else if (*cp == 'o') {
606 if (len + lpos > 72) {
607 lpos = 8;
608 fprintf(fp, "\\\n\t");
609 }
610 put_source_file_name(fp, tp);
611 fprintf(fp, " ");
612 lpos += len + 1;
613 continue;
614 }
615 sp = tail(tp->f_fn);
616 cp = (char *)sp + (len = strlen(sp)) - 1;
617 och = *cp;
618 *cp = 'o';
619 if (len + lpos > 72) {
620 lpos = 8;
621 fprintf(fp, "\\\n\t");
622 }
623 fprintf(fp, "%s ", sp);
624 lpos += len + 1;
625 *cp = och;
626 }
627 putc('\n', fp);
628 }
629
630 void
do_files(FILE * fp,const char * msg,char ext)631 do_files(FILE *fp, const char *msg, char ext)
632 {
633 struct file_list *tp;
634 int lpos, len = 0; /* dvw: init to 0 */
635
636 fprintf(fp, "%s", msg);
637 lpos = 8;
638 for (tp = ftab; tp != 0; tp = tp->f_next) {
639 if (tp->f_type == INVISIBLE) {
640 continue;
641 }
642 if (tp->f_fn[strlen(tp->f_fn) - 1] != ext) {
643 continue;
644 }
645 /*
646 * Always generate a newline.
647 * Our Makefile's aren't readable anyway.
648 */
649
650 lpos = 8;
651 fprintf(fp, "\\\n\t");
652 put_source_file_name(fp, tp);
653 lpos += len + 1;
654 }
655 putc('\n', fp);
656 }
657
658 /*
659 * Include machine dependent makefile in output
660 */
661
662 void
do_machdep(FILE * ofp)663 do_machdep(FILE *ofp)
664 {
665 FILE *ifp;
666 char pname[BUFSIZ];
667 char line[BUFSIZ];
668
669 (void) sprintf(line, "%s/Makefile.%s", config_directory, machinename);
670 ifp = fopenp(VPATH, line, pname, "r");
671 if (ifp == 0) {
672 perror(line);
673 exit(1);
674 }
675 while (fgets(line, BUFSIZ, ifp) != 0) {
676 if (profiling && (strncmp(line, "LIBS=", 5) == 0)) {
677 fprintf(ofp, "LIBS=${LIBS_P}\n");
678 } else {
679 fputs(line, ofp);
680 }
681 }
682 fclose(ifp);
683 }
684
685 const char *
tail(const char * fn)686 tail(const char *fn)
687 {
688 const char *cp;
689
690 cp = rindex(fn, '/');
691 if (cp == 0) {
692 return fn;
693 }
694 return cp + 1;
695 }
696
697 /*
698 * Create the makerules for each file
699 * which is part of the system.
700 * Devices are processed with the special c2 option -i
701 * which avoids any problem areas with i/o addressing
702 * (e.g. for the VAX); assembler files are processed by as.
703 */
704 void
do_rules(FILE * f)705 do_rules(FILE *f)
706 {
707 char *cp;
708 char *np, och;
709 const char *tp;
710 struct file_list *ftp;
711 const char *extras = ""; /* dvw: init to "" */
712 char *source_dir;
713 char och_upper;
714 const char *nl = "";
715
716 for (ftp = ftab; ftp != 0; ftp = ftp->f_next) {
717 if (ftp->f_type == INVISIBLE) {
718 continue;
719 }
720 cp = (np = ftp->f_fn) + strlen(ftp->f_fn) - 1;
721 och = *cp;
722 /*
723 * Don't compile '.o' files
724 */
725 if (och == 'o') {
726 continue;
727 }
728 /*
729 * Determine where sources should come from
730 */
731 if ((np[0] == '.') && (np[1] == '/')) {
732 source_dir = "";
733 np += 2;
734 } else {
735 source_dir = "$(SOURCE_DIR)/";
736 }
737 *cp = '\0';
738 tp = tail(np); /* dvw: init tp before 'if' */
739 fprintf(f, "-include %sd\n", tp);
740 if (ftp->f_flags & BOUND_CHECKS) {
741 fprintf(f, "%so_CFLAGS_ADD += ${CFLAGS_BOUND_CHECKS}\n", tp);
742 }
743
744 if (ftp->f_flags & BOUND_CHECKS_SOFT) {
745 fprintf(f, "%so_CFLAGS_ADD += ${CFLAGS_BOUND_CHECKS_SOFT}\n", tp);
746 }
747 fprintf(f, "%so: %s%s%c\n", tp, source_dir, np, och);
748 if (och == 's') {
749 fprintf(f, "\t${S_RULE_0}\n");
750 fprintf(f, "\t${S_RULE_1A} %s%.*s${S_RULE_1B}%s\n",
751 source_dir, (int)(tp - np), np, nl);
752 fprintf(f, "\t${S_RULE_2}%s\n", nl);
753 continue;
754 }
755 extras = "";
756 switch (ftp->f_type) {
757 case NORMAL:
758 goto common;
759 break;
760
761 case DRIVER:
762 extras = "_D";
763 goto common;
764 break;
765
766 case PROFILING:
767 if (!profiling) {
768 continue;
769 }
770 if (COPTS == 0) {
771 fprintf(stderr,
772 "config: COPTS undefined in generic makefile");
773 COPTS = "";
774 }
775 extras = "_P";
776 goto common;
777
778 common:
779 och_upper = och + 'A' - 'a';
780 fprintf(f, "\t${%c_RULE_0%s}\n", och_upper, extras);
781 fprintf(f, "\t${%c_RULE_1A%s}", och_upper, extras);
782 if (ftp->f_extra) {
783 fprintf(f, "%s", ftp->f_extra);
784 }
785 fprintf(f, " %s%.*s${%c_RULE_1B%s}%s\n",
786 source_dir, (int)(tp - np), np, och_upper, extras, nl);
787
788 fprintf(f, "\t${%c_RULE_2%s}%s\n", och_upper, extras, nl);
789 fprintf(f, "\t${%c_RULE_3%s}%s\n", och_upper, extras, nl);
790 fprintf(f, "\t$(if ${%c_RULE_4A%s},${%c_RULE_4A%s}",
791 och_upper, extras, och_upper, extras);
792 if (ftp->f_extra) {
793 fprintf(f, "%s", ftp->f_extra);
794 }
795 fprintf(f, "%s%.*s${%c_RULE_4B%s}%s)\n",
796 source_dir, (int)(tp - np), np, och_upper, extras, nl);
797 break;
798
799 default:
800 printf("Don't know rules for %s\n", np);
801 break;
802 }
803 *cp = och;
804 }
805 }
806
807 char *
allCaps(char * str)808 allCaps(char *str)
809 {
810 char *cp = str;
811
812 while (*str) {
813 if (islower(*str)) {
814 *str = toupper(*str);
815 }
816 str++;
817 }
818 return cp;
819 }
820
821 #define OLDSALUTATION "# DO NOT DELETE THIS LINE"
822
823 #define LINESIZE 1024
824 static char makbuf[LINESIZE]; /* one line buffer for makefile */
825
826 void
copy_dependencies(FILE * makin,FILE * makout)827 copy_dependencies(FILE *makin, FILE *makout)
828 {
829 int oldlen = (sizeof OLDSALUTATION - 1);
830
831 while (fgets(makbuf, LINESIZE, makin) != NULL) {
832 if (!strncmp(makbuf, OLDSALUTATION, oldlen)) {
833 break;
834 }
835 }
836 while (fgets(makbuf, LINESIZE, makin) != NULL) {
837 if (oldlen != 0) {
838 if (makbuf[0] == '\n') {
839 continue;
840 } else {
841 oldlen = 0;
842 }
843 }
844 fputs(makbuf, makout);
845 }
846 }
847