Blame src/internal/argv/argv.h

383aa6
/****************************************************************************/
383aa6
/*  argv.h: a thread-safe argument vector parser and usage screen generator */
383aa6
/*  Copyright (C) 2015  Z. Gilboa                                           */
383aa6
/*  Released under GPLv2 and GPLv3; see COPYING.APIMAGIC                    */
383aa6
/*  This file is (also) part of sofort: portable software project template. */
383aa6
/****************************************************************************/
383aa6
383aa6
#ifndef ARGV_H
383aa6
#define ARGV_H
383aa6
383aa6
#include <stdbool.h>
383aa6
#include <stdint.h>
383aa6
#include <stddef.h>
383aa6
#include <errno.h>
383aa6
#include <string.h>
383aa6
#include <stdlib.h>
383aa6
#include <stdio.h>
383aa6
383aa6
#define ARGV_VERBOSITY_NONE		0x00
383aa6
#define ARGV_VERBOSITY_ERRORS		0x01
383aa6
#define ARGV_VERBOSITY_STATUS		0x02
383aa6
#define ARGV_CLONE_VECTOR		0x80
383aa6
383aa6
#ifndef ARGV_TAB
383aa6
#define ARGV_TAB			8
383aa6
#endif
383aa6
383aa6
enum argv_optarg {
383aa6
	ARGV_OPTARG_NONE,
383aa6
	ARGV_OPTARG_REQUIRED,
383aa6
	ARGV_OPTARG_OPTIONAL,
383aa6
};
383aa6
383aa6
enum argv_mode {
383aa6
	ARGV_MODE_SCAN,
383aa6
	ARGV_MODE_COPY,
383aa6
};
383aa6
383aa6
enum argv_error {
383aa6
	ARGV_ERROR_OK,
383aa6
	ARGV_ERROR_INTERNAL,
383aa6
	ARGV_ERROR_SHORT_OPTION,
383aa6
	ARGV_ERROR_LONG_OPTION,
383aa6
	ARGV_ERROR_OPTARG_NONE,
383aa6
	ARGV_ERROR_OPTARG_REQUIRED,
383aa6
	ARGV_ERROR_OPTARG_PARADIGM,
383aa6
};
383aa6
383aa6
struct argv_option {
383aa6
	const char *		long_name;
383aa6
	const char		short_name;
383aa6
	int			tag;
383aa6
	enum argv_optarg	optarg;
383aa6
	const char *		paradigm;
383aa6
	const char *		argname;
383aa6
	const char *		description;
383aa6
};
383aa6
383aa6
struct argv_entry {
383aa6
	const char *	arg;
383aa6
	int		tag;
383aa6
	bool		fopt;
383aa6
	bool		fval;
383aa6
	bool		fnoscan;
383aa6
	enum argv_error errcode;
383aa6
};
383aa6
383aa6
struct argv_meta {
383aa6
	const char **		argv;
383aa6
	struct argv_entry *	entries;
383aa6
};
383aa6
383aa6
struct argv_meta_impl {
383aa6
	const char **		argv;
383aa6
	char *			strbuf;
383aa6
	struct argv_meta	meta;
383aa6
};
383aa6
383aa6
struct argv_ctx {
383aa6
	int				flags;
383aa6
	int				mode;
383aa6
	int				nentries;
383aa6
	enum argv_error 		errcode;
383aa6
	const char *			errch;
383aa6
	const struct argv_option *	erropt;
383aa6
	const char *			program;
383aa6
};
383aa6
383aa6
#ifdef ARGV_DRIVER
383aa6
383aa6
static const char * argv_program_name(const char *);
383aa6
383aa6
static void argv_usage(
383aa6
	FILE *,
383aa6
	const char *	header,
383aa6
	const struct	argv_option[],
383aa6
	const char *	mode);
383aa6
383aa6
static struct argv_meta * argv_get(
383aa6
	const char **,
383aa6
	const struct argv_option[],
383aa6
	int flags);
383aa6
383aa6
static void argv_free(struct argv_meta *);
383aa6
383aa6
383aa6
383aa6
383aa6
/*------------------------------------*/
383aa6
/* implementation of static functions */
383aa6
/*------------------------------------*/
383aa6
383aa6
static const struct argv_option * argv_short_option(
383aa6
	const char *			ch,
383aa6
	const struct argv_option	options[],
383aa6
	struct argv_entry *		entry)
383aa6
{
383aa6
	const struct argv_option *	option;
383aa6
383aa6
	for (option=options; option->long_name || option->short_name; option++) {
383aa6
		if (option->short_name == *ch) {
383aa6
			entry->tag	= option->tag;
383aa6
			entry->fopt	= true;
383aa6
			return option;
383aa6
		}
383aa6
	}
383aa6
383aa6
	return 0;
383aa6
}
383aa6
383aa6
static const struct argv_option * argv_long_option(
383aa6
	const char *			ch,
383aa6
	const struct argv_option	options[],
383aa6
	struct argv_entry *		entry)
383aa6
{
383aa6
	const struct argv_option *	option;
383aa6
	const char *			arg;
383aa6
	size_t				len;
383aa6
383aa6
	for (option=options; option->long_name || option->short_name; option++) {
383aa6
		len = option->long_name ? strlen(option->long_name) : 0;
383aa6
383aa6
		if (len && !(strncmp(option->long_name,ch,len))) {
383aa6
			arg = ch + len;
383aa6
383aa6
			if (!*arg || (*arg == '=')) {
383aa6
				entry->tag	= option->tag;
383aa6
				entry->fopt	= true;
383aa6
				return option;
383aa6
			}
383aa6
		}
383aa6
	}
383aa6
383aa6
	return 0;
383aa6
}
383aa6
383aa6
static inline bool is_short_option(const char * arg)
383aa6
{
383aa6
	return (arg[0]=='-') && arg[1] && (arg[1]!='-');
383aa6
}
383aa6
383aa6
static inline bool is_long_option(const char * arg)
383aa6
{
383aa6
	return (arg[0]=='-') && (arg[1]=='-') && arg[2];
383aa6
}
383aa6
383aa6
static inline bool is_last_option(const char * arg)
383aa6
{
383aa6
	return (arg[0]=='-') && (arg[1]=='-') && !arg[2];
383aa6
}
383aa6
383aa6
static inline bool is_arg_in_paradigm(const char * arg, const char * paradigm)
383aa6
{
383aa6
	size_t		len;
383aa6
	const char *	ch;
383aa6
383aa6
	for (ch=paradigm,len=strlen(arg); ch; ) {
383aa6
		if (!strncmp(arg,ch,len)) {
383aa6
			if (!*(ch += len))
383aa6
				return true;
383aa6
			else if (*ch == '|')
383aa6
				return true;
383aa6
		}
383aa6
383aa6
		if ((ch = strchr(ch,'|')))
383aa6
			ch++;
383aa6
	}
383aa6
383aa6
	return false;
383aa6
}
383aa6
383aa6
static inline const struct argv_option * option_from_tag(
383aa6
	const struct argv_option	options[],
383aa6
	int				tag)
383aa6
{
383aa6
	const struct argv_option *	option;
383aa6
383aa6
	for (option=options; option->short_name || option->long_name; option++)
383aa6
		if (option->tag == tag)
383aa6
			return option;
383aa6
	return 0;
383aa6
}
383aa6
383aa6
static void argv_scan(
383aa6
	const char **			argv,
383aa6
	const struct argv_option	options[],
383aa6
	struct argv_ctx *		ctx,
383aa6
	struct argv_meta *		meta)
383aa6
{
383aa6
	const char **			parg;
383aa6
	const char *			ch;
383aa6
	const char *			val;
383aa6
	const struct argv_option *	option;
383aa6
	struct argv_entry		entry;
383aa6
	struct argv_entry *		mentry;
383aa6
	enum argv_error			ferror;
383aa6
	bool				fval;
383aa6
	bool				fnext;
383aa6
	bool				fshort;
383aa6
	bool				fnoscan;
383aa6
383aa6
	argv++;
383aa6
	parg	= argv;
383aa6
	ch	= *parg;
383aa6
	ferror	= ARGV_ERROR_OK;
383aa6
	fshort	= false;
383aa6
	fnoscan	= false;
383aa6
	fval	= false;
383aa6
	mentry	= meta ? meta->entries : 0;
383aa6
383aa6
	while (ch && (ferror == ARGV_ERROR_OK)) {
383aa6
		option = 0;
383aa6
383aa6
		if (fnoscan)
383aa6
			fval = true;
383aa6
383aa6
		else if (is_last_option(ch))
383aa6
			fnoscan = true;
383aa6
383aa6
		else if ((fshort || is_short_option(ch))) {
383aa6
			if (!fshort)
383aa6
				ch++;
383aa6
383aa6
			if ((option = argv_short_option(ch,options,&entry))) {
383aa6
				if (ch[1]) {
383aa6
					ch++;
383aa6
					fnext	= false;
383aa6
					fshort	= (option->optarg == ARGV_OPTARG_NONE);
383aa6
				} else {
383aa6
					parg++;
383aa6
					ch	= *parg;
383aa6
					fnext	= true;
383aa6
					fshort	= false;
383aa6
				}
383aa6
383aa6
				if (option->optarg == ARGV_OPTARG_NONE) {
383aa6
					if (!fnext && ch && (*ch == '-'))
383aa6
						ferror = ARGV_ERROR_OPTARG_NONE;
383aa6
					else
383aa6
						fval = false;
383aa6
				} else if (!fnext)
383aa6
					fval = true;
383aa6
				else if (option->optarg == ARGV_OPTARG_REQUIRED) {
383aa6
					if (ch && is_short_option(ch))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (ch && is_long_option(ch))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (ch && is_last_option(ch))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (ch)
383aa6
						fval = true;
383aa6
					else
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
				} else {
383aa6
					/* ARGV_OPTARG_OPTIONAL */
383aa6
					if (ch && is_short_option(ch))
383aa6
						fval = false;
383aa6
					else if (ch && is_long_option(ch))
383aa6
						fval = false;
383aa6
					else if (ch && is_last_option(ch))
383aa6
						fval = false;
383aa6
					else
383aa6
						fval = ch;
383aa6
				}
383aa6
			} else
383aa6
				ferror = ARGV_ERROR_SHORT_OPTION;
383aa6
383aa6
		} else if ((is_long_option(ch))) {
383aa6
			if ((option = argv_long_option(ch+=2,options,&entry))) {
383aa6
				val = ch + strlen(option->long_name);
383aa6
383aa6
				/* val[0] is either '=' or '\0' */
383aa6
				if (!val[0]) {
383aa6
					parg++;
383aa6
					ch = *parg;
383aa6
				}
383aa6
383aa6
				if (option->optarg == ARGV_OPTARG_NONE) {
383aa6
					if (val[0]) {
383aa6
						ferror = ARGV_ERROR_OPTARG_NONE;
383aa6
						ctx->errch = val + 1;
383aa6
					} else
383aa6
						fval = false;
383aa6
				} else if (val[0] && !val[1])
383aa6
					ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
				else if (val[0] && val[1]) {
383aa6
					fval = true;
383aa6
					ch   = ++val;
383aa6
				} else if (option->optarg == ARGV_OPTARG_REQUIRED) {
383aa6
					if (!val[0] && !*parg)
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (*parg && is_short_option(*parg))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (*parg && is_long_option(*parg))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else if (*parg && is_last_option(*parg))
383aa6
						ferror = ARGV_ERROR_OPTARG_REQUIRED;
383aa6
					else
383aa6
						fval = true;
383aa6
				} else {
383aa6
					/* ARGV_OPTARG_OPTIONAL */
383aa6
					if (!val[0] && !*parg)
383aa6
						fval = false;
383aa6
					if (*parg && is_short_option(*parg))
383aa6
						fval = false;
383aa6
					else if (*parg && is_long_option(*parg))
383aa6
						fval = false;
383aa6
					else if (*parg && is_last_option(*parg))
383aa6
						fval = false;
383aa6
					else
383aa6
						fval = *parg;
383aa6
				}
383aa6
			} else
383aa6
				ferror = ARGV_ERROR_LONG_OPTION;
383aa6
		}
383aa6
383aa6
		if (ferror == ARGV_ERROR_OK)
383aa6
			if (option && fval && option->paradigm)
383aa6
				if (!is_arg_in_paradigm(ch,option->paradigm))
383aa6
					ferror = ARGV_ERROR_OPTARG_PARADIGM;
383aa6
383aa6
		if (ferror != ARGV_ERROR_OK) {
383aa6
			ctx->errcode = ferror;
383aa6
			ctx->errch   = ctx->errch ? ctx->errch : ch;
383aa6
			ctx->erropt  = option;
383aa6
			return;
383aa6
		} else if (ctx->mode == ARGV_MODE_SCAN) {
383aa6
			if (!fnoscan)
383aa6
				ctx->nentries++;
383aa6
			else if (fval)
383aa6
				ctx->nentries++;
383aa6
383aa6
			if (fval || !option) {
383aa6
				parg++;
383aa6
				ch = *parg;
383aa6
			}
383aa6
		} else if (ctx->mode == ARGV_MODE_COPY) {
383aa6
			if (fnoscan) {
383aa6
				if (fval) {
383aa6
					mentry->arg	= ch;
383aa6
					mentry->fnoscan = true;
383aa6
					mentry++;
383aa6
				}
383aa6
383aa6
				parg++;
383aa6
				ch = *parg;
383aa6
			} else if (option) {
383aa6
				mentry->arg	= fval ? ch : 0;
383aa6
				mentry->tag	= option->tag;
383aa6
				mentry->fopt	= true;
383aa6
				mentry->fval	= fval;
383aa6
				mentry++;
383aa6
383aa6
				if (fval) {
383aa6
					parg++;
383aa6
					ch = *parg;
383aa6
				}
383aa6
			} else {
383aa6
				mentry->arg = ch;
383aa6
				mentry++;
383aa6
				parg++;
383aa6
				ch = *parg;
383aa6
			}
383aa6
		}
383aa6
	}
383aa6
}
383aa6
383aa6
static const char * argv_program_name(const char * program_path)
383aa6
{
383aa6
	const char * ch;
383aa6
383aa6
	if (program_path) {
383aa6
		if ((ch = strrchr(program_path,'/')))
383aa6
			return *(++ch) ? ch : 0;
383aa6
383aa6
		if ((ch = strrchr(program_path,'\\')))
383aa6
			return *(++ch) ? ch : 0;
383aa6
	}
383aa6
383aa6
	return program_path;
383aa6
}
383aa6
383aa6
static void argv_show_error(struct argv_ctx * ctx)
383aa6
{
383aa6
	fprintf(stderr,"%s: error: ",ctx->program);
383aa6
383aa6
	switch (ctx->errcode) {
383aa6
		case ARGV_ERROR_SHORT_OPTION:
383aa6
			fprintf(stderr,"'%c' is not a valid short option\n",*ctx->errch);
383aa6
			break;
383aa6
383aa6
		case ARGV_ERROR_LONG_OPTION:
383aa6
			fprintf(stderr,"'--%s' is not a valid long option\n",ctx->errch);
383aa6
			break;
383aa6
383aa6
		case ARGV_ERROR_OPTARG_NONE:
383aa6
			fprintf(stderr,"'%s' is not a valid option value for [%s%c%s%s%s] (option values may not be specified)\n",
383aa6
				ctx->errch,
383aa6
				ctx->erropt->short_name ? "-" : "",
383aa6
				ctx->erropt->short_name,
383aa6
				ctx->erropt->short_name ? "," : "",
383aa6
				ctx->erropt->long_name ? "--" : "",
383aa6
				ctx->erropt->long_name);
383aa6
			break;
383aa6
383aa6
		case ARGV_ERROR_OPTARG_REQUIRED:
383aa6
			fprintf(stderr,"option [%s%c%s%s%s] requires %s %s%s%s\n",
383aa6
				ctx->erropt->short_name ? "-" : "",
383aa6
				ctx->erropt->short_name,
383aa6
				ctx->erropt->short_name ? "," : "",
383aa6
				ctx->erropt->long_name ? "--" : "",
383aa6
				ctx->erropt->long_name,
383aa6
				ctx->erropt->paradigm ? "one of the following values:" : "a value",
383aa6
				ctx->erropt->paradigm ? "{" : "",
383aa6
				ctx->erropt->paradigm ? ctx->erropt->paradigm : "",
383aa6
				ctx->erropt->paradigm ? "}" : "");
383aa6
			break;
383aa6
383aa6
		case ARGV_ERROR_OPTARG_PARADIGM:
383aa6
			fprintf(stderr,"'%s' is not a valid option value for [%s%c%s%s%s]={%s}\n",
383aa6
				ctx->errch,
383aa6
				ctx->erropt->short_name ? "-" : "",
383aa6
				ctx->erropt->short_name,
383aa6
				ctx->erropt->short_name ? "," : "",
383aa6
				ctx->erropt->long_name ? "--" : "",
383aa6
				ctx->erropt->long_name,
383aa6
				ctx->erropt->paradigm);
383aa6
			break;
383aa6
383aa6
		case ARGV_ERROR_INTERNAL:
383aa6
			fputs("internal error",stderr);
383aa6
			break;
383aa6
383aa6
		default:
383aa6
			break;
383aa6
	}
383aa6
}
383aa6
383aa6
static void argv_show_status(
383aa6
	const struct argv_option	options[],
383aa6
	struct argv_ctx *		ctx,
383aa6
	struct argv_meta *		meta)
383aa6
{
383aa6
	int				argc;
383aa6
	const char **			argv;
383aa6
	struct argv_entry *		entry;
383aa6
	const struct argv_option *	option;
383aa6
	char				short_name[2] = {0};
383aa6
	const char *			space = "";
383aa6
383aa6
	fputs("\n\nconcatenated command line:\n",stderr);
383aa6
	for (argv=meta->argv; *argv; argv++) {
383aa6
		fprintf(stderr,"%s%s",space,*argv);
383aa6
		space = " ";
383aa6
	}
383aa6
383aa6
	fputs("\n\nargument vector:\n",stderr);
383aa6
	for (argc=0,argv=meta->argv; *argv; argc++,argv++)
383aa6
		fprintf(stderr,"argv[%d]: %s\n",argc,*argv);
383aa6
383aa6
	fputs("\n\nparsed entries:\n",stderr);
383aa6
	for (entry=meta->entries; entry->arg || entry->fopt; entry++)
383aa6
		if (entry->fopt) {
383aa6
			option = option_from_tag(options,entry->tag);
383aa6
			short_name[0] = option->short_name;
383aa6
383aa6
			if (entry->fval)
383aa6
				fprintf(stderr,"[-%s,--%s] := %s\n",
383aa6
					short_name,option->long_name,entry->arg);
383aa6
			else
383aa6
				fprintf(stderr,"[-%s,--%s]\n",
383aa6
					short_name,option->long_name);
383aa6
		} else
383aa6
			fprintf(stderr,"<program arg> := %s\n",entry->arg);
383aa6
383aa6
	fputs("\n\n",stderr);
383aa6
}
383aa6
383aa6
static struct argv_meta * argv_free_impl(struct argv_meta_impl * imeta)
383aa6
{
383aa6
	if (imeta->argv)
383aa6
		free(imeta->argv);
383aa6
383aa6
	if (imeta->strbuf)
383aa6
		free(imeta->strbuf);
383aa6
383aa6
	if (imeta->meta.entries)
383aa6
		free(imeta->meta.entries);
383aa6
383aa6
	free(imeta);
383aa6
	return 0;
383aa6
}
383aa6
383aa6
static struct argv_meta * argv_alloc(const char ** argv, struct argv_ctx * ctx)
383aa6
{
383aa6
	struct argv_meta_impl * imeta;
383aa6
	const char **		vector;
383aa6
	char *			dst;
383aa6
	size_t			size;
383aa6
	int			argc;
383aa6
	int			i;
383aa6
383aa6
	if (!(imeta = calloc(sizeof(*imeta),1)))
383aa6
		return 0;
383aa6
383aa6
	if (ctx->flags & ARGV_CLONE_VECTOR) {
383aa6
		for (vector=argv,argc=0,size=0; *vector; vector++) {
383aa6
			size += strlen(*vector) + 1;
383aa6
			argc++;
383aa6
		}
383aa6
383aa6
		if (!(imeta->argv = calloc(sizeof(char *),argc+1)))
383aa6
			return argv_free_impl(imeta);
383aa6
		else if (!(imeta->strbuf = calloc(size+1,1)))
383aa6
			return argv_free_impl(imeta);
383aa6
383aa6
		for (i=0,dst=imeta->strbuf; i
383aa6
			strcpy(dst,argv[i]);
383aa6
			imeta->argv[i] = dst;
383aa6
			dst += strlen(dst)+1;
383aa6
		}
383aa6
383aa6
		imeta->meta.argv = imeta->argv;
383aa6
	} else
383aa6
		imeta->meta.argv = argv;
383aa6
383aa6
	if (!(imeta->meta.entries = calloc(sizeof(struct argv_entry),ctx->nentries+1)))
383aa6
		return argv_free_impl(imeta);
383aa6
	else
383aa6
		return &imeta->meta;
383aa6
}
383aa6
383aa6
static struct argv_meta * argv_get(
383aa6
	const char *			argv[],
383aa6
	const struct argv_option	options[],
383aa6
	int				flags)
383aa6
{
383aa6
	struct argv_meta *	meta;
383aa6
	struct argv_ctx		ctx = {flags,ARGV_MODE_SCAN,0,0,0,0};
383aa6
383aa6
	argv_scan(argv,options,&ctx,0);
383aa6
383aa6
	if (ctx.errcode != ARGV_ERROR_OK) {
383aa6
		if (!ctx.program)
383aa6
			ctx.program = argv_program_name(argv[0]);
383aa6
383aa6
		if (ctx.flags & ARGV_VERBOSITY_ERRORS)
383aa6
			argv_show_error(&ctx;;
383aa6
383aa6
		return 0;
383aa6
	}
383aa6
383aa6
	if (!(meta = argv_alloc(argv,&ctx)))
383aa6
		return 0;
383aa6
383aa6
	ctx.mode = ARGV_MODE_COPY;
383aa6
	argv_scan(meta->argv,options,&ctx,meta);
383aa6
383aa6
	if (ctx.errcode != ARGV_ERROR_OK) {
383aa6
		if (!ctx.program)
383aa6
			ctx.program = argv[0];
383aa6
383aa6
		ctx.errcode = ARGV_ERROR_INTERNAL;
383aa6
		argv_show_error(&ctx;;
383aa6
		argv_free(meta);
383aa6
383aa6
		return 0;
383aa6
	}
383aa6
383aa6
	if (ctx.flags & ARGV_VERBOSITY_STATUS)
383aa6
		argv_show_status(options,&ctx,meta);
383aa6
383aa6
	return meta;
383aa6
}
383aa6
383aa6
static void argv_free(struct argv_meta * xmeta)
383aa6
{
383aa6
	struct argv_meta_impl * imeta;
383aa6
	uintptr_t		addr;
383aa6
383aa6
	if (xmeta) {
383aa6
		addr  = (uintptr_t)xmeta - offsetof(struct argv_meta_impl,meta);
383aa6
		imeta = (struct argv_meta_impl *)addr;
383aa6
		argv_free_impl(imeta);
383aa6
	}
383aa6
}
383aa6
383aa6
static void argv_usage(
383aa6
	FILE *				file,
383aa6
	const char *    		header,
383aa6
	const struct argv_option	options[],
383aa6
	const char *			mode)
383aa6
{
383aa6
	const struct argv_option *	option;
383aa6
	bool				fshort,flong;
383aa6
	bool				fnewline;
383aa6
	size_t				len,optlen;
383aa6
	size_t				paralen,rparalen,mparalen;
383aa6
	size_t				desclen,rdesclen;
383aa6
383aa6
	char *				para;
383aa6
	char *				next_para;
383aa6
	char *				desc;
383aa6
	char *				next_desc;
383aa6
	char *				paradigm;
383aa6
	char *				buf;
383aa6
	size_t				buflen;
383aa6
	const char *			sdescription;
383aa6
	const char *			sargname;
383aa6
383aa6
	const char			indent[] = "  ";
383aa6
	const int			rblen  = sizeof("}") - sizeof(char);
383aa6
	const int			rbblen = sizeof("{]") - sizeof(char);
383aa6
	const int			brcklen= sizeof("[]") - sizeof(char);
383aa6
	const int			solen  = sizeof("-") - sizeof(char);
383aa6
	const int			lolen  = sizeof("--") - sizeof(char);
383aa6
	const int			slolen = sizeof("-X,--") - sizeof(char);
383aa6
383aa6
	fshort = mode ? !strcmp(mode,"short") : 0;
383aa6
	flong  = fshort ? 0 : mode && !strcmp(mode,"long");
383aa6
383aa6
	if (header)
383aa6
		fprintf(stdout,"%s",header);
383aa6
383aa6
	for (option=options,optlen=0,paralen=0; option->short_name || option->long_name; option++) {
383aa6
		if (fshort)
383aa6
			len = option->short_name ? sizeof(char) + solen : 0;
383aa6
		else if (flong)
383aa6
			len = option->long_name ? strlen(option->long_name) + lolen : 0;
383aa6
		else
383aa6
			len = option->long_name ? strlen(option->long_name) + slolen : 0;
383aa6
383aa6
		if (len) {
383aa6
			if (len > optlen)
383aa6
				optlen = len;
383aa6
383aa6
			if (option->paradigm)
383aa6
				len = strlen(option->paradigm) + strlen("{}");
383aa6
			else if (option->argname)
383aa6
				len = strlen(option->argname);
383aa6
			else if (option->optarg != ARGV_OPTARG_NONE)
383aa6
				len = strlen("<val>");
383aa6
383aa6
			if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
				len += strlen("[]");
383aa6
383aa6
			if (len > paralen)
383aa6
				paralen = len;
383aa6
		}
383aa6
	}
383aa6
383aa6
	optlen += ARGV_TAB;
383aa6
	optlen &= (~(ARGV_TAB-1));
383aa6
379519
	paradigm = next_para = buf = 0;
379519
	fnewline = false;
379519
	rparalen = 0;
379519
	mparalen = 0;
379519
383aa6
	if (paralen) {
383aa6
		paralen += (ARGV_TAB);
383aa6
		paralen &= (~(ARGV_TAB-1));
383aa6
		mparalen = paralen + 2*rbblen;
383aa6
383aa6
		if (optlen + paralen > 64)
383aa6
			paralen = 32;
383aa6
	}
383aa6
383aa6
	/* account for '  ','\t', try to fit in 80 or 96 columns */
383aa6
	if (optlen+paralen+2+ARGV_TAB < 80-32)
383aa6
		desclen = 80 - (optlen+paralen+2+ARGV_TAB);
383aa6
	else if (optlen+paralen+2+ARGV_TAB < 96-32)
383aa6
		desclen = 96 - (optlen+paralen+2+ARGV_TAB);
383aa6
	else
383aa6
		desclen = 32;
383aa6
383aa6
	for (option=options,buflen=0,rdesclen=1; option->short_name || option->long_name; option++) {
383aa6
		if (option->paradigm) {
383aa6
			if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
				rparalen = strlen(option->paradigm) - 2*rbblen;
383aa6
			else
383aa6
				rparalen = strlen(option->paradigm) - 2*rblen;
383aa6
		}
383aa6
383aa6
		sdescription 	= option->description ? option->description : "";
383aa6
		sargname	= option->argname ? option->argname : "";
383aa6
383aa6
		if (option->paradigm)
383aa6
			rdesclen = snprintf(buf,buflen,sdescription,option->paradigm);
383aa6
		else
383aa6
			rdesclen = snprintf(buf,buflen,sdescription,sargname);
383aa6
383aa6
		if (fnewline)
383aa6
			(void)0;
383aa6
383aa6
		if ((rparalen > paralen) || (rdesclen > desclen)) {
383aa6
			if (!fnewline) {
383aa6
				(void)0;
383aa6
				fnewline = true;
383aa6
			}
383aa6
		} else
383aa6
			fnewline = false;
383aa6
383aa6
		if (fshort)
383aa6
			fprintf(file,"%s-%-*c",indent,(int)(optlen-solen),option->short_name);
383aa6
		else if (flong)
383aa6
			fprintf(file,"%s--%-*s",indent,(int)(optlen-lolen),option->long_name);
383aa6
		else {
383aa6
			if (option->short_name && option->long_name)
383aa6
				fprintf(file,"%s-%c,--%-*s",indent,option->short_name,(int)(optlen-slolen),option->long_name);
383aa6
			else if (option->short_name)
383aa6
				 fprintf(file,"%s-%-*c",indent,(int)(optlen-solen),option->short_name);
383aa6
			else
383aa6
				fprintf(file,"%s%3s--%-*s",indent,"",(int)(optlen-slolen),option->long_name);
383aa6
		}
383aa6
383aa6
		if (rdesclen > buflen) {
383aa6
			if (buf) {
383aa6
				free(buf);
383aa6
				buf = 0;
383aa6
			}
383aa6
383aa6
			len =  rdesclen + 512;
383aa6
			len &= (~511);
383aa6
383aa6
			if ((buf = calloc(len,1))) {
383aa6
				buflen = len;
383aa6
383aa6
				if (option->paradigm)
383aa6
					rdesclen = snprintf(buf,buflen,option->description,option->paradigm);
383aa6
				else
383aa6
					rdesclen = snprintf(buf,buflen,option->description,option->argname);
383aa6
			} else {
383aa6
				buflen = 0;
383aa6
				continue;
383aa6
			}
383aa6
		}
383aa6
383aa6
		if (option->paradigm && (rparalen <= paralen)) {
383aa6
			if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
				fprintf(file,"[{%s}]%-*c",option->paradigm,(int)(paralen-strlen(option->paradigm)-2*rbblen),' ');
383aa6
			else
383aa6
				fprintf(file,"{%s}%-*c",option->paradigm,(int)(paralen-strlen(option->paradigm)-rbblen),' ');
383aa6
			para = (char *)0;
383aa6
		} else if (option->paradigm) {
383aa6
			if (!paradigm && !(paradigm = calloc(mparalen,1))) {
383aa6
				fputc('\n',file);
383aa6
				continue;
383aa6
			} else
383aa6
				para = strcpy(paradigm,option->paradigm);
383aa6
383aa6
			if (option->optarg == ARGV_OPTARG_OPTIONAL) {
383aa6
				fputs("[{",file);
383aa6
				rparalen = paralen - rbblen;
383aa6
			} else {
383aa6
				fputc('{',file);
383aa6
				rparalen = paralen - rblen;
383aa6
			}
383aa6
		} else if (option->argname) {
383aa6
			if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
				fprintf(file,"[%s]%-*c",option->argname,(int)(paralen-strlen(option->argname)-brcklen),' ');
383aa6
			else
383aa6
				fprintf(file,"%s%-*c",option->argname,(int)(paralen-strlen(option->argname)),' ');
383aa6
			para = (char *)0;
383aa6
		} else {
383aa6
			fprintf(file,"%-*c",(int)paralen,' ');
383aa6
			para = (char *)0;
383aa6
		}
383aa6
383aa6
383aa6
		if (!para && option->description && rdesclen <= desclen) {
383aa6
			fputc('\t',file);
383aa6
			fputs(buf,file);
383aa6
			desc = (char *)0;
383aa6
		} else if (option->description)
383aa6
			desc = buf;
383aa6
		else
383aa6
			desc = (char *)0;
383aa6
383aa6
		while (para || desc) {
383aa6
			if (para) {
383aa6
				for (next_para=para+rparalen-1; (next_para>para) && (*next_para!='|'); )
383aa6
					next_para--;
383aa6
383aa6
				if (para > paradigm) {
383aa6
					if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
						fputs("  ",file);
383aa6
					else
383aa6
						fputc(' ',file);
383aa6
				}
383aa6
383aa6
				if (*next_para != '|') {
383aa6
					fprintf(file,"%s",para);
383aa6
					para = (char *)0;
383aa6
				} else if (next_para > para) {
383aa6
					*next_para = '\0';
383aa6
					fprintf(file,"%-*s",(int)rparalen,para);
383aa6
					*next_para = '|';
383aa6
					para = next_para;
383aa6
					rparalen = strlen(para);
383aa6
383aa6
					/* 2*rbblen,2*rblen, etc.: account for indentation */
383aa6
					if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
						rparalen = (rparalen+2*rbblen > paralen) ? paralen-rbblen : rparalen;
383aa6
					else
383aa6
						rparalen = (rparalen+2*rblen > paralen) ? paralen-rblen : rparalen;
383aa6
				} else {
383aa6
					if (option->optarg == ARGV_OPTARG_OPTIONAL)
383aa6
						fprintf(file,"%s}]%-*c",para,(int)(paralen-strlen(para)-rbblen),' ');
383aa6
					else
383aa6
						fprintf(file,"%s}%-*c",para,(int)(paralen-strlen(para)-rblen),' ');
383aa6
					para = (char *)0;
383aa6
				}
383aa6
			} else if (desc > buf)
383aa6
				fprintf(file,"%-*c",(int)paralen,' ');
383aa6
383aa6
			if (desc) {
383aa6
				if (desc > buf)
383aa6
					fputs("\t ",file);
383aa6
				else
383aa6
					fputc('\t',file);
383aa6
383aa6
				if ((rdesclen = strlen(desc)+(desc>buf)) <= desclen) {
383aa6
					fputs(desc,file);
383aa6
					desc = (char *)0;
383aa6
				} else {
383aa6
					for (next_desc=desc+desclen-1; (next_desc>desc) && (*next_desc!=' ') && (*next_desc!='\n'); )
383aa6
						next_desc--;
383aa6
383aa6
					if ((*next_desc != ' ') && (*next_desc!='\n')) {
383aa6
						fputs(desc,file);
383aa6
						desc = (char *)0;
383aa6
					} else if (next_desc > desc) {
383aa6
						*next_desc = '\0';
383aa6
						fputs(desc,file);
383aa6
						desc = ++next_desc;
383aa6
					} else {
383aa6
						fputs(desc,file);
383aa6
						desc = (char *)0;
383aa6
					}
383aa6
				}
383aa6
			}
383aa6
383aa6
			if (para || desc)
383aa6
				fprintf(file,"\n%s%-*c",indent,(int)optlen,' ');
383aa6
		}
383aa6
383aa6
		fputc('\n',file);
383aa6
	}
383aa6
383aa6
	if (paradigm)
383aa6
		free(paradigm);
383aa6
383aa6
	if (buf)
383aa6
		free(buf);
383aa6
}
383aa6
383aa6
#endif
383aa6
383aa6
#endif