LCOV - code coverage report
Current view: top level - gcc - file-find.c (source / functions) Hit Total Coverage
Test: gcc.info Lines: 69 81 85.2 %
Date: 2020-03-28 11:57:23 Functions: 6 7 85.7 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 0 0 -

           Branch data     Line data    Source code
       1                 :            : /* Utility functions for finding files relative to GCC binaries.
       2                 :            :    Copyright (C) 1992-2020 Free Software Foundation, Inc.
       3                 :            : 
       4                 :            : This file is part of GCC.
       5                 :            : 
       6                 :            : GCC is free software; you can redistribute it and/or modify it under
       7                 :            : the terms of the GNU General Public License as published by the Free
       8                 :            : Software Foundation; either version 3, or (at your option) any later
       9                 :            : version.
      10                 :            : 
      11                 :            : GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      12                 :            : WARRANTY; without even the implied warranty of MERCHANTABILITY or
      13                 :            : FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      14                 :            : for more details.
      15                 :            : 
      16                 :            : You should have received a copy of the GNU General Public License
      17                 :            : along with GCC; see the file COPYING3.  If not see
      18                 :            : <http://www.gnu.org/licenses/>.  */
      19                 :            : 
      20                 :            : #include "config.h"
      21                 :            : #include "system.h"
      22                 :            : #include "filenames.h"
      23                 :            : #include "file-find.h"
      24                 :            : 
      25                 :            : static bool debug = false;
      26                 :            : 
      27                 :            : void
      28                 :      71879 : find_file_set_debug (bool debug_state)
      29                 :            : {
      30                 :      71879 :   debug = debug_state;
      31                 :      71879 : }
      32                 :            : 
      33                 :            : char *
      34                 :     718790 : find_a_file (struct path_prefix *pprefix, const char *name, int mode)
      35                 :            : {
      36                 :     718790 :   char *temp;
      37                 :     718790 :   struct prefix_list *pl;
      38                 :     718790 :   int len = pprefix->max_len + strlen (name) + 1;
      39                 :            : 
      40                 :     718790 :   if (debug)
      41                 :          0 :     fprintf (stderr, "Looking for '%s'\n", name);
      42                 :            : 
      43                 :            : #ifdef HOST_EXECUTABLE_SUFFIX
      44                 :            :   len += strlen (HOST_EXECUTABLE_SUFFIX);
      45                 :            : #endif
      46                 :            : 
      47                 :     718790 :   temp = XNEWVEC (char, len);
      48                 :            : 
      49                 :            :   /* Determine the filename to execute (special case for absolute paths).  */
      50                 :            : 
      51                 :     718790 :   if (IS_ABSOLUTE_PATH (name))
      52                 :            :     {
      53                 :      71879 :       if (access (name, mode) == 0)
      54                 :            :         {
      55                 :      71879 :           strcpy (temp, name);
      56                 :            : 
      57                 :      71879 :           if (debug)
      58                 :          0 :             fprintf (stderr, "  - found: absolute path\n");
      59                 :            : 
      60                 :      71879 :           return temp;
      61                 :            :         }
      62                 :            : 
      63                 :            : #ifdef HOST_EXECUTABLE_SUFFIX
      64                 :            :         /* Some systems have a suffix for executable files.
      65                 :            :            So try appending that.  */
      66                 :            :       strcpy (temp, name);
      67                 :            :         strcat (temp, HOST_EXECUTABLE_SUFFIX);
      68                 :            : 
      69                 :            :         if (access (temp, mode) == 0)
      70                 :            :           return temp;
      71                 :            : #endif
      72                 :            : 
      73                 :          0 :       if (debug)
      74                 :          0 :         fprintf (stderr, "  - failed to locate using absolute path\n");
      75                 :            :     }
      76                 :            :   else
      77                 :    3006200 :     for (pl = pprefix->plist; pl; pl = pl->next)
      78                 :            :       {
      79                 :    2574920 :         struct stat st;
      80                 :            : 
      81                 :    2574920 :         strcpy (temp, pl->prefix);
      82                 :    2574920 :         strcat (temp, name);
      83                 :            : 
      84                 :    2574920 :         if (stat (temp, &st) >= 0
      85                 :     215637 :             && ! S_ISDIR (st.st_mode)
      86                 :    2790560 :             && access (temp, mode) == 0)
      87                 :     215637 :           return temp;
      88                 :            : 
      89                 :            : #ifdef HOST_EXECUTABLE_SUFFIX
      90                 :            :         /* Some systems have a suffix for executable files.
      91                 :            :            So try appending that.  */
      92                 :            :         strcat (temp, HOST_EXECUTABLE_SUFFIX);
      93                 :            : 
      94                 :            :         if (stat (temp, &st) >= 0
      95                 :            :             && ! S_ISDIR (st.st_mode)
      96                 :            :             && access (temp, mode) == 0)
      97                 :            :           return temp;
      98                 :            : #endif
      99                 :            :       }
     100                 :            : 
     101                 :     431274 :   if (debug && pprefix->plist == NULL)
     102                 :          0 :     fprintf (stderr, "  - failed: no entries in prefix list\n");
     103                 :            : 
     104                 :     431274 :   free (temp);
     105                 :     431274 :   return 0;
     106                 :            : }
     107                 :            : 
     108                 :            : /* Add an entry for PREFIX to prefix list PREFIX.
     109                 :            :    Add at beginning if FIRST is true.  */
     110                 :            : 
     111                 :            : void
     112                 :     895335 : do_add_prefix (struct path_prefix *pprefix, const char *prefix, bool first)
     113                 :            : {
     114                 :     895335 :   struct prefix_list *pl, **prev;
     115                 :     895335 :   int len;
     116                 :            : 
     117                 :     895335 :   if (pprefix->plist && !first)
     118                 :            :     {
     119                 :    3434140 :       for (pl = pprefix->plist; pl->next; pl = pl->next)
     120                 :            :         ;
     121                 :     751577 :       prev = &pl->next;
     122                 :            :     }
     123                 :            :   else
     124                 :     143758 :     prev = &pprefix->plist;
     125                 :            : 
     126                 :            :   /* Keep track of the longest prefix.  */
     127                 :            : 
     128                 :     895335 :   len = strlen (prefix);
     129                 :     895335 :   if (len > pprefix->max_len)
     130                 :     286931 :     pprefix->max_len = len;
     131                 :            : 
     132                 :     895335 :   pl = XNEW (struct prefix_list);
     133                 :     895335 :   pl->prefix = xstrdup (prefix);
     134                 :            : 
     135                 :     895335 :   if (*prev)
     136                 :          0 :     pl->next = *prev;
     137                 :            :   else
     138                 :     895335 :     pl->next = (struct prefix_list *) 0;
     139                 :     895335 :   *prev = pl;
     140                 :     895335 : }
     141                 :            : 
     142                 :            : /* Add an entry for PREFIX at the end of prefix list PREFIX.  */
     143                 :            : 
     144                 :            : void
     145                 :     895335 : add_prefix (struct path_prefix *pprefix, const char *prefix)
     146                 :            : {
     147                 :     895335 :   do_add_prefix (pprefix, prefix, false);
     148                 :     895335 : }
     149                 :            : 
     150                 :            : /* Add an entry for PREFIX at the begin of prefix list PREFIX.  */
     151                 :            : 
     152                 :            : void
     153                 :          0 : add_prefix_begin (struct path_prefix *pprefix, const char *prefix)
     154                 :            : {
     155                 :          0 :   do_add_prefix (pprefix, prefix, true);
     156                 :          0 : }
     157                 :            : 
     158                 :            : /* Take the value of the environment variable ENV, break it into a path, and
     159                 :            :    add of the entries to PPREFIX.  */
     160                 :            : 
     161                 :            : void
     162                 :     143758 : prefix_from_env (const char *env, struct path_prefix *pprefix)
     163                 :            : {
     164                 :     143758 :   const char *p;
     165                 :     143758 :   p = getenv (env);
     166                 :            : 
     167                 :     143758 :   if (p)
     168                 :     143758 :     prefix_from_string (p, pprefix);
     169                 :     143758 : }
     170                 :            : 
     171                 :            : void
     172                 :     143758 : prefix_from_string (const char *p, struct path_prefix *pprefix)
     173                 :            : {
     174                 :     143758 :   const char *startp, *endp;
     175                 :     143758 :   char *nstore = XNEWVEC (char, strlen (p) + 3);
     176                 :            : 
     177                 :     143758 :   if (debug)
     178                 :          0 :     fprintf (stderr, "Convert string '%s' into prefixes, separator = '%c'\n", p, PATH_SEPARATOR);
     179                 :            : 
     180                 :            :   startp = endp = p;
     181                 :   33717700 :   while (1)
     182                 :            :     {
     183                 :   33717700 :       if (*endp == PATH_SEPARATOR || *endp == 0)
     184                 :            :         {
     185                 :     895335 :           strncpy (nstore, startp, endp-startp);
     186                 :     895335 :           if (endp == startp)
     187                 :            :             {
     188                 :          0 :               strcpy (nstore, "./");
     189                 :            :             }
     190                 :     895335 :           else if (! IS_DIR_SEPARATOR (endp[-1]))
     191                 :            :             {
     192                 :     718899 :               nstore[endp-startp] = DIR_SEPARATOR;
     193                 :     718899 :               nstore[endp-startp+1] = 0;
     194                 :            :             }
     195                 :            :           else
     196                 :     176436 :             nstore[endp-startp] = 0;
     197                 :            : 
     198                 :     895335 :           if (debug)
     199                 :          0 :             fprintf (stderr, "  - add prefix: %s\n", nstore);
     200                 :            : 
     201                 :     895335 :           add_prefix (pprefix, nstore);
     202                 :     895335 :           if (*endp == 0)
     203                 :            :             break;
     204                 :     751577 :           endp = startp = endp + 1;
     205                 :            :         }
     206                 :            :       else
     207                 :   32822300 :         endp++;
     208                 :            :     }
     209                 :     143758 :   free (nstore);
     210                 :     143758 : }

Generated by: LCOV version 1.0

LCOV profile is generated on x86_64 machine using following configure options: configure --disable-bootstrap --enable-coverage=opt --enable-languages=c,c++,fortran,go,jit,lto --enable-host-shared. GCC test suite is run with the built compiler.