开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
dumpcycles.c
资源名称：pccts133.zip　[点击查看]
上传用户：itx_2006
上传日期：2007-01-06
资源大小：493k
文件大小：1k
源码类别：

编译器/解释器

开发平台：

Others

dumpcycles.c：源码内容
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "set.h"
  4. #include "syn.h"
  5. #include "hash.h"
  6. #include "generic.h"
  8. #ifdef __cplusplus
  9. #ifndef __STDC__
  10. #define __STDC__
  11. #endif
  12. #endif
  14. void dumpcycles() {
  16.   Cycle         *c;
  17.   CacheEntry    *f;
  18.   ListNode      *p;
  19.   int           i=0;
  20.   int           k;
  21.   int           degree;
  23.   for (k=1; k <= CLL_k; k++) {
  24.     if (Cycles[k] == NULL) continue;
  26.     for (p = Cycles[k]->next; p!=NULL; p=p->next) {
  27.      c = (Cycle *) p->elem;
  28.       degree=set_deg(c->cyclicDep);
  29.   fprintf(stderr,"Cycle %d: (degree %d) %s -->n", i++, degree, RulePtr[c->croot]->rname);
  30.       fprintf(stderr,"    *self*n");
  31.       MR_dumpRuleSet(c->cyclicDep);
  32.       fprintf(stderr,"n");
  33.   f = (CacheEntry *)
  34. hash_get(Fcache,Fkey(RulePtr[c->croot]->rname,'o',k));
  35.       if (f == NULL) {
  36.         fprintf(stderr,"    *** FOLLOW(%s) must be in cache but isn't ***n",
  37.                                          RulePtr[c->croot]->rname);
  38.       };
  39.     };
  40.   };
  41. }
  43. void dumpfostack(int k) {
  45.   int   i=0;
  46.   int   *pi;
  48.   fprintf(stderr,"n");
  49.   if (FoStack[k] == NULL) {
  50.     fprintf(stderr,"FoStack[%d] is nulln",k);
  51.   };
  52.   if (FoTOS[k] == NULL) {
  53.     fprintf(stderr,"FoTOS[%d] is nulln",k);
  54.   }
  55.   if (FoTOS[k] != NULL && FoStack[k] != NULL) {
  56.     for (pi=FoStack[k]; pi <= FoTOS[k]; pi++) {
  57.       i++;
  58.       fprintf(stderr,"#%d  rule %d  %sn",i,*pi,RulePtr[*pi]->rname);
  59.     }
  60.   }
  61. }