return memory;
}
+/*
+ * Safely call calloc
+ */
+void *
+mh_xcalloc(size_t nmemb, size_t size)
+{
+ void *memory;
+
+ if (nmemb == 0 || size == 0)
+ adios(NULL, "Tried to calloc 0 bytes");
+
+ if ((memory = calloc(nmemb, size))) {
+ return memory;
+ } else {
+ adios(NULL, "calloc failed");
+ }
+}
+
/*
* Return the present working directory, if the current directory does not
* exist, or is too long, make / the pwd.
if (!mypath || !*mypath
|| (strcpy (curwd, mypath), chdir (curwd)) == -1) {
strcpy (curwd, "/");
- chdir (curwd);
+ if (chdir (curwd) < 0) {
+ advise (curwd, "chdir");
+ }
}
return curwd;
}
if (autocreate == 0) {
/* ask before creating folder */
cp = concat ("Create folder \"", folder, "\"? ", NULL);
- if (!getanswer (cp))
+ if (!read_yes_or_no_if_tty (cp))
done_callback (1);
free (cp);
} else if (autocreate == -1) {
int
nmh_init(const char *argv0, int read_context) {
- setlocale(LC_ALL, "");
+ if (! setlocale(LC_ALL, "")) {
+ admonish(NULL, "setlocale failed, check your LC_ALL, LC_CTYPE, and "
+ "LANG environment variables");
+ }
invo_name = r1bindex ((char *) argv0, '/');
}
}
+
+/* Returns copy of argument str with all characters converted to upper
+ case, and trimmed whitespace (see cpytrim()) . */
+char *
+upcase (const char *str) {
+ char *up = cpytrim (str);
+ char *cp;
+
+ for (cp = up; *cp; ++cp) { *cp = toupper ((unsigned char) *cp); }
+
+ return up;
+}
+
+
/*
* Scan for any 8-bit characters. Return 1 if they exist.
*