sys/kern/makedevops.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (c) 1992, 1993
   4 #       The Regents of the University of California.  All rights reserved.
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions
   8 # are met:
   9 # 1. Redistributions of source code must retain the above copyright
  10 #    notice, this list of conditions and the following disclaimer.
  11 # 2. Redistributions in binary form must reproduce the above copyright
  12 #    notice, this list of conditions and the following disclaimer in the
  13 #    documentation and/or other materials provided with the distribution.
  14 # 3. All advertising materials mentioning features or use of this software
  15 #    must display the following acknowledgement:
  16 #       This product includes software developed by the University of
  17 #       California, Berkeley and its contributors.
  18 # 4. Neither the name of the University nor the names of its contributors
  19 #    may be used to endorse or promote products derived from this software
  20 #    without specific prior written permission.
  21 #
  22 # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  23 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25 # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  26 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32 # SUCH DAMAGE.
  33 #
  34 # From @(#)vnode_if.sh  8.1 (Berkeley) 6/10/93
  35 # From @(#)makedevops.sh 1.1 1998/06/14 13:53:12 dfr Exp $
  36 # From @(#)makedevops.sh ?.? 1998/10/05
  37 #
  38 # $Id: makedevops.pl,v 1.7 1999/05/10 17:06:13 dfr Exp $
  39
  40 #
  41 # Script to produce device front-end sugar.
  42 #
  43
  44 $debug = 0;
  45 $cfile = 0;          # by default do not produce any file type
  46 $hfile = 0;
  47
  48 $keepcurrentdir = 1;
  49
  50 $line_width = 80;
  51
  52 # Process the command line
  53 #
  54 while ( $arg = shift @ARGV ) {
  55    if ( $arg eq '-c' ) {
  56       warn "Producing .c output files"
  57          if $debug;
  58       $cfile = 1;
  59    } elsif ( $arg eq '-h' ) {
  60       warn "Producing .h output files"
  61          if $debug;
  62       $hfile = 1;
  63    } elsif ( $arg eq '-ch' || $arg eq '-hc' ) {
  64       warn "Producing .c and .h output files"
  65          if $debug;
  66       $cfile = 1;
  67       $hfile = 1;
  68    } elsif ( $arg eq '-d' ) {
  69       $debug = 1;
  70    } elsif ( $arg eq '-p' ) {
  71       warn "Will produce files in original not in current directory"
  72          if $debug;
  73       $keepcurrentdir = 0;
  74    } elsif ( $arg eq '-l' ) {
  75       if ( $line_width = shift @ARGV and $line_width > 0 ) {
  76          warn "Line width set to $line_width"
  77             if $debug;
  78       } else {
  79          die "Please specify a valid line width after -l";
  80       }
  81    } elsif ( $arg =~ m/\.m$/ ) {
  82       warn "Filename: $arg"
  83          if $debug;
  84       push @filenames, $arg;
  85    } else {
  86       warn "$arg ignored"
  87          if $debug;
  88    }
  89 }
  90
  91
  92 # Validate the command line parameters
  93 #
  94 die "usage: $0 [-d] [-p] [-c|-h] srcfile
  95 where -c   produce only .c files
  96       -h   produce only .h files
  97       -p   use the path component in the source file for destination dir
  98       -l   set line width for output files [80]
  99       -d   switch on debugging
 100 "
 101         unless ($cfile or $hfile)
 102            and $#filenames != -1;
 103
 104 # FIXME should be able to do this more easily
 105 #
 106 $tmpdir = $ENV{'TMPDIR'};           # environment variables
 107 $tmpdir = $ENV{'TMP'}
 108    if !$tmpdir;
 109 $tmpdir = $ENV{'TEMP'}
 110    if !$tmpdir;
 111 $tmpdir = '/tmp'                    # look for a physical directory
 112    if !$tmpdir and -d '/tmp';
 113 $tmpdir = '/usr/tmp'
 114    if !$tmpdir and -d '/usr/tmp';
 115 $tmpdir = '/var/tmp'
 116    if !$tmpdir and -d '/var/tmp';
 117 $tmpdir = '.'                       # give up and use current dir
 118    if !$tmpdir;
 119
 120 foreach $src ( @filenames ) {
 121    # Names of the created files
 122    $ctmpname = "$tmpdir/ctmp.$$";
 123    $htmpname = "$tmpdir/htmp.$$";
 124
 125    ($name, $path, $suffix) = &fileparse($src, '.m');
 126    $path = '.'
 127       if $keepcurrentdir;
 128    $cfilename="$path/$name.c";
 129    $hfilename="$path/$name.h";
 130
 131    warn "Processing from $src to $cfile / $hfile via $ctmp / $htmp"
 132       if $debug;
 133
 134    die "Could not open $src, $!"
 135       if !open SRC, "$src";
 136    die "Could not open $ctmpname, $!"
 137       if $cfile and !open CFILE, ">$ctmpname";
 138    die "Could not open $htmpname, $!"
 139       if $hfile and !open HFILE, ">$htmpname";
 140
 141    if ( $cfile ) {
 142       # Produce the header of the C file
 143       #
 144       print CFILE "/*\n";
 145       print CFILE " * This file is produced automatically.\n";
 146       print CFILE " * Do not modify anything in here by hand.\n";
 147       print CFILE " *\n";
 148       print CFILE " * Created from\n";
 149       print CFILE " *   $src\n";
 150       print CFILE " * with\n";
 151       print CFILE " *   $0\n";
 152       print CFILE " */\n";
 153       print CFILE "\n";
 154       print CFILE "#include <sys/param.h>\n";
 155       print CFILE "#include <sys/queue.h>\n";
 156       print CFILE "#include <sys/sysctl.h>\n";
 157       print CFILE "#include <sys/bus_private.h>\n";
 158    }
 159
 160    if ( $hfile ) {
 161       # Produce the header of the H file
 162       #
 163       print HFILE "/*\n";
 164       print HFILE " * This file is produced automatically.\n";
 165       print HFILE " * Do not modify anything in here by hand.\n";
 166       print HFILE " *\n";
 167       print HFILE " * Created from\n";
 168       print HFILE " *   $src\n";
 169       print HFILE " * with\n";
 170       print HFILE " *   $0\n";
 171       print HFILE " */\n";
 172       print HFILE "\n";
 173    }
 174
 175    %methods = ();    # clear list of methods
 176    $lineno = 0;
 177    $error = 0;       # to signal clean up and gerror setting
 178
 179    LINE: while ( $line = <SRC> ) {
 180       $lineno++;
 181
 182       # take special notice of include directives.
 183       #
 184       if ( $line =~ m/^#\s*include\s+(["<])([^">]+)([">]).*/i ) {
 185          warn "Included file: $1$2" . ($1 eq '<'? '>':'"')
 186             if $debug;
 187          print CFILE "#include $1$2" . ($1 eq '<'? '>':'"') . "\n"
 188             if $cfile;
 189       }
 190
 191       $line =~ s/#.*//;                # remove comments
 192       $line =~ s/^\s+//;               # remove leading ...
 193       $line =~ s/\s+$//;               # remove trailing whitespace
 194
 195       if ( $line =~ m/^$/ ) {          # skip empty lines
 196          # nop
 197
 198       } elsif ( $line =~ m/^INTERFACE\s*([^\s;]*)(\s*;?)/i ) {
 199          $intname = $1;
 200          $semicolon = $2;
 201          unless ( $intname =~ m/^[a-z_][a-z0-9_]*$/ ) {
 202             warn $line
 203                if $debug;
 204             warn "$src:$lineno: Invalid interface name '$intname', use [a-z_][a-z0-9_]*";
 205             $error = 1;
 206             last LINE;
 207          }
 208
 209          warn "$src:$lineno: semicolon missing at end of line, no problem"
 210             if $semicolon !~ s/;$//;
 211
 212          warn "Interface $intname"
 213             if $debug;
 214
 215          print HFILE '#ifndef _'.$intname."_if_h_\n"
 216             if $hfile;
 217          print HFILE '#define _'.$intname."_if_h_\n\n"
 218             if $hfile;
 219          print CFILE '#include "'.$intname.'_if.h"'."\n\n"
 220             if $cfile;
 221
 222       } elsif ( $line =~ m/^CODE\s*{$/i ) {
 223          $code = "";
 224          $line = <SRC>;
 225          while ( $line !~ m/^}/ ) {
 226             $code .= $line;
 227             $line = <SRC>;
 228             $lineno++
 229          }
 230          if ( $cfile ) {
 231              print CFILE $code;
 232          }
 233       } elsif ( $line =~ m/^(STATIC|)METHOD/i ) {
 234          # Get the return type function name and delete that from
 235          # the line. What is left is the possibly first function argument
 236          # if it is on the same line.
 237          #
 238          if ( !$intname ) {
 239             warn "$src:$lineno: No interface name defined";
 240             $error = 1;
 241             last LINE;
 242          }
 243          $line =~ s/^(STATIC|)METHOD\s+([^{]+?)\s*{\s*//i;
 244          $static = $1;
 245          @ret = split m/\s+/, $2;
 246          $name = pop @ret;          # last element is name of method
 247          $ret = join(" ", @ret);    # return type
 248
 249          warn "Method: name=$name return type=$ret"
 250             if $debug;
 251
 252          if ( !$name or !$ret ) {
 253             warn $line
 254                if $debug;
 255             warn "$src:$lineno: Invalid method specification";
 256             $error = 1;
 257             last LINE;
 258          }
 259
 260          unless ( $name =~ m/^[a-z_][a-z_0-9]*$/ ) {
 261             warn $line
 262                if $debug;
 263             warn "$src:$lineno: Invalid method name '$name', use [a-z_][a-z0-9_]*";
 264             $error = 1;
 265             last LINE;
 266          }
 267
 268          if ( defined($methods{$name}) ) {
 269             warn "$src:$lineno: Duplicate method name";
 270             $error = 1;
 271             last LINE;
 272          }
 273
 274          $methods{$name} = 'VIS';
 275
 276          while ( $line !~ m/}/ and $line .= <SRC> ) {
 277             $lineno++
 278          }
 279
 280          $default = "";
 281          if ( $line !~ s/};?(.*)// ) { # remove first '}' and trailing garbage
 282             # The '}' was not there (the rest is optional), so complain
 283             warn "$src:$lineno: Premature end of file";
 284             $error = 1;
 285             last LINE;
 286          }
 287          $extra = $1;
 288          if ( $extra =~ /\s*DEFAULT\s*([a-zA-Z_][a-zA-Z_0-9]*)\s*;/ ) {
 289             $default = $1;
 290          } else {
 291             warn "$src:$lineno: Ignored '$1'"  # warn about garbage at end of line
 292                if $debug and $1;
 293          }
 294
 295          # Create a list of variables without the types prepended
 296          #
 297          $line =~ s/^\s+//;            # remove leading ...
 298          $line =~ s/\s+$//;            # ... and trailing whitespace
 299          $line =~ s/\s+/ /;            # remove double spaces
 300
 301          @arguments = split m/\s*;\s*/, $line;
 302          @varnames = ();               # list of varnames
 303          foreach $argument (@arguments) {
 304             next                       # skip argument if argument is empty
 305                if !$argument;
 306
 307             @ar = split m/[*\s]+/, $argument;
 308             if ( $#ar == 0 ) {         # only 1 word in argument?
 309                warn "$src:$lineno: no type for '$argument'";
 310                $error = 1;
 311                last LINE;
 312             }
 313
 314             push @varnames, $ar[-1];   # last element is name of variable
 315          };
 316
 317          warn 'Arguments: ' . join(', ', @arguments) . "\n"
 318             . 'Varnames: ' . join(', ', @varnames)
 319             if $debug;
 320
 321          $mname = $intname.'_'.$name;  # method name
 322          $umname = uc($mname);         # uppercase method name
 323
 324          $arguments = join(", ", @arguments);
 325          $varnames = join(", ", @varnames);
 326
 327          $default = "0" if $default eq "";
 328
 329          if ( $hfile ) {
 330             # the method description
 331             print HFILE "extern struct device_op_desc $mname\_desc;\n";
 332             # the method typedef
 333             print HFILE &format_line("typedef $ret $mname\_t($arguments);",
 334                               $line_width, ', ',
 335                               ',',' ' x length("typedef $ret $mname\_t("))
 336                       . "\n";
 337             # the method declaration
 338             print HFILE "$mname\_t $umname;\n\n";
 339          }
 340
 341          if ( $cfile ) {
 342             # Print out the method desc
 343             print CFILE "struct device_op_desc $mname\_desc = {\n";
 344             print CFILE "\t0, 0, (devop_t) $default, \"$mname\"\n";
 345             print CFILE "};\n\n";
 346
 347             # Print out the method itself
 348             if ( 0 ) {                 # haven't chosen the format yet
 349                print CFILE "$ret $umname($varnames)\n";
 350                print CFILE "\t".join(";\n\t", @arguments).";\n";
 351             } else {
 352                print CFILE &format_line("$ret $umname($arguments)",
 353                               $line_width, ', ',
 354                               ',', ' ' x length("$ret $umname(")) . "\n";
 355             }
 356             print CFILE "{\n";
 357             if ($static) {
 358               print CFILE &format_line("\t$mname\_t *m = ($mname\_t *) DRVOPMETH(driver, $mname);",
 359                                        $line_width-8, ' = ', ' =', "\t\t")
 360                 . "\n";
 361             } else {
 362               print CFILE &format_line("\t$mname\_t *m = ($mname\_t *) DEVOPMETH(dev, $mname);",
 363                                        $line_width-8, ' = ', ' =', "\t\t")
 364                 . "\n";
 365             }
 366             print CFILE "\t".($ret eq 'void'? '':'return ') . "m($varnames);\n";
 367             print CFILE "}\n\n";
 368          }
 369       } else {
 370          warn $line
 371             if $debug;
 372          warn "$src:$lineno: Invalid line encountered";
 373          $error = 1;
 374          last LINE;
 375       }
 376    } # end LINE
 377
 378    # print the final '#endif' in the header file
 379    #
 380    print HFILE "#endif /* _".$intname."_if_h_ */\n"
 381       if $hfile;
 382
 383    close SRC;
 384    close CFILE
 385       if $cfile;
 386    close HFILE
 387       if $hfile;
 388
 389    if ( !$error ) {
 390       if ( $cfile ) {
 391          ($rc = system("mv $ctmpname $cfilename"))
 392             and warn "mv $ctmpname $cfilename failed, $rc";
 393       }
 394
 395       if ( $hfile ) {
 396          ($rc = system("mv $htmpname $hfilename"))
 397             and warn "mv $htmpname $hfilename failed, $rc";
 398       }
 399    } else {
 400       warn 'File' . ($hfile and $cfile? 's':'') . ' skipped';
 401       ($rc = system("rm -f $htmpname $ctmpname"))
 402          and warn "rm -f $htmpname $ctmpname failed, $rc";
 403       $gerror = 1;
 404    }
 405 }
 406
 407 exit $gerror;
 408
 409
 410 sub format_line {
 411    my ($line, $maxlength, $break, $new_end, $new_start) = @_;
 412    my $rline = "";
 413
 414    while ( length($line) > $maxlength
 415            and ($i = rindex $line, $break, $maxlength-length($new_end)) != -1 ) {
 416       $rline .= substr($line, 0, $i) . $new_end . "\n";
 417       $line = $new_start . substr($line, $i+length($break));
 418    }
 419
 420    return $rline . $line;
 421 }
 422
 423 # This routine is a crude replacement for one in File::Basename. We
 424 # cannot use any library code because it fouls up the Perl bootstrap
 425 # when we update a perl version. MarkM
 426
 427 sub fileparse {
 428    my ($filename, @suffix) = @_;
 429    my ($dir, $name, $type, $i);
 430
 431    $type = '';
 432    foreach $i (@suffix) {
 433       if ($filename =~ m|$i$|) {
 434          $filename =~ s|$i$||;
 435          $type = $i;
 436       }
 437    }
 438    if ($filename =~ m|/|) {
 439       $filename =~ m|([^/]*)$|;
 440       $name = $1;
 441       $dir = $filename;
 442       $dir =~ s|$name$||;
 443    }
 444    else {
 445       $dir = '';
 446       $name = $filename;
 447    }
 448    ($name, $dir, $type);
 449 }