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
81
82
83
84
|
#!/bin/sh -e
P="$1"
p=`echo $P | tr - _`
echo '/* ISC license. */'
echo
echo '#include <skalibs/nonposix.h>'
echo
{ echo '#include <string.h>' ; echo '#include <stdlib.h>' ; cat src/$P/*.c | grep '^#include <' | grep -vF '<skalibs/' | grep -vF "<$P/" ; } | sort -u
cat <<EOF
#include <skalibs/skalibs.h>
#include <$P/config.h>
typedef int main_func (int, char const *const *, char const *const *) ;
typedef main_func *main_func_ref ;
typedef struct multicall_app_s multicall_app, *multicall_app_ref ;
struct multicall_app_s
{
char const *name ;
main_func_ref mainf ;
} ;
static int multicall_app_cmp (void const *a, void const *b)
{
char const *name = a ;
multicall_app const *p = b ;
return strcmp(name, p->name) ;
}
EOF
for i in `ls -1 src/$P/deps-exe` ; do
j=`echo $i | tr - _`
echo
grep -v '^#include ' < src/$P/${i}.c | grep -vF '/* ISC license. */' | sed -e "s/int main (.*)$/int ${j}_main (int argc, char const *const *argv, char const *const *envp)/"
echo
echo '#undef USAGE'
echo '#undef dieusage'
echo '#undef dienomem'
echo '#undef bail'
done
cat <<EOF
static int ${p}_main (int, char const *const *, char const *const *) ;
static multicall_app const multicall_apps[] =
{
EOF
for i in `{ echo $P ; ls -1 src/$P/deps-exe ; } | sort` ; do
j=`echo $i | tr - _`
echo " { .name = \"${i}\", .mainf = &${j}_main },"
done
cat <<EOF
} ;
#define USAGE "$P subcommand [ arguments... ]"
#define dieusage() strerr_dief1x(100, USAGE)
static int ${p}_main (int argc, char const *const *argv, char const *const *envp)
{
multicall_app const *p ;
PROG = "$P" ;
if (!argc) dieusage() ;
p = bsearch(argv[1], multicall_apps, sizeof(multicall_apps) / sizeof(multicall_app), sizeof(multicall_app), &multicall_app_cmp) ;
if (!p) strerr_dief2x(100, "unknown subcommand: ", argv[1]) ;
return (*(p->mainf))(argc-1, argv+1, envp) ;
}
int main (int argc, char const *const *argv, char const *const *envp)
{
multicall_app const *p ;
char const *name = strrchr(argv[0], '/') ;
if (name) name++ ; else name = argv[0] ;
p = bsearch(name, multicall_apps, sizeof(multicall_apps) / sizeof(multicall_app), sizeof(multicall_app), &multicall_app_cmp) ;
return p ? (*(p->mainf))(argc, argv, envp) : ${p}_main(argc, argv, envp) ;
}
EOF
|
