#include "BufPkr.h"

using namespace std;

BufPkr::BufPkr(unsigned int sz_in, bool verbose) {
cerr << "BufPkr called\n";
  sz = sz_in;
  try {
    buf = new u_char[sz];
    line = new char[2*sz];
    doit(verbose);
  }
  catch (bad_alloc) {
    cerr << "*** BufPkr:  Memory exhausted ***\n";
    exit(1);
  }
}

void
BufPkr::doit(bool verbose) {
  const char	*WS = " \t\n";
  int		seqnum = 0;
cerr << "pack called.  verbose = " << verbose << "\n";

  while ( cin.getline(line, sz)) {
    char	*word[sz/sizeof(char *)];
    char	*p = line;
    int		nwords = 0;

    if (cin.gcount() == (sz-1)) {
      cerr << "*** Ooops, line is full.\n"; 
      exit(1);
    }
    cout << line << endl;
    memset(buf, '\0', sz);

    nwords = 0;
    while ( (word[nwords] = strtok(p, WS)) != NULL) {
      cout << "\t" << word[nwords] << endl;
      ++nwords;
      p = NULL;
    }

    pack(seqnum, nwords, word);

    fflush(stdout);
    if (verbose)	printHex(seqnum, nwords);
    ++seqnum;
    if (strcmp(word[0], "quit") == 0)	break;
  }
}

void
BufPkr::pack(int seqnum, int nwords, char *word[]) {
  u_char	**str_ptr = (u_char **) buf;
  u_char	*str;
cerr << "pack called.\n";

  *((int *)buf) = seqnum;
  str_ptr = (u_char **) (buf+sizeof(seqnum));
  str = buf+(nwords+1)*sizeof(char *);
  for (int i=0; i<nwords; i++) {
    *str_ptr = str;
    strcpy((char *)str, word[i]);
    str += (1 + strlen(word[i]));
    ++str_ptr;
  }
  *str_ptr = 0;
}

void
BufPkr::printHex(int seqnum, int nwords) {
  u_char	**str_ptr = (u_char **) (buf+sizeof(seqnum));
  u_char	*str;
cerr << "printHex called\n";

  cerr << "buf:  ";
cerr << str_ptr << endl;
cerr << *str_ptr << endl;
  cerr << setw(3) << seqnum;
  for (int i=0; i<nwords; i++) {
    cerr << "\t" << hex << *str_ptr << "\t";
    str = *str_ptr;
    while (*str != 0) {
      cerr << " ";
//      cerr << setw(2) << setfill('0') << hex << (u_int) *str++;
      cerr << *str++;
    }
    ++str_ptr;
    cerr << endl;
  }
  cerr << endl;
  fflush(stdout);
}