1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
/* ISC license. */
#include <sys/types.h>
#include <skalibs/bytestr.h>
#include <skalibs/env.h>
#include <skalibs/strerr2.h>
#include <skalibs/stralloc.h>
#include <skalibs/genalloc.h>
#include <skalibs/uint.h>
#include <execline/execline.h>
#include "exlsn.h"
int exlp (unsigned int nmin, char const *const *envp, exlsn_t *info)
{
size_t varbase = info->vars.len ;
size_t valbase = info->values.len ;
size_t datbase = genalloc_len(elsubst_t, &info->data) ;
size_t poszero ;
elsubst_t blah ;
char const *x = env_get2(envp, "#") ;
unsigned int n, ntot, i = 0 ;
if (!x) return -2 ;
if (!uint0_scan(x, &n)) return -2 ;
if (el_vardupl("#", info->vars.s, info->vars.len)) return -2 ;
if (el_vardupl("@", info->vars.s, info->vars.len)) return -2 ;
{
register unsigned int strict = el_getstrict() ;
if (strict && (n < nmin))
{
char fmta[UINT_FMT] ;
char fmtn[UINT_FMT] ;
fmta[uint_fmt(fmta, n)] = 0 ;
fmtn[uint_fmt(fmtn, nmin)] = 0 ;
if (strict > 1)
strerr_dief4x(100, "too few arguments: expected at least ", fmtn, " but got ", fmta) ;
else
strerr_warnw4x("too few arguments: expected at least ", fmtn, " but got ", fmta) ;
}
}
blah.var = varbase ;
blah.value = info->values.len ;
blah.n = 1 ;
if (!stralloc_catb(&info->vars, "#\0@", 4)
|| !stralloc_catb(&info->values, x, str_len(x) + 1)
|| !genalloc_append(elsubst_t, &info->data, &blah)) goto err ;
ntot = n > nmin ? n : nmin ;
poszero = info->values.len ;
for (; i <= ntot ; i++)
{
char fmt[UINT_FMT] ;
size_t l = uint_fmt(fmt, i) ;
fmt[l] = 0 ;
if (el_vardupl(fmt, info->vars.s, info->vars.len)) goto err2 ;
x = (i <= n) ? env_get2(envp, fmt) : "" ;
if (!x) goto err2 ;
blah.var = info->vars.len ;
blah.value = info->values.len ;
blah.n = 1 ;
if (!stralloc_catb(&info->vars, fmt, l+1)
|| !stralloc_catb(&info->values, x, str_len(x) + 1)
|| !genalloc_append(elsubst_t, &info->data, &blah)) goto err ;
}
blah.var = varbase + 2 ;
blah.value = poszero + str_len(info->values.s + poszero) + 1 ;
blah.n = n ;
if (!genalloc_append(elsubst_t, &info->data, &blah)) goto err ;
return n ;
err:
info->vars.len = varbase ;
info->values.len = valbase ;
genalloc_setlen(elsubst_t, &info->data, datbase) ;
return -1 ;
err2:
info->vars.len = varbase ;
info->values.len = valbase ;
genalloc_setlen(elsubst_t, &info->data, datbase) ;
return -2 ;
}
|
