GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-30 07:59:42 +01:00
Code Issues Projects Releases Wiki Activity

cstd now shows number of matches

Browse Source
This commit is contained in:
Pragmatic Software 2010-04-13 20:47:07 +00:00
parent 1131ab32df
commit d90ba033eb
1 changed files with 34 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
modules/cstd.pl
View File

@ -5,6 +5,10 @@ use strict;
my $debug = 0; my $debug = 0;
# for paragraphs
my $USER_SPECIFIED = 1;
my $RESULTS_SPECIFIED = 2;
my $search = join ' ', @ARGV; my $search = join ' ', @ARGV;
if(not length $search) { if(not length $search) {
@ -14,12 +18,15 @@ if(not length $search) {
my ($section, $paragraph, $section_specified, $paragraph_specified, $match, $list_only); my ($section, $paragraph, $section_specified, $paragraph_specified, $match, $list_only);
$section_specified = 0;
$paragraph_specified = 0;
if($search =~ s/-section\s*([0-9\.p]+)//i or $search =~ s/\b(\d+\.[0-9\.p]*)//i) { if($search =~ s/-section\s*([0-9\.p]+)//i or $search =~ s/\b(\d+\.[0-9\.p]*)//i) {
$section = $1; $section = $1;
if($section =~ s/p(\d+)//i) { if($section =~ s/p(\d+)//i) {
$paragraph = $1; $paragraph = $1;
$paragraph_specified = 1; $paragraph_specified = $USER_SPECIFIED;
} else { } else {
$paragraph = 1; $paragraph = 1;
} }
@ -60,6 +67,8 @@ my $text = join '', @contents;
$text =~ s/\r//g; $text =~ s/\r//g;
my $result; my $result;
my $found_section = "";
my $found_section_title = "";
my $section_title; my $section_title;
my $found = 0; my $found = 0;
my $matches = 0; my $matches = 0;
@ -83,7 +92,7 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
if($text =~ m/(.*?)^(?=\s{4}\d+\.)/msg) { if($text =~ m/(.*?)^(?=\s{4}\d+\.)/msg) {
$section_text = $1; $section_text = $1;
} else { } else {
print "No section text, skipping.\n" if $debug >= 4; print "No section text, end of file marker found.\n" if $debug >= 4;
last; last;
} }
@ -106,26 +115,29 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
print "paragraph $p: [$t]\n" if $debug >= 3; print "paragraph $p: [$t]\n" if $debug >= 3;
if($paragraph_specified and not length $search and $p == $paragraph) { if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) {
$result = $t if not $found;
$found = 1; $found = 1;
$result = $t;
last; last;
} }
if(length $search) { if(length $search) {
eval { eval {
if($t =~ m/\b$search\b/ms) { if($t =~ m/\b$search/ms) {
$matches++; $matches++;
if($matches >= $match) { if($matches >= $match) {
if($list_only) { if($list_only) {
$result .= "$comma$this_section" . "p" . $p; $result .= "$comma$this_section" . "p" . $p;
$comma = ", "; $comma = ", ";
} else { } else {
if(not $found) {
$result = $t; $result = $t;
$found_section = $this_section;
$found_section_title = $section_title;
$paragraph = $p; $paragraph = $p;
$paragraph_specified = 1; $paragraph_specified = $RESULTS_SPECIFIED;
}
$found = 1; $found = 1;
last;
} }
} }
} }
@ -137,15 +149,18 @@ while($text =~ m/^\s{4}(\d+\.[0-9\.]*)/msg) {
} }
} }
} }
last if $found == 1;
if($paragraph_specified) { last if $found && $paragraph_specified == $USER_SPECIFIED;
if($paragraph_specified == $USER_SPECIFIED) {
print "No such paragraph '$paragraph' in section '$section' of n1256.\n"; print "No such paragraph '$paragraph' in section '$section' of n1256.\n";
exit 0; exit 0;
} }
if(defined $section_specified and not length $search) { if(defined $section_specified and not length $search) {
$found = 1; $found = 1;
$found_section = $this_section;
$found_section_title = $section_title;
$result = $section_text; $result = $section_text;
last; last;
} }
@ -166,17 +181,21 @@ if(not $found and $comma eq "") {
exit 0; exit 0;
} }
$result =~ s/$section_title// if length $section_title; $result =~ s/$found_section_title// if length $found_section_title;
$result =~ s/^\s+//; $result =~ s/^\s+//;
$result =~ s/\s+$//; $result =~ s/\s+$//;
$result =~ s/\s+/ /g; $result =~ s/\s+/ /g;
$result =~ s/[\n\r]/ /g; $result =~ s/[\n\r]/ /g;
if($matches > 1 and not $list_only) {
print "Displaying \#$match of $matches matches: ";
}
if($comma eq "") { if($comma eq "") {
print $this_section; print $found_section;
print "p" . $paragraph if $paragraph_specified; print "p" . $paragraph if $paragraph_specified;
print ": "; print ": ";
print "[", $section_title, "] " if length $section_title; print "[", $found_section_title, "] " if length $found_section_title;
} }
print "$result\n"; print "$result\n";