From 99598860ca56bf6905f1f81e38bc1d10abd119d7 Mon Sep 17 00:00:00 2001 From: Frank Mori Hess Date: Mon, 30 Jul 2007 03:48:41 +0000 Subject: [PATCH] Added warning output if script failed to extract a comment block from driver. --- scripts/dump_doc | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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() { if( m/^Driver: / ){ $go=1; @@ -23,6 +27,11 @@ while() { if( $go ){ #chomp; print $_; + $nothing_found = 0; } } +if($nothing_found) +{ + warn "No Comedi documentation comment block found in $ARGV\n"; +} -- 2.26.2