/[groff]/groff/tmac/www.tmac
ViewVC logotype

Diff of /groff/tmac/www.tmac

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by wl, Wed Feb 16 14:07:24 2005 UTC revision 1.40 by wl, Fri Mar 18 08:33:20 2005 UTC
# Line 786  www functionality.  It should work with Line 786  www functionality.  It should work with
786  ..  ..
787  .  .
788  .\" --------------------------------------------------------------------  .\" --------------------------------------------------------------------
789  .\" auxiliary definitions for ULS / ULE  .\" auxiliary definitions for lists
790    .\"
791    .ds www-ul-level1 \[bu]\ \ \"
792    .ds www-ul-level2 \[sq]\ \ \"
793    .ds www-ul-level3 \[ci]\ \ \"
794    .nr www-ul-level 0
795    .
796    .ds www-ol-level1 decimal\"
797    .ds www-ol-level2 lower-alpha\"
798    .ds www-ol-level3 lower-roman\"
799    .ds www-ol-tmp 00\ \ \"
800    .nr www-ol-ctr1 0 1
801    .nr www-ol-ctr2 0 1
802    .nr www-ol-ctr3 0 1
803    .af www-ol-ctr2 a
804    .af www-ol-ctr3 i
805    .nr www-ol-level 0
806    .
807    .nr www-dl-level 0
808    .nr www-dl-shift 5n
809    .
810    .\"
811    .\" allow nested lists
812  .\"  .\"
 .ds www-level1 \[bu]\ \ \"  
 .ds www-level2 \[sq]\ \ \"  
 .ds www-level3 \[ci]\ \ \"  
 .nr www-level 0  
813  .nr www-depth 0  .nr www-depth 0
814    .nr www-li-indent \n[.i]
815    .ds www-level0 nop\"
816    .ds www-level1
817    .ds www-level2
818    .ds www-level3
819    .ds www-level4
820    .ds www-level5
821    .ds www-level6
822    .ds www-level7
823    .ds www-level8
824    .ds www-level9
825    .
826    .\" which macro to use for LI
827    .de www-push-li
828    .  nr www-depth +1
829    .  ds www-level\\n[www-depth] \\$1\"
830    .  als LI \\$1
831    ..
832    .
833    .de www-pop-li
834    .  nr www-depth -1
835    .  als LI \\*[www-level\\n[www-depth]]
836    ..
837  .  .
838  .\"  .\"
839  .\" Auxiliary macro for ULS.  .\" Auxiliary macro for ULS.
840  .\"  .\"
841  .de www-push-level  .de www-push-ul-level
842  .  nr www-level +1  .  nr www-ul-level +1
843  .  if (\\n[www-level] > 3) \  .  if (\\n[www-ul-level] > 3) \
844  .    www-error "too many levels of indentation (\\n[www-level])"  .    www-error "ULS: too many levels of indentation (\\n[www-ul-level])"
845  ..  ..
846  .\"  .\"
847  .\" Auxiliary macro for ULE.  .\" Auxiliary macro for ULE.
848  .\"  .\"
849  .de www-pop-level  .de www-pop-ul-level
850  .  if !\\n[www-level] \  .  if !\\n[www-ul-level] \
851  .    www-error "trying to terminate a list which does not exist"  .    www-error "ULE: trying to terminate a list which does not exist"
852  .  nr www-level -1  .  nr www-ul-level -1
853    ..
854    .
855    .\"
856    .\" Auxiliary macro for OLS.
857    .\"
858    .de www-push-ol-level
859    .  nr www-ol-level +1
860    .  if (\\n[www-ol-level] > 3) \
861    .    www-error "OLS: too many levels of indentation (\\n[www-ol-level])"
862    ..
863    .\"
864    .\" Auxiliary macro for OLE.
865    .\"
866    .de www-pop-ol-level
867    .  if !\\n[www-ol-level] \
868    .    www-error "OLE: trying to terminate a list which does not exist"
869    .  nr www-ol-level -1
870  ..  ..
871    .
872  .\" --------------------------------------------------------------------  .\" --------------------------------------------------------------------
873  .\" ULS  .\" ULS
874  .\"  .\"
875  .\"   Start an unordered list.  .\"   Start an unordered list.
876  .\"  .\"
877  .de ULS  .de ULS
878  .  www-push-level  .  www-push-li www-li-ul
879    .  www-push-ul-level
880  .  ie \\n[www-html] \  .  ie \\n[www-html] \
881  .    HTML</p> "<ul>"  .    HTML</p> "<ul>"
882  .  el \{\  .  el \{\
883  .    if (\\n[www-level] == 1) \  .    nr www-li-indent +\w'\\*[www-ul-level\\n[www-ul-level]]'u
 .      nr www-depth \\n[.i]  
 .    nr www-depth +\w'\\*[www-level\\n[www-level]]'u  
884  .  \}  .  \}
885  ..  ..
886  .\" --------------------------------------------------------------------  .\" --------------------------------------------------------------------
# Line 832  www functionality.  It should work with Line 890  www functionality.  It should work with
890  .\"  .\"
891  .de ULE  .de ULE
892  .  ie \\n[www-html] \  .  ie \\n[www-html] \
893  .    HTML</p> "</ul>"  .    HTML "</ul>"
894    .  el \{\
895    .    nr www-li-indent -\w'\\*[www-ul-level\\n[www-ul-level]]'u
896    .    in \\n[www-li-indent]u
897    .  \}
898    .  www-pop-ul-level
899    .  www-pop-li
900    ..
901    .\" --------------------------------------------------------------------
902    .\" OLS
903    .\"
904    .\"   Start an ordered list.
905    .\"
906    .de OLS
907    .  www-push-li www-li-ol
908    .  www-push-ol-level
909    .  ie \\n[www-html] \
910    .    HTML</p> "<ol style='list-style-type: \\*[www-ol-level\\n[www-ol-level]]'>"
911    .  el \
912    .    nr www-li-indent +\w'\\*[www-ol-tmp]'u
913    ..
914    .\" --------------------------------------------------------------------
915    .\" OLE
916    .\"
917    .\"   End an ordered list.
918    .\"
919    .de OLE
920    .  ie \\n[www-html] \
921    .    HTML "</ol>"
922    .  el \{\
923    .    nr www-li-indent -\w'\\*[www-ol-tmp]'u
924    .    in \\n[www-li-indent]u
925    .    nr www-ol-ctr\\n[www-ol-level] 0 1
926    .  \}
927    .  www-pop-ol-level
928    .  www-pop-li
929    ..
930    .\" --------------------------------------------------------------------
931    .\"
932    .\" DLS
933    .\"   Start a definition list.
934    .\"
935    .de DLS
936    .  www-push-li www-li-dl
937    .  nr www-dl-level +1
938    .  ie \\n[www-html] \
939    .    HTML</p> "<dl>"
940    .  el \{\
941    .    nr www-li-indent +\\n[www-dl-shift]u
942    .    in \\n[www-li-indent]u
943    .  \}
944    ..
945    .\" --------------------------------------------------------------------
946    .\"
947    .\" DLE
948    .\"   End a definition list.
949    .\"
950    .de DLE
951    .  ie \\n[www-html] \
952    .    HTML "</dl>"
953  .  el \{\  .  el \{\
954  .    nr www-depth -\w'\\*[www-level\\n[www-level]]'u  .    nr www-li-indent -\\n[www-dl-shift]u
955  .    in \\n[www-depth]u  .    in \\n[www-li-indent]u
956  .  \}  .  \}
957  .  www-pop-level  .  nr www-dl-level -1
958    .  www-pop-li
959  ..  ..
960  .\" --------------------------------------------------------------------  .\" --------------------------------------------------------------------
961  .\" LI  .\" LI
962  .\"  .\"
963  .\"   Insert a list item.  .\"   Insert a list item.
964  .\"  .\"
965  .de LI  .\" ********
966    .\" www-li-ul - bulleted list item
967    .\"
968    .de www-li-ul
969    .  ie \\n[www-html] \
970    .    HTML-NS "<li>"
971    .  el \{\
972    .    www:paraspace
973    .    in \\n[www-li-indent]u
974    .    ti -\w'\\*[www-ul-level\\n[www-ul-level]]'u
975    .    nop \\*[www-ul-level\\n[www-ul-level]]\c
976    .  \}
977    ..
978    .\" ********
979    .\" www-li-ol - numbered list item
980    .\"
981    .de www-li-ol
982  .  ie \\n[www-html] \  .  ie \\n[www-html] \
983  .    HTML</p> "<li>"  .    HTML-NS "<li>"
984    .  el \{\
985    .    www:paraspace
986    .    in \\n[www-li-indent]u
987    .    ti -\w'\\n[www-ol-ctr\\n[www-ol-level]]\ \ 'u
988    .    nop \\n+[www-ol-ctr\\n[www-ol-level]]\ \ \c
989    .  \}
990    ..
991    .\" ********
992    .\" www-li-dl - definition list item
993    .\"
994    .de www-li-dl
995    .  ie \\n[www-html] \{\
996    .    HTML "<dt>\\$1</dt>"
997    .    HTML-NS "<dd>"
998    .  \}
999  .  el \{\  .  el \{\
1000  .    www:paraspace  .    www:paraspace
1001  .    in \\n[www-depth]u  .    in \\n[www-li-indent]u
1002  .    ti -\w'\\*[www-level\\n[www-level]]'u  .    ti -\\n[www-dl-shift]u
1003  .    nop \\*[www-level\\n[www-level]]\c  .    nop \&\\$1
1004    .    br
1005  .  \}  .  \}
1006  ..  ..
1007  .\" --------------------------------------------------------------------  .\" --------------------------------------------------------------------

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26