1 /*-------------------------------------------------------------------------
2 SDCCutil.c - Small utility functions.
4 Written By - Sandeep Dutta . sandeep.dutta@usa.net (1999)
6 This program is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
20 In other words, you are welcome to use, share and improve this program.
21 You are forbidden to forbid anyone else to use, share and improve
22 what you give them. Help stamp out software-hoarding!
23 -------------------------------------------------------------------------*/
26 #include "SDCCmacro.h"
31 /** Given an array of name, value string pairs creates a new hash
32 containing all of the pairs.
35 populateStringHash(const char **pin)
41 shash_add (&pret, pin[0], pin[1]);
48 /** Given an array of string pointers and another string, adds the
49 string to the end of the list. The end of the list is assumed to
50 be the first NULL pointer.
53 addToList (const char **list, const char *str)
55 /* This is the bad way to do things :) */
61 werror (E_OUT_OF_MEM, __FILE__, 0);
67 /** Given an array of string pointers returns a string containing all
68 of the strings seperated by spaces. The returned string is on the
69 heap. The join stops when a NULL pointer is hit.
72 join(const char **pplist)
79 strcpy(pinto, *pplist);
80 pinto += strlen(*pplist);
88 /** Given an array of string pointers, returns a string containing all
89 of the strings seperated by spaces. The returned string is on the
90 heap. n is the number of strings in the list.
93 joinn(char **pplist, int n)
100 strcpy(pinto, *pplist);
101 pinto += strlen(*pplist);
110 /** Returns the characters in p2 past the last matching characters in
114 getStringDifference (char *pinto, const char *p1, const char *p2)
118 while (*p1 != '\0' && *p2 != '\0')
134 /** Given a file with path information in the binary files directory,
135 returns what PREFIX must be to get this path. Used for discovery
136 of where SDCC is installed. Returns NULL if the path is
140 getPrefixFromBinPath (const char *prel)
142 strcpy(scratchFileName, prel);
143 /* Strip off the /sdcc at the end */
144 *strrchr(scratchFileName, DIR_SEPARATOR_CHAR) = '\0';
145 /* Compute what the difference between the prefix and the bin dir
147 getStringDifference (buffer, PREFIX, BINDIR);
149 /* Verify that the path in has the expected suffix */
150 if (strlen(buffer) > strlen(scratchFileName))
152 /* Not long enough */
155 if (strcmp(buffer, scratchFileName + strlen(scratchFileName) - strlen(buffer)) != 0)
161 scratchFileName[strlen(scratchFileName) - strlen(buffer)] = '\0';
163 return gc_strdup (scratchFileName);
166 /** Returns true if the given path exists.
169 pathExists (const char *ppath)
173 return stat (ppath, &s) == 0;
176 static hTab *_mainValues;
179 setMainValue (const char *pname, const char *pvalue)
181 shash_add (&_mainValues, pname, pvalue);
185 buildCmdLine2 (char *pbuffer, const char *pcmd)
187 char *poutcmd = msprintf(_mainValues, pcmd);
188 strcpy(pbuffer, poutcmd);
192 populateMainValues (const char **ppin)
194 _mainValues = populateStringHash(ppin);
198 gc_strdup (const char *s)
201 ret = Safe_calloc (1, strlen (s) + 1);
206 /** Returns true if sz starts with the string given in key.
209 startsWith (const char *sz, const char *key)
211 return !strncmp (sz, key, strlen (key));
214 /** Removes any newline characters from the string. Not strictly the
215 same as perl's chomp.
221 while ((nl = strrchr (sz, '\n')))