fix the coypright notice

[unix-history] / usr / src / usr.sbin / eeprom / eeprom.c

/*-
* Copyright (c) 1993 The Regents of the University of California.
* All rights reserved.
*
* This software was developed by the Computer Systems Engineering group
* at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
* contributed to Berkeley.
*
* All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
*      This product includes software developed by the University of
*      California, Lawrence Berkeley Laboratory.
*
* %sccs.include.redist.c%
*/

#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1993 The Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */

#ifndef lint
static char sccsid[] = "@(#)eeprom.c    5.2 (Berkeley) %G%";
#endif /* not lint */

/*
* eeprom - openprom control utility
*
* usage:
*
*      eeprom [field] [field=value]
*/

#include <sys/types.h>
#include <sys/file.h>
#include <sys/ioctl.h>

#include <machine/openpromio.h>

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "pathnames.h"

static  char openprom[] = _PATH_OPENPROM;
static  char usage[] = "usage: %s [field] [field=value]\n";

int
main(argc, argv)
       int argc;
       char **argv;
{
       register char *cp;
       register int i, op, fd, flags, status;
       register struct opiocdesc *dp;
       struct opiocdesc desc;
       char buf[1024], buf2[sizeof(buf)];
       char *prog, *name;

       /* Determine simple program name for error messages */
       if (cp = rindex(argv[0], '/'))
               prog = cp + 1;
       else
               prog = argv[0];

       /* Parse flags */
       opterr = 0;
       while ((op = getopt(argc, argv, "")) != EOF)
               switch (op) {

               default:
                       (void) fprintf(stderr, usage, prog);
                       exit(1);
               }

       argc -= optind;
       argv += optind;

       /* Determine flags and open device */
       flags = O_RDONLY;
       for (i = 0; i < argc; ++i)
               if (index(argv[i], '=') != NULL) {
                       flags = O_RDWR;
                       break;
               }
       if ((fd = open(openprom, flags, 0)) < 0) {
               fprintf(stderr, "%s: open %s: %s\n",
                   prog, openprom, strerror(errno));
               exit(1);
       }

       dp = &desc;
       bzero(dp, sizeof(*dp));
       if (ioctl(fd, OPIOCGETOPTNODE, &dp->op_nodeid) < 0) {
               fprintf(stderr, "%s: get optionsnode: %s\n",
                   prog, strerror(errno));
               exit(1);
       }

       if (argc <= 0) {
               /* Prime the pump with a zero length name */
               dp->op_name = buf;
               dp->op_name[0] = '\0';
               dp->op_namelen = 0;
               dp->op_buf = buf2;
               for (;;) {
                       /* Get the next property name */
                       dp->op_buflen = sizeof(buf);
                       if (ioctl(fd, OPIOCNEXTPROP, dp) < 0) {
                               fprintf(stderr, "%s: get next: %s\n",
                                   prog, strerror(errno));
                               exit(1);
                       }

                       /* Zero length name means we're done */
                       if (dp->op_buflen <= 0)
                               break;

                       /* Clever hack, swap buffers */
                       cp = dp->op_buf;
                       dp->op_buf = dp->op_name;
                       dp->op_name = cp;
                       dp->op_namelen = dp->op_buflen;

                       /* Get the value */
                       dp->op_buflen = sizeof(buf);
                       if (ioctl(fd, OPIOCGET, dp) < 0) {
                               fprintf(stderr, "%s: get \"%s\": %s\n",
                                   prog, cp, strerror(errno));
                               exit(1);
                       }
                       printf("%.*s=%.*s\n", dp->op_namelen, dp->op_name,
                           dp->op_buflen, dp->op_buf);
               }
               exit(0);
       }
       
       status = 0;
       for (i = 0; i < argc; ++i) {
               dp->op_name = name = argv[i];
               cp = index(name, '=');
               if (cp) {
                       *cp++ = '\0';
                       dp->op_buf = cp;
                       dp->op_buflen = strlen(dp->op_buf);
               } else {
                       dp->op_buf = buf;
                       dp->op_buflen = sizeof(buf);
               }
               dp->op_namelen = strlen(name);
               if (ioctl(fd, cp ? OPIOCSET : OPIOCGET, dp) < 0) {
                       fprintf(stderr, "%s: %s \"%s\": %s\n",
                           prog, cp ? "set" : "get", name, strerror(errno));
                       status |= 1;
                       continue;
               }

               /* If setting an entry, we're done */
               if (cp)
                       continue;
               if (dp->op_buflen < 0) {
                       fprintf(stderr, "%s: \"%s\" not found\n", prog, name);
                       status |= 1;
                       continue;
               }
               if (dp->op_buflen >= sizeof(buf)) {
                       fprintf(stderr, "%s: \"%s\" truncated\n", prog, name);
                       status |= 1;
                       /* fall thorugh and print truncated value */
               }
               printf("%s=%.*s\n", name, dp->op_buflen, buf);
       }

       exit(status);
}