home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pccts.zip / pccts / lang / Pascal / ttree.c < prev    next >
C/C++ Source or Header  |  1994-03-31  |  836b  |  54 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. #include <stdio.h>
  10. #include "ttree.h"
  11.  
  12. #define TRUE    1
  13. #define FALSE    0
  14.  
  15.  
  16. /* returns flag to state two trees compatible types*/
  17. int compatible(t1,t2)
  18. tnode *t1, *t2;
  19. {
  20.     int    result = TRUE;
  21.  
  22.     return result;
  23. }
  24.  
  25. /* returns flag to if a value of t2 can be assigned to type t1 */
  26. int acompatible(t1,t2)
  27. tnode *t1, *t2;
  28. {
  29.     int    result = TRUE;
  30.  
  31.     return result;
  32. }
  33.  
  34.  
  35. /* build tnode */
  36. tnode *new_tnode(t,down,right)
  37. int t;
  38. tnode *down,*right;
  39. {
  40.     register tnode *p;
  41.  
  42.     if ( (p = (tnode *) calloc(1,sizeof(tnode))) == 0 )
  43.     {
  44.         fprintf(stderr,"Out of memory\n");
  45.         exit(1);
  46.     }
  47.     p->n_type = t;
  48.     p->down = down;
  49.     p->right = right;
  50.     return p;
  51. }
  52.  
  53. /* things to build the simple type trees */
  54.