home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts.zip / pccts / lang / Pascal / ttree.h < prev   
C/C++ Source or Header  |  1994-03-31  |  621b  |  24 lines
  1. /*      Code to manage type trees for each type
  2.  *  These trees then can be used to determine whether varibles have the
  3.  *  same type.
  4.  *
  5.  *  Will Cohen
  6.  *  12/18/90
  7.  */
  8.  
  9. #define tnode   struct _tnode_
  10. tnode {
  11.     tnode    *down,*right;    /* everything in child-sibling tree */
  12.     int    n_type;        /* indicates what kind of node this is */
  13. };
  14.  
  15. /* types of tnodes */
  16.  
  17.  
  18. /* functions */
  19. extern int compatible(/*t1,t2*/);    /* returns 0 for incompatible, 1 for */
  20.                     /*  compatible */
  21. extern int acompatible(/*t1,t2*/);    /* returns 1 if can assigment okay */
  22.                     /* t1<-t2 */
  23. extern tnode   *new_tnode();        /* makes and fills in a tnode */
  24.