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"
17 " eval { $_[0]->UNLOAD() if $_[0]->can('UNLOAD'); };\n"
18 " Symbol::delete_package($_[0]);\n"
22 " my ($data, $id) = @_;\n"
23 " destroy(\"Irssi::Script::$id\");\n"
25 " my $package = \"Irssi::Script::$id\";\n"
26 " my $eval = qq{package $package; %s sub handler { $data; }};\n"
28 " # hide our variables within this block\n"
29 " my ($filename, $package, $data);\n"
35 " eval { $ret = $package->handler; };\n"
41 " my ($filename, $id) = @_;\n"
44 " open FH, $filename or die \"File not found: $filename\";\n"
45 " local($/) = undef;\n"
48 " local($/) = \"\\n\";\n"
50 " eval_data($data, $id);\n"