minix/dist/nvi/ip/vipc.pl
Lionel Sambuc 3e1db26a5a Termcap update, replacing elvis by nvi.
Removing elvis, importing nvi, ctags, updating libedit.

Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
2013-01-24 07:44:38 +01: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
}