FORBIDDE.C

/* no warnings in desmet c 2.4
   C> C88 FORBIDDE.C
   C> BIND FORBIDDE.O
*/
#include <stdio.h>

struct X {
  int typ;
  int x_str;
  int next;
};

struct Y {
  int typ;
  int v;
};

f(x)
  register x;
{
  register t = 0;
  while (x) {
    if (x->typ == 'X') {
      t += strlen(x->x_str);
      x = x->next;
    } else {
      t++;
      x = 0;
    }
  }
  return t;
}

int main() {
  register p, q;
  p = malloc(sizeof(struct X));
  p->typ = 'X';
  p->x_str = "hi there";
  q = malloc(sizeof(struct Y));
  q->typ = 'Y';
  q->v = 'e';
  p->next = q;
  printf("p %x q %x f(p) %d\n", p, q, f(p));
  return 0;
}