| 1 |
pcg |
1.1 |
COMMENT(-- $Id: masonyodl.yo,v 1.1 2003/11/18 14:22:16 root Exp $ --) |
| 2 |
|
|
COMMENT(----------------------------------------------------------------------- |
| 3 |
|
|
-- We want more functionality and some better layout |
| 4 |
|
|
-- proto changes: |
| 5 |
|
|
-- starttable(nColumns)(Alignment)(borderwidth) |
| 6 |
|
|
------------------------------------------------------------------------------) |
| 7 |
|
|
NEWCOUNTER(RRindentlevel) |
| 8 |
|
|
NEWCOUNTER(RRnl) |
| 9 |
|
|
SETCOUNTER(RRindentlevel)(0) |
| 10 |
|
|
\ |
| 11 |
|
|
DEFINEMACRO(nltxt)(0)(\ |
| 12 |
|
|
IFZERO(RRnl)()( ADDTOCOUNTER(RRnl)(-1)nltxt())) |
| 13 |
|
|
\ |
| 14 |
|
|
UNDEFINEMACRO(XXnl) |
| 15 |
|
|
DEFINEMACRO(XXnl)(0)(\ |
| 16 |
|
|
NOTRANS( |
| 17 |
|
|
)\ |
| 18 |
|
|
whentxt(SETCOUNTER(RRnl)(RRindentlevel)nltxt())) |
| 19 |
|
|
\ |
| 20 |
|
|
DEFINEMACRO(P)(0)(\ |
| 21 |
|
|
SETCOUNTER(RRnl)(0)\ |
| 22 |
|
|
whenhtml(SETCOUNTER(RRnl)(1)htmlcommand(<p>))\ |
| 23 |
|
|
IFZERO(RRnl)(nl())()) |
| 24 |
|
|
\ |
| 25 |
|
|
UNDEFINEMACRO(starttable) |
| 26 |
|
|
DEFINEMACRO(starttable)(3)(\ |
| 27 |
|
|
SETCOUNTER(XXtablewidth)(ARG1)\ |
| 28 |
|
|
whenhtml(IFZERO(ARG3)(htmlcommand(<table>))\ |
| 29 |
|
|
(htmlcommand(<table border=ARG3>))XXnl())\ |
| 30 |
|
|
whenlatex(latexcommand(\begin{tabular}{)ARG2+latexcommand(}))\ |
| 31 |
|
|
whenman(roffcmd(.TS)()()())\ |
| 32 |
|
|
whenman(IFZERO(ARG3)(roffcmd(tab(`);)()()())\ |
| 33 |
|
|
(roffcmd(allbox,tab(`);)()()()))\ |
| 34 |
|
|
whenman(ARG2 NOTRANS(. |
| 35 |
|
|
))\ |
| 36 |
|
|
whenms(roffcmd(.TS)()()())\ |
| 37 |
|
|
whenms(IFZERO(ARG3)(roffcmd(tab(`);)()()())\ |
| 38 |
|
|
(roffcmd(allbox,tab(`);)()()()))\ |
| 39 |
|
|
whenms(ARG2+mscommand(.))\ |
| 40 |
|
|
SETCOUNTER(XXtablewidth)(ARG1)\ |
| 41 |
|
|
SETCOUNTER(XXparcounter)(0)) |
| 42 |
|
|
COMMENT( For HTML, we'll need <table>, for |
| 43 |
|
|
LaTeX we'll need \begin{tabular}{alignment}. Also, we don't want |
| 44 |
|
|
paragraph delimiters.) |
| 45 |
|
|
\ |
| 46 |
|
|
UNDEFINEMACRO(cell) |
| 47 |
|
|
DEFINEMACRO(cell)(1)(\ |
| 48 |
|
|
ADDTOCOUNTER(XXtableline)(1)\ |
| 49 |
|
|
whenhtml(htmlcommand(<td>) ARG1 \ |
| 50 |
|
|
IFZERO(XXcellcounter)\ |
| 51 |
|
|
(htmlcommand(<br>))\ |
| 52 |
|
|
()\ |
| 53 |
|
|
htmlcommand(</td>) XXnl())\ |
| 54 |
|
|
whenlatex(ARG1 \ |
| 55 |
|
|
IFZERO(XXcellcounter)\ |
| 56 |
|
|
()(latexcommand( & )))\ |
| 57 |
|
|
whentxt( ARG1 )\ |
| 58 |
|
|
whenms( ARG1 )\ |
| 59 |
|
|
IFZERO(XXcellcounter)\ |
| 60 |
|
|
()\ |
| 61 |
|
|
(mscommand(`\))\ |
| 62 |
|
|
whenman( ARG1 )\ |
| 63 |
|
|
IFZERO(XXcellcounter)\ |
| 64 |
|
|
()\ |
| 65 |
|
|
(mancommand(`\))\ |
| 66 |
|
|
ADDTOCOUNTER(XXcellcounter)(-1)) |
| 67 |
|
|
COMMENT(For HTML we need: |
| 68 |
|
|
<td> text </td>, so that's fairly easy. If we're already at the last |
| 69 |
|
|
cell, we need <td> text <br></td>. |
| 70 |
|
|
For LaTeX: we need text followed by &, unless |
| 71 |
|
|
we're already at the last cell 'cuz in that case we need only text. |
| 72 |
|
|
Also we need to decrement the cell counter..) |
| 73 |
|
|
\ |
| 74 |
|
|
UNDEFINEMACRO(cells) |
| 75 |
|
|
DEFINEMACRO(cells)(2)(\ |
| 76 |
|
|
ADDTOCOUNTER(XXtableline)(ARG1)\ |
| 77 |
|
|
ADDTOCOUNTER(XXcellcounter)(-ARG1)\ |
| 78 |
|
|
ADDTOCOUNTER(XXcellcounter)(1)\ |
| 79 |
|
|
whenhtml(htmlcommand(<td colspan=ARG1 align=center>) ARG2 \ |
| 80 |
|
|
IFZERO(XXcellcounter)\ |
| 81 |
|
|
(htmlcommand(<br>))\ |
| 82 |
|
|
()\ |
| 83 |
|
|
htmlcommand(</td>) XXnl())\ |
| 84 |
|
|
whenlatex(\ |
| 85 |
|
|
latexcommand(\multicolumn{)ARG1+latexcommand(}{c}{)ARG2+latexcommand(})\ |
| 86 |
|
|
IFZERO(XXcellcounter)\ |
| 87 |
|
|
()(latexcommand( & )))\ |
| 88 |
|
|
whentxt( ARG1 )\ |
| 89 |
|
|
whenms( ARG1 )\ |
| 90 |
|
|
IFZERO(XXcellcounter)\ |
| 91 |
|
|
()\ |
| 92 |
|
|
(mscommand(`\))\ |
| 93 |
|
|
whenman( ARG1 )\ |
| 94 |
|
|
IFZERO(XXcellcounter)\ |
| 95 |
|
|
()\ |
| 96 |
|
|
(mancommand(`\))\ |
| 97 |
|
|
ADDTOCOUNTER(XXcellcounter)(-1)) |
| 98 |
|
|
\ |
| 99 |
|
|
DEFINEMACRO(indent)(1)(\ |
| 100 |
|
|
whenhtml(htmlcommand(<ul>)ARG1+htmlcommand(</ul>))\ |
| 101 |
|
|
whentxt(ADDTOCOUNTER(RRindentlevel)(4)ARG1+ADDTOCOUNTER(RRindentlevel)(-4))\ |
| 102 |
|
|
whenman(roffcmd(.RS)()()()roffcmd(.HP)()()()ARG1+roffcmd(.RE)()()())\ |
| 103 |
|
|
whenms()) |
| 104 |
|
|
\ |
| 105 |
|
|
DEFINEMACRO(startdl)(0)(\ |
| 106 |
|
|
whenhtml(htmlcommand(<dl>))\ |
| 107 |
|
|
whentxt(ADDTOCOUNTER(RRindentlevel)(4))\ |
| 108 |
|
|
whenman(startdit())) |
| 109 |
|
|
\ |
| 110 |
|
|
DEFINEMACRO(enddl)(0)(\ |
| 111 |
|
|
whenhtml(htmlcommand(</dl>))\ |
| 112 |
|
|
whentxt(ADDTOCOUNTER(RRindentlevel)(-4))\ |
| 113 |
|
|
whenman(enddit())) |
| 114 |
|
|
\ |
| 115 |
|
|
DEFINEMACRO(dl)(2)(\ |
| 116 |
|
|
whenhtml(htmlcommand(<dt>)ARG1+htmlcommand(</dt><dd>)\ |
| 117 |
|
|
ARG2+htmlcommand(</dd>))\ |
| 118 |
|
|
whentxt(ADDTOCOUNTER(RRindentlevel)(2)dit(ARG1)\ |
| 119 |
|
|
ADDTOCOUNTER(RRindentlevel)(2)nl()\ |
| 120 |
|
|
ARG2+ADDTOCOUNTER(RRindentlevel)(-4))\ |
| 121 |
|
|
whenman(dit(ARG1)ARG2)) |
| 122 |
|
|
\ |
| 123 |
|
|
DEFINEMACRO(manpageauthors)(0)(\ |
| 124 |
|
|
manpagesection(AUTHORS)\ |
| 125 |
|
|
DEFINESYMBOL(XXmanpageAuthor)) |
