usr.bin/xlint/lint1/print.c

   1 /*      $NetBSD: print.c,v 1.3 2008/04/28 20:24:15 martin Exp $ */
   2
   3 /*-
   4  * Copyright (c) 2003 The NetBSD Foundation, Inc.
   5  * All rights reserved.
   6  *
   7  * This code is derived from software contributed to The NetBSD Foundation
   8  * by Christos Zoulas.
   9  *
  10  * Redistribution and use in source and binary forms, with or without
  11  * modification, are permitted provided that the following conditions
  12  * are met:
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  20  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  21  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  22  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
  23  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  24  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  25  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  26  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  27  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  28  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  29  * POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #if HAVE_NBTOOL_CONFIG_H
  33 #include "nbtool_config.h"
  34 #endif
  35
  36 #include <sys/cdefs.h>
  37 #ifndef lint
  38 __RCSID("$NetBSD: print.c,v 1.3 2008/04/28 20:24:15 martin Exp $");
  39 #endif
  40
  41 #include <stdio.h>
  42
  43 #include "lint1.h"
  44 #include "externs1.h"
  45
  46 static const char *str_op_t[] =
  47 {
  48         "*noop*",
  49         "->",
  50         ".",
  51         "!",
  52         "~",
  53         "++",
  54         "--",
  55         "++<",
  56         "--<",
  57         "++>",
  58         "-->",
  59         "+",
  60         "-",
  61         "*",
  62         "&",
  63         "*",
  64         "/",
  65         "%",
  66         "+",
  67         "-",
  68         "<<",
  69         ">>",
  70         "<",
  71         "<=",
  72         ">",
  73         ">=",
  74         "==",
  75         "!=",
  76         "&",
  77         "^",
  78         "|",
  79         "&&",
  80         "||",
  81         "?",
  82         ":",
  83         "=",
  84         "*=",
  85         "/=",
  86         "%=",
  87         "+=",
  88         "-=",
  89         "<<=",
  90         ">>=",
  91         "&=",
  92         "^=",
  93         "|=",
  94         "*name*",
  95         "*constant*",
  96         "*string*",
  97         "*field select*",
  98         "*call*",
  99         ",",
 100         "*(cast)*",
 101         "*icall*",
 102         "*load*",
 103         "*push*",
 104         "return",
 105         "*init*",
 106         "*case*",
 107         "*farg*",
 108 };
 109
 110 char *
 111 prtnode(char *buf, size_t bufsiz, const tnode_t *tn)
 112 {
 113         strg_t *st;
 114         val_t *v;
 115         sym_t *s;
 116         switch (tn->tn_op) {
 117         case NAME:
 118                 s = tn->tn_sym;
 119                 (void)snprintf(buf, bufsiz, "%s", s->s_name);
 120                 break;
 121         case CON:
 122                 v = tn->tn_val;
 123                 switch (v->v_tspec) {
 124                 case FLOAT:
 125                 case DOUBLE:
 126                 case LDOUBLE:
 127                         (void)snprintf(buf, bufsiz, "%Lg", v->v_ldbl);
 128                         break;
 129                 default:
 130                         (void)snprintf(buf, bufsiz, v->v_ansiu ? "%llu" :
 131                             "%lld", (unsigned long long)v->v_quad);
 132                         break;
 133                 }
 134                 break;
 135
 136         case STRING:
 137                 st = tn->tn_strg;
 138                 switch (st->st_tspec) {
 139                 case CHAR:
 140                 case SCHAR:
 141                 case UCHAR:
 142                         (void)snprintf(buf, bufsiz, "\"%s\"", st->st_cp);
 143                         break;
 144                 default:
 145                         (void)snprintf(buf, bufsiz, "\"*wide string*\"");
 146                         break;
 147                 }
 148                 break;
 149         default:
 150                 (void)snprintf(buf, bufsiz, "%s", str_op_t[tn->tn_op]);
 151                 break;
 152         }
 153         return buf;
 154 }