options.c

Go to the documentation of this file.

// SPDX-License-Identifier: GPL-2.0-or-later
 
/***************************************************************************
 *   Copyright (C) 2004, 2005 by Dominic Rath                              *
 *   Dominic.Rath@gmx.de                                                   *
 *                                                                         *
 *   Copyright (C) 2007-2010 Øyvind Harboe                                 *
 *   oyvind.harboe@zylin.com                                               *
 ***************************************************************************/
 
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
 
#include "configuration.h"
#include "log.h"
#include "command.h"
 
#include <getopt.h>
 
#include <limits.h>
#include <stdlib.h>
#include <string.h>
#if IS_DARWIN
#include <libproc.h>
#endif
/* sys/sysctl.h is deprecated on Linux from glibc 2.30 */
#ifndef __linux__
#ifdef HAVE_SYS_SYSCTL_H
#include <sys/sysctl.h>
#endif
#endif
#if IS_WIN32 && !IS_CYGWIN
#include <windows.h>
#endif
 
static int help_flag, version_flag;
 
static const struct option long_options[] = {
    {"help",        no_argument,            &help_flag,     1},
    {"version",     no_argument,            &version_flag,  1},
    {"debug",       optional_argument,      NULL,           'd'},
    {"file",        required_argument,      NULL,           'f'},
    {"search",      required_argument,      NULL,           's'},
    {"log_output",  required_argument,      NULL,           'l'},
    {"command",     required_argument,      NULL,           'c'},
    {NULL, 0, NULL, 0}
};
 
int configuration_output_handler(struct command_context *context, const char *line)
{
    LOG_USER_N("%s", line);
 
    return ERROR_OK;
}
 
/* Return the canonical path to the directory the openocd executable is in.
 * The path should be absolute, use / as path separator and have all symlinks
 * resolved. The returned string is malloc'd. */
static char *find_exe_path(void)
{
    char *exepath = NULL;
 
    do {
#if IS_WIN32 && !IS_CYGWIN
        exepath = malloc(MAX_PATH);
        if (!exepath)
            break;
        GetModuleFileName(NULL, exepath, MAX_PATH);
 
        /* Convert path separators to UNIX style, should work on Windows also. */
        for (char *p = exepath; *p; p++) {
            if (*p == '\\')
                *p = '/';
        }
 
#elif IS_DARWIN
        exepath = malloc(PROC_PIDPATHINFO_MAXSIZE);
        if (!exepath)
            break;
        if (proc_pidpath(getpid(), exepath, PROC_PIDPATHINFO_MAXSIZE) <= 0) {
            free(exepath);
            exepath = NULL;
        }
 
#elif defined(CTL_KERN) && defined(KERN_PROC) && defined(KERN_PROC_PATHNAME) /* *BSD */
#ifndef PATH_MAX
#define PATH_MAX 1024
#endif
        char *path = malloc(PATH_MAX);
        if (!path)
            break;
        int mib[] = { CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1 };
        size_t size = PATH_MAX;
 
        if (sysctl(mib, (u_int)ARRAY_SIZE(mib), path, &size, NULL, 0) != 0)
            break;
 
#ifdef HAVE_REALPATH
        exepath = realpath(path, NULL);
        free(path);
#else
        exepath = path;
#endif
 
#elif defined(HAVE_REALPATH) /* Assume POSIX.1-2008 */
        /* Try Unices in order of likelihood. */
        exepath = realpath("/proc/self/exe", NULL); /* Linux/Cygwin */
        if (!exepath)
            exepath = realpath("/proc/self/path/a.out", NULL); /* Solaris */
        if (!exepath)
            exepath = realpath("/proc/curproc/file", NULL); /* FreeBSD (Should be covered above) */
#endif
    } while (0);
 
    if (exepath) {
        /* Strip executable file name, leaving path */
        *strrchr(exepath, '/') = '\0';
    } else {
        LOG_WARNING("Could not determine executable path, using configured BINDIR.");
        LOG_DEBUG("BINDIR = %s", BINDIR);
#ifdef HAVE_REALPATH
        exepath = realpath(BINDIR, NULL);
#else
        exepath = strdup(BINDIR);
#endif
    }
 
    return exepath;
}
 
static char *find_relative_path(const char *from, const char *to)
{
    size_t i;
 
    /* Skip common /-separated parts of from and to */
    i = 0;
    for (size_t n = 0; ; n++) {
        if (!from[n] || !to[n]) {
            /* one path ended: common only if the other ends or continues with '/' */
            if ((!from[n] || from[n] == '/') && (!to[n] || to[n] == '/'))
                i = n;
            break;
        }
        if (from[n] != to[n])
            break;
        if (from[n] == '/')
            i = n + 1;
    }
    from += i;
    to += i;
    if (*from == '/')
        from++;
    if (*to == '/')
        to++;
 
    /* Count number of /-separated non-empty parts of from */
    i = 0;
    while (from[0] != '\0') {
        if (from[0] != '/')
            i++;
        const char *next = strchr(from, '/');
        if (!next)
            break;
        from = next + 1;
    }
 
    /* Prepend that number of ../ in front of to */
    char *relpath = malloc(i * 3 + strlen(to) + 1);
    relpath[0] = '\0';
    for (size_t n = 0; n < i; n++)
        strcat(relpath, "../");
    size_t len = strlen(relpath);
    if (!*to && len)
        relpath[len - 1] = '\0';
    strcat(relpath, to);
 
    return relpath;
}
 
static void add_user_dirs(void)
{
    char *path;
 
#if IS_WIN32
    const char *appdata = getenv("APPDATA");
 
    if (appdata) {
        path = alloc_printf("%s/OpenOCD", appdata);
        if (path) {
            /* Convert path separators to UNIX style, should work on Windows also. */
            for (char *p = path; *p; p++) {
                if (*p == '\\')
                    *p = '/';
            }
            add_script_search_dir(path);
            free(path);
        }
    }
    /* WIN32 may also have HOME defined, particularly under Cygwin, so add those paths below too */
#endif
 
    const char *home = getenv("HOME");
#if IS_DARWIN
    if (home) {
        path = alloc_printf("%s/Library/Preferences/org.openocd", home);
        if (path) {
            add_script_search_dir(path);
            free(path);
        }
    }
#endif
    const char *xdg_config = getenv("XDG_CONFIG_HOME");
 
    if (xdg_config) {
        path = alloc_printf("%s/openocd", xdg_config);
        if (path) {
            add_script_search_dir(path);
            free(path);
        }
    } else if (home) {
        path = alloc_printf("%s/.config/openocd", home);
        if (path) {
            add_script_search_dir(path);
            free(path);
        }
    }
 
    if (home) {
        path = alloc_printf("%s/.openocd", home);
        if (path) {
            add_script_search_dir(path);
            free(path);
        }
    }
}
 
static void add_default_dirs(void)
{
    char *path;
    char *exepath = find_exe_path();
    char *bin2data = find_relative_path(BINDIR, PKGDATADIR);
 
    LOG_DEBUG("bindir=%s", BINDIR);
    LOG_DEBUG("pkgdatadir=%s", PKGDATADIR);
    LOG_DEBUG("exepath=%s", exepath);
    LOG_DEBUG("bin2data=%s", bin2data);
 
    /*
     * The directory containing OpenOCD-supplied scripts should be
     * listed last in the built-in search order, so the user can
     * override these scripts with site-specific customizations.
     */
    path = getenv("OPENOCD_SCRIPTS");
    if (path)
        add_script_search_dir(path);
 
    add_user_dirs();
 
    path = alloc_printf("%s/%s/%s", exepath, bin2data, "site");
    if (path) {
        add_script_search_dir(path);
        free(path);
    }
 
    path = alloc_printf("%s/%s/%s", exepath, bin2data, "scripts");
    if (path) {
        add_script_search_dir(path);
        free(path);
    }
 
    free(exepath);
    free(bin2data);
}
 
int parse_cmdline_args(struct command_context *cmd_ctx, int argc, char *argv[])
{
    int c;
 
    while (1) {
        /* getopt_long stores the option index here. */
        int option_index = 0;
 
        c = getopt_long(argc, argv, "hvd::l:f:s:c:", long_options, &option_index);
 
        /* Detect the end of the options. */
        if (c == -1)
            break;
 
        switch (c) {
        case 0:
            break;
        case 'h':       /* --help | -h */
            help_flag = 1;
            break;
        case 'v':       /* --version | -v */
            version_flag = 1;
            break;
        case 'f':       /* --file | -f */
        {
            char *command = alloc_printf("script {%s}", optarg);
            add_config_command(command);
            free(command);
            break;
        }
        case 's':       /* --search | -s */
            add_script_search_dir(optarg);
            break;
        case 'd':       /* --debug | -d */
        {
            int retval = command_run_linef(cmd_ctx, "debug_level %s", optarg ? optarg : "3");
            if (retval != ERROR_OK)
                return retval;
            break;
        }
        case 'l':       /* --log_output | -l */
        {
            int retval = command_run_linef(cmd_ctx, "log_output %s", optarg);
            if (retval != ERROR_OK)
                return retval;
            break;
        }
        case 'c':       /* --command | -c */
            add_config_command(optarg);
            break;
        default:  /* '?' */
            /* getopt will emit an error message, all we have to do is bail. */
            return ERROR_FAIL;
        }
    }
 
    if (optind < argc) {
        /* Catch extra arguments on the command line. */
        LOG_OUTPUT("Unexpected command line argument: %s\n", argv[optind]);
        return ERROR_FAIL;
    }
 
    if (help_flag) {
        LOG_OUTPUT("Open On-Chip Debugger\nLicensed under GNU GPL v2\n");
        LOG_OUTPUT("--help       | -h\tdisplay this help\n");
        LOG_OUTPUT("--version    | -v\tdisplay OpenOCD version\n");
        LOG_OUTPUT("--file       | -f\tuse configuration file <name>\n");
        LOG_OUTPUT("--search     | -s\tdir to search for config files and scripts\n");
        LOG_OUTPUT("--debug      | -d\tset debug level to 3\n");
        LOG_OUTPUT("             | -d<n>\tset debug level to <level>\n");
        LOG_OUTPUT("--log_output | -l\tredirect log output to file <name>\n");
        LOG_OUTPUT("--command    | -c\trun <command>\n");
        exit(0);
    }
 
    if (version_flag) {
        /* Nothing to do, version gets printed automatically. */
        /* It is not an error to request the VERSION number. */
        exit(0);
    }
 
    /* dump full command line */
    for (int i = 0; i < argc; i++)
        LOG_DEBUG("ARGV[%d] = \"%s\"", i, argv[i]);
 
    /* paths specified on the command line take precedence over these
     * built-in paths
     */
    add_default_dirs();
 
    return ERROR_OK;
}