src/fcdbg.c

   1 /*
   2  * $XFree86: $
   3  *
   4  * Copyright © 2000 Keith Packard, member of The XFree86 Project, Inc.
   5  *
   6  * Permission to use, copy, modify, distribute, and sell this software and its
   7  * documentation for any purpose is hereby granted without fee, provided that
   8  * the above copyright notice appear in all copies and that both that
   9  * copyright notice and this permission notice appear in supporting
  10  * documentation, and that the name of Keith Packard not be used in
  11  * advertising or publicity pertaining to distribution of the software without
  12  * specific, written prior permission.  Keith Packard makes no
  13  * representations about the suitability of this software for any purpose.  It
  14  * is provided "as is" without express or implied warranty.
  15  *
  16  * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  17  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  18  * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  19  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  20  * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  21  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  22  * PERFORMANCE OF THIS SOFTWARE.
  23  */
  24
  25 #include <stdio.h>
  26 #include <stdlib.h>
  27 #include "fcint.h"
  28
  29 void
  30 FcValuePrint (FcValue v)
  31 {
  32     switch (v.type) {
  33     case FcTypeVoid:
  34         printf (" <void>");
  35         break;
  36     case FcTypeInteger:
  37         printf (" %d", v.u.i);
  38         break;
  39     case FcTypeDouble:
  40         printf (" %g", v.u.d);
  41         break;
  42     case FcTypeString:
  43         printf (" \"%s\"", v.u.s);
  44         break;
  45     case FcTypeBool:
  46         printf (" %s", v.u.b ? "FcTrue" : "FcFalse");
  47         break;
  48     case FcTypeMatrix:
  49         printf (" (%f %f; %f %f)", v.u.m->xx, v.u.m->xy, v.u.m->yx, v.u.m->yy);
  50         break;
  51     case FcTypeCharSet: /* XXX */
  52         printf (" set");
  53         break;
  54     }
  55 }
  56
  57 void
  58 FcValueListPrint (FcValueList *l)
  59 {
  60     for (; l; l = l->next)
  61         FcValuePrint (l->value);
  62 }
  63
  64 void
  65 FcPatternPrint (FcPattern *p)
  66 {
  67     int             i;
  68     FcPatternElt   *e;
  69
  70     if (!p)
  71     {
  72         printf ("Null pattern\n");
  73         return;
  74     }
  75     printf ("Pattern %d of %d\n", p->num, p->size);
  76     for (i = 0; i < p->num; i++)
  77     {
  78         e = &p->elts[i];
  79         printf ("\t%s:", e->object);
  80         FcValueListPrint (e->values);
  81         printf ("\n");
  82     }
  83     printf ("\n");
  84 }
  85
  86 void
  87 FcOpPrint (FcOp op)
  88 {
  89     switch (op) {
  90     case FcOpInteger: printf ("Integer"); break;
  91     case FcOpDouble: printf ("Double"); break;
  92     case FcOpString: printf ("String"); break;
  93     case FcOpMatrix: printf ("Matrix"); break;
  94     case FcOpBool: printf ("Bool"); break;
  95     case FcOpCharSet: printf ("CharSet"); break;
  96     case FcOpField: printf ("Field"); break;
  97     case FcOpConst: printf ("Const"); break;
  98     case FcOpAssign: printf ("Assign"); break;
  99     case FcOpAssignReplace: printf ("AssignReplace"); break;
 100     case FcOpPrepend: printf ("Prepend"); break;
 101     case FcOpPrependFirst: printf ("PrependFirst"); break;
 102     case FcOpAppend: printf ("Append"); break;
 103     case FcOpAppendLast: printf ("AppendLast"); break;
 104     case FcOpQuest: printf ("Quest"); break;
 105     case FcOpOr: printf ("Or"); break;
 106     case FcOpAnd: printf ("And"); break;
 107     case FcOpEqual: printf ("Equal"); break;
 108     case FcOpContains: printf ("Contains"); break;
 109     case FcOpNotEqual: printf ("NotEqual"); break;
 110     case FcOpLess: printf ("Less"); break;
 111     case FcOpLessEqual: printf ("LessEqual"); break;
 112     case FcOpMore: printf ("More"); break;
 113     case FcOpMoreEqual: printf ("MoreEqual"); break;
 114     case FcOpPlus: printf ("Plus"); break;
 115     case FcOpMinus: printf ("Minus"); break;
 116     case FcOpTimes: printf ("Times"); break;
 117     case FcOpDivide: printf ("Divide"); break;
 118     case FcOpNot: printf ("Not"); break;
 119     case FcOpNil: printf ("Nil"); break;
 120     case FcOpComma: printf ("Comma"); break;
 121     case FcOpInvalid: printf ("Invalid"); break;
 122     }
 123 }
 124
 125 void
 126 FcExprPrint (FcExpr *expr)
 127 {
 128     switch (expr->op) {
 129     case FcOpInteger: printf ("%d", expr->u.ival); break;
 130     case FcOpDouble: printf ("%g", expr->u.dval); break;
 131     case FcOpString: printf ("\"%s\"", expr->u.sval); break;
 132     case FcOpMatrix: printf ("[%g %g %g %g]",
 133                               expr->u.mval->xx,
 134                               expr->u.mval->xy,
 135                               expr->u.mval->yx,
 136                               expr->u.mval->yy);
 137     case FcOpBool: printf ("%s", expr->u.bval ? "true" : "false"); break;
 138     case FcOpField: printf ("%s", expr->u.field); break;
 139     case FcOpQuest:
 140         FcExprPrint (expr->u.tree.left);
 141         printf (" quest ");
 142         FcExprPrint (expr->u.tree.right->u.tree.left);
 143         printf (" colon ");
 144         FcExprPrint (expr->u.tree.right->u.tree.right);
 145         break;
 146     case FcOpOr:
 147     case FcOpAnd:
 148     case FcOpEqual:
 149     case FcOpContains:
 150     case FcOpNotEqual:
 151     case FcOpLess:
 152     case FcOpLessEqual:
 153     case FcOpMore:
 154     case FcOpMoreEqual:
 155     case FcOpPlus:
 156     case FcOpMinus:
 157     case FcOpTimes:
 158     case FcOpDivide:
 159         FcExprPrint (expr->u.tree.left);
 160         printf (" ");
 161         switch (expr->op) {
 162         case FcOpOr: printf ("Or"); break;
 163         case FcOpAnd: printf ("And"); break;
 164         case FcOpEqual: printf ("Equal"); break;
 165         case FcOpContains: printf ("Contains"); break;
 166         case FcOpNotEqual: printf ("NotEqual"); break;
 167         case FcOpLess: printf ("Less"); break;
 168         case FcOpLessEqual: printf ("LessEqual"); break;
 169         case FcOpMore: printf ("More"); break;
 170         case FcOpMoreEqual: printf ("MoreEqual"); break;
 171         case FcOpPlus: printf ("Plus"); break;
 172         case FcOpMinus: printf ("Minus"); break;
 173         case FcOpTimes: printf ("Times"); break;
 174         case FcOpDivide: printf ("Divide"); break;
 175         default: break;
 176         }
 177         printf (" ");
 178         FcExprPrint (expr->u.tree.right);
 179         break;
 180     case FcOpNot:
 181         printf ("Not ");
 182         FcExprPrint (expr->u.tree.left);
 183         break;
 184     default:
 185         break;
 186     }
 187 }
 188
 189 void
 190 FcTestPrint (FcTest *test)
 191 {
 192     switch (test->qual) {
 193     case FcQualAny:
 194         printf ("any ");
 195         break;
 196     case FcQualAll:
 197         printf ("all ");
 198         break;
 199     }
 200     printf ("%s ", test->field);
 201     FcOpPrint (test->op);
 202     printf (" ");
 203     FcExprPrint (test->expr);
 204     printf ("\n");
 205 }
 206
 207 void
 208 FcEditPrint (FcEdit *edit)
 209 {
 210     printf ("Edit %s ", edit->field);
 211     FcOpPrint (edit->op);
 212     printf (" ");
 213     FcExprPrint (edit->expr);
 214 }
 215
 216 void
 217 FcSubstPrint (FcSubst *subst)
 218 {
 219     FcEdit      *e;
 220     FcTest      *t;
 221
 222     printf ("match\n");
 223     for (t = subst->test; t; t = t->next)
 224     {
 225         printf ("\t");
 226         FcTestPrint (t);
 227     }
 228     printf ("edit\n");
 229     for (e = subst->edit; e; e = e->next)
 230     {
 231         printf ("\t");
 232         FcEditPrint (e);
 233         printf (";\n");
 234     }
 235     printf ("\n");
 236 }
 237
 238 void
 239 FcFontSetPrint (FcFontSet *s)
 240 {
 241     int     i;
 242
 243     printf ("FontSet %d of %d\n", s->nfont, s->sfont);
 244     for (i = 0; i < s->nfont; i++)
 245     {
 246         printf ("Font %d ", i);
 247         FcPatternPrint (s->fonts[i]);
 248     }
 249 }
 250
 251 int
 252 FcDebug (void)
 253 {
 254     static int  initialized;
 255     static int  debug;
 256
 257     if (!initialized)
 258     {
 259         char    *e;
 260
 261         initialized = 1;
 262         e = getenv ("FC_DEBUG");
 263         if (e)
 264         {
 265             printf ("FC_DEBUG=%s\n", e);
 266             debug = atoi (e);
 267             if (debug < 0)
 268                 debug = 0;
 269         }
 270     }
 271     return debug;
 272 }