src/fcdbg.c

   1 /*
   2  * $XFree86: xc/lib/fontconfig/src/fcdbg.c,v 1.4 2002/06/19 20:08:22 keithp Exp $
   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 (const 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     case FcTypeFTFace:
  55         printf (" face");
  56         break;
  57     case FcTypePattern:
  58         printf (" pattern {");
  59         FcPatternPrint (v.u.p);
  60         printf (" } ");
  61         break;
  62     }
  63 }
  64
  65 void
  66 FcValueListPrint (const FcValueList *l)
  67 {
  68     for (; l; l = l->next)
  69         FcValuePrint (l->value);
  70 }
  71
  72 void
  73 FcPatternPrint (const FcPattern *p)
  74 {
  75     int             i;
  76     FcPatternElt   *e;
  77
  78     if (!p)
  79     {
  80         printf ("Null pattern\n");
  81         return;
  82     }
  83     printf ("Pattern %d of %d\n", p->num, p->size);
  84     for (i = 0; i < p->num; i++)
  85     {
  86         e = &p->elts[i];
  87         printf ("\t%s:", e->object);
  88         FcValueListPrint (e->values);
  89         printf ("\n");
  90     }
  91     printf ("\n");
  92 }
  93
  94 void
  95 FcOpPrint (FcOp op)
  96 {
  97     switch (op) {
  98     case FcOpInteger: printf ("Integer"); break;
  99     case FcOpDouble: printf ("Double"); break;
 100     case FcOpString: printf ("String"); break;
 101     case FcOpMatrix: printf ("Matrix"); break;
 102     case FcOpBool: printf ("Bool"); break;
 103     case FcOpCharSet: printf ("CharSet"); break;
 104     case FcOpField: printf ("Field"); break;
 105     case FcOpConst: printf ("Const"); break;
 106     case FcOpAssign: printf ("Assign"); break;
 107     case FcOpAssignReplace: printf ("AssignReplace"); break;
 108     case FcOpPrepend: printf ("Prepend"); break;
 109     case FcOpPrependFirst: printf ("PrependFirst"); break;
 110     case FcOpAppend: printf ("Append"); break;
 111     case FcOpAppendLast: printf ("AppendLast"); break;
 112     case FcOpQuest: printf ("Quest"); break;
 113     case FcOpOr: printf ("Or"); break;
 114     case FcOpAnd: printf ("And"); break;
 115     case FcOpEqual: printf ("Equal"); break;
 116     case FcOpContains: printf ("Contains"); break;
 117     case FcOpNotEqual: printf ("NotEqual"); break;
 118     case FcOpLess: printf ("Less"); break;
 119     case FcOpLessEqual: printf ("LessEqual"); break;
 120     case FcOpMore: printf ("More"); break;
 121     case FcOpMoreEqual: printf ("MoreEqual"); break;
 122     case FcOpPlus: printf ("Plus"); break;
 123     case FcOpMinus: printf ("Minus"); break;
 124     case FcOpTimes: printf ("Times"); break;
 125     case FcOpDivide: printf ("Divide"); break;
 126     case FcOpNot: printf ("Not"); break;
 127     case FcOpNil: printf ("Nil"); break;
 128     case FcOpComma: printf ("Comma"); break;
 129     case FcOpInvalid: printf ("Invalid"); break;
 130     }
 131 }
 132
 133 void
 134 FcExprPrint (const FcExpr *expr)
 135 {
 136     switch (expr->op) {
 137     case FcOpInteger: printf ("%d", expr->u.ival); break;
 138     case FcOpDouble: printf ("%g", expr->u.dval); break;
 139     case FcOpString: printf ("\"%s\"", expr->u.sval); break;
 140     case FcOpMatrix: printf ("[%g %g %g %g]",
 141                               expr->u.mval->xx,
 142                               expr->u.mval->xy,
 143                               expr->u.mval->yx,
 144                               expr->u.mval->yy); break;
 145     case FcOpBool: printf ("%s", expr->u.bval ? "true" : "false"); break;
 146     case FcOpCharSet: printf ("charset\n"); break;
 147     case FcOpNil: printf ("nil\n"); break;
 148     case FcOpField: printf ("%s", expr->u.field); break;
 149     case FcOpConst: printf ("%s", expr->u.constant); break;
 150     case FcOpQuest:
 151         FcExprPrint (expr->u.tree.left);
 152         printf (" quest ");
 153         FcExprPrint (expr->u.tree.right->u.tree.left);
 154         printf (" colon ");
 155         FcExprPrint (expr->u.tree.right->u.tree.right);
 156         break;
 157     case FcOpAssign:
 158     case FcOpAssignReplace:
 159     case FcOpPrependFirst:
 160     case FcOpPrepend:
 161     case FcOpAppend:
 162     case FcOpAppendLast:
 163     case FcOpOr:
 164     case FcOpAnd:
 165     case FcOpEqual:
 166     case FcOpContains:
 167     case FcOpNotEqual:
 168     case FcOpLess:
 169     case FcOpLessEqual:
 170     case FcOpMore:
 171     case FcOpMoreEqual:
 172     case FcOpPlus:
 173     case FcOpMinus:
 174     case FcOpTimes:
 175     case FcOpDivide:
 176     case FcOpComma:
 177         FcExprPrint (expr->u.tree.left);
 178         printf (" ");
 179         switch (expr->op) {
 180         case FcOpAssign: printf ("Assign"); break;
 181         case FcOpAssignReplace: printf ("AssignReplace"); break;
 182         case FcOpPrependFirst: printf ("PrependFirst"); break;
 183         case FcOpPrepend: printf ("Prepend"); break;
 184         case FcOpAppend: printf ("Append"); break;
 185         case FcOpAppendLast: printf ("AppendLast"); break;
 186         case FcOpOr: printf ("Or"); break;
 187         case FcOpAnd: printf ("And"); break;
 188         case FcOpEqual: printf ("Equal"); break;
 189         case FcOpContains: printf ("Contains"); break;
 190         case FcOpNotEqual: printf ("NotEqual"); break;
 191         case FcOpLess: printf ("Less"); break;
 192         case FcOpLessEqual: printf ("LessEqual"); break;
 193         case FcOpMore: printf ("More"); break;
 194         case FcOpMoreEqual: printf ("MoreEqual"); break;
 195         case FcOpPlus: printf ("Plus"); break;
 196         case FcOpMinus: printf ("Minus"); break;
 197         case FcOpTimes: printf ("Times"); break;
 198         case FcOpDivide: printf ("Divide"); break;
 199         case FcOpComma: printf ("Comma"); break;
 200         default: break;
 201         }
 202         printf (" ");
 203         FcExprPrint (expr->u.tree.right);
 204         break;
 205     case FcOpNot:
 206         printf ("Not ");
 207         FcExprPrint (expr->u.tree.left);
 208         break;
 209     case FcOpInvalid: printf ("Invalid"); break;
 210     }
 211 }
 212
 213 void
 214 FcTestPrint (const FcTest *test)
 215 {
 216     switch (test->kind) {
 217     case FcMatchPattern:
 218         printf ("pattern ");
 219         break;
 220     case FcMatchFont:
 221         printf ("font ");
 222         break;
 223     }
 224     switch (test->qual) {
 225     case FcQualAny:
 226         printf ("any ");
 227         break;
 228     case FcQualAll:
 229         printf ("all ");
 230         break;
 231     case FcQualFirst:
 232         printf ("first ");
 233         break;
 234     case FcQualNotFirst:
 235         printf ("not_first ");
 236         break;
 237     }
 238     printf ("%s ", test->field);
 239     FcOpPrint (test->op);
 240     printf (" ");
 241     FcExprPrint (test->expr);
 242     printf ("\n");
 243 }
 244
 245 void
 246 FcEditPrint (const FcEdit *edit)
 247 {
 248     printf ("Edit %s ", edit->field);
 249     FcOpPrint (edit->op);
 250     printf (" ");
 251     FcExprPrint (edit->expr);
 252 }
 253
 254 void
 255 FcSubstPrint (const FcSubst *subst)
 256 {
 257     FcEdit      *e;
 258     FcTest      *t;
 259
 260     printf ("match\n");
 261     for (t = subst->test; t; t = t->next)
 262     {
 263         printf ("\t");
 264         FcTestPrint (t);
 265     }
 266     printf ("edit\n");
 267     for (e = subst->edit; e; e = e->next)
 268     {
 269         printf ("\t");
 270         FcEditPrint (e);
 271         printf (";\n");
 272     }
 273     printf ("\n");
 274 }
 275
 276 void
 277 FcFontSetPrint (const FcFontSet *s)
 278 {
 279     int     i;
 280
 281     printf ("FontSet %d of %d\n", s->nfont, s->sfont);
 282     for (i = 0; i < s->nfont; i++)
 283     {
 284         printf ("Font %d ", i);
 285         FcPatternPrint (s->fonts[i]);
 286     }
 287 }
 288
 289 int
 290 FcDebug (void)
 291 {
 292     static int  initialized;
 293     static int  debug;
 294
 295     if (!initialized)
 296     {
 297         char    *e;
 298
 299         initialized = 1;
 300         e = getenv ("FC_DEBUG");
 301         if (e)
 302         {
 303             printf ("FC_DEBUG=%s\n", e);
 304             debug = atoi (e);
 305             if (debug < 0)
 306                 debug = 0;
 307         }
 308     }
 309     return debug;
 310 }