m4/as-linux.m4: don't use backported pcmcia_loop_tuple()

[comedi.git] / scripts / doc_devlist

diff --git a/scripts/doc_devlist b/scripts/doc_devlist
index 6fd4459091db5e51ce53d31c01aec14198d893ba..b71635213940f27fafcc092eddf0ce6b5bde0a03 100755 (executable)
--- a/scripts/doc_devlist
+++ b/scripts/doc_devlist
@@ -16,36 +16,40 @@ while(<FILE>){
 }
 
 $driver = "";
-while($_=shift @lines){
-       if( m/^[\w-]+: / ){
-               if($l){
-                       #print "$l\n";
-                       if($l =~ m/^Driver: /){
-                               $_ = $l;
-                               s/^Driver: //;
-                               $driver = $_;
-                       }
+$mode = 0;
+while($line=shift @lines){
+       $_ = $line;
+       if( $mode == 0){
+               if( m/^[\w-]+: / ){
+                       chomp;
+                       $l=$_;
+                       $mode = 1;
                }
-               chomp;
-               $l=$_;
-       }elsif( m/^ / ){
-               s/^ +//;
-               chomp;
-               $l="$l $_";
-       }else{
-               if($l){
+       }elsif($mode==1){
+               if( m/^ / ){
+                       s/^ +//;
+                       chomp;
+                       $l="$l $_";
+                       $mode = 1;
+               }else{
                        #print "$l\n";
                        if($l =~ m/^Driver: /){
                                $_ = $l;
                                s/^Driver: //;
                                $driver = $_;
                        }
-                       if($l =~ m/^Devices: /){
-                               $_ = $l;
-                               s/^Devices: //;
-                               parse_devices($_);
+                       if($l =~ m/^Devices:/){
+                               $l =~ s/^Devices://;
+                               parse_devices($l);
                        }
                        $l="";
+                       $mode = 0;
+                       $_ = $line;
+                       if( m/^[\w-]+: / ){
+                               chomp;
+                               $l=$_;
+                               $mode = 1;
+                       }
                }
        }
 }
@@ -77,13 +81,13 @@ sub parse_devices
                        #print "recognized dev $dev\n";
                }elsif(m/^ *,(.*)/){
                        $devs = $1;
-                       printf "%-28s %-17s %-17s %-10s\n", $mfr, $dev, $driver, $name;
+                       printf "%s\t%s\t%s\t%s\n", $mfr, $dev, $driver, $name;
                }else{
                        print "parse error $_\n";
                        $devs = "";
                }
        }
-       printf "%-28s %-17s %-17s %-10s\n", $mfr, $dev, $driver, $name;
+       printf "%s\t%s\t%s\t%s\n", $mfr, $dev, $driver, $name;
 }