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
|
# -*- tcl -*-
#
# -- Extraction of basic meta information (title section version) from a manpage.
#
# Copyright (c) 2001-2002 Andreas Kupries <andreas_kupries@sourceforge.net>
# Copyright (c) 2003 Andreas Kupries <andreas_kupries@sourceforge.net>
#
################################################################
# Take the null format as a base and extend it a bit.
dt_source fmt.null
global data
array set data {}
proc fmt_numpasses {} {return 1}
proc fmt_postprocess {text} {
global data
foreach key {seealso keywords} {
array set _ {}
foreach ref $data($key) {set _($ref) .}
set data($key) [array names _]
unset _
}
return [list manpage [array get data]]\n
}
proc fmt_plain_text {text} {return ""}
proc fmt_setup {n} {return}
proc fmt_manpage_begin {title section version} {
global data
set data(title) $title
set data(section) $section
set data(version) $version
set data(file) [dt_file]
set data(fid) [dt_fileid]
set data(module) [dt_module]
set data(desc) ""
set data(shortdesc) ""
set data(keywords) [list]
set data(seealso) [list]
set data(category) ""
return
}
proc fmt_moddesc {desc} {global data ; set data(shortdesc) $desc}
proc fmt_titledesc {desc} {global data ; set data(desc) $desc}
proc fmt_keywords {args} {global data ; foreach ref $args {lappend data(keywords) $ref} ; return}
proc fmt_see_also {args} {global data ; foreach ref $args {lappend data(seealso) $ref} ; return}
proc fmt_category {text} {global data ; set data(category) $text ; return}
################################################################
|
