#pragma prototyped
#include <optlib.h>
typedef int (*Optpass_f)(char**, int);
int
optjoin(char** argv, ...)
{
va_list ap;
register Optpass_f fun;
register Optpass_f rep;
Optpass_f err;
int more;
int user;
int last_index;
int last_offset;
int err_index;
int err_offset;
if (!opt_info.state)
optget(NiL, NiL);
err = rep = 0;
for (;;)
{
va_start(ap, argv);
opt_info.state->join = 0;
while (fun = va_arg(ap, Optpass_f))
{
last_index = opt_info.index;
last_offset = opt_info.offset;
opt_info.state->join++;
user = (*fun)(argv, 0);
more = argv[opt_info.index] != 0;
if (!opt_info.again)
{
if (!more)
{
opt_info.state->join = 0;
return 0;
}
if (!user)
{
if (*argv[opt_info.index] != '+')
{
opt_info.state->join = 0;
return 1;
}
opt_info.again = -1;
}
else
err = 0;
}
if (opt_info.again)
{
if (opt_info.again > 0 && (!err || err_index < opt_info.index || err_index == opt_info.index && err_offset < opt_info.offset))
{
err = fun;
err_index = opt_info.index;
err_offset = opt_info.offset;
}
opt_info.again = 0;
opt_info.index = opt_info.state->pindex ? opt_info.state->pindex : 1;
opt_info.offset = opt_info.state->poffset;
}
if (!rep || opt_info.index != last_index || opt_info.offset != last_offset)
rep = fun;
else if (fun == rep)
{
if (!err)
{
opt_info.state->join = 0;
return 1;
}
(*err)(argv, 1);
opt_info.offset = 0;
}
}
va_end(ap);
}
}