blob: 062c09b0a7e074ee1705ec1c12923bd731bb8cc8 (
plain) (
tree)
|
|
###############################################################################
# #
# Lout @PodSetup package for formatting Pod programs #
# #
# Jeffrey H. Kingston #
# 25 March 2000 #
# #
# This package uses a filtered body parameter to convert Pod source #
# code into Lout source. The filter program is prg2lout, which is #
# distributed with Lout and should be compiled and installed wherever #
# Lout itself is. #
# #
# This program is free software; you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either Version 3, or (at your option) #
# any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program; if not, write to the Free Software #
# Foundation, Inc., 59 Temple Place, Suite 330, Boston MA 02111-1307 USA #
# #
# As a special exception, when this file is read by Lout when processing #
# a Lout source document, you may use the result without restriction. #
# #
###############################################################################
export @Pod
def @PodSetup
named pipe { } # pipe through this first
named style
named @OrIfPlain left x right y
{ @BackEnd @Case { PlainText @Yield y else @Yield x } }
{ varying @OrIfPlain fixed } # print style
# the following options apply when style is "fixed"
named fixedtextfont { Courier Base -1p } # text font
named fixedtextbreak { adjust 1.0vx hyphen } # text para breaking
named fixedverbatimfont { Courier Base } # verbatim font
named fixedtabin { 8 } # tab interval
named fixedtabout { 8s } # tab width
named fixedlinenumbersfont { } # line numbers font
named fixedlinenumbersformat right @Body{ @Body } # line numbers format
named fixedparagap { 1.0v } # gap between paras
named fixedlistgap { 1.0v } # gap within lists
named fixedlistindent { 0s } # list label indent
named fixedlistrightindent { 0s } # list right indent
named fixedlistlabelwidth { 2.0f } # default label space
named fixedlistlabelfont { } # list label font
named fixedlistlabelformat right @Body { @Body } # list label format
named fixedaheadfont { Bold +4p } # =head1 font
named fixedaheadbreak { lines 1.1vx } # =head1 para break
named fixedaheadformat right @Body { //1v @Body } # =head1 format
named fixedbheadfont { Bold +2p } # =head2 font
named fixedbheadbreak { lines 1.1vx } # =head2 para break
named fixedbheadformat right @Body { @Body } # =head2 format
named fixedcheadfont { Bold } # =head3 font
named fixedcheadbreak { lines 1.1vx } # =head3 para break
named fixedcheadformat right @Body { @Body } # =head3 format
named fixeditalicfont { Slope } # font of I<>
named fixeditalicformat right @Body { @Body } # format of I<>
named fixedboldfont { Bold } # font of B<>
named fixedboldformat right @Body { @Body } # format of B<>
named fixedcodefont { Base } # font of C<>
named fixedcodeformat right @Body { @Body } # format of C<>
named fixedfilefont { Slope } # font of F<>
named fixedfileformat right @Body { @Body } # format of F<>
named fixedlinkfont { Slope } # font of L<>
named fixedlinkformat right @Body { @Underline @Body } # format of L<>
named fixedindexfont { Slope } # font of X<>
named fixedindexformat right @Body { @Body } # format of X<>
# the following options apply when style is "varying"
named varyingtextfont { Times Base } # text font
named varyingtextbreak { adjust 1.0vx hyphen } # text para breaking
named varyingverbatimfont { Courier Base -1p } # verbatim font
named varyingtabin { 8 } # tab interval
named varyingtabout { 8s } # tab width
named varyinglinenumbersfont { } # line numbers font
named varyinglinenumbersformat right @Body{ @Body } # line numbers format
named varyingparagap { 1.0v } # gap between paras
named varyinglistgap { 1.0v } # gap within lists
named varyinglistindent { 0s } # list label indent
named varyinglistrightindent { 0s } # list right indent
named varyinglistlabelwidth { 2.0f } # default label space
named varyinglistlabelfont { } # list label font
named varyinglistlabelformat right @Body { @Body } # list label format
named varyingaheadfont { Bold +4p } # =head1 font
named varyingaheadbreak { lines 1.1vx } # =head1 para break
named varyingaheadformat right @Body{ //1v @Body } # =head1 format
named varyingbheadfont { Bold +2p } # =head2 font
named varyingbheadbreak { lines 1.1vx } # =head2 para break
named varyingbheadformat right @Body{ @Body } # =head2 format
named varyingcheadfont { Bold } # =head3 font
named varyingcheadbreak { lines 1.1vx } # =head3 para break
named varyingcheadformat right @Body{ @Body } # =head3 format
named varyingitalicfont { Slope } # font of I<>
named varyingitalicformat right @Body { @Body } # format of I<>
named varyingboldfont { Bold } # font of B<>
named varyingboldformat right @Body { @Body } # format of B<>
named varyingcodefont { Courier Base -1p } # font of C<>
named varyingcodeformat right @Body { @Body } # format of C<>
named varyingfilefont { Slope } # font of F<>
named varyingfileformat right @Body { @Body } # format of F<>
named varyinglinkfont { Slope } # font of L<>
named varyinglinkformat right @Body { @Underline @Body } # format of L<>
named varyingindexfont { Slope } # font of X<>
named varyingindexformat right @Body{ @Body } # format of X<>
# the following options apply when style is "symbol"
named symboltextfont { Times Base } # text font
named symboltextbreak { adjust 1.0vx hyphen } # text para breaking
named symbolverbatimfont { Courier Base -1p } # verbatim font
named symboltabin { 8 } # tab interval
named symboltabout { 8s } # tab width
named symbollinenumbersfont { } # line numbers font
named symbollinenumbersformat right @Body { @Body } # line numbers format
named symbolparagap { 1.0v } # gap between paras
named symbollistgap { 1.0v } # gap within lists
named symbollistindent { 0s } # list label indent
named symbollistrightindent { 0s } # list right indent
named symbollistlabelwidth { 2.0f } # default label space
named symbollistlabelfont { } # list label font
named symbollistlabelformat right @Body { @Body } # list label format
named symbolaheadfont { Bold +4p } # =head1 font
named symbolaheadbreak { lines 1.1vx } # =head1 para break
named symbolaheadformat right @Body { //1v @Body } # =head1 format
named symbolbheadfont { Bold +2p } # =head2 font
named symbolbheadbreak { lines 1.1vx } # =head2 para break
named symbolbheadformat right @Body { @Body } # =head2 format
named symbolcheadfont { Bold } # =head3 font
named symbolcheadbreak { lines 1.1vx } # =head3 para break
named symbolcheadformat right @Body { @Body } # =head3 format
named symbolitalicfont { Slope } # font of I<>
named symbolitalicformat right @Body{ @Body } # format of I<>
named symbolboldfont { Bold } # font of B<>
named symbolboldformat right @Body { @Body } # format of B<>
named symbolcodefont { Courier Base -1p } # font of C<>
named symbolcodeformat right @Body { @Body } # format of C<>
named symbolfilefont { Slope } # font of F<>
named symbolfileformat right @Body { @Body } # format of F<>
named symbollinkfont { Slope } # font of L<>
named symbollinkformat right @Body { @Underline @Body } # format of L<>
named symbolindexfont { Slope } # font of X<>
named symbolindexformat right @Body { @Body } # format of X<>
@Begin
export
@PV @PPG @PLG @PLI @PLRI @PLLW @PLL @PHA @PHB @PHC
@PFI @PFB @PFC @PFF @PFL @PFX @A "$>" @PL
def @Pod
named style { style } # style
named pipe { pipe } # pipe through this
named textfont { dft } # text font
named textbreak { dft } # text para breaking
named verbatimfont { dft } # verbatim font
named tabin { dft } # tab interval
named tabout { dft } # tab width
named linenumbersfont { dft } # line numbers font
named paragap { dft } # gap between paras
named listgap { dft } # gap within lists
named listindent { dft } # list label indent
named listrightindent { dft } # list right indent
named listlabelwidth { dft } # default label space
named listlabelfont { dft } # list label font
named aheadfont { dft } # =head1 font
named aheadbreak { dft } # =head1 para break
named bheadfont { dft } # =head2 font
named bheadbreak { dft } # =head2 para break
named cheadfont { dft } # =head3 font
named cheadbreak { dft } # =head3 para break
named italicfont { dft } # font of I<>
named boldfont { dft } # font of B<>
named codefont { dft } # font of C<>
named filefont { dft } # font of F<>
named linkfont { dft } # font of L<>
named indexfont { dft } # font of X<>
body @Body # filtered, see below
@Begin
def @Test # returns x unless x is dft
left x
named iffixed {}
named ifvarying {}
named ifsymbol {}
{
x @Case {
dft @Yield {
style @Case {
fixed @Yield { iffixed }
varying @Yield { ifvarying }
symbol @Yield { ifsymbol }
}
}
else @Yield x
}
}
def @Else # returns x, or y if x is dft
left x
right y
{
x @Case {
dft @Yield y
else @Yield x
}
}
def @InitTab
{
tabin @Test
iffixed { fixedtabin }
ifvarying { varyingtabin }
ifsymbol { symboltabin }
}
def @InitTabWidth
{
tabout @Test
iffixed { fixedtabout }
ifvarying { varyingtabout }
ifsymbol { symboltabout }
}
def @Filter
{
pipe @Case {
"" @Yield {
"prg2lout -r -lPod" -i{@FilterIn} -o{@FilterOut} -e{@FilterErr}
-t{@InitTab} -T{@InitTabWidth}
}
else @Yield {
"cat" @FilterIn "|" pipe "|"
"prg2lout -r -lPod" -o{@FilterOut}
-e{@FilterErr} -t{@InitTab} -T{@InitTabWidth}
}
}
}
def @InitFont
{
textfont @Test
iffixed { fixedtextfont }
ifvarying { varyingtextfont }
ifsymbol { symboltextfont }
}
def @InitBreak
{
textbreak @Test
iffixed { fixedtextbreak }
ifvarying { varyingtextbreak }
ifsymbol { symboltextbreak }
}
def printverbatim
right x
{
def verbfont
{
verbatimfont @Test
iffixed { fixedverbatimfont }
ifvarying { varyingverbatimfont }
ifsymbol { symbolverbatimfont }
}
def verbatimstrut { @VContract { 0.5v @High ^/ / 0.5v @High } }
@OneCol verbfont @Font x |0io verbatimstrut
}
macro @PV { // printverbatim }
def paragraphgap
{
paragap @Test
iffixed { fixedparagap }
ifvarying { varyingparagap }
ifsymbol { symbolparagap }
}
macro @PPG { //paragraphgap }
def @PLG
{
listgap @Test
iffixed { fixedlistgap }
ifvarying { varyinglistgap }
ifsymbol { symbollistgap }
}
def @PLI
{
listindent @Test
iffixed { fixedlistindent }
ifvarying { varyinglistindent }
ifsymbol { symbollistindent }
}
def @PLRI
{
listrightindent @Test
iffixed { fixedlistrightindent }
ifvarying { varyinglistrightindent }
ifsymbol { symbollistrightindent }
}
def @PLLW right x
{
def defaultwidth
{
listlabelwidth @Test
iffixed { fixedlistlabelwidth }
ifvarying { varyinglistlabelwidth }
ifsymbol { symbollistlabelwidth }
}
def givenwidth
{
style @Case {
fixed @Yield { x"s" }
varying @Yield { x"f" }
symbol @Yield { x"f" }
}
}
x @Case {
"" @Yield defaultwidth
else @Yield givenwidth
}
}
def @PLL right x
{
def bullet
{
@BackEnd @Case {
PlainText @Yield "*"
else @Yield @Char "bullet"
}
}
def value
{
x @Case {
"*" @Yield bullet
else @Yield x
}
}
style @Case {
fixed @Yield fixedlistlabelformat {
{ listlabelfont @Else fixedlistlabelfont } @Font value }
varying @Yield varyinglistlabelformat {
{ listlabelfont @Else varyinglistlabelfont } @Font value }
symbol @Yield symbollistlabelformat {
{ listlabelfont @Else symbollistlabelfont } @Font value }
}
}
def @PHA right x
{
style @Case {
fixed @Yield fixedaheadformat {
{ aheadfont @Else fixedaheadfont } @Font
{ aheadbreak @Else fixedaheadbreak } @Break x }
varying @Yield varyingaheadformat {
{ aheadfont @Else varyingaheadfont } @Font
{ aheadbreak @Else varyingaheadbreak } @Break x }
symbol @Yield symbolaheadformat {
{ aheadfont @Else symbolaheadfont } @Font
{ aheadbreak @Else varyingaheadbreak } @Break x }
}
}
def @PHB right x
{
style @Case {
fixed @Yield fixedbheadformat {
{ bheadfont @Else fixedbheadfont } @Font
{ bheadbreak @Else fixedbheadbreak } @Break x }
varying @Yield varyingbheadformat {
{ bheadfont @Else varyingbheadfont } @Font
{ bheadbreak @Else varyingbheadbreak } @Break x }
symbol @Yield symbolbheadformat {
{ bheadfont @Else symbolbheadfont } @Font
{ bheadbreak @Else varyingbheadbreak } @Break x }
}
}
def @PHC right x
{
style @Case {
fixed @Yield fixedcheadformat {
{ cheadfont @Else fixedcheadfont } @Font
{ cheadbreak @Else fixedcheadbreak } @Break x }
varying @Yield varyingcheadformat {
{ cheadfont @Else varyingcheadfont } @Font
{ cheadbreak @Else varyingcheadbreak } @Break x }
symbol @Yield symbolcheadformat {
{ cheadfont @Else symbolcheadfont } @Font
{ cheadbreak @Else varyingcheadbreak } @Break x }
}
}
def @PFI right x
{
style @Case {
fixed @Yield fixeditalicformat {
{ italicfont @Else fixeditalicfont } @Font x }
varying @Yield varyingitalicformat {
{ italicfont @Else varyingitalicfont } @Font x }
symbol @Yield symbolitalicformat {
{ italicfont @Else symbolitalicfont } @Font x }
}
}
def @PFB right x
{
style @Case {
fixed @Yield fixedboldformat {
{ boldfont @Else fixedboldfont } @Font x }
varying @Yield varyingboldformat {
{ boldfont @Else varyingboldfont } @Font x }
symbol @Yield symbolboldformat {
{ boldfont @Else symbolboldfont } @Font x }
}
}
def @PFC right x
{
style @Case {
fixed @Yield fixedcodeformat {
{ codefont @Else fixedcodefont } @Font x }
varying @Yield varyingcodeformat {
{ codefont @Else varyingcodefont } @Font x }
symbol @Yield symbolcodeformat {
{ codefont @Else symbolcodefont } @Font x }
}
}
def @PFF right x
{
style @Case {
fixed @Yield fixedfileformat {
{ filefont @Else fixedfilefont } @Font x }
varying @Yield varyingfileformat {
{ filefont @Else varyingfilefont } @Font x }
symbol @Yield symbolfileformat {
{ filefont @Else symbolfilefont } @Font x }
}
}
def @PFL right x
{
style @Case {
fixed @Yield fixedlinkformat {
{ linkfont @Else fixedlinkfont } @Font x }
varying @Yield varyinglinkformat {
{ linkfont @Else varyinglinkfont } @Font x }
symbol @Yield symbollinkformat {
{ linkfont @Else symbollinkfont } @Font x }
}
}
def @PFX right x
{
style @Case {
fixed @Yield fixedindexformat {
{ indexfont @Else fixedindexfont } @Font x }
varying @Yield varyingindexformat {
{ indexfont @Else varyingindexfont } @Font x }
symbol @Yield symbolindexformat {
{ indexfont @Else symbolindexfont } @Font x }
}
}
def @A # get characters from the Adobe Symbol font
named sym {}
right x
{
style @Case {
symbol @Yield { { Symbol Base } @Font @Char sym }
else @Yield { x }
}
}
macro "$>" { {} & }
def pl # for formatting line numbers
right x
{
def strut { @VContract { 0.5v @High ^/ / 0.5v @High } }
strut & style @Case {
fixed @Yield fixedlinenumbersformat {
{ linenumbersfont @Else fixedlinenumbersfont } @Font x
}
varying @Yield varyinglinenumbersformat {
{ linenumbersfont @Else varyinglinenumbersfont } @Font x
}
symbol @Yield symbollinenumbersformat {
{ linenumbersfont @Else symbollinenumbersfont } @Font x
}
}
}
macro @PL { // pl }
@InitFont @Font @InitBreak @Break @Body
@End @Pod
@End @PodSetup
|
