1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 
  22 /*
  23  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26 
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28 
  29 #include <dlfcn.h>
  30 #include <stdarg.h>
  31 #include <stdio.h>
  32 #include <stdlib.h>
  33 #include <demangle.h>
  34 
  35 #include "dis_util.h"
  36 
  37 int g_error;    /* global process exit status, set when warn() is called */
  38 
  39 /*
  40  * Fatal error.  Print out the error with a leading "dis: ", and then exit the
  41  * program.
  42  */
  43 void
  44 die(const char *fmt, ...)
  45 {
  46         va_list ap;
  47 
  48         (void) fprintf(stderr, "dis: fatal: ");
  49 
  50         va_start(ap, fmt);
  51         (void) vfprintf(stderr, fmt, ap);
  52         va_end(ap);
  53 
  54         (void) fprintf(stderr, "\n");
  55 
  56         exit(1);
  57 }
  58 
  59 /*
  60  * Non-fatal error.  Print out the error with a leading "dis: ", set the global
  61  * error flag, and return.
  62  */
  63 void
  64 warn(const char *fmt, ...)
  65 {
  66         va_list ap;
  67 
  68         (void) fprintf(stderr, "dis: warning: ");
  69 
  70         va_start(ap, fmt);
  71         (void) vfprintf(stderr, fmt, ap);
  72         va_end(ap);
  73 
  74         (void) fprintf(stderr, "\n");
  75 
  76         g_error = 1;
  77 }
  78 
  79 /*
  80  * Convenience wrapper around malloc() to cleanly exit if any allocation fails.
  81  */
  82 void *
  83 safe_malloc(size_t size)
  84 {
  85         void *ret;
  86 
  87         if ((ret = calloc(1, size)) == NULL)
  88                 die("Out of memory");
  89 
  90         return (ret);
  91 }
  92 
  93 
  94 /*
  95  * Generic interface to demangle C++ names.  Calls cplus_demangle to do the
  96  * necessary translation.  If the translation fails, the argument is returned
  97  * unchanged.  The memory returned is only valid until the next call to
  98  * demangle().
  99  *
 100  * We dlopen() libdemangle.so rather than linking directly against it in case it
 101  * is not installed on the system.
 102  */
 103 const char *
 104 dis_demangle(const char *name)
 105 {
 106         static char *demangled_name;
 107         static int (*demangle_func)() = NULL;
 108         static int size = BUFSIZE;
 109         static int first_flag = 0;
 110         int ret;
 111 
 112         /*
 113          * If this is the first call, allocate storage
 114          * for the buffer.
 115          */
 116         if (first_flag == 0) {
 117                 void *demangle_hand;
 118 
 119                 demangle_hand = dlopen("libdemangle.so.1", RTLD_LAZY);
 120                 if (demangle_hand != NULL)
 121                         demangle_func = (int (*)(int))dlsym(
 122                                 demangle_hand, "cplus_demangle");
 123 
 124                 demangled_name = safe_malloc(size);
 125                 first_flag = 1;
 126         }
 127 
 128         /*
 129          * If libdemangle is not present, pass through unchanged.
 130          */
 131         if (demangle_func == NULL)
 132                 return (name);
 133 
 134         /*
 135          * The function returns -1 when the buffer size is not sufficient.
 136          */
 137         while ((ret = (*demangle_func)(name, demangled_name, size)) == -1) {
 138                 free(demangled_name);
 139                 size = size + BUFSIZE;
 140                 demangled_name = safe_malloc(size);
 141         }
 142 
 143         if (ret != 0)
 144                 return (name);
 145 
 146         return (demangled_name);
 147 }