libtsol/common/stob.c

45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * CDDL HEADER START
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * The contents of this file are subject to the terms of the
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * Common Development and Distribution License (the "License").
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * You may not use this file except in compliance with the License.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * or http://www.opensolaris.org/os/licensing.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * See the License for the specific language governing permissions
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * and limitations under the License.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * When distributing Covered Code, include this CDDL HEADER in each
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * If applicable, add the following below this CDDL HEADER, with the
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * fields enclosed by brackets "[]" replaced with your own identifying
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * information: Portions Copyright [yyyy] [name of copyright owner]
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * CDDL HEADER END
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/*
a6080eb58dc0a9948e87d1bd3773da387e2c64cagww * Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk * Use is subject to license terms.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#pragma ident   "%Z%%M% %I% %E% SMI"
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  String to binary label translations.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <ctype.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <locale.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <stdio.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <stdlib.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <strings.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <tsol/label.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include "labeld.h"
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#include <sys/tsol/label_macro.h>
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#undef  CALL_SIZE
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define CALL_SIZE(type, buf)    (size_t)(sizeof (type) - BUFSIZE + sizeof (int)\
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    + (buf))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#if !defined(TEXT_DOMAIN)       /* should be defined by Makefiles */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define TEXT_DOMAIN "SYS_TEST"
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#endif  /* TEXT_DOMAIN */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/* short hands */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define IS_ADMIN_LOW(sl) \
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    ((strncasecmp(sl, ADMIN_LOW, (sizeof (ADMIN_LOW) - 1)) == 0))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define IS_ADMIN_HIGH(sh) \
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    ((strncasecmp(sh, ADMIN_HIGH, (sizeof (ADMIN_HIGH) - 1)) == 0))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define ISHEX(f, s) \
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    (((((f) & NEW_LABEL) == ((f) | NEW_LABEL)) || \
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    (((f) & NO_CORRECTION) == ((f) | NO_CORRECTION))) && \
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    (((s)[0] == '0') && (((s)[1] == 'x') || ((s)[1] == 'X'))))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define slcall callp->param.acall.cargs.stobsl_arg
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define slret callp->param.aret.rvals.stobsl_ret
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  stobsl - Translate Sensitivity Label string to a Binary Sensitivity
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      Label.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Entry   string = Sensitivity Label string to be translated.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      label = Address of Binary Sensitivity Label to be initialized or
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          updated.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      flags = Flags to control translation:
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NO_CORRECTION implies NEW_LABEL.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NEW_LABEL, Initialize the label to a valid empty
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              Sensitivity Label structure.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NO_CORRECTION, Initialize the label to a valid
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              empty Sensitivity Label structure.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              Prohibit correction to the Sensitivity Label.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          Other, pass existing Sensitivity Label through for
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              modification.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Exit    label = Translated (updated) Binary Sensitivity Label.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      error = If error reported, the error indicator,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              -1, Unable to access label encodings file;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *               0, Invalid binary label passed;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              >0, Position after the first character in
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *                  string of error, 1 indicates entire string.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          Otherwise, unchanged.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Returns 0, If error.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      1, If successful.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Calls   __call_labeld(STOBSL), ISHEX, htobsl, strlen,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          isspace,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          strncasecmp.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Uses    ADMIN_HIGH, ADMIN_LOW.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkint
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkstobsl(const char *string, bslabel_t *label, int flags, int *error)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk{
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    labeld_data_t   call;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    labeld_data_t   *callp = &call;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    size_t  bufsize = sizeof (labeld_data_t);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    size_t  datasize = CALL_SIZE(stobsl_call_t, strlen(string) + 1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    int rval;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    char    *s = (char *)string;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    while (isspace(*s))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        s++;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    /* accept a leading '[' */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (*s == '[') {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        s++;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        while (isspace(*s))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            s++;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (ISHEX(flags, s)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (htobsl(s, label)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk                *error = 1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (datasize > bufsize) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if ((callp = malloc(datasize)) == NULL) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk                *error = -1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        bufsize = datasize;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    callp->callop = STOBSL;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    slcall.flags  = (flags&NEW_LABEL) ? LABELS_NEW_LABEL : 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    slcall.flags |= (flags&NO_CORRECTION) ? LABELS_FULL_PARSE : 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    slcall.label = *label;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    (void) strcpy(slcall.string, string);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if ((rval = __call_labeld(&callp, &bufsize, &datasize)) == SUCCESS) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        int err = callp->reterr;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr == 0, OK,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr < 0, invalid binary label,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr > 0 error position, 1 == whole string
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (err == 0) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            *label = slret.label;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else if (err < 0) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            err = 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            *error = err;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    } else if (rval == NOSERVER) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* server not present */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* special case Admin High and Admin Low */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (IS_ADMIN_LOW(s)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            BSLLOW(label);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else if (IS_ADMIN_HIGH(s)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            BSLHIGH(label);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            goto err1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkerr1:
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        *error = -1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk}  /* stobsl */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#undef  slcall
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#undef  slret
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define clrcall callp->param.acall.cargs.stobclear_arg
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#define clrret callp->param.aret.rvals.stobclear_ret
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk/*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  stobclear - Translate Clearance string to a Binary Clearance.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Entry   string = Clearance string to be translated.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      clearance = Address of Binary Clearance to be initialized or
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          updated.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      flags = Flags to control translation:
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NO_CORRECTION implies NEW_LABEL.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NEW_LABEL, Initialize the label to a valid empty
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              Sensitivity Label structure.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          NO_CORRECTION, Initialize the label to a valid
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              empty Sensitivity Label structure.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              Prohibit correction to the Sensitivity Label.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          Other, pass existing Sensitivity Label through for
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              modification.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Exit    clearance = Translated (updated) Binary Clearance.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      error = If error reported, the error indicator,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              -1, Unable to access label encodings file;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *               0, Invalid binary label passed;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *              >0, Position after the first character in
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *                  string of error, 1 indicates entire string.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          Otherwise, unchanged.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Returns 0, If error.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *      1, If successful.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Calls   __call_labeld(STOBCLEAR), ISHEX, htobsl, strlen,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          isspace,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *          strncasecmp.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk *  Uses    ADMIN_HIGH, ADMIN_LOW.
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkint
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkstobclear(const char *string, bclear_t *clearance, int flags, int *error)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk{
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    labeld_data_t   call;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    labeld_data_t   *callp = &call;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    size_t  bufsize = sizeof (labeld_data_t);
a6080eb58dc0a9948e87d1bd3773da387e2c64cagww    size_t  datasize = CALL_SIZE(stobclear_call_t, strlen(string) + 1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    int rval;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (ISHEX(flags, string)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (htobclear(string, clearance)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk                *error = 1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (datasize > bufsize) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if ((callp = malloc(datasize)) == NULL) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk                *error = -1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        bufsize = datasize;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    callp->callop = STOBCLEAR;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    clrcall.flags  = (flags&NEW_LABEL) ? LABELS_NEW_LABEL : 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    clrcall.flags |= (flags&NO_CORRECTION) ? LABELS_FULL_PARSE : 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    clrcall.clear = *clearance;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    (void) strcpy(clrcall.string, string);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if ((rval = __call_labeld(&callp, &bufsize, &datasize)) == SUCCESS) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        int err = callp->reterr;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /*
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr == 0, OK,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr < 0, invalid binary label,
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         * reterr > 0 error position, 1 == whole string
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk         */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (err == 0) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            *clearance = clrret.clear;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else if (err < 0) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            err = 0;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            *error = err;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    } else if (rval == NOSERVER) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        char *s = (char *)string;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* server not present */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* special case Admin High and Admin Low */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        while (isspace(*s))
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            s++;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        if (IS_ADMIN_LOW(s)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            BCLEARLOW(clearance);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else if (IS_ADMIN_HIGH(s)) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            BCLEARHIGH(clearance);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        } else {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk            goto err1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        return (1);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (callp != &call) {
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        /* free allocated buffer */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        free(callp);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    }
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpkerr1:
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    if (error != NULL)
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk        *error = -1;
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk    return (0);
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk}  /* stobclear */
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#undef  clrcall
45916cd2fec6e79bca5dee0421bd39e3c2910d1ejpk#undef  clrret