/* src/toolbox/util.c - contains some utility functions
- Copyright (C) 1996-2005 R. Grafl, A. Krall, C. Kruegel, C. Oates,
- R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
- C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
- Institut f. Computersprachen - TU Wien
+ Copyright (C) 1996-2005, 2006, 2008
+ CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
This file is part of CACAO.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- 02111-1307, USA.
-
- Contact: cacao@complang.tuwien.ac.at
-
- Authors: Christian Thalinger
-
- Changes:
-
- $Id: util.c 2127 2005-03-29 22:24:34Z twisti $
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+ 02110-1301, USA.
*/
+#include "config.h"
+
+#include <assert.h>
#include <errno.h>
+#include <stdarg.h>
#include <unistd.h>
-#include "types.h"
+#include "vm/types.h"
+
#include "mm/memory.h"
-#include "vm/exceptions.h"
+#include "vm/vm.hpp"
+
+/* _Jv_getcwd ******************************************************************
-/* getcwd **********************************************************************
+ Return the current working directory.
- XXX
+ RETURN VALUE:
+ pointer to a char array allocated by MNEW, or
+ NULL if memory could not be allocated.
*******************************************************************************/
/* too small buffer or a more serious problem */
if (errno != ERANGE)
- throw_cacao_exception_exit(string_java_lang_InternalError,
- strerror(errno));
+ vm_abort("getcwd failed: %s", strerror(errno));
/* double the buffer size */
*******************************************************************************/
-int get_variable_message_length(const char *fmt, ...)
+int get_variable_message_length(const char *fmt, va_list ap)
{
- va_list ap;
- int len;
+ int n;
+
+ n = vsnprintf(NULL, 0, fmt, ap);
+
+#if defined(__IRIX__)
+ /* We know that IRIX returns -1 if the buffer is NULL */
- va_start(ap, fmt);
- len = vsnprintf(NULL, 0, fmt, ap);
- va_end(ap);
+ if (n == -1) {
+ char *p, *np;
+ s4 size;
+
+ size = 100; /* start with 100-bytes */
+
+ p = MNEW(char, size);
+
+ while (1) {
+ /* Try to print in the allocated space. */
+
+ n = vsnprintf(p, size, fmt, ap);
+
+ /* If that worked, return the length. */
+ if (n > -1 && n < size)
+ return n;
+
+ /* Else try again with more space. */
+ size *= 2; /* twice the old size */
+
+ if ((np = MREALLOC(p, char, size, size)) == NULL) {
+ assert(0);
+ } else {
+ p = np;
+ }
+ }
+ }
+#endif
- return len;
+ return n;
}