*** empty log message ***

1 files changed, 145 insertions, 0 deletions

diff --git a/tools/genmodparm b/tools/genmodparm
new file mode 100755
index 000000000..d122193a2
--- /dev/null
+++ b/tools/genmodparm
@@ -0,0 +1,145 @@
+#!/usr/bin/perl
+
+# Mandrake Graphic Install
+# Copyright (C) 1999 MandrakeSoft (fpons@linux-mandrake.com)
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+$srctop = $ARGV[0];
+
+unless (-d $srctop) {
+  print STDERR "usage: $0 <linux_src_top>\n";
+  print STDERR "   <linux_src_top> is the linux source top directory,\n";
+  print STDERR "                   for example /usr/src/linux\n";
+  exit 1;
+}
+
+open (FILE_LIST, "find $srctop/ -name \"*.c\" |");
+
+while (<FILE_LIST>) {
+  chomp;
+
+  my $file = $_;
+  my $dir = $file;
+  my $module = $file;
+  my $incfile;
+  my @incfiles;
+  my %parms;
+  my $oldline;
+  my $descline;
+  my $default;
+  my %substvars;
+
+  # get mormalized directory name.
+  $dir =~ s/^(.*)\/[^\/]*$/$1/;
+
+  # get mormalized module name.
+  $module  =~ s/^.*\/([^\/]*)\.c$/$1/;
+
+  # search for recogniwed special keywords.
+  open (F, $file);
+  while (<F>) {
+    # track for include files.
+    if (/^\#\s*include\s+[\<\"]([\w-\.\/]*)[\"\>]/) {
+      # search from /usr/src/linux/include directory.
+      push @incfiles, "/usr/src/linux/include/$1";
+
+      # search from current working directory.
+      push @incfiles, "$dir/$1";
+    }
+
+    if (/^\s*MODULE_PARM\s*\((\w*)\s*,\s*\"/) {
+	$parms{$1}{type} = '?';
+    }
+    if (/^\s*MODULE_PARM\s*\((\w*)\s*,\s*\"([^\"]*)\"\s*\)/) {
+      $parms{$1}{type} = $2;
+    }
+    if (/^\s*MODULE_PARM_DESC\s*\((\w*)\s*,\s*\"([^\"]*)\"\s*\)/) {
+      $parms{$1}{desc} = $2;
+    }
+  }
+  close F;
+
+  # parse associated include file if exist.
+  foreach $incfile (@incfiles) {
+    if (-r $incfile) {
+      open (F, $incfile);
+      while (<F>) {
+	s/^(.*)\/\*.*$/$1/g;
+	if (/^\#\s*define\s*(\w*)\s*(.*)$/) {
+	  $substvars{$1}=$2;
+	}
+      }
+      close F;
+    }
+  }
+
+  # search for comments about each module parameter.
+  open (F, $file);
+  while (<F>) {
+    my $line = $_;
+
+    # manage simple preprocessor.
+    s/^(.*)\/\*.*$/$1/g;
+    if (/^\#\s*define\s*(\w*)\s*(.*)$/) {
+      $substvars{$1}=$2;
+    }
+
+    # parse for parameters definition.
+    foreach $parm (keys %parms) {
+      if ($line =~ /^\s*(static\s+)?((short|long|signed|unsigned)\s+)?\w+(\s*\**\s+|\s+\**\s*)$parm(\s*\[.*\]\s*)?\s*=\s*([^\;]*)\;/) {
+	$default = $descline = $6;
+	$default =~ s/^(.*)\/\*.*$/$1/g;
+
+	# remove hypothetic couple of { }.
+	$default =~ s/^(\s*\{\s*)(.*)(\s*\}\s*)$/$2/;
+
+	# subsitute variable.
+	foreach $substvar (keys %substvars) {
+	  $default =~ s/$substvar/$substvars{$substvar}/g;
+	}
+	$default =~ s/NULL/0/g;
+	$default =~ s/^\s*(.*?)\s*$/$1/;
+	$default = '' if $default =~ /\(\s*\(\s*void*\s*\*\)\s*0\s*\)\s*,?/;
+
+	# store value.
+	$parms{$parm}{default} = $default;
+
+	# try to search a comment on the previous line.
+	if (!defined($parms{$parm}{desc})) {
+	  if ($oldline =~ /^\s*\/\*\s*(.*)\s*\*\/\s*$/ || /\/\*\s*(.*)\s*\*\/\s*$/) {
+	    $parms{$parm}{desc} = $1;
+	  }
+	}
+
+	# try to search a comment on the line (multiline not supported).
+	if (!defined($parms{$parm}{desc})) {
+	  if ($descline =~ /^.*\/\*\s*(.*)\s*\*\/\s*$/) {
+	    $parms{$parm}{desc} = $1;
+	  }
+	}
+      }
+    }
+    $oldline = $_;
+  }
+  close F;
+
+  # dump all result to stdout associated to current module.
+  foreach $parm (keys %parms) {
+    print "$module:$parm:$parms{$parm}{type}:$parms{$parm}{default}:$parms{$parm}{desc}\n";
+  }
+}
+
+close FILE_LIST;