source: mainline/uspace/app/sysinfo/sysinfo.c

/*
 * Copyright (c) 2010 Jiri Svoboda
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

/** @addtogroup sysinfo
 * @{
 */
/** @file sysinfo.c
 * @brief Print value of item from sysinfo tree.
 */

#include <errno.h>
#include <stdio.h>
#include <stddef.h>
#include <stdint.h>
#include <sysinfo.h>
#include <stdlib.h>
#include <str.h>

static void dump_bytes_hex(char *data, size_t size)
{
        for (size_t i = 0; i < size; i++) {
                if (i > 0)
                        putchar(' ');
                printf("0x%02x", (uint8_t) data[i]);
        }
}

static void dump_bytes_text(char *data, size_t size)
{
        size_t offset = 0;

        while (offset < size) {
                char32_t c = str_decode(data, &offset, size);
                printf("%lc", (wint_t) c);
        }
}

static errno_t print_item_val(char *ipath)
{
        sysarg_t value;
        errno_t rc = sysinfo_get_value(ipath, &value);
        if (rc != EOK) {
                printf("Error reading item '%s'.\n", ipath);
                return rc;
        }

        printf("%s -> %" PRIu64 " (0x%" PRIx64 ")\n", ipath,
            (uint64_t) value, (uint64_t) value);

        return EOK;
}

static int print_item_data(char *ipath)
{
        size_t size;
        void *data = sysinfo_get_data(ipath, &size);
        if (data == NULL) {
                printf("Error reading item '%s'.\n", ipath);
                return -1;
        }

        printf("%s -> ", ipath);
        dump_bytes_hex(data, size);
        fputs(" ('", stdout);
        dump_bytes_text(data, size);
        fputs("')\n", stdout);

        return EOK;
}

static int print_item_property(char *ipath, char *iprop)
{
        size_t size;
        void *data = sysinfo_get_property(ipath, iprop, &size);
        if (data == NULL) {
                printf("Error reading property '%s' of item '%s'.\n", iprop,
                    ipath);
                return -1;
        }

        printf("%s property %s -> ", ipath, iprop);
        dump_bytes_hex(data, size);
        fputs(" ('", stdout);
        dump_bytes_text(data, size);
        fputs("')\n", stdout);

        return EOK;
}

static void print_spaces(size_t spaces)
{
        for (size_t i = 0; i < spaces; i++)
                printf(" ");
}

static void print_keys(const char *path, size_t spaces)
{
        size_t size;
        char *keys = sysinfo_get_keys(path, &size);
        if ((keys == NULL) || (size == 0))
                return;

        size_t pos = 0;
        while (pos < size) {
                /* Process each key with sanity checks */
                size_t cur_size = str_nsize(keys + pos, size - pos);
                if (keys[pos + cur_size] != 0)
                        break;

                size_t path_size = str_size(path) + cur_size + 2;
                char *cur_path = (char *) malloc(path_size);
                if (cur_path == NULL)
                        break;

                size_t length;

                if (path[0] != 0) {
                        print_spaces(spaces);
                        printf(".%s\n", keys + pos);
                        length = str_length(keys + pos) + 1;

                        snprintf(cur_path, path_size, "%s.%s", path, keys + pos);
                } else {
                        printf("%s\n", keys + pos);
                        length = str_length(keys + pos);

                        snprintf(cur_path, path_size, "%s", keys + pos);
                }

                print_keys(cur_path, spaces + length);

                free(cur_path);
                pos += cur_size + 1;
        }

        free(keys);
}

int main(int argc, char *argv[])
{
        int rc = 0;

        if (argc < 2) {
                /* Print keys */
                print_keys("", 0);
                return rc;
        }

        char *ipath = argv[1];

        if (argc < 3) {
                sysinfo_item_val_type_t tag = sysinfo_get_val_type(ipath);

                switch (tag) {
                case SYSINFO_VAL_UNDEFINED:
                        printf("Error: Sysinfo item '%s' not defined.\n", ipath);
                        rc = 2;
                        break;
                case SYSINFO_VAL_VAL:
                        rc = print_item_val(ipath);
                        break;
                case SYSINFO_VAL_DATA:
                        rc = print_item_data(ipath);
                        break;
                default:
                        printf("Error: Sysinfo item '%s' with unknown value type.\n",
                            ipath);
                        rc = 2;
                        break;
                }

                return rc;
        }

        char *iprop = argv[2];
        rc = print_item_property(ipath, iprop);
        return rc;
}

/** @}
 */