home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / struct / 0.parts.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  2.4 KB  |  121 lines
  1. #include <stdio.h>
  2. #include "def.h"
  3.  
  4. char *typename[TYPENUM]    = {"STLNVX",    "IFVX",        "DOVX",        "IOVX",    "FMTVX",
  5.             "COMPVX",    "ASVX",        "ASGOVX",    "LOOPVX",    "WHIVX",
  6.             "UNTVX",    "ITERVX",    "THENVX",    "STOPVX",    "RETVX",
  7.             "DUMVX",    "GOVX",        "BRKVX",    "NXTVX",    "SWCHVX",
  8.             "ACASVX",    "ICASVX"
  9.     };
  10. int hascom[TYPENUM]    = {2,        2,        2,        2,        2,
  11.             2,        2,        2,        0,        0,
  12.             0,        0,        2,        0,        0,
  13.             0,        0,        0,        0,        2,
  14.             2,        0
  15.             };
  16.  
  17. int nonarcs[TYPENUM]      = {FIXED+3,       FIXED+4,    FIXED+2,    FIXED+3,     FIXED+2,
  18.             FIXED+2,    FIXED+2,    FIXED+2,    FIXED+1,    FIXED+1,
  19.             FIXED+1,    FIXED+4,    FIXED+3,    FIXED,        FIXED,
  20.             FIXED+2,    FIXED+1,    FIXED + 1,    FIXED + 1,    FIXED+3,
  21.             FIXED+4,    FIXED+2
  22.             };
  23.  
  24. int childper[TYPENUM]    = {0,    2,    1,    0,    0,
  25.             0,    0,    0,    1,    1,
  26.             1,    1,    1,    0,    0,
  27.             1,    0,    0,    0,    1,
  28.             2,    1
  29.             };
  30.  
  31. int arcsper[TYPENUM]    = {1,        2,        2,    3,    0,
  32.             -(FIXED+1),    1,    -(FIXED+1),    1,    1,
  33.             1,        1,        2,    0,    0,
  34.             -FIXED,        1,    1,        1,    -(FIXED+1),
  35.             2,        1
  36.             };
  37.  
  38. VERT *arc(v,i)
  39. VERT v;
  40. int i;
  41.     {
  42.     ASSERT(DEFINED(v),arc);
  43.     ASSERT(0 <= i && i < ARCNUM(v), arc);
  44.     return(&graph[v][nonarcs[NTYPE(v)] + i ]);
  45.     }
  46.  
  47. VERT *lchild(v,i)
  48. VERT v; int i;
  49.     {
  50.     ASSERT(DEFINED(v),lchild);
  51.     ASSERT(0 <= i && i < childper[NTYPE(v)],lchild);
  52.     return(&graph[v][nonarcs[NTYPE(v)]-i-1]);
  53.     }
  54.  
  55. int *vxpart(v,type,j)
  56. VERT v;
  57. int type,j;
  58.     {
  59.     ASSERT((NTYPE(v) == type) && (0 <= j) && (j < nonarcs[type] - FIXED), vxpart);
  60.     return(&graph[v][FIXED+j]);
  61.     }
  62.  
  63. int *expres(v)
  64. VERT v;
  65.     {
  66.     int ty;
  67.     ty = NTYPE(v);
  68.     ASSERT(ty == COMPVX || ty == ASGOVX || ty == ASVX || ty == SWCHVX || ty == ICASVX,expres);
  69.     return(&graph[v][FIXED]);
  70.     }
  71.  
  72. int *negpart(v)
  73. VERT v;
  74.     {
  75.     ASSERT(NTYPE(v) == IFVX || NTYPE(v) == ACASVX,negpart);
  76.     return(&graph[v][FIXED+1]);
  77.     }
  78.  
  79. int *predic(v)
  80. VERT v;
  81.     {
  82.     ASSERT(NTYPE(v) == IFVX || NTYPE(v) == ACASVX, predic);
  83.     return(&graph[v][FIXED]);
  84.     }
  85.  
  86. int *level(v)
  87. VERT v;
  88.     {
  89.     ASSERT(NTYPE(v) == GOVX || NTYPE(v) == BRKVX || NTYPE(v) == NXTVX, level);
  90.     return(&graph[v][FIXED]);
  91.     }
  92. int *stlfmt(v,n)
  93. VERT v;
  94. int n;
  95.     {
  96.     ASSERT(NTYPE(v) == STLNVX || NTYPE(v) == FMTVX,stlfmt);
  97.     return(&graph[v][FIXED + n]);
  98.     }
  99.  
  100. create(type,arcnum)
  101. int type, arcnum;
  102.     {
  103.     int i, *temp, wds;
  104.     if (nodenum >= maxnode)
  105.         {
  106.         maxnode += 100;
  107.         temp=realloc(graph,maxnode*sizeof(*graph));
  108.         free(graph);
  109.         graph=temp;
  110.         }
  111.     wds = nonarcs[type] + arcnum;
  112.     graph[nodenum] = galloc(sizeof(*graph) * wds);
  113.     for (i = 0; i < wds; i++)  graph[nodenum][i] = 0;
  114.     NTYPE(nodenum) = type;
  115.     if (arcsper[type] < 0)
  116.         ARCNUM(nodenum) = arcnum;
  117.     
  118.     return(nodenum++);
  119.     }
  120.  
  121.