/*
 * Copyright (c) 1989, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#ifndef lint
static const char copyright[] =
"@(#) Copyright (c) 1989, 1993\n\
	The Regents of the University of California.  All rights reserved.\n";
#endif /* not lint */

#ifndef lint
#if 0
static char sccsid[] = "@(#)hexdump.c	8.1 (Berkeley) 6/6/93";
#include <sys/cdefs.h>
__FBSDID("$FreeBSD: src/usr.bin/hexdump/hexdump.c,v 1.7 2002/09/04 23:29:01 dwmalone Exp $");
#endif
#endif /* not lint */

#include <rtems.h>
#include <rtems/shell.h>
#include <rtems/shellconfig.h>

#include <sys/types.h>
#include <locale.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "hexdump.h"

#if RTEMS_REMOVED
FS *fshead;				/* head of format strings */
int blocksize;				/* data block size */
int exitval;				/* final exit value */
int length = -1;			/* max bytes to read */
#endif

void
rtems_shell_hexdump_exit (rtems_shell_hexdump_globals* globals, int code)
{
  globals->exit_code = code;
  longjmp (globals->exit_jmp, 1);
}

static int main_hexdump(rtems_shell_hexdump_globals* globals, int argc, char *argv[]);

int
rtems_shell_main_hexdump(int argc, char *argv[])
{
  rtems_shell_hexdump_globals  hexdump_globals;
  rtems_shell_hexdump_globals* globals = &hexdump_globals;
  memset (globals, 0, sizeof (hexdump_globals));
  vflag = FIRST;
  ateof = 1;
  hexdump_globals.exit_code = 1;
  if (setjmp (hexdump_globals.exit_jmp) == 0)
    hexdump_globals.exit_code = main_hexdump (globals, argc, argv);
  if (curp)
    free (curp);
  if (savp)
    free (savp);
  while (fshead)
  {
    FS* nextfs = fshead->nextfs;
    while (fshead->nextfu)
    {
      FU* nextfu = fshead->nextfu->nextfu;
      if (fshead->nextfu->fmt)
        free(fshead->nextfu->fmt);
      while (fshead->nextfu->nextpr)
      {
        PR* nextpr = fshead->nextfu->nextpr->nextpr;
        if (((fshead->nextfu->nextpr->flags & F_TEXT) == 0) &&
            fshead->nextfu->nextpr->fmt)
          free(fshead->nextfu->nextpr->fmt);
        free(fshead->nextfu->nextpr);
        fshead->nextfu->nextpr = nextpr;
      }
      free(fshead->nextfu);
      fshead->nextfu = nextfu;
    }
    free(fshead);
    fshead = nextfs;
  }
  if (hdstdin)
  {
    fclose (hdstdin);
    free (hdstdin);
  }
  return hexdump_globals.exit_code;
}

int
main_hexdump(rtems_shell_hexdump_globals* globals, int argc, char *argv[])
{
	FS *tfs;
	char *p;

#if RTEMS_REMOVED
	(void)setlocale(LC_ALL, "");
#endif
  
	if (!(p = rindex(argv[0], 'o')) || strcmp(p, "od"))
		newsyntax(globals, argc, &argv);
	else
		oldsyntax(globals, argc, &argv);

	/* figure out the data block size */
	for (blocksize = 0, tfs = fshead; tfs; tfs = tfs->nextfs) {
		tfs->bcnt = size(globals, tfs);
		if (blocksize < tfs->bcnt)
			blocksize = tfs->bcnt;
	}
	/* rewrite the rules, do syntax checking */
	for (tfs = fshead; tfs; tfs = tfs->nextfs)
		rewrite(globals, tfs);

	(void)next(globals, argv);
	display(globals);
  exit(exitval);
  return exitval;
}

rtems_shell_cmd_t rtems_shell_HEXDUMP_Command = {
  "hexdump",                                                /* name */
  "hexdump [-bcCdovx] [-e fmt] [-f fmt_file] [-n length]\n" /* usage */
  "        [-s skip] [file ...]",
  "files",                                                  /* topic */
  rtems_shell_main_hexdump,                                 /* command */
  NULL,                                                     /* alias */
  NULL                                                      /* next */
};