Lout 3.34.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@37 9365b830-b601-4143-9ba8-b4a8e2c3339c

1 files changed, 38 insertions, 0 deletions

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
@@ -282,6 +284,42 @@ def @BasicSetup
 
     ###########################################################################
     #                                                                         #
+    #   @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.       #
     #                                                                         #
     ###########################################################################