| /* |
| * Copyright (c) 2005, 2012, Oracle and/or its affiliates. All rights reserved. |
| * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
| * |
| * This code is free software; you can redistribute it and/or modify it |
| * under the terms of the GNU General Public License version 2 only, as |
| * published by the Free Software Foundation. Oracle designates this |
| * particular file as subject to the "Classpath" exception as provided |
| * by Oracle in the LICENSE file that accompanied this code. |
| * |
| * This code is distributed in the hope that it will be useful, but WITHOUT |
| * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
| * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
| * version 2 for more details (a copy is included in the LICENSE file that |
| * accompanied this code). |
| * |
| * You should have received a copy of the GNU General Public License version |
| * 2 along with this work; if not, write to the Free Software Foundation, |
| * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
| * |
| * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
| * or visit www.oracle.com if you need additional information or have any |
| * questions. |
| */ |
| |
| #include <stdio.h> |
| #include <string.h> |
| #include <stdarg.h> |
| #include "jli_util.h" |
| |
| /* |
| * Returns a pointer to a block of at least 'size' bytes of memory. |
| * Prints error message and exits if the memory could not be allocated. |
| */ |
| void * |
| JLI_MemAlloc(size_t size) |
| { |
| void *p = malloc(size); |
| if (p == 0) { |
| perror("malloc"); |
| exit(1); |
| } |
| return p; |
| } |
| |
| /* |
| * Equivalent to realloc(size). |
| * Prints error message and exits if the memory could not be reallocated. |
| */ |
| void * |
| JLI_MemRealloc(void *ptr, size_t size) |
| { |
| void *p = realloc(ptr, size); |
| if (p == 0) { |
| perror("realloc"); |
| exit(1); |
| } |
| return p; |
| } |
| |
| /* |
| * Wrapper over strdup(3C) which prints an error message and exits if memory |
| * could not be allocated. |
| */ |
| char * |
| JLI_StringDup(const char *s1) |
| { |
| char *s = strdup(s1); |
| if (s == NULL) { |
| perror("strdup"); |
| exit(1); |
| } |
| return s; |
| } |
| |
| /* |
| * Very equivalent to free(ptr). |
| * Here to maintain pairing with the above routines. |
| */ |
| void |
| JLI_MemFree(void *ptr) |
| { |
| free(ptr); |
| } |
| |
| /* |
| * debug helpers we use |
| */ |
| static jboolean _launcher_debug = JNI_FALSE; |
| |
| void |
| JLI_TraceLauncher(const char* fmt, ...) |
| { |
| va_list vl; |
| if (_launcher_debug != JNI_TRUE) return; |
| va_start(vl, fmt); |
| vprintf(fmt,vl); |
| va_end(vl); |
| fflush(stdout); |
| } |
| |
| void |
| JLI_SetTraceLauncher() |
| { |
| if (getenv(JLDEBUG_ENV_ENTRY) != 0) { |
| _launcher_debug = JNI_TRUE; |
| JLI_TraceLauncher("----%s----\n", JLDEBUG_ENV_ENTRY); |
| } |
| } |
| |
| jboolean |
| JLI_IsTraceLauncher() |
| { |
| return _launcher_debug; |
| } |
| |
| int |
| JLI_StrCCmp(const char *s1, const char* s2) |
| { |
| return JLI_StrNCmp(s1, s2, JLI_StrLen(s2)); |
| } |
| |
| JLI_List |
| JLI_List_new(size_t capacity) |
| { |
| JLI_List l = (JLI_List) JLI_MemAlloc(sizeof(struct JLI_List_)); |
| l->capacity = capacity; |
| l->elements = (char **) JLI_MemAlloc(capacity * sizeof(l->elements[0])); |
| l->size = 0; |
| return l; |
| } |
| |
| void |
| JLI_List_free(JLI_List sl) |
| { |
| if (sl) { |
| if (sl->elements) { |
| size_t i; |
| for (i = 0; i < sl->size; i++) |
| JLI_MemFree(sl->elements[i]); |
| JLI_MemFree(sl->elements); |
| } |
| JLI_MemFree(sl); |
| } |
| } |
| |
| void |
| JLI_List_ensureCapacity(JLI_List sl, size_t capacity) |
| { |
| if (sl->capacity < capacity) { |
| while (sl->capacity < capacity) |
| sl->capacity *= 2; |
| sl->elements = JLI_MemRealloc(sl->elements, |
| sl->capacity * sizeof(sl->elements[0])); |
| } |
| } |
| |
| void |
| JLI_List_add(JLI_List sl, char *str) |
| { |
| JLI_List_ensureCapacity(sl, sl->size+1); |
| sl->elements[sl->size++] = str; |
| } |
| |
| void |
| JLI_List_addSubstring(JLI_List sl, const char *beg, size_t len) |
| { |
| char *str = (char *) JLI_MemAlloc(len+1); |
| memcpy(str, beg, len); |
| str[len] = '\0'; |
| JLI_List_ensureCapacity(sl, sl->size+1); |
| sl->elements[sl->size++] = str; |
| } |
| |
| char * |
| JLI_List_combine(JLI_List sl) |
| { |
| size_t i; |
| size_t size; |
| char *str; |
| char *p; |
| for (i = 0, size = 1; i < sl->size; i++) |
| size += JLI_StrLen(sl->elements[i]); |
| |
| str = JLI_MemAlloc(size); |
| |
| for (i = 0, p = str; i < sl->size; i++) { |
| size_t len = JLI_StrLen(sl->elements[i]); |
| memcpy(p, sl->elements[i], len); |
| p += len; |
| } |
| *p = '\0'; |
| |
| return str; |
| } |
| |
| char * |
| JLI_List_join(JLI_List sl, char sep) |
| { |
| size_t i; |
| size_t size; |
| char *str; |
| char *p; |
| for (i = 0, size = 1; i < sl->size; i++) |
| size += JLI_StrLen(sl->elements[i]) + 1; |
| |
| str = JLI_MemAlloc(size); |
| |
| for (i = 0, p = str; i < sl->size; i++) { |
| size_t len = JLI_StrLen(sl->elements[i]); |
| if (i > 0) *p++ = sep; |
| memcpy(p, sl->elements[i], len); |
| p += len; |
| } |
| *p = '\0'; |
| |
| return str; |
| } |
| |
| JLI_List |
| JLI_List_split(const char *str, char sep) |
| { |
| const char *p, *q; |
| size_t len = JLI_StrLen(str); |
| int count; |
| JLI_List sl; |
| for (count = 1, p = str; p < str + len; p++) |
| count += (*p == sep); |
| sl = JLI_List_new(count); |
| for (p = str;;) { |
| for (q = p; q <= str + len; q++) { |
| if (*q == sep || *q == '\0') { |
| JLI_List_addSubstring(sl, p, q - p); |
| if (*q == '\0') |
| return sl; |
| p = q + 1; |
| } |
| } |
| } |
| } |