src/fcdbg.c

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