#
#
#  Copyright (c) 2016, Red Hat, Inc.
#  Copyright (c) 2016, Masatake YAMATO
#
#  Author: Masatake YAMATO <yamato@redhat.com>
#
# 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 2
# of the License, 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
# USA.
#
#
--langdef=Man
--map-Man=+.1
--map-Man=+.2
--map-Man=+.3
--map-Man=+.4
--map-Man=+.5
--map-Man=+.6
--map-Man=+.7
--map-Man=+.8
--map-Man=+.9

# For perl modules
--map-Man=+.3pm

# For systemtap
--map-Man=+.3stap
--map-Man=+.7stap

--kinddef-Man=t,title,titles
--kinddef-Man=s,section,sections
--kinddef-Man=S,subsection,sub sections

--_scopesep-Man=*/*:""

--_tabledef-Man=main
--_tabledef-Man=section
--_tabledef-Man=sectionheading
--_tabledef-Man=subsection
--_tabledef-Man=subsectionheading

--_prelude-Man={{
    % adjustment:int FILL-END-OF-SCOPE -
    %
    % Note: The group 1 of a regex matching is assumed.
    %       An entry on the scope stack is assumed.
    /fill-end-of-scope {
         _scopetop pop exch
         % scope-top:int adjustment:int
         1 /start _matchloc _matchloc2line exch
         % scope-top:int line adjustment:int
         2 copy gt {
             sub end:
         } {
             pop pop pop
         } ifelse
    } def
    % adjustment:int /replace HEADING-ACTION -
    % /push HEADING-ACTION -
    /heading-action {
        /replace eq {
             %
             % Before removing the tag at the top of the scope stack,
             % fill the end field of the tag.
             %
             % input0.man
             % ----------------------------------------------------
             %   .SH SEC1
             %   ...
             %E: This is the end of the SEC1.
             %   .SH
             %C: SEC2
             %
             % ----------------------------------------------------
             %
             % C represents the current input line. The parser must
             % fill the end field of "SEC1", the tag at the top,
             % with the line number of E.
             %
             %    E = C - 2
             %
             % input1.man
             % ----------------------------------------------------
             %   .SH SEC3
             %   ...
             %E: This is the end of the SEC1.
             %C:  .SH SEC4
             %
             % ----------------------------------------------------
             %
             % In this case
             %
             %    E = C - 1
             %
             % The offset for the adjustment depends on the conctxt.
             %
             fill-end-of-scope
             _scopepop
        } if

        _scopetop {
            . exch scope:
        } if
        . _scopepush
    } def
}}

--_tabledef-Man=EOF
--_tabledef-Man=SKIP
--_tabledef-Man=REST
--_tabledef-Man=GUARD

#
# helper tables
#
--_mtable-regex-Man=GUARD/([^\n.]|\.[^\nst])[^\n]*\n//{icase}
--_mtable-regex-Man=SKIP/[^\n]*\n|[^\n]+//
--_mtable-regex-Man=EOF///{scope=clear}{tquit}
--_mtable-extend-Man=REST+SKIP
--_mtable-extend-Man=REST+EOF

#
# main table
#
--_mtable-extend-Man=main+GUARD
--_mtable-regex-Man=main/\.TH[\t ]+"([^"]+)"[^\n]*\n/\1/t/{icase}{scope=set}
--_mtable-regex-Man=main/\.TH[\t ]+([^\t \n]+)[^\n]*\n/\1/t/{icase}{scope=set}
--_mtable-regex-Man=main/\.SH[\t ]+"([^"\n]+)"[^\n]*\n/\1/s/{icase}{scope=push}{tenter=section}
--_mtable-regex-Man=main/\.SH[\t ]+([^\n]+)\n/\1/s/{icase}{scope=push}{tenter=section}
--_mtable-regex-Man=main/\.SH[\t ]*\n//{icase}{tenter=sectionheading}{{
    /push
}}
--_mtable-extend-Man=main+REST

#
# section table
#
--_mtable-extend-Man=section+GUARD
--_mtable-regex-Man=section/\.SH[\t ]+"([^"\n]+)"[^\n]*\n/\1/s/{icase}{scope=replace}
--_mtable-regex-Man=section/\.SH[\t ]+([^\n]+)\n/\1/s/{icase}{scope=replace}
--_mtable-regex-Man=section/(\.SH)[\t ]*\n//{icase}{tjump=sectionheading}{{
    2 /replace
}}
--_mtable-regex-Man=section/\.SS[\t ]+"([^"\n]+)"[^\n]*\n/\1/S/{icase}{scope=push}{tenter=subsection}
--_mtable-regex-Man=section/\.SS[\t ]+([^\n]+)\n/\1/S/{icase}{scope=push}{tenter=subsection}
--_mtable-regex-Man=section/\.SS[\t ]*\n//{icase}{tenter=subsectionheading}{{
    /push
}}
--_mtable-extend-Man=section+REST

#
# sectionheading
#
--_mtable-regex-Man=sectionheading/[ \t]*([^\n]+)\n/\1/s/{tjump=section}{{
    heading-action
}}
--_mtable-extend-Man=sectionheading+REST

#
# subsection
#
--_mtable-extend-Man=subsection+GUARD
--_mtable-regex-Man=subsection/\.SS[\t ]+"([^"\n]+)"[^\n]*\n/\1/S/{icase}{scope=replace}
--_mtable-regex-Man=subsection/\.SS[\t ]+([^\n]+)\n/\1/S/{icase}{scope=replace}
--_mtable-regex-Man=subsection/\.SS[\t ]*\n//{icase}{tjump=subsectionheading}{{
    2 /replace
}}
--_mtable-regex-Man=subsection/(\.SH)///{icase}{_advanceTo=0start}{tleave}{{
    1 fill-end-of-scope
    _scopepop
}}
--_mtable-extend-Man=subsection+REST

#
# subsectionheading
#
--_mtable-regex-Man=subsectionheading/[ \t]*([^\n]+)\n/\1/S/{tjump=subsection}{{
    heading-action
}}
--_mtable-extend-Man=subsectionheading+REST