home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume26 / pico / part01 / mk.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-14  |  779 b   |  47 lines
  1. #include "pico.h"
  2.  
  3. extern Tree *mk(enum tree t,Tree *a,Tree *b) {
  4.     Tree *new = treealloc(2);
  5.     new->kids[0] = a;
  6.     new->kids[1] = b;
  7.     new->t = t;
  8.     return new;
  9. }
  10.  
  11. extern Tree *mkNum(int i) {
  12.     Tree *new = treealloc(0);
  13.     new->i = i;
  14.     new->t = Num;
  15.     return new;
  16. }
  17.  
  18. extern Tree *mkCoord(int file,Tree *coord) {
  19.     Tree *new = treealloc(1);
  20.     new->i = file;
  21.     new->kids[0] = coord;
  22.     new->t = Coordpair;
  23.     return new;
  24. }
  25.  
  26. extern Tree *mkun(enum tree t,void *a) {
  27.     Tree *new = treealloc(1);
  28.     new->kids[0] = a;
  29.     new->t = t;
  30.     return new;
  31. }
  32.  
  33. extern Tree *mkCond(Tree *a, Tree *b, Tree *c) {
  34.     Tree *new = treealloc(3);
  35.     new->kids[0] = a;
  36.     new->kids[1] = b;
  37.     new->kids[2] = c;
  38.     new->t = Cond;
  39.     return new;
  40. }
  41.  
  42. extern Tree *mkempty(enum tree t) {
  43.     Tree *new = treealloc(0);
  44.     new->t = t;
  45.     return new;
  46. }
  47.