minix/external/bsd/nvi/dist/ip/vipc.pl
Lionel Sambuc 84d9c625bf Synchronize on NetBSD-CVS (2013/12/1 12:00:00 UTC)
- 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
2014-07-28 17:05:06 +02:00

30 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
}