From: Frank Mori Hess <fmhess@speakeasy.net>
Date: Mon, 30 Jul 2007 03:48:41 +0000 (+0000)
Subject: Added warning output if script failed to extract a comment block from
X-Git-Tag: r0_7_74~22
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=99598860ca56bf6905f1f81e38bc1d10abd119d7;p=comedi.git

Added warning output if script failed to extract a comment block from
driver.
---

diff --git a/scripts/dump_doc b/scripts/dump_doc
index f790a901..27af5429 100755
--- a/scripts/dump_doc
+++ b/scripts/dump_doc
@@ -1,6 +1,9 @@
 #!/usr/bin/perl
 # vi: set ts=4:
 
+use strict;
+use warnings;
+
 @ARGV = ('-') unless @ARGV;
 
 $ARGV=shift @ARGV;
@@ -9,7 +12,8 @@ if(!open(FILE,$ARGV)){
 	exit 1;
 }
 
-$go=0;
+my $nothing_found = 1;
+my $go=0;
 while(<FILE>) {
 	if( m/^Driver: / ){
 		$go=1;
@@ -23,6 +27,11 @@ while(<FILE>) {
 	if( $go ){
 		#chomp;
 		print $_;
+		$nothing_found = 0;
 	}
 }
+if($nothing_found)
+{
+	warn "No Comedi documentation comment block found in $ARGV\n";
+}