dmd2/dump.c

   1
   2 // Compiler implementation of the D programming language
   3 // Copyright (c) 1999-2006 by Digital Mars
   4 // All Rights Reserved
   5 // written by Walter Bright
   6 // http://www.digitalmars.com
   7 // License for redistribution is by either the Artistic License
   8 // in artistic.txt, or the GNU General Public License in gnu.txt.
   9 // See the included readme.txt for details.
  10
  11 /* NOTE: This file has been patched from the original DMD distribution to
  12    work with the GDC compiler.
  13
  14    Modified by David Friedman, December 2006
  15 */
  16
  17 #include <stdio.h>
  18 #include <ctype.h>
  19 #include <assert.h>
  20
  21 #include "mars.h"
  22 #include "mtype.h"
  23 #include "declaration.h"
  24 #include "expression.h"
  25 #include "template.h"
  26
  27 static void indent(int indent)
  28 {
  29     int i;
  30
  31     for (i = 0; i < indent; i++)
  32         printf(" ");
  33 }
  34
  35 static char *type_print(Type *type)
  36 {
  37     return type ? type->toChars() : (char *) "null";
  38 }
  39
  40 void dumpExpressions(int i, Expressions *exps)
  41 {
  42     for (size_t j = 0; j < exps->dim; j++)
  43     {   Expression *e = (Expression *)exps->data[j];
  44         indent(i);
  45         printf("(\n");
  46         e->dump(i + 2);
  47         indent(i);
  48         printf(")\n");
  49     }
  50 }
  51
  52 void Expression::dump(int i)
  53 {
  54     indent(i);
  55     printf("%p %s type=%s\n", this, Token::toChars(op), type_print(type));
  56 }
  57
  58 void IntegerExp::dump(int i)
  59 {
  60     indent(i);
  61     printf("%p %"PRIdMAX" type=%s\n", this, (intmax_t)value, type_print(type));
  62 }
  63
  64 void IdentifierExp::dump(int i)
  65 {
  66     indent(i);
  67     printf("%p ident '%s' type=%s\n", this, ident->toChars(), type_print(type));
  68 }
  69
  70 void DsymbolExp::dump(int i)
  71 {
  72     indent(i);
  73     printf("%p %s type=%s\n", this, s->toChars(), type_print(type));
  74 }
  75
  76 void VarExp::dump(int i)
  77 {
  78     indent(i);
  79     printf("%p %s var=%s type=%s\n", this, Token::toChars(op), var->toChars(), type_print(type));
  80 }
  81
  82 void UnaExp::dump(int i)
  83 {
  84     indent(i);
  85     printf("%p %s type=%s e1=%p\n", this, Token::toChars(op), type_print(type), e1);
  86     if (e1)
  87         e1->dump(i + 2);
  88 }
  89
  90 void CallExp::dump(int i)
  91 {
  92     UnaExp::dump(i);
  93     dumpExpressions(i, arguments);
  94 }
  95
  96 void SliceExp::dump(int i)
  97 {
  98     indent(i);
  99     printf("%p %s type=%s e1=%p\n", this, Token::toChars(op), type_print(type), e1);
 100     if (e1)
 101         e1->dump(i + 2);
 102     if (lwr)
 103         lwr->dump(i + 2);
 104     if (upr)
 105         upr->dump(i + 2);
 106 }
 107
 108 void DotIdExp::dump(int i)
 109 {
 110     indent(i);
 111     printf("%p %s type=%s ident=%s e1=%p\n", this, Token::toChars(op), type_print(type), ident->toChars(), e1);
 112     if (e1)
 113         e1->dump(i + 2);
 114 }
 115
 116 void DotVarExp::dump(int i)
 117 {
 118     indent(i);
 119     printf("%p %s type=%s var='%s' e1=%p\n", this, Token::toChars(op), type_print(type), var->toChars(), e1);
 120     if (e1)
 121         e1->dump(i + 2);
 122 }
 123
 124 void DotTemplateInstanceExp::dump(int i)
 125 {
 126     indent(i);
 127     printf("%p %s type=%s ti='%s' e1=%p\n", this, Token::toChars(op), type_print(type), ti->toChars(), e1);
 128     if (e1)
 129         e1->dump(i + 2);
 130 }
 131
 132 void DelegateExp::dump(int i)
 133 {
 134     indent(i);
 135     printf("%p %s func=%s type=%s e1=%p\n", this, Token::toChars(op), func->toChars(), type_print(type), e1);
 136     if (e1)
 137         e1->dump(i + 2);
 138 }
 139
 140 void BinExp::dump(int i)
 141 {
 142     indent(i);
 143     printf("%p %s type=%s e1=%p e2=%p\n", this, Token::toChars(op), type_print(type), e1, e2);
 144     if (e1)
 145         e1->dump(i + 2);
 146     if (e2)
 147         e2->dump(i + 2);
 148 }
 149
 150