@6>
<@local(ps,name,nclose)>
<@>
<$name = argv#0>
<$ps = v.load_plgset(name)>
<$nclose = if(ps.nclose ne '0', 1, 0)>
<$notag_arts = argv#2>
<@>
<@>---------------------------------------------------------------------
<@>再帰サブルーチン
<@>---------------------------------------------------------------------
<$sub = begin.function>
<@local(t, tid, p, node, tree, depth, x)>
<$node = argv#0>
<$tree = node.children>
<$depth = argv#1><@>prefix
<$p = "\t" %x depth>
<@p>
<@if(!node.root && nclose, ' style="display: none"')>>
<@forexec(t, tree, begin.forexec)>
<$ifnext(!ps.disp_noart_tag && !t.qtall)>
<@ifexec(t.children, begin, begin)>
<$tid="sidetag-<@t.pkey>">
<@p> - <@\>
<@\>
<@t.sname> (<@t.qtall>)
<@exec(sub, t, depth+1)>
<@p>
<$else>
<@p> - <@\>
<@t.sname> (<@t.qtall>)
<$end>
<$end.forexec>
<@ifexec(node.root && notag_arts && !ps.nodisp_notag, begin)>
- <@ps.notag_title || '(none)'> (<@notag_arts>)
<$end>
<@p>
<$end.function>
<@>---------------------------------------------------------------------
<@>タグリスト
<@>---------------------------------------------------------------------
<@exec(sub, argv#1, 0)>
<@tid>