1
1
openmpi/opal/util/show_help.c
Jeff Squyres 13b29cff2c This commit compliements/completes r30140. r30140 made all the
configury/Makefile.am changes; this commit renames the internal
installdirs.h framework struct field names to match the configry macro
names:

 * pkgdatdir ->	ompidatadir
 * pkglibdir -> ompilibdir
 * pkgincludedir -> ompiincludedir

This commit was SVN r30145.

The following SVN revision numbers were found above:
  r30140 --> open-mpi/ompi@8b778903d8
2014-01-07 23:36:33 +00:00

368 строки
9.6 KiB
C

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2006 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2008 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "opal_config.h"
#include <stdio.h>
#include <string.h>
#include <locale.h>
#include <errno.h>
#include "opal/mca/installdirs/installdirs.h"
#include "opal/util/show_help.h"
#include "opal/util/show_help_lex.h"
#include "opal/util/printf.h"
#include "opal/util/argv.h"
#include "opal/util/os_path.h"
#include "opal/util/output.h"
#include "opal/constants.h"
/*
* Private variables
*/
static const char *default_filename = "help-messages";
static const char *dash_line = "--------------------------------------------------------------------------\n";
static int output_stream = -1;
static char **search_dirs = NULL;
/*
* Local functions
*/
static int opal_show_vhelp_internal(const char *filename, const char *topic,
bool want_error_header, va_list arglist);
static int opal_show_help_internal(const char *filename, const char *topic,
bool want_error_header, ...);
opal_show_help_fn_t opal_show_help = opal_show_help_internal;
opal_show_vhelp_fn_t opal_show_vhelp = opal_show_vhelp_internal;
int opal_show_help_init(void)
{
opal_output_stream_t lds;
OBJ_CONSTRUCT(&lds, opal_output_stream_t);
lds.lds_want_stderr = true;
output_stream = opal_output_open(&lds);
opal_argv_append_nosize(&search_dirs, opal_install_dirs.ompidatadir);
return OPAL_SUCCESS;
}
int opal_show_help_finalize(void)
{
opal_output_close(output_stream);
output_stream = -1;
/* destruct the search list */
if (NULL != search_dirs) {
opal_argv_free(search_dirs);
};
return OPAL_SUCCESS;
}
/*
* Make one big string with all the lines. This isn't the most
* efficient method in the world, but we're going for clarity here --
* not optimization. :-)
*/
static int array2string(char **outstring,
bool want_error_header, char **lines)
{
int i, count;
size_t len;
/* See how much space we need */
len = want_error_header ? 2 * strlen(dash_line) : 0;
count = opal_argv_count(lines);
for (i = 0; i < count; ++i) {
if (NULL == lines[i]) {
break;
}
len += strlen(lines[i]) + 1;
}
/* Malloc it out */
(*outstring) = (char*) malloc(len + 1);
if (NULL == *outstring) {
return OPAL_ERR_OUT_OF_RESOURCE;
}
/* Fill the big string */
*(*outstring) = '\0';
if (want_error_header) {
strcat(*outstring, dash_line);
}
for (i = 0; i < count; ++i) {
if (NULL == lines[i]) {
break;
}
strcat(*outstring, lines[i]);
strcat(*outstring, "\n");
}
if (want_error_header) {
strcat(*outstring, dash_line);
}
return OPAL_SUCCESS;
}
/*
* Find the right file to open
*/
static int open_file(const char *base, const char *topic)
{
char *filename;
char *err_msg = NULL;
size_t base_len;
int i;
/* If no filename was supplied, use the default */
if (NULL == base) {
base = default_filename;
}
/* if this is called prior to someone initializing the system,
* then don't try to look
*/
if (NULL != search_dirs) {
/* Try to open the file. If we can't find it, try it with a .txt
* extension.
*/
for (i=0; NULL != search_dirs[i]; i++) {
filename = opal_os_path( false, search_dirs[i], base, NULL );
opal_show_help_yyin = fopen(filename, "r");
if (NULL == opal_show_help_yyin) {
asprintf(&err_msg, "%s: %s", filename, strerror(errno));
base_len = strlen(base);
if (4 > base_len || 0 != strcmp(base + base_len - 4, ".txt")) {
free(filename);
asprintf(&filename, "%s%s%s.txt", search_dirs[i], OPAL_PATH_SEP, base);
opal_show_help_yyin = fopen(filename, "r");
}
}
free(filename);
if (NULL != opal_show_help_yyin) {
break;
}
}
}
/* If we still couldn't open it, then something is wrong */
if (NULL == opal_show_help_yyin) {
opal_output(output_stream, "%sSorry! You were supposed to get help about:\n %s\nBut I couldn't open the help file:\n %s. Sorry!\n%s", dash_line, topic, err_msg, dash_line);
free(err_msg);
return OPAL_ERR_NOT_FOUND;
}
if (NULL != err_msg) {
free(err_msg);
}
/* Set the buffer */
opal_show_help_init_buffer(opal_show_help_yyin);
/* Happiness */
return OPAL_SUCCESS;
}
/*
* In the file that has already been opened, find the topic that we're
* supposed to output
*/
static int find_topic(const char *base, const char *topic)
{
int token, ret;
char *tmp;
/* Examine every topic */
while (1) {
token = opal_show_help_yylex();
switch (token) {
case OPAL_SHOW_HELP_PARSE_TOPIC:
tmp = strdup(opal_show_help_yytext);
if (NULL == tmp) {
return OPAL_ERR_OUT_OF_RESOURCE;
}
tmp[strlen(tmp) - 1] = '\0';
ret = strcmp(tmp + 1, topic);
free(tmp);
if (0 == ret) {
return OPAL_SUCCESS;
}
break;
case OPAL_SHOW_HELP_PARSE_MESSAGE:
break;
case OPAL_SHOW_HELP_PARSE_DONE:
opal_output(output_stream, "%sSorry! You were supposed to get help about:\n %s\nfrom the file:\n %s\nBut I couldn't find that topic in the file. Sorry!\n%s", dash_line, topic, base, dash_line);
return OPAL_ERR_NOT_FOUND;
break;
default:
break;
}
}
/* Never get here */
}
/*
* We have an open file, and we're pointed at the right topic. So
* read in all the lines in the topic and make a list of them.
*/
static int read_topic(char ***array)
{
char *tmp;
int token;
while (1) {
token = opal_show_help_yylex();
switch (token) {
case OPAL_SHOW_HELP_PARSE_MESSAGE:
tmp = strdup(opal_show_help_yytext);
if (NULL == tmp) {
return OPAL_ERR_OUT_OF_RESOURCE;
}
opal_argv_append_nosize(array, tmp);
break;
default:
return OPAL_SUCCESS;
break;
}
}
/* Never get here */
}
static int load_array(char ***array, const char *filename, const char *topic)
{
int ret;
if (OPAL_SUCCESS != (ret = open_file(filename, topic))) {
return ret;
}
ret = find_topic(filename, topic);
if (OPAL_SUCCESS == ret) {
ret = read_topic(array);
}
fclose(opal_show_help_yyin);
opal_show_help_yylex_destroy ();
if (OPAL_SUCCESS != ret) {
opal_argv_free(*array);
}
return ret;
}
char *opal_show_help_vstring(const char *filename, const char *topic,
bool want_error_header, va_list arglist)
{
int rc;
char *single_string, *output, **array = NULL;
/* Load the message */
if (OPAL_SUCCESS != (rc = load_array(&array, filename, topic))) {
return NULL;
}
/* Convert it to a single raw string */
rc = array2string(&single_string, want_error_header, array);
if (OPAL_SUCCESS == rc) {
/* Apply the formatting to make the final output string */
vasprintf(&output, single_string, arglist);
free(single_string);
}
opal_argv_free(array);
return (OPAL_SUCCESS == rc) ? output : NULL;
}
char *opal_show_help_string(const char *filename, const char *topic,
bool want_error_handler, ...)
{
char *output;
va_list arglist;
va_start(arglist, want_error_handler);
output = opal_show_help_vstring(filename, topic, want_error_handler,
arglist);
va_end(arglist);
return output;
}
static int opal_show_vhelp_internal(const char *filename, const char *topic,
bool want_error_header, va_list arglist)
{
char *output;
/* Convert it to a single string */
output = opal_show_help_vstring(filename, topic, want_error_header,
arglist);
/* If we got a single string, output it with formatting */
if (NULL != output) {
opal_output(output_stream, "%s", output);
free(output);
}
return (NULL == output) ? OPAL_ERROR : OPAL_SUCCESS;
}
static int opal_show_help_internal(const char *filename, const char *topic,
bool want_error_header, ...)
{
va_list arglist;
int rc;
/* Convert it to a single string */
va_start(arglist, want_error_header);
rc = opal_show_vhelp(filename, topic, want_error_header, arglist);
va_end(arglist);
return rc;
}
int opal_show_help_add_dir(const char *directory)
{
opal_argv_append_nosize(&search_dirs, directory);
return OPAL_SUCCESS;
}