usr/src/cmd/tsol/lslabels/lslabels.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21
  22 /*
  23  * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27
  28 /*
  29  *      lslabels - Display all labels dominating the specified label.
  30  */
  31
  32 #include <errno.h>
  33 #include <libintl.h>
  34 #include <locale.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <string.h>
  38 #include <unistd.h>
  39 #include <stropts.h>
  40
  41 #include <sys/param.h>
  42
  43 #include <tsol/label.h>
  44 #include <sys/tsol/label_macro.h>
  45 #include <iso/limits_iso.h>
  46
  47 #if !defined(TEXT_DOMAIN)
  48 #define TEXT_DOMAIN      "SYS_TEST"
  49 #endif  /* !defined(TEXT_DOMAIN) */
  50
  51 int hflg = 0;                   /* true if hex output */
  52
  53 /*
  54  * Compartment mask macros.
  55  */
  56
  57 typedef uint32_t comp_chunk_t;
  58
  59 #define __NBWRD         (CHAR_BIT * sizeof (comp_chunk_t))
  60 #define COMP_BITS       (CHAR_BIT * sizeof (Compartments_t))
  61 #define compmask(n)     (1 << ((__NBWRD - 1) - ((n) % __NBWRD)))
  62 #define compword(n)     ((n)/__NBWRD)
  63
  64 #define COMP_ADDSET(a, p)       ((comp_chunk_t *)(a))[compword(p)] |= \
  65                                     compmask(p)
  66 #define COMP_DELSET(a, p)       ((comp_chunk_t *)(a))[compword(p)] &= \
  67                                     ~compmask(p)
  68 #define COMP_ISMEMBER(a, p)     ((((comp_chunk_t *)(a))[compword(p)] & \
  69                                     compmask(p)) != 0)
  70
  71 /* Need functions to test if bit is on */
  72
  73
  74 void
  75 bitfinder(m_label_t label, int next_bit) {
  76         char *labelstr = NULL;
  77
  78         Compartments_t *comps = &label.compartments;
  79
  80         while (next_bit < COMP_BITS) {
  81                 if (COMP_ISMEMBER(comps, next_bit)) {
  82                         bitfinder(label, next_bit + 1);
  83                         COMP_DELSET(comps, next_bit);
  84
  85                         if (label_to_str(&label, &labelstr, M_LABEL,
  86                             LONG_NAMES) == 0) {
  87                                 m_label_t *label2 = NULL;
  88                                 int err;
  89
  90                                 if (str_to_label(labelstr, &label2, MAC_LABEL,
  91                                     L_NO_CORRECTION, &err) == 0) {
  92                                         if (!hflg) {
  93                                                 (void) printf("%s\n", labelstr);
  94                                         } else {
  95                                                 free(labelstr);
  96                                                 (void) label_to_str(&label,
  97                                                     &labelstr, M_INTERNAL, 0);
  98                                                 (void) printf("%s\n", labelstr);
  99                                         }
 100                                         m_label_free(label2);
 101                                 }
 102                                 free(labelstr);
 103                         }
 104                         bitfinder(label, next_bit + 1);
 105                         break;
 106                 }
 107                 next_bit++;
 108                 }
 109 }
 110
 111 static void
 112 label_error(const char *ascii, const int err)
 113 {
 114         if (errno == EINVAL) {
 115                 switch (err) {
 116                 case M_BAD_STRING:
 117                         (void) fprintf(stderr,
 118                             gettext("lslabels: bad string %s\n"), ascii);
 119                 break;
 120                 case M_BAD_LABEL:
 121                         (void) fprintf(stderr,
 122                             gettext("lslabels: bad previous label\n"));
 123                 break;
 124                 default:
 125                         (void) fprintf(stderr,
 126                             gettext("lslabels: parsing error found in "
 127                             "\"%s\" at position %d\n"), ascii, err);
 128                 break;
 129                 }
 130         } else {
 131                 perror("lslabels");
 132         }
 133         exit(1);
 134         /*NOTREACHED*/
 135 }
 136
 137 int
 138 main(int argc, char **argv)
 139 {
 140         int errflg = 0;                 /* true if arg error */
 141         m_label_t *label = NULL;        /* binary labels */
 142         char ascii[PIPE_BUF];           /* human readable label */
 143         char *labelstr = NULL;          /* external label to start from */
 144         int err = 0;                    /* label error */
 145         int c;
 146         int mode = M_LABEL;
 147         _Classification *level;
 148
 149         (void) setlocale(LC_ALL, "");
 150         (void) textdomain(TEXT_DOMAIN);
 151
 152         opterr = 0;
 153         while ((c = getopt(argc, argv, "h")) != EOF) {
 154
 155                 switch (c) {
 156                 case 'h':
 157                         hflg++;
 158                         mode = M_INTERNAL;
 159                         break;
 160
 161                 default:
 162                         errflg++;
 163                         break;
 164                 }
 165         }
 166
 167         argc -= optind - 1;
 168         if (errflg || argc > 2) {
 169
 170                 (void) fprintf(stderr,
 171                     gettext("usage: %s [-h] [label]\n"),
 172                     argv[0]);
 173                 exit(1);
 174                 /*NOTREACHED*/
 175         }
 176
 177         if (argc == 2) {
 178                 /* use label on command line */
 179
 180                 (void) strlcpy(ascii, argv[optind], sizeof (ascii));
 181         } else {
 182                 /* read label from standard input */
 183                 if ((c = read(STDIN_FILENO, ascii, sizeof (ascii))) <= 0) {
 184                         perror(gettext("reading ASCII coded label"));
 185                         exit(1);
 186                         /*NOTREACHED*/
 187                 }
 188
 189                 /*
 190                  * replace '\n' or (end of buffer) with end of string.
 191                  */
 192                 ascii[c-1] = '\0';
 193
 194                 /*
 195                  * flush any remaining input past the size of the buffer.
 196                  */
 197                 (void) ioctl(STDIN_FILENO, I_FLUSH, FLUSHR);
 198         }
 199
 200         if (str_to_label(ascii, &label, MAC_LABEL, L_NO_CORRECTION,
 201             &err) == -1) {
 202                 label_error(ascii, err);
 203         }
 204         if (label_to_str(label, &labelstr, mode,
 205             DEF_NAMES) == 0) {
 206                 (void) printf("%s\n", labelstr);
 207         }
 208
 209         level =  &label->classification.class_u.class_chunk;
 210         while (*level > 0) {
 211                 bitfinder(*label, 0);
 212                 *level -= 1;
 213         }
 214         m_label_free(label);
 215
 216         return (0);             /* really exit(0); */
 217 }