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 :) */
58 *list = Safe_strdup (str);
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)
78 strncatz(buffer, *pplist, PATH_MAX);
79 strncatz(buffer, " ", PATH_MAX);
86 /** Given an array of string pointers, returns a string containing all
87 of the strings seperated by spaces. The returned string is on the
88 heap. n is the number of strings in the list.
91 joinn(char **pplist, int n)
97 strncatz(buffer, *pplist, PATH_MAX);
98 strncatz(buffer, " ", PATH_MAX);
105 /** Returns TRUE if for the host the two path characters are
109 pathCharsEquivalent(char c1, char c2)
112 /* win32 is case insensitive */
113 if (tolower(c1) == tolower(c2))
117 /* And / is equivalent to \ */
118 else if (c1 == '/' && c2 == '\\')
122 else if (c1 == '\\' && c2 == '/')
131 /* Assume a Unix host where they must match exactly. */
137 pathEquivalent(const char *p1, const char *p2)
139 while (*p1 != '\0' && *p2 != '\0')
141 if (pathCharsEquivalent (*p1, *p2) == FALSE)
153 pathCharTransform(char c)
158 return DIR_SEPARATOR_CHAR;
169 /** Fixes up a potentially mixed path to the proper representation for
170 the host. Fixes up in place.
179 *p = pathCharTransform(*p);
187 /** Returns the characters in p2 past the last matching characters in
191 getPathDifference (char *pinto, const char *p1, const char *p2)
196 /* win32 can have a path at the start. */
199 p2 = strchr(p2, ':')+1;
203 while (*p1 != '\0' && *p2 != '\0')
205 if (pathCharsEquivalent(*p1, *p2) == FALSE)
218 return fixupPath(pinto);
221 /** Given a file with path information in the binary files directory,
222 returns what PREFIX must be to get this path. Used for discovery
223 of where SDCC is installed. Returns NULL if the path is
227 getPrefixFromBinPath (const char *prel)
229 strncpyz(scratchFileName, prel, PATH_MAX);
230 /* Strip off the /sdcc at the end */
231 *strrchr(scratchFileName, DIR_SEPARATOR_CHAR) = '\0';
232 /* Compute what the difference between the prefix and the bin dir
234 getPathDifference (buffer, PREFIX, BINDIR);
236 /* Verify that the path in has the expected suffix */
237 if (strlen(buffer) > strlen(scratchFileName))
239 /* Not long enough */
243 if (pathEquivalent (buffer, scratchFileName + strlen(scratchFileName) - strlen(buffer)) == FALSE)
249 scratchFileName[strlen(scratchFileName) - strlen(buffer)] = '\0';
251 return Safe_strdup (scratchFileName);
254 /** Returns true if the given path exists.
257 pathExists (const char *ppath)
261 return stat (ppath, &s) == 0;
264 static hTab *_mainValues;
267 setMainValue (const char *pname, const char *pvalue)
271 shash_add (&_mainValues, pname, pvalue);
275 buildCmdLine2 (char *pbuffer, const char *pcmd, size_t len)
278 assert(pbuffer && pcmd);
281 poutcmd = msprintf(_mainValues, pcmd);
282 strncpyz(pbuffer, poutcmd, len);
286 populateMainValues (const char **ppin)
288 _mainValues = populateStringHash(ppin);
291 /** Returns true if sz starts with the string given in key.
294 startsWith (const char *sz, const char *key)
296 return !strncmp (sz, key, strlen (key));
299 /** Removes any newline characters from the string. Not strictly the
300 same as perl's chomp.
306 while ((nl = strrchr (sz, '\n')))
311 getRuntimeVariables(void)
317 /* strncpy() with guaranteed NULL termination. */
318 char *strncpyz(char *dest, const char *src, size_t n)
326 fprintf(stderr, "strncpyz prevented buffer overrun!\n");
329 strncpy(dest, src, n);
334 /* like strncat() with guaranteed NULL termination
335 * The passed size should be the size of the dest buffer, not the number of
338 char *strncatz(char *dest, const char *src, size_t n)
341 size_t destLen = strlen(dest);
346 maxToCopy = n - destLen - 1;
349 if (strlen(src) + destLen >= n)
351 fprintf(stderr, "strncatz prevented buffer overrun!\n");
354 strncat(dest, src, maxToCopy);
360 #if defined(HAVE_VSNPRINTF) || defined(HAVE_VSPRINTF)
361 size_t SDCCsnprintf(char *dst, size_t n, const char *fmt, ...)
368 # if defined(HAVE_VSNPRINTF)
369 len = vsnprintf(dst, n, fmt, args);
371 vsprintf(dst, fmt, args);
372 len = strlen(dst) + 1;
377 /* on some gnu systems, vsnprintf returns -1 if output is truncated.
378 * In the C99 spec, vsnprintf returns the number of characters that
379 * would have been written, were space available.
381 if ((len < 0) || (size_t) len >= n) {
382 fprintf(stderr, "internal error: sprintf truncated.\n");