Lout 3.31 tag.3.31

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

1 files changed, 15 insertions, 2 deletions

diff --git a/include/rslf b/include/rslf
index f6c0bdf..0680138 100644
--- a/include/rslf
+++ b/include/rslf
@@ -27,6 +27,7 @@ def @RSLSetup
     named fixedfont				{ Courier }# font family
     named fixedsize				{ -1.0p	}  # font size
     named fixedline				{ 1.0vx	}  # line-space
+    named fixedspace				{ lout	}  # spacing mode
     named fixedtabin				{ 8	}  # tab interval
     named fixedtabout				{ 8s	}  # tab width
 
@@ -50,6 +51,7 @@ def @RSLSetup
     named varyingfont				{	}  # font family
     named varyingsize				{ 1.0f	}  # font size
     named varyingline				{ 1.0vx	}  # line-space
+    named varyingspace				{ lout	}  # spacing mode
     named varyingtabin				{ 8	}  # tab interval
     named varyingtabout				{ 3f	}  # tab width
 
@@ -73,6 +75,7 @@ def @RSLSetup
     named symbolfont				{	}  # font family
     named symbolsize				{ 1.0f	}  # font size
     named symbolline				{ 1.0vx	}  # line-space
+    named symbolspace				{ lout	}  # spacing mode
     named symboltabin				{ 8	}  # tab interval
     named symboltabout				{ 3f	}  # tab width
 
@@ -106,6 +109,7 @@ def @RSLSetup
 	named font         { dft           }  # font family
 	named size         { dft           }  # font size
 	named line         { dft           }  # line-space
+	named space        { dft           }  # spacing mode
 	named tabin        { dft           }  # tab interval
 	named tabout       { dft           }  # tab width
 	named identifiers  { dft           }  # ident. font
@@ -219,6 +223,15 @@ def @RSLSetup
 	}
 
 
+	def @InitSpace
+	{
+	  space @Test
+	      iffixed   { fixedspace   }
+	      ifvarying { varyingspace }
+	      ifsymbol  { symbolspace  }
+	}
+
+
 	def @PI		# for formatting identifiers
 	    right x
 	{
@@ -385,7 +398,7 @@ def @RSLSetup
 
 
 	def @A		# get characters from the Adobe Symbol font
-	    left sym
+	    named sym {}
 	    right x
 	{
 	    { { Symbol Base } @Font @Char sym } @FA x
@@ -440,7 +453,7 @@ def @RSLSetup
 	macro "$>" { {} & }
 
 
-	{ @InitFontFamily Base @InitSize } @Font
+	{ @InitFontFamily Base @InitSize } @Font @InitSpace @Space
 	{ @InitLine lines nohyphen } @Break @Body
 
     @End @RSL