/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <stdio.h>
#include <stdlib.h>
#include <strings.h>
#include <ctype.h>
#include <sys/types.h>
#include <unistd.h>
#include "extern.h"
#include "misc.h"
#include <sac.h>
#include "structs.h"
#ifdef SAC
#include "msgs.h"
#endif

char    Comment[SIZE];  /* place holder for comments */


/*
 * nexttok - return next token, essentially a strtok, but it can
 *      deal with null fields and strtok can not
 *
 *      args:   str - the string to be examined, NULL if we should
 *                    examine the remembered string
 *              delim - the list of valid delimiters
 *              ros - rest of string flag (1 for rest of string, 0 for
 *                    normal processing)
 */


char *
nexttok(str, delim, ros)
char *str;
register char *delim;
int ros;
{
        static char *savep;     /* the remembered string */
        register char *p;       /* pointer to start of token */
        register char *ep;      /* pointer to end of token */

        p = (str == NULL) ? savep : str ;
        if (ros)
                return(p);
        if (p == NULL)
                return(NULL);
        ep = strpbrk(p, delim);
        if (ep == NULL) {
                savep = NULL;
                return(p);
        }
        savep = ep + 1;
        *ep = '\0';
        return(p);
}


/*
 * parse - parse a line from _sactab.  This routine will return if the parse
 *              was successful, otherwise it will output an error and exit.
 *
 *      args:   p - pointer to the data read from the file
 *              sp - pointer to a structure in which the separated fields
 *                   are placed
 *
 *      A line in the file has the following format:
 *
 *      tag:type:flags:restart_count:command_string     #comment
 */


void
parse(p, sp)
register char *p;
register struct sactab *sp;
{
        char scratch[SIZE];     /* a scratch buffer */

/*
 * get the PM tag
 */

        p = nexttok(p, DELIM, FALSE);
        if (p == NULL) {
# ifdef SAC
                error(E_BADFILE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("_sactab file is corrupt");
# endif
        }
        if (strlen(p) > PMTAGSIZE) {
                p[PMTAGSIZE] = '\0';
# ifdef SAC
                (void) sprintf(scratch, "tag too long, truncated to <%s>", p);
                log(scratch);
# else
                (void) fprintf(stderr, "tag too long, truncated to <%s>", p);
# endif
        }
        (void) strcpy(sp->sc_tag, p);

/*
 * get the PM type
 */

        p = nexttok(NULL, DELIM, FALSE);
        if (p == NULL) {
# ifdef SAC
                error(E_BADFILE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("_sactab file is corrupt");
# endif
        }
        if (strlen(p) > PMTYPESIZE) {
                p[PMTYPESIZE] = '\0';
# ifdef SAC
                (void) sprintf(scratch, "type too long, truncated to <%s>", p);
                log(scratch);
# else
                (void) fprintf(stderr, "type too long, truncated to <%s>", p);
# endif
        }
        (void) strcpy(sp->sc_type, p);

/*
 * get the flags
 */

        p = nexttok(NULL, DELIM, FALSE);
        if (p == NULL) {
# ifdef SAC
                error(E_BADFILE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("_sactab file is corrupt");
# endif
        }
        sp->sc_flags = 0;
        while (*p) {
                switch (*p++) {
                case 'd':
                        sp->sc_flags |= D_FLAG;
                        break;
                case 'x':
                        sp->sc_flags |= X_FLAG;
                        break;
                default:
                        (void) sprintf(scratch, "Unrecognized flag <%c>", *(p - 1));
# ifdef SAC
                        log(scratch);
# else
                        Saferrno = E_SAFERR;
                        error(scratch);
# endif
                        break;
                }
        }

/*
 * get the restart count
 */

        p = nexttok(NULL, DELIM, FALSE);
        if (p == NULL) {
# ifdef SAC
                error(E_BADFILE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("_sactab file is corrupt");
# endif
        }
        sp->sc_rsmax = atoi(p);

/*
 * get the command string
 */

        p = nexttok(NULL, DELIM, FALSE);
        if (p == NULL) {
# ifdef SAC
                error(E_BADFILE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("_sactab file is corrupt");
# endif
        }
        if ((sp->sc_cmd = malloc((unsigned) (strlen(p) + 1))) == NULL) {
# ifdef SAC
                error(E_MALLOC, EXIT);
# else
                Saferrno = E_SAFERR;
                error("malloc failed");
# endif
        }
        (void) strcpy(sp->sc_cmd, p);

/*
 * remember the comment string
 */

        if ((sp->sc_comment = malloc((unsigned) (strlen(Comment) + 1))) == NULL) {
# ifdef SAC
                error(E_MALLOC, EXIT);
# else
                Saferrno = E_SAFERR;
                error("malloc failed");
# endif
        }
        (void) strcpy(sp->sc_comment, Comment);
}


/*
 * trim - remove comments, trim off trailing white space, done in place
 *      args:   p - string to be acted upon
 */

char *
trim(p)
register char *p;
{
        register char *tp;      /* temp pointer */

/*
 * remove comments, if any, but remember them for later
 */

        tp = strchr(p, COMMENT);
        Comment[0] = '\0';
        if (tp) {
                (void) strcpy(Comment, tp + 1); /* skip the '#' */
                *tp = '\0';
                tp = strchr(Comment, '\n');
                if (tp)
                        *tp ='\0';
        }

/*
 * remove trailing whitespace, if any
 */

        for (tp = p + strlen(p) - 1; tp >= p && isspace(*tp); --tp)
                *tp = '\0';
        return(p);
}


/*
 * pstate - put port monitor state into intelligible form for output
 *      SSTATE is only used by sacadm
 *
 *      args:   state - binary representation of state
 */

char *
pstate(unchar state)
{
        switch (state) {
        case NOTRUNNING:
                return("NOTRUNNING");
        case STARTING:
                return("STARTING");
        case ENABLED:
                return("ENABLED");
        case DISABLED:
                return("DISABLED");
        case STOPPING:
                return("STOPPING");
        case FAILED:
                return("FAILED");
        case UNKNOWN:
                return("UNKNOWN");
# ifndef SAC
        case SSTATE:
                return("NO_SAC");
# endif
        default:
# ifdef SAC
                error(E_BADSTATE, EXIT);
# else
                Saferrno = E_SAFERR;
                error("Improper message from SAC\n");
# endif
        }
        /* NOTREACHED */
        return (NULL);
}