diff options
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 |