From 26230a416563decd82a0af827c0987b8628c5ef9 Mon Sep 17 00:00:00 2001
From: "Jeffrey H. Kingston" <jeff@it.usyd.edu.au>
Date: Tue, 14 Sep 2010 20:40:57 +0000
Subject: Lout 3.34.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@37 9365b830-b601-4143-9ba8-b4a8e2c3339c
---
 include/bsf | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

(limited to 'include/bsf')

diff --git a/include/bsf b/include/bsf
index dbd903f..0b40f3e 100644
--- a/include/bsf
+++ b/include/bsf
@@ -104,6 +104,8 @@ export
     @ListLabelWidth @ListLabelRight @ListLabelRightGap @ListFont @ListBreak
     @NumberSeparator
 
+    @Pipe @PipeVerbatim @PipeRawVerbatim
+
     @Word @Roman @UCRoman @Alpha @UCAlpha @FnBullets @FnSymbols
     @Months @ShortMonths @WeekDays @ShortWeekDays
     @TwelveHours @ShortHours @MeriDiems @ShortMeriDiems
@@ -280,6 +282,42 @@ def @BasicSetup
 	right @Body	  { @Body		} # format for external links
 @Begin
 
+    ###########################################################################
+    #                                                                         #
+    #   @Pipe, @PipeVerbatim, and @PipeRawVerbatim                            #
+    #                                                                         #
+    ###########################################################################
+
+    def @Pipe
+	left command
+	right x
+    {
+	def @Filter { "cat" @FilterIn "|" command ">" @FilterOut }
+
+	x
+    }
+
+    def @PipeVerbatim
+	left command
+	right x
+    {
+	def @Filter {
+	  "(echo @Verbatim @Begin ; (cat" @FilterIn "|" command "); echo @End @Verbatim ) >" @FilterOut }
+
+	x
+    }
+
+    def @PipeRawVerbatim
+	left command
+	right x
+    {
+	def @Filter {
+	  "(echo @RawVerbatim @Begin ; (cat" @FilterIn "|" command "); echo @End @Verbatim ) >" @FilterOut }
+
+	x
+    }
+
+
     ###########################################################################
     #                                                                         #
     #   @Sym, @Ding font symbols, and miscellaneous special characters.       #
-- 
cgit