gcc/d/d-incpath.cc

   1 /* d-incpath.cc -- Set up combined import paths for the D frontend.
   2    Copyright (C) 2006-2024 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 #include "d-frontend.h"
  24
  25 #include "cppdefault.h"
  26
  27 /* Look for directories that start with the standard prefix.
  28    "Translate" them, i.e: replace /usr/local/lib/gcc with
  29    IPREFIX and search them first.  Based on incpath.cc.  */
  30
  31 static char *
  32 prefixed_path (const char *path, const char *iprefix)
  33 {
  34   if (cpp_relocated () && cpp_PREFIX_len != 0)
  35   {
  36     if (!filename_ncmp (path, cpp_PREFIX, cpp_PREFIX_len))
  37       {
  38         static const char *relocated_prefix;
  39         /* If this path starts with the configure-time prefix,
  40            but the compiler has been relocated, replace it
  41            with the run-time prefix.  */
  42         if (!relocated_prefix)
  43           {
  44             /* Make relative prefix expects the first argument
  45                to be a program, not a directory.  */
  46             char *dummy = concat (gcc_exec_prefix, "dummy", NULL);
  47             relocated_prefix
  48               = make_relative_prefix (dummy,
  49                                       cpp_EXEC_PREFIX,
  50                                       cpp_PREFIX);
  51             free (dummy);
  52           }
  53
  54         return concat (relocated_prefix, path + cpp_PREFIX_len, NULL);
  55       }
  56   }
  57
  58   if (iprefix && cpp_GCC_INCLUDE_DIR_len != 0)
  59     {
  60       if (!filename_ncmp (path, cpp_GCC_INCLUDE_DIR, cpp_GCC_INCLUDE_DIR_len))
  61         return concat (iprefix, path + cpp_GCC_INCLUDE_DIR_len, NULL);
  62     }
  63
  64   return xstrdup (path);
  65 }
  66
  67 /* Add PATHS to the global import lookup path.  */
  68
  69 static void
  70 add_globalpaths (Strings *paths)
  71 {
  72   if (paths)
  73     {
  74       for (size_t i = 0; i < paths->length; i++)
  75         {
  76           const char *path = (*paths)[i];
  77           const char *target = lrealpath (path);
  78
  79           if (target == NULL || !FileName::exists (target))
  80             {
  81               if (target)
  82                 free (CONST_CAST (char *, target));
  83               continue;
  84             }
  85
  86           global.path.push (target);
  87         }
  88     }
  89 }
  90
  91 /* Add PATHS to the global file import lookup path.  */
  92
  93 static void
  94 add_filepaths (Strings *paths)
  95 {
  96   if (paths)
  97     {
  98       for (size_t i = 0; i < paths->length; i++)
  99         {
 100           const char *path = (*paths)[i];
 101           const char *target = lrealpath (path);
 102
 103           if (!FileName::exists (target))
 104             {
 105               free (CONST_CAST (char *, target));
 106               continue;
 107             }
 108
 109           global.filePath.push (target);
 110         }
 111     }
 112 }
 113
 114 /* Add all search directories to compiler runtime.
 115    if STDINC, also include standard library paths.  */
 116
 117 void
 118 add_import_paths (const char *iprefix, const char *imultilib, bool stdinc)
 119 {
 120   if (stdinc)
 121     {
 122       for (const default_include *p = cpp_include_defaults; p->fname; p++)
 123         {
 124           char *path;
 125
 126           /* Ignore C++ paths.  */
 127           if (p->cplusplus)
 128             continue;
 129
 130           if (!p->add_sysroot)
 131             path = prefixed_path (p->fname, iprefix);
 132           else
 133             path = xstrdup (p->fname);
 134
 135           /* Add D-specific suffix.  */
 136           path = concat (path, "/d", NULL);
 137
 138           /* Ignore duplicate entries.  */
 139           bool found = false;
 140           for (size_t i = 0; i < global.params.imppath.length; i++)
 141             {
 142               if (strcmp (path, global.params.imppath[i]) == 0)
 143                 {
 144                   found = true;
 145                   break;
 146                 }
 147             }
 148
 149           if (found)
 150             {
 151               free (path);
 152               continue;
 153             }
 154
 155           /* Multilib support.  */
 156           if (imultilib)
 157             {
 158               char *target_path = concat (path, "/", imultilib, NULL);
 159               global.params.imppath.shift (target_path);
 160             }
 161
 162           global.params.imppath.shift (path);
 163         }
 164     }
 165
 166   /* Add import search paths.  */
 167   for (size_t i = 0; i < global.params.imppath.length; i++)
 168     {
 169       const char *path = global.params.imppath[i];
 170       if (path)
 171         add_globalpaths (FileName::splitPath (path));
 172     }
 173
 174   /* Add string import search paths.  */
 175   for (size_t i = 0; i < global.params.fileImppath.length; i++)
 176     {
 177       const char *path = global.params.fileImppath[i];
 178       if (path)
 179         add_filepaths (FileName::splitPath (path));
 180     }
 181 }