diff options
| author | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:39:32 +0000 |
|---|---|---|
| committer | Jeffrey H. Kingston <jeff@it.usyd.edu.au> | 2010-09-14 20:39:32 +0000 |
| commit | 128e9a1532ce7fa38ddc16de06d213530dc5ce15 (patch) | |
| tree | 97a930289ac5f12779b62507bb07ccf9be39c4a9 /include/perlf | |
| parent | b2f1a4e879d3013974e41674dbf684d816f1aa95 (diff) | |
| download | lout-128e9a1532ce7fa38ddc16de06d213530dc5ce15.tar.gz | |
Lout 3.31.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@31 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'include/perlf')
| -rw-r--r-- | include/perlf | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/include/perlf b/include/perlf index b82f3a8..8a12ceb 100644 --- a/include/perlf +++ b/include/perlf @@ -27,6 +27,7 @@ def @PerlSetup 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 @PerlSetup 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 @PerlSetup 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 @PerlSetup 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 @PerlSetup } + def @InitSpace + { + space @Test + iffixed { fixedspace } + ifvarying { varyingspace } + ifsymbol { symbolspace } + } + + def @PI # for formatting identifiers right x { @@ -369,7 +382,7 @@ def @PerlSetup def @A # get characters from the Adobe Symbol font - left sym + named sym {} right x { style @Case { @@ -382,7 +395,7 @@ def @PerlSetup macro "$>" { {} & } - { @InitFontFamily Base @InitSize } @Font + { @InitFontFamily Base @InitSize } @Font @InitSpace @Space { @InitLine lines nohyphen } @Break @Body @End @Perl |