Cross Reference: /freebsd-10.2-release/contrib/ntp/sntp/ag-tpl/mdoc2man

40 use Mdoc qw(hs ns pp mapwords son soff stoggle gen_encloser);
46 Mdoc::def_macro( '.Sh', sub { '.SH', hs, @_ }, raw => 1);
47 Mdoc::def_macro( '.Ss', sub { '.SS', hs, @_ }, raw => 1);
48 Mdoc::def_macro( '.Pp', sub { ".sp \\n(Ppu\n.ne 2\n" } );
49 Mdoc::def_macro( '.Nd', sub { "\\- @_" } );
52 Mdoc::def_macro( '.Brq', gen_encloser(qw({ }))          , greedy => 1 );
53 Mdoc::def_macro( '.Op' , gen_encloser(qw([ ]))          , greedy => 1 );
54 Mdoc::def_macro( '.Qq' , gen_encloser(qw(" "))          , greedy => 1 );
55 Mdoc::def_macro( '.Dq' , gen_encloser(qw(\*[Lq] \*[Rq])), greedy => 1 );
56 Mdoc::def_macro( '.Ql' , gen_encloser(qw(\[oq] \[cq]))  , greedy => 1 );
57 Mdoc::def_macro( '.Sq' , gen_encloser(qw(\[oq] \[cq]))  , greedy => 1 );
58 Mdoc::def_macro( '.Pq' , gen_encloser(qw/( )/)          , greedy => 1 );
59 Mdoc::def_macro( '.D1' , sub { ".in +4\n", ns, @_ , ns , "\n.in -4" } , greedy => 1);
61 Mdoc::def_macro( 'Oo',  sub { '[', @_ } );
62 Mdoc::def_macro( 'Oc',  sub { ']', @_ } );
64 Mdoc::def_macro( 'Po',  sub { '(', @_} );
65 Mdoc::def_macro( 'Pc',  sub { ')', @_ } );
67 Mdoc::def_macro( 'Bro', sub { '{', ns, @_ } );
68 Mdoc::def_macro( 'Brc', sub { '}', @_ } );
70 Mdoc::def_macro( '.Oo',  gen_encloser(qw([ ])), concat_until => '.Oc' );
71 Mdoc::def_macro( '.Bro', gen_encloser(qw({ })), concat_until => '.Brc' );
72 Mdoc::def_macro( '.Po',  gen_encloser(qw/( )/), concat_until => '.Pc' );
74 Mdoc::def_macro( '.Ev', sub { @_ } );
75 Mdoc::def_macro( '.An', sub { ".NOP ", @_, "\n.br" }, raw => 1 );
76 Mdoc::def_macro( '.Li', sub { mapwords {"\\f[C]$_\\f[]"} @_ } );
77 Mdoc::def_macro( '.Cm', sub { mapwords {"\\f\\*[B-Font]$_\\f[]"} @_ } );
78 Mdoc::def_macro( '.Ic', sub { mapwords {"\\f\\*[B-Font]$_\\f[]"} @_ } );
79 Mdoc::def_macro( '.Fl', sub { mapwords {"\\f\\*[B-Font]\\-$_\\f[]"} @_ } );
80 Mdoc::def_macro( '.Ar', sub { mapwords {"\\f\\*[I-Font]$_\\f[]"} @_ } );
81 Mdoc::def_macro( '.Em', sub { mapwords {"\\fI$_\\f[]"} @_ } );
82 Mdoc::def_macro( '.Va', sub { mapwords {"\\fI$_\\f[]"} @_ } );
83 Mdoc::def_macro( '.Sx', sub { mapwords {"\\fI$_\\f[]"} @_ } );
84 Mdoc::def_macro( '.Xr', sub { "\\fC".(shift)."\\f[]\\fR(".(shift).")\\f[]", @_ } );
85 Mdoc::def_macro( '.Fn', sub { "\\f\\*[B-Font]".(shift)."\\f[]\\fR()\\f[]" } );
86 Mdoc::def_macro( '.Fn', sub { "\\fB".(shift)."\\f[]\\fR()\\f[]" } );
87 Mdoc::def_macro( '.Fx', sub { "FreeBSD", @_ } );
88 Mdoc::def_macro( '.Ux', sub { "UNIX", @_ } );
90 Mdoc::def_macro( '.No', sub { ".NOP", map { ($_, ns) } @_ } );
91 Mdoc::def_macro( '.Pa', sub { mapwords {"\\fI$_\\f[]"} @_; } );
94     Mdoc::def_macro('.Nm', sub {
106         Mdoc::def_macro('.It', sub { '.IP \fB\(bu\fP 2' });
110         Mdoc::def_macro('.It', sub { '.IP \fB\(bu\fP 2' });
124             Mdoc::def_macro('.It', sub {
136             Mdoc::def_macro('.It', sub {
143 Mdoc::set_Bl_callback(do { my $nested = 0; sub {
145     my %opts = Mdoc::parse_opts(@_);
149         Mdoc::set_El_callback(sub {
170 Mdoc::def_macro('.Bd', sub { ".br\n.in +4\n.nf" } );
171 Mdoc::def_macro('.Ed', sub { ".in -4\n.fi" } );
173 Mdoc::set_Re_callback(sub {
184     my $m = Mdoc::get_macro(".$_");
185     Mdoc::def_macro($_, delete $m->{run}, %$m);
209     while (my ($macro, @args) = Mdoc::parse_line(\*STDIN, \&print_line)) {
210         my @ret = Mdoc::call_macro($macro, @args);
211         print_line(Mdoc::to_string(@ret)) if @ret;