vile-common 9.8f-2 / usr / share / vile / perl / man.pm

This file is indexed.

/usr/share/vile/perl/man.pm is in vile-common 9.8f-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
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
# $Header: /usr/build/vile/vile/perl/RCS/man.pm,v 1.3 2002/05/06 23:27:51 tom Exp $
package man;

use Vile;
use Vile::Manual;
require Vile::Exporter;
@ISA = 'Vile::Exporter';
%REGISTRY = (
    'man' => [\&man, ''],
    'man-help' => [ sub {&manual}, 'manual page']
);

sub man {
    my $work = Vile::working(0);

    my $word = scalar(Vile->get("word"));
    my $qid  = scalar(Vile->get("qidentifier"));
    my $man  = Vile::mlreply_opts("Man? ", ($word,$qid));

    my $s;

    if (!defined $man || !length($man)) {
        Vile::working($work);
        print "";
        return;
    }

    foreach $cb (Vile::buffers) {
        if ($cb->buffername eq "<man:$man>") {
	    Vile::working($work);
            Vile->current_buffer($cb);
            return;
        }
    }

    print "";
    open(MAN, "man $man |") || do { print "$!\n"; Vile::working($work); return; };

    $cb = new Vile::Buffer;
    $cb->buffername("<man:$man>");
    Vile->current_buffer($cb);

    while (<MAN>) {
        next unless /\010/o;
        s/((.)\010)+\2/\002\2/g;
        s/(_\010)+/\003/go;
        s|((\002.)+)|sprintf("\001%dB:$1",(length($1)/2))|ge;
        s|((\003.)+)|sprintf("\001%dU:$1",(length($1)/2))|ge;
        s/(\002|\003)//go;
        s/\010.//go;
    }
    continue {
        print $cb $_ if /\S/ || ! $s;
        $s = /^\s*$/;
    }
    close(MAN);
    print "";

    $cb->setregion(1, '$$')->attribute_cntl_a_sequences;
    $cb->set("view", 1);
    $cb->set("readonly", 1);
    $cb->unmark()->dot(1, 0);
    $cb->command("clear-and-redraw");
    Vile::update;
    Vile::working($work);
    return;
}

1;

__END__

=head1 NAME

man - Unix manual pages interface in vile

=head1 SYNOPSIS

In .vilerc

perl use man;

In [x]vile

:man

=head1 DESCRIPTION

This is a Unix manual pages viewer  for [x]vile written using the
vile-perl-api. On invocation, it prompts the user for the keyword
for which to show the manual page, and provides an initial choice
of the "punctuated-word"  and the  "whole-word" under the cursor.
The user can cycle through the default initial choices by hitting
the TAB key.

The manual page is presented  in a new buffer unless a buffer for
that manual page already exists. The  manual  page  is  formatted
with bold and underline attributes as appropriate.

=head1 CAVEATS

None.

=head1 CREDITS

Vile, Perl and Vile's Perl interface.

=head1 AUTHOR

Kuntal Daftary (daftary@cisco.com), 2001

=cut

APT Browse - Built by Thomas Orozco.