gcc/d/d-incpath.cc

   1 /* d-incpath.cc -- Set up combined import paths for the D frontend.
   2    Copyright (C) 2006-2021 Free Software Foundation, Inc.
   3
   4 GCC is free software; you can redistribute it and/or modify
   5 it under the terms of the GNU General Public License as published by
   6 the Free Software Foundation; either version 3, or (at your option)
   7 any later version.
   8
   9 GCC is distributed in the hope that it will be useful,
  10 but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 GNU General Public License for more details.
  13
  14 You should have received a copy of the GNU General Public License
  15 along with GCC; see the file COPYING3.  If not see
  16 <http://www.gnu.org/licenses/>.  */
  17
  18 #include "config.h"
  19 #include "system.h"
  20 #include "coretypes.h"
  21
  22 #include "dmd/globals.h"
  23
  24 #include "cppdefault.h"
  25
  26 /* Look for directories that start with the standard prefix.
  27    "Translate" them, i.e: replace /usr/local/lib/gcc with
  28    IPREFIX and search them first.  Based on incpath.c.  */
  29
  30 static char *
  31 prefixed_path (const char *path, const char *iprefix)
  32 {
  33   if (cpp_relocated () && cpp_PREFIX_len != 0)
  34   {
  35     if (!filename_ncmp (path, cpp_PREFIX, cpp_PREFIX_len))
  36       {
  37         static const char *relocated_prefix;
  38         /* If this path starts with the configure-time prefix,
  39            but the compiler has been relocated, replace it
  40            with the run-time prefix.  */
  41         if (!relocated_prefix)
  42           {
  43             /* Make relative prefix expects the first argument
  44                to be a program, not a directory.  */
  45             char *dummy = concat (gcc_exec_prefix, "dummy", NULL);
  46             relocated_prefix
  47               = make_relative_prefix (dummy,
  48                                       cpp_EXEC_PREFIX,
  49                                       cpp_PREFIX);
  50             free (dummy);
  51           }
  52
  53         return concat (relocated_prefix, path + cpp_PREFIX_len, NULL);
  54       }
  55   }
  56
  57   if (iprefix && cpp_GCC_INCLUDE_DIR_len != 0)
  58     {
  59       if (!filename_ncmp (path, cpp_GCC_INCLUDE_DIR, cpp_GCC_INCLUDE_DIR_len))
  60         return concat (iprefix, path + cpp_GCC_INCLUDE_DIR_len, NULL);
  61     }
  62
  63   return xstrdup (path);
  64 }
  65
  66 /* Add PATHS to the global import lookup path.  */
  67
  68 static void
  69 add_globalpaths (Strings *paths)
  70 {
  71   if (paths)
  72     {
  73       if (!global.path)
  74         global.path = new Strings ();
  75
  76       for (size_t i = 0; i < paths->length; i++)
  77         {
  78           const char *path = (*paths)[i];
  79           const char *target = lrealpath (path);
  80
  81           if (target == NULL || !FileName::exists (target))
  82             {
  83               if (target)
  84                 free (CONST_CAST (char *, target));
  85               continue;
  86             }
  87
  88           global.path->push (target);
  89         }
  90     }
  91 }
  92
  93 /* Add PATHS to the global file import lookup path.  */
  94
  95 static void
  96 add_filepaths (Strings *paths)
  97 {
  98   if (paths)
  99     {
 100       if (!global.filePath)
 101         global.filePath = new Strings ();
 102
 103       for (size_t i = 0; i < paths->length; i++)
 104         {
 105           const char *path = (*paths)[i];
 106           const char *target = lrealpath (path);
 107
 108           if (!FileName::exists (target))
 109             {
 110               free (CONST_CAST (char *, target));
 111               continue;
 112             }
 113
 114           global.filePath->push (target);
 115         }
 116     }
 117 }
 118
 119 /* Add all search directories to compiler runtime.
 120    if STDINC, also include standard library paths.  */
 121
 122 void
 123 add_import_paths (const char *iprefix, const char *imultilib, bool stdinc)
 124 {
 125   if (stdinc)
 126     {
 127       for (const default_include *p = cpp_include_defaults; p->fname; p++)
 128         {
 129           char *path;
 130
 131           /* Ignore C++ paths.  */
 132           if (p->cplusplus)
 133             continue;
 134
 135           if (!p->add_sysroot)
 136             path = prefixed_path (p->fname, iprefix);
 137           else
 138             path = xstrdup (p->fname);
 139
 140           /* Add D-specific suffix.  */
 141           path = concat (path, "/d", NULL);
 142
 143           /* Ignore duplicate entries.  */
 144           bool found = false;
 145           for (size_t i = 0; i < global.params.imppath->length; i++)
 146             {
 147               if (strcmp (path, (*global.params.imppath)[i]) == 0)
 148                 {
 149                   found = true;
 150                   break;
 151                 }
 152             }
 153
 154           if (found)
 155             {
 156               free (path);
 157               continue;
 158             }
 159
 160           /* Multilib support.  */
 161           if (imultilib)
 162             {
 163               char *target_path = concat (path, "/", imultilib, NULL);
 164               global.params.imppath->shift (target_path);
 165             }
 166
 167           global.params.imppath->shift (path);
 168         }
 169     }
 170
 171   /* Add import search paths.  */
 172   if (global.params.imppath)
 173     {
 174       for (size_t i = 0; i < global.params.imppath->length; i++)
 175         {
 176           const char *path = (*global.params.imppath)[i];
 177           if (path)
 178             add_globalpaths (FileName::splitPath (path));
 179         }
 180     }
 181
 182   /* Add string import search paths.  */
 183   if (global.params.fileImppath)
 184     {
 185       for (size_t i = 0; i < global.params.fileImppath->length; i++)
 186         {
 187           const char *path = (*global.params.fileImppath)[i];
 188           if (path)
 189             add_filepaths (FileName::splitPath (path));
 190         }
 191     }
 192 }
 193