external/bsd/nvi/dist/ip/vipc.pl

   1 #       @(#)vipc.pl     10.1 (Berkeley) 6/8/95
   2
   3 if (/^\/\* (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
  23 static int
  24 $name($fpars)
  25 {
  26         return vi_send_$1(ipvi, $pars);
  27 }
  28
  29 EOI
  30 }