|
|
| version 1.1, 2003/06/17 02:47:28 | version 1.2, 2003/11/14 03:54:29 |
|---|---|
| Line 1 | Line 1 |
| # Make prototypes from .c files | # Make prototypes from .c files |
| # $Id$ | # $Id$ |
| # $DragonFly$ | |
| ##use Getopt::Std; | ##use Getopt::Std; |
| require 'getopts.pl'; | require 'getopts.pl'; |
| Line 7 require 'getopts.pl'; | Line 8 require 'getopts.pl'; |
| $brace = 0; | $brace = 0; |
| $line = ""; | $line = ""; |
| $debug = 0; | $debug = 0; |
| $oproto = 1; | $oproto = 0; |
| $private_func_re = "^_"; | $private_func_re = "^_"; |
| do Getopts('o:p:dqR:P:') || die "foo"; | do Getopts('o:p:dqR:P:') || die "foo"; |