git.sur5r.net Git - cc65/blob - src/common/exprdefs.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                exprdefs.c                                 */
   4 /*                                                                           */
   5 /*                        Expression tree definitions                        */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 1998-2000 Ullrich von Bassewitz                                       */
  10 /*               Wacholderweg 14                                             */
  11 /*               D-70597 Stuttgart                                           */
  12 /* EMail:        uz@musoftware.de                                            */
  13 /*                                                                           */
  14 /*                                                                           */
  15 /* This software is provided 'as-is', without any expressed or implied       */
  16 /* warranty.  In no event will the authors be held liable for any damages    */
  17 /* arising from the use of this software.                                    */
  18 /*                                                                           */
  19 /* Permission is granted to anyone to use this software for any purpose,     */
  20 /* including commercial applications, and to alter it and redistribute it    */
  21 /* freely, subject to the following restrictions:                            */
  22 /*                                                                           */
  23 /* 1. The origin of this software must not be misrepresented; you must not   */
  24 /*    claim that you wrote the original software. If you use this software   */
  25 /*    in a product, an acknowledgment in the product documentation would be  */
  26 /*    appreciated but is not required.                                       */
  27 /* 2. Altered source versions must be plainly marked as such, and must not   */
  28 /*    be misrepresented as being the original software.                      */
  29 /* 3. This notice may not be removed or altered from any source              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 #include <stdio.h>
  37
  38 #include "abend.h"
  39 #include "exprdefs.h"
  40
  41
  42
  43 /*****************************************************************************/
  44 /*                                   Code                                    */
  45 /*****************************************************************************/
  46
  47
  48
  49 static void InternalDumpExpr (const ExprNode* Expr, const ExprNode* (*ResolveSym) (const struct SymEntry*))
  50 /* Dump an expression in RPN to stdout */
  51 {
  52     if (Expr == 0) {
  53         return;
  54     }
  55     InternalDumpExpr (Expr->Left, ResolveSym);
  56     InternalDumpExpr (Expr->Right, ResolveSym);
  57
  58     switch (Expr->Op) {
  59
  60         case EXPR_LITERAL:
  61         case EXPR_ULABEL:
  62             printf (" $%04lX", Expr->V.Val & 0xFFFF);
  63             break;
  64
  65         case EXPR_SYMBOL:
  66             if (ResolveSym && (Expr = ResolveSym (Expr->V.Sym)) != 0) {
  67                 printf (" SYM (");
  68                 InternalDumpExpr (Expr, ResolveSym);
  69                 printf (") ");
  70             } else {
  71                 printf ("SYM ");
  72             }
  73             break;
  74
  75         case EXPR_SECTION:
  76             printf (" SEC");
  77             break;
  78
  79         case EXPR_SEGMENT:
  80             printf (" SEG");
  81             break;
  82
  83         case EXPR_PLUS:
  84             printf (" +");
  85             break;
  86
  87         case EXPR_MINUS:
  88             printf (" -");
  89             break;
  90
  91         case EXPR_MUL:
  92             printf (" *");
  93             break;
  94
  95         case EXPR_DIV:
  96             printf (" /");
  97             break;
  98
  99         case EXPR_MOD:
 100             printf (" MOD");
 101             break;
 102
 103         case EXPR_OR:
 104             printf (" OR");
 105             break;
 106
 107         case EXPR_XOR:
 108             printf (" XOR");
 109             break;
 110
 111         case EXPR_AND:
 112             printf (" AND");
 113             break;
 114
 115         case EXPR_SHL:
 116             printf (" SHL");
 117             break;
 118
 119         case EXPR_SHR:
 120             printf (" SHR");
 121             break;
 122
 123         case EXPR_EQ:
 124             printf (" =");
 125             break;
 126
 127         case EXPR_NE:
 128             printf ("<>");
 129             break;
 130
 131         case EXPR_LT:
 132             printf (" <");
 133             break;
 134
 135         case EXPR_GT:
 136             printf (" >");
 137             break;
 138
 139         case EXPR_LE:
 140             printf (" <=");
 141             break;
 142
 143         case EXPR_GE:
 144             printf (" >=");
 145             break;
 146
 147         case EXPR_BOOLAND:
 148             printf (" BOOL_AND");
 149             break;
 150
 151         case EXPR_BOOLOR:
 152             printf (" BOOL_OR");
 153             break;
 154
 155         case EXPR_BOOLXOR:
 156             printf (" BOOL_XOR");
 157             break;
 158
 159         case EXPR_UNARY_MINUS:
 160             printf (" NEG");
 161             break;
 162
 163         case EXPR_NOT:
 164             printf (" ~");
 165             break;
 166
 167         case EXPR_SWAP:
 168             printf (" SWAP");
 169             break;
 170
 171         case EXPR_BOOLNOT:
 172             printf (" BOOL_NOT");
 173             break;
 174
 175         case EXPR_FORCEWORD:
 176             printf (" FORCE_WORD");
 177             break;
 178
 179         case EXPR_FORCEFAR:
 180             printf (" FORCE_FAR");
 181             break;
 182
 183         case EXPR_BYTE0:
 184             printf (" BYTE0");
 185             break;
 186
 187         case EXPR_BYTE1:
 188             printf (" BYTE1");
 189             break;
 190
 191         case EXPR_BYTE2:
 192             printf (" BYTE2");
 193             break;
 194
 195         case EXPR_BYTE3:
 196             printf (" BYTE3");
 197             break;
 198
 199         case EXPR_WORD0:
 200             printf (" WORD0");
 201             break;
 202
 203         case EXPR_WORD1:
 204             printf (" WORD1");
 205             break;
 206
 207         default:
 208             AbEnd ("Unknown Op type: %u", Expr->Op);
 209
 210     }
 211 }
 212
 213
 214
 215 void DumpExpr (const ExprNode* Expr, const ExprNode* (*ResolveSym) (const struct SymEntry*))
 216 /* Dump an expression tree to stdout */
 217 {
 218     InternalDumpExpr (Expr, ResolveSym);
 219     printf ("\n");
 220 }
 221
 222
 223