Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / sam / devices / common / arg.cc

// ========== Copyright Header Begin ==========================================
// 
// OpenSPARC T2 Processor File: arg.cc
// Copyright (c) 2006 Sun Microsystems, Inc.  All Rights Reserved.
// DO NOT ALTER OR REMOVE COPYRIGHT NOTICES.
// 
// The above named program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public
// License version 2 as published by the Free Software Foundation.
// 
// The above named program is distributed in the hope that it will be 
// useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// General Public License for more details.
// 
// You should have received a copy of the GNU General Public
// License along with this work; if not, write to the Free Software
// Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
// 
// ========== Copyright Header End ============================================
// Utility for parsing sysconf args
// Copyright 2004 Sun Microsystems Inc
// All rights reserved
//
//@(#)arg.cc	1.3 06/04/18
//
#include <sys/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <strings.h>
#include "arg.h"

// return str from name=value
bool
argval(const char *name, const char *arg, const char **value)
{
    bool ans = false;
    char *tmp = strdup(arg);
    char *peq = strchr(tmp, '=');
    if (peq) {
	*peq = '\0';
	ans = !strcmp(name, tmp);
	*peq = '=';
	if (ans) {
	    if (*value)
		free((void *)(*value));
	    *value = strdup(peq + 1);
	}
    } else {
	ans = !strcmp(name, tmp);
	if (ans) {
	    if (*value)
		free((void *)(*value));
	    *value = strdup("");
	}
    }
    free(tmp);
    return ans;
}

// return bool from name=value
bool
argval(const char *name, const char *arg, bool *value)
{
    const char *str = NULL;
    if (argval(name, arg, &str)) {
	if (!str[0])
	    *value = true;			// missing '=value', treat as a switch
	else if (strchr("tTyY1", str[0]))	// true or yes or 1
	    *value = true;
	else if (!strchr("oO", str[0]))		// on vs off
	    *value = false;
	else if (strchr("nN", str[1]))
	    *value = true;
	else
	    *value = false;
	free((void*)str);
	return true;
    }
    return false;
}

// return unsigned long long from name=value
bool
argval(const char *name, const char *arg, unsigned long long *value)
{
    const char *str = NULL;
    if (argval(name, arg, &str)) {
	*value = getull(str);
	free((void*)str);
	return true;
    }
    return false;
}

// return int from name=value
bool
argval(const char *name, const char *arg, int *value)
{
    unsigned long long ull;
    if (argval(name, arg, &ull)) {
	*value = (int) ull;
	return true;
    }
    return false;
}

// return ul from name=value
bool
argval(const char *name, const char *arg, unsigned long *value)
{
    unsigned long long ull;
    if (argval(name, arg, &ull)) {
	*value = (unsigned long) ull;
	return true;
    }
    return false;
}

// convert decimal, octal or hex
int
getint(const char *s)
{
    return (int) strtol(s, NULL, 0);
}

unsigned long long
getull(const char *s)
{
    return (unsigned long long) strtoll(s, NULL, 0);
}

// format a string and return a copy
const char *makestr(const char *format, ...)
{
    va_list ap;
    char buf[10000];

    va_start(ap, format);
    vsnprintf(buf, sizeof buf, format, ap);
    va_end(ap);
    return strdup(buf);
}