84d9c625bf
- Fix for possible unset uid/gid in toproto
- Fix for default mtree style
- Update libelf
- Importing libexecinfo
- Resynchronize GCC, mpc, gmp, mpfr
- build.sh: Replace params with show-params.
This has been done as the make target has been renamed in the same
way, while a new target named params has been added. This new
target generates a file containing all the parameters, instead of
printing it on the console.
- Update test48 with new etc/services (Fix by Ben Gras <ben@minix3.org)
get getservbyport() out of the inner loop
Change-Id: Ie6ad5226fa2621ff9f0dee8782ea48f9443d2091
31 lines
530 B
Raku
31 lines
530 B
Raku
# @(#)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
|
|
}
|