#include <stdio.h>
#include <stdlib.h>
#include <string.h>

char buf[100];
char *ctos(char b)
{
  if (b == 0) {sprintf(buf, "'\\0'"); return buf; }
  if (b == '\n') {sprintf(buf, "'\\n'"); return buf; }
  if (b <= 'Z' && b >= 'A') {sprintf(buf, "'%c'", b); return buf; }
  if (b <= 'z' && b >= 'a') {sprintf(buf, "'%c'", b); return buf; }
  if (b <= '9' && b >= '0') {sprintf(buf, "'%c'", b); return buf; }
  if (strchr(".,></?;:[{]}|=+-_)(*&^%$#@!`~", b) != NULL) {sprintf(buf, "'%c'", b); return buf; }
  return " --";
}

void  printt4(int i)
{
  char *s;

  s = (char *) &i;

  printf("%-4s|", ctos(s[0]));
  printf("%-4s|", ctos(s[1]));
  printf("%-4s|", ctos(s[2]));
  printf("%-4s", ctos(s[3]));
}

void printstack(int nn)
{
  int i;
  int *b;
  char c[30];

  b = &i;
  for (i = 0; i < nn; i++) {
    sprintf(c, "0x%x", b[i]);
    printf("0x%x %13d %13s    ", (unsigned int) (b+i), b[i], c);
    printt4(b[i]);
    printf("\n");
  }
}

void messy_proc(int **a, int *b, char **c)
{
  int i, j;
  char *s, *t;

  printstack(300);
  
  printf("a: 0x%x\n", (unsigned int) a);
  printf("b: 0x%x\n", (unsigned int) b);
  printf("c: 0x%x\n", (unsigned int) c);
  printf("\n");

  for (i = 0; i < 5; i++) printf("%12d ", b[i]);
  printf("\n");
  printf("\n");

  for (i = 0; i < 5; i++) printf("%s\n", c[i]);
  printf("\n");

  for (i = 0; i < 3; i++) {
    for (j = 0; j < 3; j++) printf("%12d ", a[i][j]);
    printf("\n");
  }
  printf("\n");

  for (b = a[0]; b < (int *) a[0][0]; b += 2) printf("%12d\n", *b);
  printf("\n");
  
  /* Make this the last thing you do on the test -- don't burn time on 
     it if you don't have the time to burn. */

  s = c[0];
  t = s+1;
  for (i = 0; i < 6; i++) {
    s[i] = *t;
    t += 7;
  }
  b = (int *) s;
  printf("%s 0x%x\n", s, *b);
}

  
  
main()
{
  int **a;
  int *b;
  char **c;
  int d;
  char bigbuf[1000];
  char *bs;
  int i, l;
 
  l = (int) bigbuf;
  while ((l&0xff) != 48) { l++; }
  bs = (char *)l;
  
  a = (int **) bs;
  b = (int *) (a+7);
  a[0] = b;
  a[1] = b+2;
  a[2] = b+5;
  for (i = 0; i < 7; i++) a[0][i] = lrand48()%0x10000;
  a[0][5] = 0x7c64;
  for (i = 7; i < 30; i++) a[0][i] = lrand48();
  c = (char **) (a+3);
  bs = (char *) a[2];
  c[0] = bs;
  c[1] = bs+8;
  c[2] = bs+14;
  c[3] = bs+20;
  c[4] = bs+24;
  strcpy(c[1], "Binky");
  strcpy(c[2], "Luigi");
  strcpy(c[3], "Fred");
  strcpy(c[4], "Dontonio");
  b = a[0];
  b--;

  messy_proc(a, b, c);
}