vile-common 9.8q-1build1 / usr / share / vile / manpage.rc

This file is indexed.

/usr/share/vile/manpage.rc is in vile-common 9.8q-1build1.

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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
;;
;; Macros for obtaining manual pages and then attributing them.
;;
;; Author: Kevin Buettner
;;
;; $Header: /usr/build/vile/vile/macros/RCS/manpage.rc,v 1.26 2014/03/30 20:10:29 tom Exp $
;;

store-procedure ShowManpage "Prompt for, and display a manual-page"
	~local %filter %manpage %manpagebuf $error-buffer
	set-variable %filter &pquote &lookup e+l+p &cat vile-manfilt $exec-suffix
	~if &seq %filter ""
		write-message "[Cannot find manpage-filter]"
		~return
	~endif
	~force set-variable %manpage &query "man page? "
	~if &or &error %manpage &seq %manpage ""
		~return
	~endif
	set-variable %manpagebuf &cat "<" &cat %manpage ">"
	set terse
	~force select-buffer %manpagebuf
	~if &not $status
		edit-file &cat "!man " &cat %manpage &cat " | " %filter
		~if &isa Majormode txt
			setl txtmode
		~endif
		setl autocolor=0
		~force rename-buffer %manpagebuf
		~force error-buffer %manpagebuf
		write-message "[Attaching bold and underline attributes...]"
		goto-beginning-of-file
		setl noview
		attribute-cntl_a-sequences-til end-of-file
		unmark-buffer
		setl view
		goto-beginning-of-file
		unsetv $cfilname
		write-message "[Done formatting manual page.]"
	~endif
	set noterse
~endm
bind-key ShowManpage ^X-m

store-procedure ShowFormatted "Render the current buffer with nroff (-man or -ms), lynx or vile-pager"
	~local %type %macros %table %nroff %filter %manpagesrc %manpagebuf $error-buffer

	set-variable %filter &pquote &lookup e+l+p &cat vile-manfilt $exec-suffix
	~if &seq %filter ""
		write-message "[Cannot find manpage-filter]"
		~return
	~endif

	~if &sin $cbufname "<"
		set-variable %manpagebuf $cbufname
		set-variable %manpagesrc &mid $cbufname 2 &sub &len $cbufname 2
		~force select-buffer %manpagesrc
		~if &not $status
			write-message &cat "Buffer not found: " %manpagesrc
			~return
		~endif
	~else
		set-variable %manpagebuf &cat "<" &cat $cbufname ">"
	~endif

	setv %table &env 'VILE_TABLE_FILT'
	~if &seq %table ''
		~if &seq $pathlist-separator ":"
			setv %table 'tbl'
		~endif
	~endif

	setv %nroff &env 'VILE_NROFF_FILT'
	~if &seq %nroff ''
		~if &seq $pathlist-separator ":"
			setv %nroff 'nroff'
		~else
			setv %nroff 'cawf'
		~endif
	~endif

	set terse
	~force kill-buffer %manpagebuf
	setv %type &path end $cfilname
	~if &or &seq $majormode "html" \
		&seq $majormode "xml"
		edit-file &cat "!lynx -force_html -with_backspaces -dump -width=" \
			&cat $pagewid \
			&cat " " \
			&cat &pquote $cfilname \
			&cat " | " %filter
	~elseif &seq $majormode "perl"
		~if &seq %table ''
			edit-file &cat "!pod2text " \
				&cat &pquote $cfilname \
				&cat " | " %filter
		~else
			edit-file &cat "!pod2man " \
				&cat &pquote $cfilname \
				&cat " | " \
				&cat %table \
				&cat " | " \
				&cat %nroff \
				&cat " -man | " %filter
		~endif
	~elseif &or &seq $majormode "log" \
		    &sin $cbufname "typescript"
		edit-file &cat "!" \
			&cat %filter \
			&cat " " \
			&pquote $cfilname
	~else
		~if &seq %type ".ms"
			setv %macros="-ms"
		~elseif &seq %type ".mm"
			setv %macros="-mm"
		~else
			setv %macros="-man"
		~endif
		~if &seq %table ''
			edit-file &cat "!" \
				&cat %nroff \
				&cat " " \
				&cat %macros \
				&cat " " \
				&cat &pquote $cfilname \
				&cat " | " %filter
		~else
			edit-file &cat "!" \
				&cat %table \
				&cat " " \
				&cat &pquote $cfilname \
				&cat " | " \
				&cat %nroff \
				&cat " " \
				&cat %macros \
				&cat " | " %filter
		~endif
	~endif

	~if &isa Majormode txt
		setl txtmode
	~endif
	setl autocolor=0
	~force rename-buffer %manpagebuf
	~force error-buffer %manpagebuf
	write-message "[Attaching bold and underline attributes...]"
	goto-beginning-of-file
	setl noview
	attribute-cntl_a-sequences-til end-of-file
	unmark-buffer
	setl view
	goto-beginning-of-file
	unsetv $cfilname
	write-message "[Done formatting manual page.]"
	set noterse
~endm
bind-key ShowFormatted ^X-n

APT Browse - Built by Thomas Orozco.