1# @(#)vipc.pl 10.1 (Berkeley) 6/8/95 2 3if (/^\/\* (VI_[0-9A-Z_]*)/) { 4 $cmd = $1; 5 $name = lc $1; 6 $_ = <>; 7 next unless /"([^"]*)"/; 8 @fpars = "IPVIWIN *ipvi"; 9 @pars = $cmd; 10 for (split "", $1) { 11 if (/\d/) { 12 push @fpars, "u_int32_t val$_"; 13 push @pars, "val$_"; 14 } 15 if (/[a-z]/) { 16 push @fpars, "const char *str$_, u_int32_t len$_"; 17 push @pars, "str$_, len$_"; 18 } 19 } 20 $fpars = join ', ', @fpars; 21 $pars = join ', ', @pars; 22 print <<EOI 23static int 24$name($fpars) 25{ 26 return vi_send_$1(ipvi, $pars); 27} 28 29EOI 30} 31