blob: c0d2a8db48ec9496ab2c8afca96e5ae9a1f17a6d (
plain)
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
|
# @(#)vipc.pl 10.1 (Berkeley) 6/8/95
if (/^\/\* (VI_[0-9A-Z_]*)/) {
$cmd = $1;
$name = lc $1;
$_ = <>;
next unless /"([^"]*)"/;
@fpars = "IPVIWIN *ipvi";
@pars = $cmd;
for (split "", $1) {
if (/\d/) {
push @fpars, "u_int32_t val$_";
push @pars, "val$_";
}
if (/[a-z]/) {
push @fpars, "const char *str$_, u_int32_t len$_";
push @pars, "str$_, len$_";
}
}
$fpars = join ', ', @fpars;
$pars = join ', ', @pars;
print <<EOI
static int
$name($fpars)
{
return vi_send_$1(ipvi, $pars);
}
EOI
}
|
