mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-25 12:12:34 +01:00
b5d8f72254
This patch adds the file LICENSE which is the verbatim copy of the Mozilla Public License Version 2.0 as retreived from https://www.mozilla.org/media/MPL/2.0/index.815ca599c9df.txt on 2017-03-05. This patch also places license headers for the MPL2 type A variant of the license header in the following files: PBot/AntiFlood.pm PBot/BanTracker.pm PBot/BlackList.pm PBot/BotAdminCommands.pm PBot/BotAdmins.pm PBot/ChanOpCommands.pm PBot/ChanOps.pm PBot/Channels.pm PBot/Commands.pm PBot/DualIndexHashObject.pm PBot/EventDispatcher.pm PBot/FactoidCommands.pm PBot/FactoidModuleLauncher.pm PBot/Factoids.pm PBot/HashObject.pm PBot/IRCHandlers.pm PBot/IgnoreList.pm PBot/IgnoreListCommands.pm PBot/Interpreter.pm PBot/LagChecker.pm PBot/Logger.pm PBot/MessageHistory.pm PBot/MessageHistory_SQLite.pm PBot/NickList.pm PBot/PBot.pm PBot/Plugins.pm PBot/Plugins/AntiAway.pm PBot/Plugins/AntiKickAutoRejoin.pm PBot/Plugins/AntiRepeat.pm PBot/Plugins/AntiTwitter.pm PBot/Plugins/AutoRejoin.pm PBot/Plugins/Counter.pm PBot/Plugins/Quotegrabs.pm PBot/Plugins/Quotegrabs/Quotegrabs_Hashtable.pm PBot/Plugins/Quotegrabs/Quotegrabs_SQLite.pm PBot/Plugins/UrlTitles.pm PBot/Plugins/_Example.pm PBot/Refresher.pm PBot/Registerable.pm PBot/Registry.pm PBot/RegistryCommands.pm PBot/SQLiteLogger.pm PBot/SQLiteLoggerLayer.pm PBot/SelectHandler.pm PBot/StdinReader.pm PBot/Timer.pm PBot/Utils/ParseDate.pm PBot/VERSION.pm build/update-version.pl modules/acronym.pl modules/ago.pl modules/c11std.pl modules/c2english.pl modules/c2english/CGrammar.pm modules/c2english/c2eng.pl modules/c99std.pl modules/cdecl.pl modules/cfaq.pl modules/cjeopardy/IRCColors.pm modules/cjeopardy/QStatskeeper.pm modules/cjeopardy/Scorekeeper.pm modules/cjeopardy/cjeopardy.pl modules/cjeopardy/cjeopardy_answer.pl modules/cjeopardy/cjeopardy_filter.pl modules/cjeopardy/cjeopardy_hint.pl modules/cjeopardy/cjeopardy_qstats.pl modules/cjeopardy/cjeopardy_scores.pl modules/cjeopardy/cjeopardy_show.pl modules/codepad.pl modules/compiler_block.pl modules/compiler_client.pl modules/compiler_vm/Diff.pm modules/compiler_vm/cc modules/compiler_vm/compiler_client.pl modules/compiler_vm/compiler_server.pl modules/compiler_vm/compiler_server_vbox_win32.pl modules/compiler_vm/compiler_server_watchdog.pl modules/compiler_vm/compiler_vm_client.pl modules/compiler_vm/compiler_vm_server.pl modules/compiler_vm/compiler_watchdog.pl modules/compiler_vm/languages/_c_base.pm modules/compiler_vm/languages/_default.pm modules/compiler_vm/languages/bash.pm modules/compiler_vm/languages/bc.pm modules/compiler_vm/languages/bf.pm modules/compiler_vm/languages/c11.pm modules/compiler_vm/languages/c89.pm modules/compiler_vm/languages/c99.pm modules/compiler_vm/languages/clang.pm modules/compiler_vm/languages/clang11.pm modules/compiler_vm/languages/clang89.pm modules/compiler_vm/languages/clang99.pm modules/compiler_vm/languages/clangpp.pm modules/compiler_vm/languages/clisp.pm modules/compiler_vm/languages/cpp.pm modules/compiler_vm/languages/freebasic.pm modules/compiler_vm/languages/go.pm modules/compiler_vm/languages/haskell.pm modules/compiler_vm/languages/java.pm modules/compiler_vm/languages/javascript.pm modules/compiler_vm/languages/ksh.pm modules/compiler_vm/languages/lua.pm modules/compiler_vm/languages/perl.pm modules/compiler_vm/languages/python.pm modules/compiler_vm/languages/python3.pm modules/compiler_vm/languages/qbasic.pm modules/compiler_vm/languages/scheme.pm modules/compiler_vm/languages/server/_c_base.pm modules/compiler_vm/languages/server/_default.pm modules/compiler_vm/languages/server/c11.pm modules/compiler_vm/languages/server/c89.pm modules/compiler_vm/languages/server/c99.pm modules/compiler_vm/languages/server/clang.pm modules/compiler_vm/languages/server/clang11.pm modules/compiler_vm/languages/server/clang89.pm modules/compiler_vm/languages/server/clang99.pm modules/compiler_vm/languages/server/cpp.pm modules/compiler_vm/languages/server/freebasic.pm modules/compiler_vm/languages/server/haskell.pm modules/compiler_vm/languages/server/java.pm modules/compiler_vm/languages/server/qbasic.pm modules/compiler_vm/languages/server/tendra.pm modules/compiler_vm/languages/sh.pm modules/compiler_vm/languages/tendra.pm modules/compliment modules/cstd.pl modules/define.pl modules/dice_roll.pl modules/excuse.sh modules/expand_macros.pl modules/fnord.pl modules/funnyish_quote.pl modules/g.pl modules/gdefine.pl modules/gen_cfacts.pl modules/gencstd.pl modules/get_title.pl modules/getcfact.pl modules/google.pl modules/gspy.pl modules/gtop10.pl modules/gtop15.pl modules/headlines.pl modules/horoscope modules/horrorscope modules/ideone.pl modules/insult.pl modules/love_quote.pl modules/man.pl modules/map.pl modules/math.pl modules/prototype.pl modules/qalc.pl modules/random_quote.pl modules/seen.pl modules/urban modules/weather.pl modules/wikipedia.pl pbot.pl pbot.sh It is highly recommended that this list of files is reviewed to ensure that all files are the copyright of the sole maintainer of the repository. If any files with license headers contain the intellectual property of anyone else, it is recommended that a request is made to revise this patch or that the explicit permission of the co-author is gained to allow for the license of the work to be changed. I (Tomasz Kramkowski), the contributor, take no responsibility for any legal action taken against the maintainer of this repository for incorrectly claiming copyright to any work not owned by the maintainer of this repository.
134 lines
3.4 KiB
Perl
Executable File
134 lines
3.4 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Parse::RecDescent;
|
|
use Getopt::Std;
|
|
use Data::Dumper;
|
|
|
|
our ($opt_T, $opt_t, $opt_o, $opt_P);
|
|
getopts('TPto:');
|
|
|
|
if ($opt_T ) {
|
|
$::RD_TRACE = 1;
|
|
} else {
|
|
undef $::RD_TRACE ;
|
|
}
|
|
|
|
$::RD_HINT = 1;
|
|
$Parse::RecDescent::skip = '\s*';
|
|
|
|
my $parser;
|
|
|
|
if($opt_P or !eval { require PCGrammar }) {
|
|
precompile_grammar();
|
|
require PCGrammar;
|
|
}
|
|
|
|
$parser = PCGrammar->new() or die "Bad grammar!\n";
|
|
|
|
if ($opt_o) {
|
|
open(OUTFILE, ">>$opt_o");
|
|
*STDOUT = *OUTFILE{IO};
|
|
}
|
|
|
|
my $text = "";
|
|
foreach my $arg (@ARGV) {
|
|
print STDERR "Opening file $arg\n";
|
|
|
|
open(CFILE, "$arg") or die "Could not open $arg.\n";
|
|
local $/;
|
|
$text = <CFILE>;
|
|
close(CFILE);
|
|
|
|
print STDERR "parsing...\n";
|
|
|
|
# for debugging...
|
|
if ($opt_t) {
|
|
$::RD_TRACE = 1;
|
|
} else {
|
|
undef $::RD_TRACE;
|
|
}
|
|
|
|
my $result = $parser->startrule(\$text) or die "Bad text!\n$text\n";
|
|
|
|
$text =~ s/^\s+//g;
|
|
$text =~ s/\s+$//g;
|
|
|
|
if(length $text) {
|
|
print "Bad parse at: $text";
|
|
} else {
|
|
my $output = join('', flatten($result));
|
|
|
|
# beautification
|
|
my @quotes;
|
|
$output =~ s/(?:\"((?:\\\"|(?!\").)*)\")/push @quotes, $1; '"' . ('-' x length $1) . '"'/ge;
|
|
|
|
$output =~ s/\ban un/a un/g;
|
|
$output =~ s/\ban UTF/a UTF/g;
|
|
$output =~ s/the value the expression/the value of the expression/g;
|
|
$output =~ s/the value the member/the value of the member/g;
|
|
$output =~ s/the value the/the/g;
|
|
$output =~ s/of evaluate/of/g;
|
|
$output =~ s/the evaluate the/the/g;
|
|
$output =~ s/by evaluate the/by the/g;
|
|
$output =~ s/the a /the /g;
|
|
$output =~ s/Then if it has the value/If it has the value/g;
|
|
$output =~ s/result of the expression a generic-selection/result of a generic-selection/g;
|
|
$output =~ s/the result of the expression (an?) (16-bit character|32-bit character|wide character|UTF-8) string/$1 $2 string/gi;
|
|
$output =~ s/the function a generic-selection/the function resulting from a generic-selection/g;
|
|
$output =~ s/\.\s+Then exit switch block/ and then exit switch block/g;
|
|
$output =~ s/,\././g;
|
|
while($output =~ s/const const/const/g){};
|
|
|
|
foreach my $quote (@quotes) {
|
|
next unless $quote;
|
|
$output =~ s/"-+"/"$quote"/;
|
|
}
|
|
|
|
print $output;
|
|
}
|
|
}
|
|
|
|
|
|
sub precompile_grammar {
|
|
print STDERR "Precompiling grammar...\n";
|
|
open GRAMMAR, 'CGrammar.pm' or die "Could not open CGrammar.pm: $!";
|
|
local $/;
|
|
my $grammar = <GRAMMAR>;
|
|
close GRAMMAR;
|
|
|
|
Parse::RecDescent->Precompile($grammar, "PCGrammar") or die "Could not precompile: $!";
|
|
}
|
|
|
|
sub flatten {
|
|
map { ref eq 'ARRAY' ? flatten(@$_) : $_ } @_
|
|
}
|
|
|
|
sub isfalse {
|
|
return istrue($_[0], 'zero');
|
|
}
|
|
|
|
sub istrue {
|
|
my @parts = split /(?<!,) and /, $_[0];
|
|
my $truthy = defined $_[1] ? $_[1] : 'nonzero';
|
|
my ($result, $and) = ('', '');
|
|
foreach my $part (@parts) {
|
|
$result .= $and;
|
|
if($part !~ /(discard the result|result discarded|greater|less|equal|false$)/) {
|
|
$result .= "$part is $truthy";
|
|
} else {
|
|
$result .= $part;
|
|
}
|
|
$and = ' and ';
|
|
}
|
|
$result =~ s/is $truthy and the result discarded/is evaluated and the result discarded/g;
|
|
$result =~ s/is ((?:(?!evaluated).)+) and the result discarded/is evaluated to be $1 and the result discarded/g;
|
|
return $result;
|
|
}
|