|
CreateTable |
Pipelines v1.9 |
.* Example by TenFiftyTwo(c). |
.* The following pipeline reads the file: TableData.txt and builds a two column HTML table.* which it writes to the output file: Table.htm. .* The input file: TableData.txt contains a list of the Pipelines Stage command HTML.* document names and their corresponding usage descriptions separated by a (;) semi-colon..* The pipeline creates an entry in the table for each document name; decorating the name.* entry with a hyperlink to the actual target document. .* The pipeline is intended to demonstrate how you can specify multiple literal values that.* are used repeatedly to build output records. pipe (endchar ?)
.* The following literals define the header record. literal /<table class=MsoTableContemporary border=1 cellspacing=0 cellpadding=0/ | literal app /width="100%" style='width:100.0%;border-collapse:collapse;border:none;/ | literal app /mso-border-alt:solid white 1.5pt;mso-padding-alt:0cm 5.4pt 0cm 5.4pt;/ | literal app /mso-border-insideh:1.5pt solid white;mso-border-insidev:1.5pt solid white'>/ | b: fanout .* Send out a copy so that we can determine eof. | a: fanin 0 1 2 .* Read all of stream 0 (the header), stream 1 and them stream 2. | > &sysdrive:\Documents and Settings\&username\My Documents\Table.htm .* Write to output file. | take last | specs /Table created: &sysdrive:\Documents and Settings\&username\My Documents\Table.htm/ 1 | cons ? < &installdrive:\&installpath\Examples\Input\TableData.txt .* Read the input file. .* The following specs stage builds a two column output record; the first column is a hyperlink to .* the target file, the second; the item description. | specs 1-* 1 ws /;/ /;/ n w1 n .* Tag the stage name onto the end of the record. | xlate ws /;/ w-1 x20 & < & > & ( & ) & .* Translate the characters; SPACE, <, >, ( and ) to '&'. | change /&/ // .* Remove the '&' characters; this enables us to use.. .* ..the stage name to build the hyperlink. .* Construct table entry. | specs ~<tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes;height:10.0pt;mso-height-rule: exactly'>~ 1 x0a n ~<td width="15%" valign=top style='width:15.8%;border:solid white .5pt;~ n x0a n ~background:#D9D9D9;padding:0cm 5.4pt 0cm 5.4pt;height:8.0pt;height-rule:exactly'>~ n x0a n ~<p style='line-height:12.0pt'><span style='font-size:10.0pt;~ n x0a n ~font-family:Tahoma;color:blue'>~ n write .* Define the hyperlink. ~<a href="http://www.tenfiftytwo.co.uk\pipelines\documentation 1.9\stage command\~ n ws /;/ w-1 n ~.htm">~ n x0a n ~<span style='text-decoration:none'>~ n w1 n ~</span></a></span><span~ n x0a n ~style='font-family:Tahoma;mso-bidi-font-family:Tahoma'>~ n x0a n write .* Add the item description. ~<o:p></o:p></span></b></p>~ 1 x0a n ~</td>~ n x0a n ~<td width="84%" valign=middle style='width:84.2%;border:solid white .5pt;~ n x0a n ~border-left:none;mso-border-left-alt:solid white .5pt;background:#D9D9D9;~ n x0a n ~padding:0cm 5.4pt 0cm 5.4pt'>~ n x0a n ~<p style='mso-line-height:7.0pt'><span style='font-size:10pt;font-family:Tahoma'>~ n w-2 n ~</span></b></span><b~ n x0a n ~style='mso-bidi-font-weight:normal'><span style='font-size:10.0pt;font-family:~ n x0a n ~Tahoma'><o:p></o:p></span></b></p>~ n x0a n ~</td>~ n x0a n ~</tr>~ n | change x09 // | a: ? b: | take last .* Use the last record as the eof indicator. | specs ~</table>~ 1 .* Write the table footer. | a: .* Route back to fanin.