|
CreateTable |
Pipelines v2.0 |
/* 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 functionality 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. */ Address Rxpipe '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. */ '| 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 chars; 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 2.0\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. */ Say 'Hit Enter to close..'Parse Pull Exit 0