spif_str_t
spif_url_show(spif_url_t self, spif_charptr_t name, spif_str_t buff, size_t indent)
{
spif_char_t tmp[4096];
if (SPIF_URL_ISNULL(self)) {
SPIF_OBJ_SHOW_NULL(url, name, buff, indent, tmp);
return buff;
}
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent,
"(spif_url_t) %s: %10p {\n",
name, (spif_ptr_t) self);
if (SPIF_STR_ISNULL(buff)) {
buff = spif_str_new_from_ptr(tmp);
} else {
spif_str_append_from_ptr(buff, tmp);
}
buff = spif_str_show(self->proto, SPIF_CHARPTR("proto"), buff, indent + 2);
buff = spif_str_show(self->user, SPIF_CHARPTR("user"), buff, indent + 2);
buff = spif_str_show(self->passwd, SPIF_CHARPTR("passwd"), buff, indent + 2);
buff = spif_str_show(self->host, SPIF_CHARPTR("host"), buff, indent + 2);
buff = spif_str_show(self->port, SPIF_CHARPTR("port"), buff, indent + 2);
buff = spif_str_show(self->path, SPIF_CHARPTR("path"), buff, indent + 2);
buff = spif_str_show(self->query, SPIF_CHARPTR("query"), buff, indent + 2);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "}\n");
spif_str_append_from_ptr(buff, tmp);
return buff;
}
spif_str_t
spif_str_show(spif_str_t self, spif_charptr_t name, spif_str_t buff, size_t indent)
{
spif_char_t tmp[4096];
if (SPIF_STR_ISNULL(self)) {
SPIF_OBJ_SHOW_NULL(str, name, buff, indent, tmp);
return buff;
}
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent,
"(spif_str_t) %s: %10p { \"",
name, (spif_ptr_t) self);
if (SPIF_STR_ISNULL(buff)) {
buff = spif_str_new_from_ptr(tmp);
} else {
spif_str_append_from_ptr(buff, tmp);
}
spif_str_append(buff, self);
snprintf((char *) tmp, sizeof(tmp), "\", len %lu, size %lu }\n", (unsigned long) self->len,
(unsigned long) self->size);
spif_str_append_from_ptr(buff, tmp);
return buff;
}
spif_str_t
spif_socket_show(spif_socket_t self, spif_charptr_t name, spif_str_t buff, size_t indent)
{
spif_char_t tmp[4096];
if (SPIF_SOCKET_ISNULL(self)) {
SPIF_OBJ_SHOW_NULL(socket, name, buff, indent, tmp);
return buff;
}
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent,
"(spif_socket_t) %s: %10p {\n",
name, (spif_ptr_t) self);
if (SPIF_STR_ISNULL(buff)) {
buff = spif_str_new_from_ptr(tmp);
} else {
spif_str_append_from_ptr(buff, tmp);
}
indent += 2;
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_sockfd_t) fd: %d\n", self->fd);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_sockfamily_t) fam: %d\n", (int) self->fam);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_socktype_t) type: %d\n", (int) self->type);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_sockproto_t) proto: %d\n", (int) self->proto);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_sockaddr_t) addr: %10p\n", (spif_ptr_t) self->addr);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_sockaddr_len_t) len: %lu\n", (unsigned long) self->len);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_uint32_t) flags: 0x%08x\n", (unsigned) self->flags);
spif_str_append_from_ptr(buff, tmp);
spif_url_show(self->local_url, SPIF_CHARPTR("local_url"), buff, indent);
spif_url_show(self->remote_url, SPIF_CHARPTR("remote_url"), buff, indent);
indent -= 2;
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "}\n");
spif_str_append_from_ptr(buff, tmp);
return buff;
}
spif_str_t
spif_tok_show(spif_tok_t self, spif_charptr_t name, spif_str_t buff, size_t indent)
{
spif_char_t tmp[4096];
if (SPIF_TOK_ISNULL(self)) {
SPIF_OBJ_SHOW_NULL(tok, name, buff, indent, tmp);
return buff;
}
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent,
"(spif_tok_t) %s: %10p {\n",
name, (spif_ptr_t) self);
if (SPIF_STR_ISNULL(buff)) {
buff = spif_str_new_from_ptr(tmp);
} else {
spif_str_append_from_ptr(buff, tmp);
}
buff = spif_str_show(SPIF_STR(self->src), SPIF_CHARPTR("src"), buff, indent + 2);
buff = spif_str_show(SPIF_STR(self->sep), SPIF_CHARPTR("sep"), buff, indent + 2);
indent += 2;
memset(tmp, ' ', indent);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_char_t) quote: '%c' (0x%02x)\n",
(char) self->quote, (unsigned int) self->quote);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_char_t) dquote: '%c' (0x%02x)\n",
(char) self->dquote, (unsigned int) self->dquote);
spif_str_append_from_ptr(buff, tmp);
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "(spif_char_t) escape: '%c' (0x%02x)\n",
(char) self->escape, (unsigned int) self->escape);
spif_str_append_from_ptr(buff, tmp);
SPIF_LIST_SHOW(self->tokens, buff, indent);
indent -= 2;
snprintf((char *) tmp + indent, sizeof(tmp) - indent, "}\n");
spif_str_append_from_ptr(buff, tmp);
return buff;
}
spif_bool_t
spif_url_unparse(spif_url_t self)
{
ASSERT_RVAL(!SPIF_URL_ISNULL(self), FALSE);
spif_str_done(SPIF_STR(self));
spif_str_init_from_ptr(SPIF_STR(self), SPIF_CHARPTR(""));
/* First, proto followed by a colon. */
if (!SPIF_STR_ISNULL(self->proto)) {
spif_str_append(SPIF_STR(self), self->proto);
spif_str_append_char(SPIF_STR(self), ':');
}
/* If we have a port but no host, make it localhost. */
if (!SPIF_STR_ISNULL(self->port) && SPIF_STR_ISNULL(self->host)) {
self->host = spif_str_new_from_ptr(SPIF_CHARPTR("localhost"));
}
/* We need the // if we have a hostname. */
if (!SPIF_STR_ISNULL(self->host)) {
spif_str_append_from_ptr(SPIF_STR(self), SPIF_CHARPTR("//"));
}
if (!SPIF_STR_ISNULL(self->user)) {
spif_str_append(SPIF_STR(self), self->user);
if (!SPIF_STR_ISNULL(self->passwd)) {
spif_str_append_char(SPIF_STR(self), ':');
spif_str_append(SPIF_STR(self), self->passwd);
}
spif_str_append_char(SPIF_STR(self), '@');
}
if (!SPIF_STR_ISNULL(self->host)) {
spif_str_append(SPIF_STR(self), self->host);
if (!SPIF_STR_ISNULL(self->port)) {
spif_str_append_char(SPIF_STR(self), ':');
spif_str_append(SPIF_STR(self), self->port);
}
}
if (!SPIF_STR_ISNULL(self->path)) {
spif_str_append(SPIF_STR(self), self->path);
}
if (!SPIF_STR_ISNULL(self->query)) {
spif_str_append_char(SPIF_STR(self), '?');
spif_str_append(SPIF_STR(self), self->query);
}
return TRUE;
}
spif_str_t
spif_eterm_action_show(spif_eterm_action_t self, spif_charptr_t name, spif_str_t buff, size_t indent)
{
char tmp[4096];
if (SPIF_ETERM_ACTION_ISNULL(self)) {
SPIF_OBJ_SHOW_NULL(eterm_action, name, buff, indent, tmp);
return buff;
}
memset(tmp, ' ', indent);
snprintf(tmp + indent, sizeof(tmp) - indent, "(spif_eterm_action_t) %s: {\n", name);
if (SPIF_STR_ISNULL(buff)) {
buff = spif_str_new_from_ptr(tmp);
} else {
spif_str_append_from_ptr(buff, tmp);
}
snprintf(tmp + indent, sizeof(tmp) - indent, " (spif_eterm_action_type_t) type: %d\n", self->type);
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, " (spif_ushort_t) modifiers: %c%c%c%c\n", SHOW_MODS(self->modifiers));
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, " (spif_uchar_t) button: %d\n", self->button);
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, " (KeySym) keysym: %04x\n", (unsigned) self->keysym);
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, " (spif_eterm_action_handler_t) handler: %10p\n", self->handler);
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, " (spif_eterm_action_parameter_t) parameter: %10p\n", self->parameter);
spif_str_append_from_ptr(buff, tmp);
snprintf(tmp + indent, sizeof(tmp) - indent, "}\n");
spif_str_append_from_ptr(buff, tmp);
return buff;
}
/**
* Parse the command line arguments for options.
*
* This function iterates through the command line arguments looking
* for options which have been defined. Each option encountered is
* handled according to its type.
*
* @param argc The number of arguments.
* @param argv The array of argument strings.
*
* @see @link DOXGRP_OPT Command Line Option Parser @endlink
* @ingroup DOXGRP_OPT
*/
void
spifopt_parse(int argc, char *argv[])
{
spif_int32_t i, j;
spif_charptr_t opt;
REQUIRE(argc > 1);
REQUIRE(argv != NULL);
/* Process each command line arg one-by-one. */
for (i = 1, opt = SPIF_CHARPTR(argv[1]); i < argc; ) {
spif_charptr_t val_ptr = NULL;
spif_char_t islong = 0, hasequal = 0;
D_OPTIONS(("argv[%d] == \"%s\", opt == \"%s\"\n", i, argv[i], opt));
if (SPIF_PTR_ISNULL(opt)) {
/* NEXT_ARG(); */
break;
} else if (opt == SPIF_CHARPTR(argv[i])) {
/* If it's not an option, skip it. */
if (*opt != '-') {
NEXT_ARG();
} else {
opt++;
}
}
/* If the second character is also a hyphen, it's a long option. */
if (*opt == '-') {
islong = 1;
/* Skip the leading "--" */
opt++;
D_OPTIONS(("Long option detected\n"));
if ((j = find_long_option(opt)) == -1) {
NEXT_ARG();
}
} else {
if ((j = find_short_option(*opt)) == -1) {
NEXT_LETTER();
}
}
if (!SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_PREPARSE) && SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_REMOVE_ARGS)) {
argv[i] = NULL;
}
/* If a value was passed to this option, set val_ptr to point to it. */
if (islong) {
val_ptr = find_value_long(SPIF_CHARPTR(opt), SPIF_CHARPTR(argv[i + 1]), &hasequal);
} else {
val_ptr = find_value_short(opt, SPIF_CHARPTR(argv[i + 1]));
}
/* Boolean options may or may not have a value... */
if (val_ptr) {
if (SPIFOPT_OPT_IS_BOOLEAN(j) && !is_boolean_value(val_ptr)) {
val_ptr = NULL;
} else if (SPIFOPT_OPT_IS_ABSTRACT(j) && is_valid_option(val_ptr)) {
val_ptr = NULL;
}
}
if (val_ptr) {
if (val_ptr == SPIF_CHARPTR(argv[i + 1])) {
i++;
opt += strlen((char *) opt);
}
}
/* If this option is deprecated, print a warning before continuing. */
if (SPIFOPT_OPT_IS_DEPRECATED(j)) {
spif_str_t warn;
warn = spif_str_new_from_buff(SPIF_CHARPTR("The "), 128);
if (SPIFOPT_OPT_SHORT(j)) {
spif_str_append_char(warn, '-');
spif_str_append_char(warn, SPIFOPT_OPT_SHORT(j));
spif_str_append_from_ptr(warn, SPIF_CHARPTR(" / --"));
} else {
spif_str_append_from_ptr(warn, SPIF_CHARPTR("--"));
}
spif_str_append_from_ptr(warn, SPIFOPT_OPT_LONG(j));
spif_str_append_from_ptr(warn, SPIF_CHARPTR(" option is deprecated and should not be used.\n"));
libast_print_warning((char *) SPIF_STR_STR(warn));
spif_str_del(warn);
}
/* Make sure that options which require a parameter have them. */
if (SPIFOPT_OPT_NEEDS_VALUE(j)) {
if (!val_ptr) {
if (islong) {
libast_print_error("long option --%s requires a%s value\n", SPIFOPT_OPT_LONG(j),
(SPIFOPT_OPT_IS_INTEGER(j)
? ("n integer")
: (SPIFOPT_OPT_IS_STRING(j)
? " string"
: (SPIFOPT_OPT_IS_ARGLIST(j)
? "n argument list"
: ""))));
} else {
libast_print_error("option -%c requires a%s value\n", SPIFOPT_OPT_SHORT(j),
(SPIFOPT_OPT_IS_INTEGER(j)
? ("n integer")
: (SPIFOPT_OPT_IS_STRING(j)
? " string"
: (SPIFOPT_OPT_IS_ARGLIST(j)
? "n argument list"
: ""))));
}
CHECK_BAD();
continue;
}
/* Also make sure we know what to do with the value. */
if (!SPIFOPT_OPT_VALUE(j)) {
NEXT_LOOP();
}
} else if (SPIFOPT_OPT_IS_ABSTRACT(j) && !SPIFOPT_OPT_VALUE(j)) {
/* Also make sure that abstract options have a function pointer. */
NEXT_LOOP();
}
if (SPIFOPT_OPT_IS_BOOLEAN(j)) {
if (!handle_boolean(j, val_ptr, islong)) {
i--;
}
} else if (SPIFOPT_OPT_IS_STRING(j)) {
if (SHOULD_PARSE(j)) {
handle_string(j, val_ptr);
}
} else if (SPIFOPT_OPT_IS_INTEGER(j)) {
if (SHOULD_PARSE(j)) {
handle_integer(j, val_ptr);
}
} else if (SPIFOPT_OPT_IS_ARGLIST(j)) {
if (SHOULD_PARSE(j)) {
handle_arglist(j, val_ptr, hasequal, i, argc, argv);
}
if (!hasequal) {
break;
}
} else if (SPIFOPT_OPT_IS_ABSTRACT(j)) {
if (SHOULD_PARSE(j)) {
D_OPTIONS(("Abstract option detected\n"));
((spifopt_abstract_handler_t) SPIFOPT_OPT_VALUE(j))(val_ptr);
}
}
if (!SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_PREPARSE) && SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_REMOVE_ARGS)) {
argv[i] = NULL;
}
NEXT_LOOP();
}
if (SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_PREPARSE)) {
SPIFOPT_FLAGS_CLEAR(SPIFOPT_SETTING_PREPARSE);
} else if (SPIFOPT_FLAGS_IS_SET(SPIFOPT_SETTING_REMOVE_ARGS)) {
for (i = 1, j = 1; i < argc; i++) {
if (argv[i]) {
argv[j] = argv[i];
j++;
}
}
if (j > 1) {
argv[j] = NULL;
}
}
}
