/* consoletype - utility to print out string identifying Sun console type
 *
 * Copyright 1988 SRI
 *
 * Permission to use, copy, modify, and distribute this software and its
 * documentation for any purpose and without fee is hereby granted, provided
 * that the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of SRI not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  SRI makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * Author:  Doug Moran, SRI
 */
/*
 * Copyright (c) 1997, 2023, Oracle and/or its affiliates.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice (including the next
 * paragraph) shall be included in all copies or substantial portions of the
 * Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */


/*
SUN-SPOTS DIGEST         Thursday, 17 March 1988       Volume 6 : Issue 31

Date:    Wed, 2 Mar 88 14:50:26 PST
From:    Doug Moran <moran@ai.sri.com>
Subject: Program to determine console type

There have been several requests in this digest for programs to determine
the type of the console.  Below is a program that I wrote to produce an
identifying string (I start suntools in my .login file and use this pgm to
determine which arguments to use).

Caveat:  my cluster has only a few of these monitor types, so the pgm has
not been fully tested.

Note on coding style: the function wu_fbid is actually located in a local
library, accounting for what otherwise might appear to be a strange coding
style.
*/

#ifdef HAVE_CONFIG_H
# include "config.h"
#endif

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

static int wu_fbid(const char *devname, const char **fbname, int *fbtype);

static void
usage(const char *program_name, int exitval)
{
    fprintf(stderr, "usage: %s [ -num ] [ device_name ]\n"
                    "       %s -help\n"
                    "       %s -version\n",
            program_name, program_name, program_name);
    exit(exitval);
}

int
main(int argc, char **argv)
{
    const char *program_name = argv[0];
    int fbtype = -1;
    const char *fbname, *dev;
    int dev_set = 0;
    int print_num = 0;
    int error;

    if (argc > 1 && argv[1][0] == '/') {
        dev = argv[1];
        argc--;
        argv++;
        dev_set++;
    }
    else
        dev = "/dev/fb";

    while (argc > 1) {
        if (strncmp(argv[1], "-num", strlen(argv[1])) == 0) {
            print_num = 1;
            argc--;
            argv++;
            continue;
        }
        if ((strcmp(argv[1], "-help") == 0) ||
            (strcmp(argv[1], "--help") == 0)) {
            usage(program_name, 0);
        }
        if ((strcmp(argv[1], "-version") == 0) ||
            (strcmp(argv[1], "--version") == 0)) {
            puts(PACKAGE_STRING);
            exit(0);
        }

        /* Historical usage put the pathname before -num,
           but now we accept it afterwards to match standard command style */
        if (argv[1][0] == '/') {
            if (dev_set == 0) {
                dev = argv[1];
                argc--;
                argv++;
                dev_set++;
                continue;
            } else {
                fprintf(stderr, "%s: only one device name may be specified\n",
                        program_name);
                exit(2);
            }
        }

        /* If we got here, the argument is unknown */
        usage(program_name, 2);
    }

    error = wu_fbid(dev, &fbname, &fbtype);
    printf("%s", fbname ? fbname : "tty");
    if (print_num) {
        printf(" %d", fbtype);
    }
    putchar('\n');
    return error;
}

#include <sys/ioctl.h>
#include <sys/file.h>
#ifdef HAVE_SYS_FBIO_H
# include <fcntl.h>
# include <sys/fbio.h>
# ifdef HAVE_SYS_VISUAL_IO_H
/* VIS_GETIDENTIFIER ioctl added in Solaris 2.3 */
#  include <sys/visual_io.h>
# endif
#else
# ifndef HAVE_MACHINE_FBIO_H
#  include <sun/fbio.h>
# else
#  include <machine/fbio.h>
# endif
#endif

/* Sun doesn't see fit to update <sys/fbio.h> to reflect the addition
 * of the TCX
 */
#define XFBTYPE_TCX		21
#define XFBTYPE_LASTPLUSONE	22

/* decoding as of Release 3.4 : fbio.h 1.3 87/01/09 SMI */
        /* the convention for entries in this table is to translate the
         * macros for frame buffer codes (in <sun/fbio.h>) to short names
         * thus:
         *      FBTYPE_SUNxBW           becomes bwx
         *      FBTYPE_SUNxCOLOR        becomes cgx
         *      FBTYPE_SUNxGP           becomes gpx
         *      FBTYPE_NOTSUN[1-9]      becomes ns[A-J]
         */
static const char *decode_fb[] = {
    "bw1", "cg1",
    "bw2", "cg2",
    "gp2",
    "cg5", "cg3",
    "cg8", "cg4",
    "nsA", "nsB", "nsC",
#ifdef FBTYPE_SUNFAST_COLOR
    "gx/cg6",
#endif
#ifdef FBTYPE_SUNROP_COLOR
    "rop",
#endif
#ifdef FBTYPE_SUNFB_VIDEO
    "vid",
#endif
#ifdef FBTYPE_SUNGIFB
    "gifb",
#endif
#ifdef FBTYPE_SUNGPLAS
    "plas",
#endif
#ifdef FBTYPE_SUNGP3
    "gp3/cg12",
#endif
#ifdef FBTYPE_SUNGT
    "gt",
#endif
#ifdef FBTYPE_SUNLEO
    "leo/zx",
#endif
#ifdef FBTYPE_MDICOLOR
    "mdi/cg14",
#endif
};

static int
wu_fbid(const char *devname, const char **fbname, int *fbtype)
{
    struct fbgattr fbattr;
    int fd, ioctl_ret;

#ifdef VIS_GETIDENTIFIER
    int vistype;
    static struct vis_identifier fbid;
#endif

#ifdef sun
# define DEV_OPEN_MODE O_RDONLY
#else
# define DEV_OPEN_MODE O_RDWR
#endif

    if ((fd = open(devname, DEV_OPEN_MODE, 0)) == -1) {
        fprintf(stderr, "unable to open %s: %s\n", devname, strerror(errno));
        *fbname = "unable to open fb";
        return 2;
    }

#ifdef VIS_GETIDENTIFIER
    if ((vistype = ioctl(fd, VIS_GETIDENTIFIER, &fbid)) >= 0) {
        *fbname = fbid.name;
        *fbtype = vistype;
        close(fd);
        return 0;
    }
#endif

    /* FBIOGATTR fails for early frame buffer types */
    if ((ioctl_ret = ioctl(fd, FBIOGATTR, &fbattr)) < 0) /* success=>0(false) */
        ioctl_ret = ioctl(fd, FBIOGTYPE, &fbattr.fbtype);
    close(fd);
    if (ioctl_ret == -1) {
        fprintf(stderr, "FBIO ioctls failed on %s: %s\n",
                devname, strerror(errno));
        *fbname = "ioctl on fb failed";
        return 2;
    }
    *fbtype = fbattr.fbtype.fb_type;
    /* The binary is obsolete and needs to be re-compiled:
     * the ioctl returned a value beyond what was possible
     * when the program was compiled */
    if (fbattr.fbtype.fb_type >= FBTYPE_LASTPLUSONE) {
        if (fbattr.fbtype.fb_type == XFBTYPE_TCX) {
            *fbname = "tcx";
            return 0;
        }
        else {
            *fbname = "unk";
            return 1;
        }
    }
    /* The source is obsolete.  The table "decode_fb" does not
     * have entries for some of the values returned by the ioctl.
     * Compare <sun/fbio.h> to the entries in "decode_fb" */
    if (decode_fb[fbattr.fbtype.fb_type] == NULL) {
        *fbname = "unk";
        return 1;
    }
    *fbname = decode_fb[fbattr.fbtype.fb_type];
    return 0;
}