soltools/mkdepend/pr.c

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /* $XConsortium: pr.c,v 1.17 94/04/17 20:10:38 gildea Exp $ */
   3 /*
   4
   5 Copyright (c) 1993, 1994  X Consortium
   6
   7 Permission is hereby granted, free of charge, to any person obtaining a copy
   8 of this software and associated documentation files (the "Software"), to deal
   9 in the Software without restriction, including without limitation the rights
  10 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  11 copies of the Software, and to permit persons to whom the Software is
  12 furnished to do so, subject to the following conditions:
  13
  14 The above copyright notice and this permission notice shall be included in
  15 all copies or substantial portions of the Software.
  16
  17 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  18 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
  20 X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
  21 AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
  22 CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  23
  24 Except as contained in this notice, the name of the X Consortium shall not be
  25 used in advertising or otherwise to promote the sale, use or other dealings
  26 in this Software without prior written authorization from the X Consortium.
  27
  28 */
  29
  30 #include "def.h"
  31 #include <string.h>
  32 static size_t pr( struct inclist *ip, char *file,char *base);
  33
  34 extern int  width;
  35
  36 void add_include(struct filepointer *filep, struct inclist *file, struct inclist *file_red, char *include, boolean dot, boolean failOK, struct IncludesCollection* incCollection, struct symhash *symbols)
  37 {
  38     struct inclist *newfile;
  39     struct filepointer *content;
  40
  41     /*
  42      * First decide what the pathname of this include file really is.
  43      */
  44     newfile = inc_path(file->i_file, include, dot, incCollection);
  45     if (newfile == NULL) {
  46         if (failOK)
  47             return;
  48         if (file != file_red)
  49             warning("%s (reading %s, line %d): ",
  50                 file_red->i_file, file->i_file, filep->f_line);
  51         else
  52             warning("%s, line %d: ", file->i_file, filep->f_line);
  53         warning1("cannot find include file \"%s\"\n", include);
  54         show_where_not = TRUE;
  55         newfile = inc_path(file->i_file, include, dot, incCollection);
  56         show_where_not = FALSE;
  57     }
  58
  59     if (!newfile)
  60         return;
  61
  62     /* Only add new dependency files if they don't have "/usr/include" in them. */
  63     if (!(newfile->i_file && strstr(newfile->i_file, "/usr/"))) {
  64         included_by(file, newfile);
  65     }
  66
  67     if (!newfile->i_searched) {
  68         newfile->i_searched = TRUE;
  69         content = getfile(newfile->i_file);
  70         find_includes(content, newfile, file_red, 0, failOK, incCollection, symbols);
  71         freefile(content);
  72     }
  73 }
  74
  75 static void pr_dummy(struct inclist const *ip)
  76 {
  77     fwrite(ip->i_file, strlen(ip->i_file), 1, stdout);
  78     fwrite(" :\n\n", 4, 1, stdout);
  79 }
  80
  81 void recursive_pr_dummy(struct inclist *head, char *file)
  82 {
  83     int    i;
  84
  85     if (head->i_marked == 2)
  86         return;
  87     head->i_marked = 2; // it's a large boolean...
  88     if (head->i_file != file)
  89         pr_dummy(head);
  90     for (i=0; i<head->i_listlen; i++)
  91         recursive_pr_dummy(head->i_list[ i ], file);
  92 }
  93
  94
  95 void recursive_pr_include(struct inclist *head, char *file, char *base)
  96 {
  97     int    i;
  98
  99     if (head->i_marked)
 100         return;
 101     head->i_marked = TRUE;
 102     if (head->i_file != file)
 103         pr(head, file, base);
 104     for (i=0; i<head->i_listlen; i++)
 105         recursive_pr_include(head->i_list[ i ], file, base);
 106 }
 107
 108 size_t pr(struct inclist *ip, char *file, char *base)
 109 {
 110     size_t ret;
 111     static char *lastfile;
 112     int    len, i;
 113     char    buf[ BUFSIZ ];
 114
 115     printed = TRUE;
 116     len = (int)strlen(ip->i_file)+4;
 117     if (file != lastfile) {
 118         lastfile = file;
 119         sprintf(buf, "\n%s%s%s: \\\n %s", objprefix, base, objsuffix,
 120             ip->i_file);
 121         len = (int)strlen(buf);
 122     }
 123     else {
 124         buf[0] = ' ';
 125         buf[1] = '\\';
 126         buf[2] = '\n';
 127         buf[3] = ' ';
 128         strcpy(buf+4, ip->i_file);
 129     }
 130     ret = fwrite(buf, len, 1, stdout);
 131
 132     /*
 133      * If verbose is set, then print out what this file includes.
 134      */
 135     if (! verbose || ip->i_list == NULL || ip->i_notified)
 136         return ret;
 137     ip->i_notified = TRUE;
 138     lastfile = NULL;
 139     printf("\n# %s includes:", ip->i_file);
 140     for (i=0; i<ip->i_listlen; i++)
 141         printf("\n#\t%s", ip->i_list[ i ]->i_incstring);
 142     return ret;
 143 }
 144
 145 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */