aboutsummaryrefslogtreecommitdiffstats
path: root/include/javaf
diff options
context:
space:
mode:
authorJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:39:40 +0000
committerJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 20:39:40 +0000
commit4940057e65c6c65d3be7c94042396532a4234d90 (patch)
tree97a930289ac5f12779b62507bb07ccf9be39c4a9 /include/javaf
parentb2f1a4e879d3013974e41674dbf684d816f1aa95 (diff)
downloadlout-3.31.tar.gz
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
Diffstat (limited to 'include/javaf')
-rw-r--r--include/javaf17
1 files changed, 15 insertions, 2 deletions
diff --git a/include/javaf b/include/javaf
index 466a099..fb84541 100644
--- a/include/javaf
+++ b/include/javaf
@@ -27,6 +27,7 @@ def @JavaSetup
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 @JavaSetup
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 @JavaSetup
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 @JavaSetup
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 @JavaSetup
}
+ def @InitSpace
+ {
+ space @Test
+ iffixed { fixedspace }
+ ifvarying { varyingspace }
+ ifsymbol { symbolspace }
+ }
+
+
def @PI # for formatting identifiers
right x
{
@@ -369,7 +382,7 @@ def @JavaSetup
def @A # get characters from the Adobe Symbol font
- left sym
+ named sym {}
right x
{
style @Case {
@@ -382,7 +395,7 @@ def @JavaSetup
macro "$>" { {} & }
- { @InitFontFamily Base @InitSize } @Font
+ { @InitFontFamily Base @InitSize } @Font @InitSpace @Space
{ @InitLine lines nohyphen } @Break @Body
@End @Java