/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/* $XConsortium: misc.c /main/5 1996/10/04 16:21:08 drk $ */
/*	Copyright (c) 1991, 1992 UNIX System Laboratories, Inc. */
/*	All Rights Reserved     */

/*	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF    */
/*	UNIX System Laboratories, Inc.			*/
/*	The copyright notice above does not evidence any       */
/*	actual or intended publication of such source code.    */

#include        "name.h"
#include        "shell.h"
#include "stdio.h"
#include <X11/X.h>
#include <X11/Intrinsic.h>
#include <X11/IntrinsicP.h>
#define NO_AST
#include "dtksh.h"
#undef NO_AST
#include "exksh.h" /* which includes sys/types.h */
/* #include <sys/param.h> */
#include <string.h>
/* #include <search.h> */
#include <ctype.h>
#include "docall.h"
#include "msgs.h"

static char use[] = "0x%lx";

int
symcomp(
        void *sym1,
        void *sym2 )

{
	return(strcmp(((struct symarray *) sym1)->str, ((struct symarray *) sym2)->str));
}


void *
getaddr(
        char *str )
{
	if (isdigit(str[0]))
		return((void *) strtoul(str, NULL, 0));
	else
		return((void *) fsym(str, -1));
}

int
do_deref(
        int argc,
        char **argv )
{
	unsigned char *ptr;
	long i, len = 0;
	short longwise = -1;
	char printit = 0;
	static char xk_ret_buffer[1024];
        char * errmsg;

	for (i = 1; (i < argc) && argv[i] != NULL && argv[i][0] == '-'; i++) {
		if (isdigit(argv[i][1])) {
			if (longwise < 0)
				longwise = 0;
			ptr = (unsigned char *) argv[i] + 1;
			xk_par_int(&ptr, &len, NULL);
			if (!len) {
			   errmsg = strdup(GETMESSAGE(10,1, 
                              "An invalid length parameter was specified: %s"));
			   printerrf(argv[0], errmsg, 
                                    argv[i], NULL, NULL, NULL, NULL, NULL,
                                    NULL, NULL);
                           free(errmsg);
			   return(SH_FAIL);
			}
		}
		else if (argv[i][1] == 'l')
			longwise = 1;
		else if (argv[i][1] == 'p')
			printit = 1;
	}
	if (longwise < 0)
		longwise = 1;
	if (!len)
		len = sizeof(long);
	if (i >= argc) {
		XK_USAGE(argv[0]);
	}	
	ptr = (unsigned char *) getaddr(argv[i++]);
	if (ptr) {
		if ( ((i < argc) && argv[i]) || printit) {
			char *dbuf, *p;
			int totlen;
			char buf[10 * BUFSIZ];
			int incr;

			if (printit)
				totlen = len + 1 + 1;
			else
				totlen = len + strlen(argv[i]) + 1 + 1;
			dbuf = (char *) (totlen < (10 * BUFSIZ - 1)) ? buf : malloc(totlen);
			if (printit)
				strcpy(dbuf, "0x");
			else
				sprintf(dbuf, "%s=0x", argv[i]);
			p = dbuf + strlen(dbuf);
			incr = longwise ? sizeof(long) : sizeof(char);
			for (i=0; i < len; i += incr, p += 2 * incr)
				sprintf(p, "%*.*x", incr * 2, incr * 2, longwise ? *((unsigned long *) (ptr + i)) : (unsigned long) (ptr[i]));
			if (printit)
				ALTPUTS(dbuf);
			else
				env_set(dbuf);
			if (dbuf != buf)
				free(dbuf);
		}
		else {
			if (len > sizeof(unsigned long)) {
                           char tmpBuf[30];

                           sprintf(tmpBuf, "%ld", (long)sizeof(unsigned long));
                           errmsg = strdup(GETMESSAGE(10,2, 
                              "To set RET, the length must be less than: %s"));
			   printerrf(argv[0], errmsg,
                                 tmpBuf, NULL, NULL, NULL, NULL, NULL, NULL,
                                 NULL);
                           free(errmsg);
			   return(SH_FAIL);
			}
			sprintf(xk_ret_buffer, use, *((unsigned long *) ptr));
			xk_ret_buf = xk_ret_buffer;
		}
		return(SH_SUCC);
	}
        errmsg = strdup(GetSharedMsg(DT_UNDEF_SYMBOL));
	printerrf(argv[0], errmsg, argv[--i], NULL, NULL, NULL,
                  NULL, NULL, NULL, NULL);
        free(errmsg);
	return(SH_FAIL);
}

void *
nop(
        void *var )
{
	return(var);
}

void *
save_alloc(
        void *var )
{
	return(var);
}