/usr/share/doc/htp/macros.def is in htp 1.16-4.
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 | <blockdef name="manlink" option="href *">
<if not href><set href="${ref}${block}.html"></if
><a href=$href $*><img src="${ref}pic/manual.png" border=0 alt="[ref]"><use
block></a></blockdef>
<!--- Macro to pretty print htp code via an external perl script
It uses a temporary output file to store the block. Note the tricky
use of newlines, the condense option, expand and noexpand. If you
understand this, you can consider yourself a htp expert :) --->
<blockdef name="htpcode" option="file linenr syntax option">
<if not file><set file="ref.tmp"></if>
<opt nocondense><output file="$file" expand>
<use block noexpand></output><opt semicondense>
<if not option>
<set option="">
</if>
<if linenr><set option="$option -n"></if>
<if syntax><set option="$option -s"></if>
<file execute="perl pphtp.pl $option $file" redirect>
</blockdef>
<blockdef name="toc">
<set ctr=0>
<set prectr="">
<blockdef name="section" option="name href longname">
<inc ctr>
<if not longname><set longname=$name></if>
<set TOC_${prectr}${ctr}=$longname GLOBAL>
<set TOC_SHORT_${prectr}${ctr}=$name GLOBAL>
<if href>
<set TOC_HREF_${prectr}${ctr}=$href GLOBAL>
<set TOC_IHREF_${href}=${prectr}${ctr} GLOBAL>
</if>
<set TOC_SECT_${prectr}${ctr}="TRUE" GLOBAL>
<set oldprectr=$prectr>
<set oldctr=$ctr>
<set prectr="${oldprectr}${oldctr}_">
<set ctr=0>
<unset longname>
<use block>
<set ctr=$oldctr>
<set prectr=$oldprectr>
</blockdef>
<def name="entry" option="name href longname">
<inc ctr>
<if not longname><set longname=$name></if>
<set TOC_${prectr}${ctr}=$longname GLOBAL>
<set TOC_SHORT_${prectr}${ctr}=$name GLOBAL>
<set TOC_HREF_${prectr}${ctr}=$href GLOBAL>
<set TOC_IHREF_${href}=${prectr}${ctr} GLOBAL>
</def>
<use block>
</blockdef>
<def name=showsubtoc option="sect">
<ul>
<set subctr=1>
<while TOC_${sect}_${subctr}>
<li><a class=noline href="${TOC_HREF_${sect}_${subctr}}"><use TOC_${sect}_${subctr}></a></li>
<inc subctr>
</while>
</ul>
</def>
<def name=showtoc>
<ul>
<set ctr=1>
<while TOC_$ctr>
<if TOC_SECT_$ctr>
<li><use TOC_${ctr}>
<showsubtoc sect=$ctr>
</li>
<else>
<li><a class=noline href="${TOC_HREF_${ctr}}"><use TOC_${ctr}></a></li>
</if>
<inc ctr>
</while>
</ul>
</def>
<def name=showsidetoc option="level prefix cols ctr">
<if not level><set level=1></if>
<if not prefix><set prefix=""></if>
<set ctr=1>
<while TOC_$ctr>
<tr><td class=tocf width="12">
<if TOC_SECTION="${ctr}">
<img src="${ref}pic/arrow.png" alt=">">
<else>
</if>
</td><td class="toc" colspan="2">
<if TOC_SECT_$ctr>
<if TOC_SECTION=$ctr>
<set SHOW_SUB>
<else>
<set subctr=1>
<while TOC_${ctr}_${subctr}>
<if TOC_SECTION="${ctr}_${subctr}">
<set SHOW_SUB>
</if>
<inc subctr>
</while>
</if>
<if SHOW_SUB>
<use TOC_SHORT_${ctr}></td></tr>
<set subctr=1>
<while TOC_${ctr}_${subctr}>
<tr><td class=tocf width="12"> </td><td class=tocf width="12">
<if TOC_SECTION="${ctr}_${subctr}">
<img src="${ref}pic/arrow.png" alt=">">
<else>
</if>
</td><td class="toc"><a class="noline" href="${TOC_HREF_${ctr}_${subctr}}"><use TOC_SHORT_${ctr}_${subctr}></a></td></tr>
<inc subctr>
</while>
<unset SHOW_SUB>
<else>
<if not TOC_HREF_${ctr}>
<set TOC_HREF_$ctr=${TOC_HREF_${ctr}_1}>
</if>
<a class="noline" href="${TOC_HREF_${ctr}}"><use TOC_SHORT_${ctr}></a></td></tr>
</if>
<else>
<a class="noline" href="${TOC_HREF_${ctr}}"><use TOC_SHORT_${ctr}></a></td></tr>
</if>
<inc ctr>
</while>
</def>
|