/usr/share/vile/perl/plugins.pl is in vile-common 9.8g-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | # $Header: /usr/build/vile/vile/perl/RCS/plugins.pl,v 1.3 2000/01/09 22:53:07 bod Exp $
# (see dir.doc)
package plugins;
sub gzip {
my ($file) = @_;
my ($cb, $line);
open(GZIP, "gunzip -c $file |") || do { print "$!\n"; return 0; };
foreach $cb (Vile::buffers) {
if ($cb->buffername eq "<gzip-viewer>") {
Vile->current_buffer($cb);
$cb->setregion(1, '$$')->attribute("normal")->delete;
last;
}
}
$cb = $Vile::current_buffer;
if ($cb->buffername ne "<gzip-viewer>") {
$cb = new Vile::Buffer;
$cb->buffername("<gzip-viewer>");
Vile->current_buffer($cb);
$cb->set("view", 1);
$cb->set("readonly", 1);
$cb->set("cfilname", $file);
$cb->unmark->dot('$$');
}
while ($line = <GZIP>) { print $cb $line; }
close(GZIP);
$cb->unmark()->dot(1, 0);
Vile::update;
return 1;
}
1;
|