/* enumerate.c
 *
 * Copyright (c) 1984, 1985 Xerox Corp.
 *
 *  Define the functions used in parse.c.
 *
 *
 *
 */

#include <stdio.h>

#define octal 0
#define hex 1
#define decimal 2
#define character 3

extern long filepos;
extern FILE *fp;
int verbose = 0;

header(string, resheader)
  char *string;
  {
  printf("(%u) header: %s\n", filepos, string);
  }

op_makevec()
  {
  printf("(%u) makevec\n", filepos);
  }

op_do()
  {
  printf("(%u) do\n", filepos);
  }

op_pop()
  {
  printf("(%u) pop\n", filepos);
  }

op_copy()
  {
  printf("(%u) copy\n", filepos);
  }

op_dup()
  {
  printf("(%u) dup\n", filepos);
  }

op_roll()
  {
  printf("(%u) roll\n", filepos);
  }

op_exch()
  {
  printf("(%u) exch\n", filepos);
  }

op_nop()
  {
  printf("(%u) nop\n", filepos);
  }

op_translate()
  {
  printf("(%u) translate\n", filepos);
  }

op_rotate()
  {
  printf("(%u) rotate\n", filepos);
  }

op_scale()
  {
  printf("(%u) scale\n", filepos);
  }

op_scale2()
  {
  printf("(%u) scale2\n", filepos);
  }

op_concat()
  {
  printf("(%u) concat\n", filepos);
  }

op_makepixelarray()
  {
  printf("(%u) makepixelarray\n", filepos);
  }

op_extractpixelarray()
  {
  printf("(%u) extractpixelarray\n", filepos);
  }

op_finddecompressor()
  {
  printf("(%u) finddecompressor\n", filepos);
  }

op_makegray()
  {
  printf("(%u) makegray\n", filepos);
  }

op_findcolor()
  {
  printf("(%u) findcolor\n", filepos);
  }

op_findcoloroperator()
  {
  printf("(%u) findcoloroperator\n", filepos);
  }

op_findcolormodeloperator()
  {
  printf("(%u) findcolormodeloperator\n", filepos);
  }

op_beginblock()
  {
  printf("(%u) beginblock\n", filepos);
  }

op_endblock()
  {
  printf("(%u) endblock\n", filepos);
  }

op_unknown(op)
  int op;
  {
  printf("(%u) unknown operator: %u\n", filepos, op);
  }

seq_adaptivepixel(len)
  int len;
  {
  printf("(%u) sequence adaptive pixel vector, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

seq_comment(len)
  int len;
  {
  printf("(%u) sequence comment, %u bytes:\n", filepos, len);
  printbytes(len, character, 1);
  }

seq_compressedpixel(len)
  int len;
  {
  printf("(%u) sequence compressed pixel vector, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

seq_continued(len, last)
  int len, last;
  {
  printf("(%u) sequence continued, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

seq_identifier(len)
  int len;
  {
  printf("(%u) sequence identifier, %u bytes:\n", filepos, len);
  printbytes(len, character, 1);
  }

seq_insertfile(len)
  int len;
  {
  printf("(%u) sequence insert file, %u bytes:\n", filepos, len);
  printbytes(len, character, 1);
  }

seq_integer(len)
  int len;
  {
  printf("(%u) sequence integer, %u bytes:\n", filepos, len);
  printbytes(len, decimal, 1);
  }

seq_largevector(len)
  int len;
  {
  printf("(%u) sequence large vector, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

seq_packedpixel(len)
  int len;
  {
  printf("(%u) sequence packed pixel vector, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

seq_rational(len)
  int len;
  {
  printf("(%u) sequence rational, %u bytes:\n", filepos, len);
  printbytes(len, decimal, 1);
  }

seq_string(len)
  int len;
  {
  printf("(%u) sequence string, %u bytes:\n", filepos, len);
  printbytes(len, character, 1);
  }

seq_unknown(type, len)
  int type, len;
  {
  printf("(%u) unknown sequence, %u bytes:\n", filepos, len);
  printbytes(len, decimal, verbose);
  }

shortnum(number)
  int number;
  {
  printf("(%u) %d\n", filepos, number);
  }

printbytes(len, format, v)
  int len;
  {
  int n, c;
  if (v == 0) { fseek(fp, len, 1); return; }
  for (n=0; n < len; n++)
    {
    c = getc(fp);
    switch (format)
      {
      case octal:      printf("%o ", c);   break;
      case hex:        printf("%x ", c);   break;
      case decimal:    printf("%u ", c);   break;
      case character:  printf("%c ", c);   break;
      }
    if ((n % 8) == 7) printf("\n");
    }
  printf("\n");
  }

/* Change Log
 *
 * K. Knox, 28-Mar-85 15:01:49, Created first version.
 *
 *
 *
 */