1 const char *irssi_core_code =
2 "# NOTE: this is printed through printf()-like function,\n"
3 "# so no extra percent characters.\n"
5 "# %%d : must be first - 1 if perl libraries are to be linked \n"
6 "# statically with irssi binary, 0 if not\n"
7 "# %%s : must be second - use Irssi; use Irssi::Irc; etc..\n"
8 "package Irssi::Core;\n"
10 "use Symbol qw(delete_package);\n"
17 " delete_package($_[0]);\n"
21 " my ($data, $id) = @_;\n"
22 " destroy(\"Irssi::Script::$id\");\n"
24 " my $package = \"Irssi::Script::$id\";\n"
25 " my $eval = qq{package $package; %s sub handler { $data; }};\n"
27 " # hide our variables within this block\n"
28 " my ($filename, $package, $data);\n"
33 " eval {$package->handler;};\n"
38 " my ($filename, $id) = @_;\n"
41 " open FH, $filename or die \"File not found: $filename\";\n"
42 " local($/) = undef;\n"
45 " local($/) = \"\\n\";\n"
47 " eval_data($data, $id);\n"