GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-23 03:02:47 +01:00
Code Issues Projects Releases Wiki Activity

Added c99std and c11std commands. Now indexes FOREWORD, INTRODUCTION and appedices.

Browse Source
This commit is contained in:
Pragmatic Software 2012-01-16 15:34:32 +00:00
parent 0c9a9cccd2
commit 0c8bc4f682
6 changed files with 45384 additions and 15378 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PBot/VERSION.pm
View File

@ -13,8 +13,8 @@ use warnings;
# These are set automatically by the build/commit script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 344,
BUILD_DATE => "2012-01-05",
BUILD_REVISION => 345,
BUILD_DATE => "2012-01-16",
};
1;

217
modules/c11std.pl Executable file
View File

@ -0,0 +1,217 @@
#!/usr/bin/perl
use warnings;
use strict;
my $debug = 0;
# for paragraphs
my $USER_SPECIFIED = 1;
my $RESULTS_SPECIFIED = 2;
my $search = join ' ', @ARGV;
if(not length $search) {
print "Usage: c11std [-list] [-n#] [-section <section>] [search text] -- 'section' must be in the form of X.YpZ where X and Y are section/chapter and, optionally, Z is paragraph. If both 'section' and 'search text' are specified, then the search space will be within the specified section. You may use -n # to skip to the #th match. To list only the section numbers containing 'search text', add -list.\n";
exit 0;
}
my ($section, $paragraph, $section_specified, $paragraph_specified, $match, $list_only, $list_titles);
$section_specified = 0;
$paragraph_specified = 0;
if($search =~ s/-section\s*([A-Z0-9\.p]+)//i or $search =~ s/\b([A-Z0-9]+\.[0-9\.p]*)//i) {
$section = $1;
if($section =~ s/p(\d+)//i) {
$paragraph = $1;
$paragraph_specified = $USER_SPECIFIED;
} else {
$paragraph = 1;
}
$section = "$section." if $section =~ m/^[A-Z0-9]+$/;
$section_specified = 1;
}
if($search =~ s/-n\s*(\d+)//) {
$match = $1;
} else {
$match = 1;
}
if($search =~ s/-list//i) {
$list_only = 1;
$list_titles = 1; # Added here instead of removing -titles option
}
if($search =~ s/-titles//i) {
$list_only = 1;
$list_titles = 1;
}
$search =~ s/^\s+//;
$search =~ s/\s+$//;
if(not defined $section) {
$section = "1.";
$paragraph = 1;
}
if($list_only and not length $search) {
print "You must specify some search text to use with -list.\n";
exit 0;
}
open FH, "<n1570.txt" or die "Could not open n1570.txt: $!";
my @contents = <FH>;
close FH;
my $text = join '', @contents;
$text =~ s/\r//g;
my $result;
my $found_section = "";
my $found_section_title = "";
my $section_title;
my $found_paragraph;
my $found = 0;
my $matches = 0;
my $this_section;
my $comma = "";
if($list_only) {
$result = "Sections containing '$search':\n ";
}
$search =~ s/\s/\\s+/g;
while($text =~ m/^\s{4}([0-9A-Z]+\.[0-9\.]*)/msg) {
$this_section = $1;
print "----------------------------------\n" if $debug >= 2;
print "Processing section [$this_section]\n" if $debug;
my $section_text;
if($text =~ m/(.*?)^(?=\s{4}[0-9A-Z]+\.)/msg) {
$section_text = $1;
} else {
print "No section text, end of file marker found.\n" if $debug >= 4;
last;
}
if($section_text =~ m/(.*?)$/msg) {
$section_title = $1 if length $1;
$section_title =~ s/^\s+//;
$section_title =~ s/\s+$//;
}
if($section_specified and $this_section !~ m/^$section/) {
print "No section match, skipping.\n" if $debug >= 4;
next;
}
print "$this_section [$section_title]\n" if $debug >= 2;
while($section_text =~ m/^(\d+)\s(.*?)^(?=\d)/msgc or $section_text =~ m/^(\d+)\s(.*)/msg) {
my $p = $1 ;
my $t = $2;
print "paragraph $p: [$t]\n" if $debug >= 3;
if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) {
$result = $t if not $found;
$found_paragraph = $p;
$found_section = $this_section;
$found_section_title = $section_title;
$found = 1;
last;
}
if(length $search) {
eval {
if($t =~ m/\b$search/mis or $section_title =~ m/\b$search/mis) {
$matches++;
if($matches >= $match) {
if($list_only) {
$result .= sprintf("%s%-15s", $comma, $this_section."p".$p);
$result .= " $section_title" if $list_titles;
$comma = ",\n ";
} else {
if(not $found) {
$result = $t;
$found_section = $this_section;
$found_section_title = $section_title;
$found_paragraph = $p;
$paragraph_specified = $RESULTS_SPECIFIED;
}
$found = 1;
}
}
}
};
if($@) {
print "Error in search regex; you may need to escape characters such as *, ?, ., etc.\n";
exit 0;
}
}
}
last if $found && $paragraph_specified == $USER_SPECIFIED;
if($paragraph_specified == $USER_SPECIFIED) {
print "No such paragraph '$paragraph' in section '$section' of n1570.\n";
exit 0;
}
if(defined $section_specified and not length $search) {
$found = 1;
$found_section = $this_section;
$found_section_title = $section_title;
$found_paragraph = $paragraph;
$result = $section_text;
last;
}
}
if(not $found and $comma eq "") {
$search =~ s/\\s\+/ /g;
if($section_specified) {
print "No such text '$search' found within section '$section' in C11 Draft Standard (n1570).\n" if length $search;
print "No such section '$section' in C11 Draft Standard (n1570).\n" if not length $search;
exit 0;
}
print "No such section '$section' in C11 Draft Standard (n1570).\n" if not length $search;
print "No such text '$search' found in C11 Draft Standard (n1570).\n" if length $search;
exit 0;
}
$result =~ s/$found_section_title// if length $found_section_title;
$result =~ s/^\s+//;
$result =~ s/\s+$//;
=cut
$result =~ s/\s+/ /g;
$result =~ s/[\n\r]/ /g;
=cut
if($matches > 1 and not $list_only) {
print "Displaying \#$match of $matches matches: ";
}
if($comma eq "") {
=cut
print $found_section;
print "p" . $found_paragraph if $paragraph_specified;
=cut
print "\nhttp://blackshell.com/~msmud/n1570.html\#$found_section";
print "p" . $found_paragraph if $paragraph_specified;
print "\n\n";
print "[", $found_section_title, "]\n\n" if length $found_section_title;
}
print "$result\n";

217
modules/c99std.pl Executable file
View File

@ -0,0 +1,217 @@
#!/usr/bin/perl
use warnings;
use strict;
my $debug = 0;
# for paragraphs
my $USER_SPECIFIED = 1;
my $RESULTS_SPECIFIED = 2;
my $search = join ' ', @ARGV;
if(not length $search) {
print "Usage: c99std [-list] [-n#] [-section <section>] [search text] -- 'section' must be in the form of X.YpZ where X and Y are section/chapter and, optionally, Z is paragraph. If both 'section' and 'search text' are specified, then the search space will be within the specified section. You may use -n # to skip to the #th match. To list only the section numbers containing 'search text', add -list.\n";
exit 0;
}
my ($section, $paragraph, $section_specified, $paragraph_specified, $match, $list_only, $list_titles);
$section_specified = 0;
$paragraph_specified = 0;
if($search =~ s/-section\s*([A-Z0-9\.p]+)//i or $search =~ s/\b([A-Z0-9]+\.[0-9\.p]*)//i) {
$section = $1;
if($section =~ s/p(\d+)//i) {
$paragraph = $1;
$paragraph_specified = $USER_SPECIFIED;
} else {
$paragraph = 1;
}
$section = "$section." if $section =~ m/^[A-Z0-9]+$/;
$section_specified = 1;
}
if($search =~ s/-n\s*(\d+)//) {
$match = $1;
} else {
$match = 1;
}
if($search =~ s/-list//i) {
$list_only = 1;
$list_titles = 1; # Added here instead of removing -titles option
}
if($search =~ s/-titles//i) {
$list_only = 1;
$list_titles = 1;
}
$search =~ s/^\s+//;
$search =~ s/\s+$//;
if(not defined $section) {
$section = "1.";
$paragraph = 1;
}
if($list_only and not length $search) {
print "You must specify some search text to use with -list.\n";
exit 0;
}
open FH, "<n1256.txt" or die "Could not open n1256.txt: $!";
my @contents = <FH>;
close FH;
my $text = join '', @contents;
$text =~ s/\r//g;
my $result;
my $found_section = "";
my $found_section_title = "";
my $section_title;
my $found_paragraph;
my $found = 0;
my $matches = 0;
my $this_section;
my $comma = "";
if($list_only) {
$result = "Sections containing '$search':\n ";
}
$search =~ s/\s/\\s+/g;
while($text =~ m/^\s{4}([0-9A-Z]+\.[0-9\.]*)/msg) {
$this_section = $1;
print "----------------------------------\n" if $debug >= 2;
print "Processing section [$this_section]\n" if $debug;
my $section_text;
if($text =~ m/(.*?)^(?=\s{4}[0-9A-Z]+\.)/msg) {
$section_text = $1;
} else {
print "No section text, end of file marker found.\n" if $debug >= 4;
last;
}
if($section_text =~ m/(.*?)$/msg) {
$section_title = $1 if length $1;
$section_title =~ s/^\s+//;
$section_title =~ s/\s+$//;
}
if($section_specified and $this_section !~ m/^$section/) {
print "No section match, skipping.\n" if $debug >= 4;
next;
}
print "$this_section [$section_title]\n" if $debug >= 2;
while($section_text =~ m/^(\d+)\s(.*?)^(?=\d)/msgc or $section_text =~ m/^(\d+)\s(.*)/msg) {
my $p = $1 ;
my $t = $2;
print "paragraph $p: [$t]\n" if $debug >= 3;
if($paragraph_specified == $USER_SPECIFIED and not length $search and $p == $paragraph) {
$result = $t if not $found;
$found_paragraph = $p;
$found_section = $this_section;
$found_section_title = $section_title;
$found = 1;
last;
}
if(length $search) {
eval {
if($t =~ m/\b$search/mis or $section_title =~ m/\b$search/mis) {
$matches++;
if($matches >= $match) {
if($list_only) {
$result .= sprintf("%s%-15s", $comma, $this_section."p".$p);
$result .= " $section_title" if $list_titles;
$comma = ",\n ";
} else {
if(not $found) {
$result = $t;
$found_section = $this_section;
$found_section_title = $section_title;
$found_paragraph = $p;
$paragraph_specified = $RESULTS_SPECIFIED;
}
$found = 1;
}
}
}
};
if($@) {
print "Error in search regex; you may need to escape characters such as *, ?, ., etc.\n";
exit 0;
}
}
}
last if $found && $paragraph_specified == $USER_SPECIFIED;
if($paragraph_specified == $USER_SPECIFIED) {
print "No such paragraph '$paragraph' in section '$section' of n1256.\n";
exit 0;
}
if(defined $section_specified and not length $search) {
$found = 1;
$found_section = $this_section;
$found_section_title = $section_title;
$found_paragraph = $paragraph;
$result = $section_text;
last;
}
}
if(not $found and $comma eq "") {
$search =~ s/\\s\+/ /g;
if($section_specified) {
print "No such text '$search' found within section '$section' in C99 Draft Standard (n1256).\n" if length $search;
print "No such section '$section' in C99 Draft Standard (n1256).\n" if not length $search;
exit 0;
}
print "No such section '$section' in C99 Draft Standard (n1256).\n" if not length $search;
print "No such text '$search' found in C99 Draft Standard (n1256).\n" if length $search;
exit 0;
}
$result =~ s/$found_section_title// if length $found_section_title;
$result =~ s/^\s+//;
$result =~ s/\s+$//;
=cut
$result =~ s/\s+/ /g;
$result =~ s/[\n\r]/ /g;
=cut
if($matches > 1 and not $list_only) {
print "Displaying \#$match of $matches matches: ";
}
if($comma eq "") {
=cut
print $found_section;
print "p" . $found_paragraph if $paragraph_specified;
=cut
print "\nhttp://blackshell.com/~msmud/n1256.html\#$found_section";
print "p" . $found_paragraph if $paragraph_specified;
print "\n\n";
print "[", $found_section_title, "]\n\n" if length $found_section_title;
}
print "$result\n";

30
modules/gencstd.pl
View File

@ -24,6 +24,7 @@ if(not defined $section) {
}
open FH, "<n1256.txt" or die "Could not open n1256.txt: $!";
#open FH, "<n1570.txt" or die "Could not open n1570.txt: $!";
my @contents = <FH>;
close FH;
@ -42,23 +43,23 @@ my $comma = "";
print "<html>\n<body>\n";
#$debug = 9999;
$debug = 9999;
my $last_section_number = 0;
my $section_number = 0;
while($text =~ m/^\s{4,6}(\d+\.[0-9\.]*)/msg) {
while($text =~ m/^\s{4}([0-9A-Z]+\.[0-9\.]*)/msg) {
$last_section_number = $section_number;
$this_section = $1;
($section_number) = $this_section =~ /([^.]+)\./;
print "----------------------------------\n" if $debug >= 2;
print "Processing section [$this_section]; number [$section_number]\n" if $debug;
print STDERR "----------------------------------\n" if $debug >= 2;
print STDERR "Processing section [$this_section]; number [$section_number]\n" if $debug;
my $diff = $section_number - $last_section_number;
print "Diff: $diff\n" if $debug >= 2;
print STDERR "Diff: $diff\n" if $debug >= 2;
if($section_number > 0 and $diff < 0 or $diff > 1) {
die "Diff out of bounds: $diff";
@ -66,10 +67,10 @@ while($text =~ m/^\s{4,6}(\d+\.[0-9\.]*)/msg) {
my $section_text;
if($text =~ m/(.*?)^(?=\s{4,6}\d+\.)/msg) {
if($text =~ m/(.*?)^(?=\s{4}[0-9A-Z]+\.)/msg) {
$section_text = $1;
} else {
print "No section text, end of file marker found.\n" if $debug >= 4;
print STDERR "No section text, end of file marker found.\n" if $debug >= 4;
last;
}
@ -79,7 +80,7 @@ while($text =~ m/^\s{4,6}(\d+\.[0-9\.]*)/msg) {
$section_title =~ s/\s+$//;
}
print "$this_section [$section_title]\n" if $debug >= 2;
print STDERR "$this_section [$section_title]\n" if $debug >= 2;
print "<hr>\n";
print "<a name='$this_section'>";
@ -87,11 +88,10 @@ while($text =~ m/^\s{4,6}(\d+\.[0-9\.]*)/msg) {
print "</a>\n";
while($section_text =~ m/^(\d+)\s(.*?)^(?=\d)/msgc or $section_text =~ m/^(\d+)\s(.*)/msg) {
my $p = $1 ;
my $p = $1;
my $t = $2;
print "paragraph $p: [$t]\n" if $debug >= 3;
print STDERR "paragraph $p: [$t]\n" if $debug >= 3;
$t = encode_entities($t);
@ -99,14 +99,6 @@ while($text =~ m/^\s{4,6}(\d+\.[0-9\.]*)/msg) {
print "<pre>$p $t</pre>\n";
print "</a>\n";
}
last if $found && $paragraph_specified == $USER_SPECIFIED;
if($paragraph_specified == $USER_SPECIFIED) {
print "No such paragraph '$paragraph' in section '$section' of n1256.\n";
exit 0;
}
}
print "\n</body>\n</html>\n";

4861
modules/n1256.txt
View File

File diff suppressed because it is too large Load Diff

25205
modules/n1570.txt Executable file
View File

File diff suppressed because it is too large Load Diff