utils/Burg/pattern.c

   1 char rcsid_pattern[] = "$Id$";
   2
   3 #include <stdio.h>
   4 #include "b.h"
   5
   6 Pattern
   7 newPattern(op) Operator op;
   8 {
   9   Pattern p;
  10
  11   p = (Pattern) zalloc(sizeof(struct pattern));
  12   p->op = op;
  13   return p;
  14 }
  15
  16 void
  17 dumpPattern(p) Pattern p;
  18 {
  19   int i;
  20
  21   if (!p) {
  22     printf("[no-pattern]");
  23     return;
  24   }
  25
  26   if (p->op) {
  27     printf("%s", p->op->name);
  28     if (p->op->arity > 0) {
  29       printf("(");
  30       for (i = 0; i < p->op->arity; i++) {
  31         printf("%s ", p->children[i]->name);
  32       }
  33       printf(")");
  34     }
  35   } else {
  36     printf("%s", p->children[0]->name);
  37   }
  38 }