зеркало из https://github.com/github/ruby.git
* mdoc2man.rb: Make this work as a library.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3371 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
knu
Родитель
4a464c1fa2
Коммит
c1d00ec453
|
|
@ -1,3 +1,7 @@
|
||||||
|
Mon Jan 20 19:43:41 2003 Akinori MUSHA <knu@iDaemons.org>
|
||||||
|
|
||||||
|
* mdoc2man.rb: Make this work as a library.
|
||||||
|
|
||||||
Mon Jan 20 18:22:40 2003 Nobuyoshi Nakada <nobu.nokada@softhome.net>
|
Mon Jan 20 18:22:40 2003 Nobuyoshi Nakada <nobu.nokada@softhome.net>
|
||||||
|
|
||||||
* eval.c (rb_f_require): purge too many goto's.
|
* eval.c (rb_f_require): purge too many goto's.
|
||||||
|
|
|
||||||
666
mdoc2man.rb
666
mdoc2man.rb
|
|
@ -42,350 +42,366 @@
|
||||||
### $Id$
|
### $Id$
|
||||||
###
|
###
|
||||||
|
|
||||||
$name = $date = $id = nil
|
class Mdoc2Man
|
||||||
$refauthors = $reftitle = $refissue = $refdate = $refopt = nil
|
def initialize
|
||||||
|
@name = @date = @id = nil
|
||||||
|
@refauthors = @reftitle = @refissue = @refdate = @refopt = nil
|
||||||
|
|
||||||
$optlist = 0 ### 1 = bullet, 2 = enum, 3 = tag, 4 = item
|
@optlist = 0 ### 1 = bullet, 2 = enum, 3 = tag, 4 = item
|
||||||
$oldoptlist = 0
|
@oldoptlist = 0
|
||||||
$nospace = 0 ### 0, 1, 2
|
@nospace = 0 ### 0, 1, 2
|
||||||
$enum = 0
|
@enum = 0
|
||||||
$synopsis = true
|
@synopsis = true
|
||||||
$reference = false
|
@reference = false
|
||||||
$ext = false
|
@ext = false
|
||||||
$extopt = false
|
@extopt = false
|
||||||
$literal = false
|
@literal = false
|
||||||
|
end
|
||||||
|
|
||||||
def parse_macro(line)
|
def mdoc2man(i, o)
|
||||||
words = line.split
|
i.each { |line|
|
||||||
retval = ''
|
if /^\./ !~ line
|
||||||
|
o.print line
|
||||||
option = false
|
o.print ".br\n" if @literal
|
||||||
parens = false
|
|
||||||
|
|
||||||
while word = words.shift
|
|
||||||
case word
|
|
||||||
when 'Li', 'Pf'
|
|
||||||
next
|
|
||||||
when 'Xo'
|
|
||||||
$ext = true
|
|
||||||
retval << ' ' unless retval.empty? || /[\n ]\z/ =~ retval
|
|
||||||
next
|
|
||||||
when 'Xc'
|
|
||||||
$ext = false
|
|
||||||
retval << "\n" unless $extopt
|
|
||||||
break
|
|
||||||
when 'Bd'
|
|
||||||
$literal = true if words[0] == '-literal'
|
|
||||||
retval << "\n"
|
|
||||||
break
|
|
||||||
when 'Ed'
|
|
||||||
$literal = false
|
|
||||||
break
|
|
||||||
when 'Ns'
|
|
||||||
$nospace = 1 if $nospace == 0
|
|
||||||
retval.chomp!(' ')
|
|
||||||
next
|
|
||||||
when 'No'
|
|
||||||
retval.chomp!(' ')
|
|
||||||
retval << words.shift
|
|
||||||
next
|
|
||||||
when 'Dq'
|
|
||||||
retval << '``'
|
|
||||||
begin
|
|
||||||
retval << words.shift << ' '
|
|
||||||
end until words.empty? || /^[\.,]/ =~ words[0]
|
|
||||||
retval.chomp!(' ')
|
|
||||||
retval << '\'\''
|
|
||||||
$nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
|
||||||
when 'Sq', 'Ql'
|
|
||||||
retval << '`' << words.shift << '\''
|
|
||||||
$nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
|
||||||
# when 'Ic'
|
|
||||||
# retval << '\\fB' << words.shift << '\\fP'
|
|
||||||
# next
|
|
||||||
when 'Oo'
|
|
||||||
#retval << "[\\c\n"
|
|
||||||
$extopt = true
|
|
||||||
$nospace = 1 if $nospace == 0
|
|
||||||
retval << '['
|
|
||||||
next
|
|
||||||
when 'Oc'
|
|
||||||
$extopt = false
|
|
||||||
retval << ']'
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
retval << ' ' if $nospace == 0 && !(retval.empty? || /[\n ]\z/ =~ retval)
|
|
||||||
$nospace = 0 if $nospace == 1
|
|
||||||
|
|
||||||
case word
|
|
||||||
when 'Dd'
|
|
||||||
$date = words.join(' ')
|
|
||||||
return nil
|
|
||||||
when 'Dt'
|
|
||||||
$id = words.join(' ')
|
|
||||||
return nil
|
|
||||||
when 'Os'
|
|
||||||
retval << '.TH ' << $id << ' "' << $date << '" "' <<
|
|
||||||
words.join(' ') << '"'
|
|
||||||
break
|
|
||||||
when 'Sh'
|
|
||||||
retval << '.SH'
|
|
||||||
$synopsis = (words[0] == 'SYNOPSIS')
|
|
||||||
next
|
|
||||||
when 'Xr'
|
|
||||||
retval << '\\fB' << words.shift <<
|
|
||||||
'\\fP(' << words.shift << ')' << words.shift
|
|
||||||
break
|
|
||||||
when 'Rs'
|
|
||||||
$refauthors = []
|
|
||||||
$reftitle = ''
|
|
||||||
$refissue = ''
|
|
||||||
$refdate = ''
|
|
||||||
$refopt = ''
|
|
||||||
$reference = true
|
|
||||||
break
|
|
||||||
when 'Re'
|
|
||||||
retval << "\n"
|
|
||||||
|
|
||||||
# authors
|
|
||||||
while @refauthors.size > 1
|
|
||||||
retval << @refauthors.shift << ', '
|
|
||||||
end
|
|
||||||
retval << 'and ' unless retval.empty?
|
|
||||||
retval << @refauthors.shift
|
|
||||||
|
|
||||||
# title
|
|
||||||
retval << ', \\fI' << $reftitle << '\\fP'
|
|
||||||
|
|
||||||
# issue
|
|
||||||
retval << ', ' << $refissue unless $refissue.empty?
|
|
||||||
|
|
||||||
# date
|
|
||||||
retval << ', ' << $refdate unless $refdate.empty?
|
|
||||||
|
|
||||||
# optional info
|
|
||||||
retval << ', ' << $refopt unless $refopt.empty?
|
|
||||||
|
|
||||||
retval << ".\n"
|
|
||||||
|
|
||||||
$reference = false
|
|
||||||
break
|
|
||||||
when 'Ux'
|
|
||||||
retval << "UNIX"
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
if $reference
|
|
||||||
case word
|
|
||||||
when '%A'
|
|
||||||
@refauthors.unshift(words.join(' '))
|
|
||||||
break
|
|
||||||
when '%T'
|
|
||||||
$reftitle = words.join(' ')
|
|
||||||
$reftitle.sub!(/^"/, '')
|
|
||||||
$reftitle.sub!(/"$/, '')
|
|
||||||
break
|
|
||||||
when '%N'
|
|
||||||
$refissue = words.join(' ')
|
|
||||||
break
|
|
||||||
when '%D'
|
|
||||||
$refdate = words.join(' ')
|
|
||||||
break
|
|
||||||
when '%O'
|
|
||||||
$refopt = words.join(' ')
|
|
||||||
break
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
case word
|
|
||||||
when 'Nm'
|
|
||||||
name = words.empty? ? $name : words.shift
|
|
||||||
$name ||= name
|
|
||||||
retval << ".br\n" if $synopsis
|
|
||||||
retval << "\\fB" << name << "\\fP"
|
|
||||||
$nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
|
||||||
when 'Nd'
|
|
||||||
retval << '\\-'
|
|
||||||
next
|
|
||||||
when 'Fl'
|
|
||||||
retval << '\\fB\\-' << words.shift << '\\fP'
|
|
||||||
$nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
|
||||||
when 'Ar'
|
|
||||||
retval << '\\fI'
|
|
||||||
if words.empty?
|
|
||||||
retval << 'file ...\\fP'
|
|
||||||
else
|
|
||||||
retval << words.shift << '\\fP'
|
|
||||||
while words[0] == '|'
|
|
||||||
retval << ' ' << words.shift << ' \\fI' << words.shift << '\\fP'
|
|
||||||
end
|
|
||||||
$nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
next
|
||||||
end
|
end
|
||||||
when 'Cm'
|
|
||||||
retval << '\\fB' << words.shift << '\\fP'
|
|
||||||
while /^[\.,:)]$/ =~ words[0]
|
|
||||||
retval << words.shift
|
|
||||||
end
|
|
||||||
next
|
|
||||||
when 'Op'
|
|
||||||
option = true
|
|
||||||
$nospace = 1 if $nospace == 0
|
|
||||||
retval << '['
|
|
||||||
# words.push(words.pop + ']')
|
|
||||||
next
|
|
||||||
when 'Pp'
|
|
||||||
retval << "\n"
|
|
||||||
next
|
|
||||||
when 'Ss'
|
|
||||||
retval << '.SS'
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
if word == 'Pa' && !option
|
line.slice!(0, 1)
|
||||||
retval << '\\fI'
|
|
||||||
retval << '\\&' if /^\./ =~ words[0]
|
|
||||||
retval << words.shift << '\\fP'
|
|
||||||
while /^[\.,:;)]$/ =~ words[0]
|
|
||||||
retval << words.shift
|
|
||||||
end
|
|
||||||
# $nospace = 1 if $nospace == 0 && /^[\.,]/ =~ words[0]
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
case word
|
next if /\\"/ =~ line
|
||||||
when 'Dv'
|
|
||||||
retval << '.BR'
|
line = parse_macro(line) and o.print line
|
||||||
next
|
}
|
||||||
when 'Em', 'Ev'
|
|
||||||
retval << '.IR'
|
initialize
|
||||||
next
|
end
|
||||||
when 'Pq'
|
|
||||||
retval << '('
|
def parse_macro(line)
|
||||||
$nospace = 1
|
words = line.split
|
||||||
parens = true
|
retval = ''
|
||||||
next
|
|
||||||
when 'Sx', 'Sy'
|
option = false
|
||||||
retval << '.B ' << words.join(' ')
|
parens = false
|
||||||
break
|
|
||||||
when 'Ic'
|
while word = words.shift
|
||||||
retval << '\\fB'
|
case word
|
||||||
until words.empty? || /^[\.,]/ =~ words[0]
|
when 'Li', 'Pf'
|
||||||
case words[0]
|
next
|
||||||
when 'Op'
|
when 'Xo'
|
||||||
words.shift
|
@ext = true
|
||||||
retval << '['
|
retval << ' ' unless retval.empty? || /[\n ]\z/ =~ retval
|
||||||
words.push(words.pop + ']')
|
next
|
||||||
next
|
when 'Xc'
|
||||||
when 'Ar'
|
@ext = false
|
||||||
words.shift
|
retval << "\n" unless @extopt
|
||||||
retval << '\\fI' << words.shift << '\\fP'
|
break
|
||||||
|
when 'Bd'
|
||||||
|
@literal = true if words[0] == '-literal'
|
||||||
|
retval << "\n"
|
||||||
|
break
|
||||||
|
when 'Ed'
|
||||||
|
@literal = false
|
||||||
|
break
|
||||||
|
when 'Ns'
|
||||||
|
@nospace = 1 if @nospace == 0
|
||||||
|
retval.chomp!(' ')
|
||||||
|
next
|
||||||
|
when 'No'
|
||||||
|
retval.chomp!(' ')
|
||||||
|
retval << words.shift
|
||||||
|
next
|
||||||
|
when 'Dq'
|
||||||
|
retval << '``'
|
||||||
|
begin
|
||||||
|
retval << words.shift << ' '
|
||||||
|
end until words.empty? || /^[\.,]/ =~ words[0]
|
||||||
|
retval.chomp!(' ')
|
||||||
|
retval << '\'\''
|
||||||
|
@nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
|
next
|
||||||
|
when 'Sq', 'Ql'
|
||||||
|
retval << '`' << words.shift << '\''
|
||||||
|
@nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
|
next
|
||||||
|
# when 'Ic'
|
||||||
|
# retval << '\\fB' << words.shift << '\\fP'
|
||||||
|
# next
|
||||||
|
when 'Oo'
|
||||||
|
#retval << "[\\c\n"
|
||||||
|
@extopt = true
|
||||||
|
@nospace = 1 if @nospace == 0
|
||||||
|
retval << '['
|
||||||
|
next
|
||||||
|
when 'Oc'
|
||||||
|
@extopt = false
|
||||||
|
retval << ']'
|
||||||
|
next
|
||||||
|
end
|
||||||
|
|
||||||
|
retval << ' ' if @nospace == 0 && !(retval.empty? || /[\n ]\z/ =~ retval)
|
||||||
|
@nospace = 0 if @nospace == 1
|
||||||
|
|
||||||
|
case word
|
||||||
|
when 'Dd'
|
||||||
|
@date = words.join(' ')
|
||||||
|
return nil
|
||||||
|
when 'Dt'
|
||||||
|
@id = words.join(' ')
|
||||||
|
return nil
|
||||||
|
when 'Os'
|
||||||
|
retval << '.TH ' << @id << ' "' << @date << '" "' <<
|
||||||
|
words.join(' ') << '"'
|
||||||
|
break
|
||||||
|
when 'Sh'
|
||||||
|
retval << '.SH'
|
||||||
|
@synopsis = (words[0] == 'SYNOPSIS')
|
||||||
|
next
|
||||||
|
when 'Xr'
|
||||||
|
retval << '\\fB' << words.shift <<
|
||||||
|
'\\fP(' << words.shift << ')' << words.shift
|
||||||
|
break
|
||||||
|
when 'Rs'
|
||||||
|
@refauthors = []
|
||||||
|
@reftitle = ''
|
||||||
|
@refissue = ''
|
||||||
|
@refdate = ''
|
||||||
|
@refopt = ''
|
||||||
|
@reference = true
|
||||||
|
break
|
||||||
|
when 'Re'
|
||||||
|
retval << "\n"
|
||||||
|
|
||||||
|
# authors
|
||||||
|
while @refauthors.size > 1
|
||||||
|
retval << @refauthors.shift << ', '
|
||||||
|
end
|
||||||
|
retval << 'and ' unless retval.empty?
|
||||||
|
retval << @refauthors.shift
|
||||||
|
|
||||||
|
# title
|
||||||
|
retval << ', \\fI' << @reftitle << '\\fP'
|
||||||
|
|
||||||
|
# issue
|
||||||
|
retval << ', ' << @refissue unless @refissue.empty?
|
||||||
|
|
||||||
|
# date
|
||||||
|
retval << ', ' << @refdate unless @refdate.empty?
|
||||||
|
|
||||||
|
# optional info
|
||||||
|
retval << ', ' << @refopt unless @refopt.empty?
|
||||||
|
|
||||||
|
retval << ".\n"
|
||||||
|
|
||||||
|
@reference = false
|
||||||
|
break
|
||||||
|
when 'Ux'
|
||||||
|
retval << "UNIX"
|
||||||
|
next
|
||||||
|
end
|
||||||
|
|
||||||
|
if @reference
|
||||||
|
case word
|
||||||
|
when '%A'
|
||||||
|
@refauthors.unshift(words.join(' '))
|
||||||
|
break
|
||||||
|
when '%T'
|
||||||
|
@reftitle = words.join(' ')
|
||||||
|
@reftitle.sub!(/^"/, '')
|
||||||
|
@reftitle.sub!(/"$/, '')
|
||||||
|
break
|
||||||
|
when '%N'
|
||||||
|
@refissue = words.join(' ')
|
||||||
|
break
|
||||||
|
when '%D'
|
||||||
|
@refdate = words.join(' ')
|
||||||
|
break
|
||||||
|
when '%O'
|
||||||
|
@refopt = words.join(' ')
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
case word
|
||||||
|
when 'Nm'
|
||||||
|
name = words.empty? ? @name : words.shift
|
||||||
|
@name ||= name
|
||||||
|
retval << ".br\n" if @synopsis
|
||||||
|
retval << "\\fB" << name << "\\fP"
|
||||||
|
@nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
|
next
|
||||||
|
when 'Nd'
|
||||||
|
retval << '\\-'
|
||||||
|
next
|
||||||
|
when 'Fl'
|
||||||
|
retval << '\\fB\\-' << words.shift << '\\fP'
|
||||||
|
@nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
|
next
|
||||||
|
when 'Ar'
|
||||||
|
retval << '\\fI'
|
||||||
|
if words.empty?
|
||||||
|
retval << 'file ...\\fP'
|
||||||
else
|
else
|
||||||
|
retval << words.shift << '\\fP'
|
||||||
|
while words[0] == '|'
|
||||||
|
retval << ' ' << words.shift << ' \\fI' << words.shift << '\\fP'
|
||||||
|
end
|
||||||
|
@nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
|
next
|
||||||
|
end
|
||||||
|
when 'Cm'
|
||||||
|
retval << '\\fB' << words.shift << '\\fP'
|
||||||
|
while /^[\.,:)]$/ =~ words[0]
|
||||||
retval << words.shift
|
retval << words.shift
|
||||||
end
|
end
|
||||||
|
next
|
||||||
retval << ' ' if $nospace == 0
|
when 'Op'
|
||||||
|
option = true
|
||||||
|
@nospace = 1 if @nospace == 0
|
||||||
|
retval << '['
|
||||||
|
# words.push(words.pop + ']')
|
||||||
|
next
|
||||||
|
when 'Pp'
|
||||||
|
retval << "\n"
|
||||||
|
next
|
||||||
|
when 'Ss'
|
||||||
|
retval << '.SS'
|
||||||
|
next
|
||||||
end
|
end
|
||||||
|
|
||||||
retval.chomp!(' ')
|
if word == 'Pa' && !option
|
||||||
retval << '\\fP'
|
retval << '\\fI'
|
||||||
retval << words.shift unless words.empty?
|
retval << '\\&' if /^\./ =~ words[0]
|
||||||
break
|
retval << words.shift << '\\fP'
|
||||||
when 'Bl'
|
while /^[\.,:;)]$/ =~ words[0]
|
||||||
$oldoptlist = $optlist
|
retval << words.shift
|
||||||
|
|
||||||
case words[0]
|
|
||||||
when '-bullet'
|
|
||||||
$optlist = 1
|
|
||||||
when '-enum'
|
|
||||||
$optlist = 2
|
|
||||||
$enum = 0
|
|
||||||
when '-tag'
|
|
||||||
$optlist = 3
|
|
||||||
when '-item'
|
|
||||||
$optlist = 4
|
|
||||||
end
|
|
||||||
|
|
||||||
break
|
|
||||||
when 'El'
|
|
||||||
$optlist = $oldoptlist
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
if $optlist != 0 && word == 'It'
|
|
||||||
case $optlist
|
|
||||||
when 1
|
|
||||||
# bullets
|
|
||||||
retval << '.IP \\(bu'
|
|
||||||
when 2
|
|
||||||
# enum
|
|
||||||
$enum += 1
|
|
||||||
retval << '.IP ' << $enum << '.'
|
|
||||||
when 3
|
|
||||||
# tags
|
|
||||||
retval << ".TP\n"
|
|
||||||
case words[0]
|
|
||||||
when 'Pa', 'Ev'
|
|
||||||
words.shift
|
|
||||||
retval << '.B'
|
|
||||||
end
|
end
|
||||||
when 4
|
# @nospace = 1 if @nospace == 0 && /^[\.,]/ =~ words[0]
|
||||||
# item
|
next
|
||||||
retval << ".IP\n"
|
|
||||||
end
|
end
|
||||||
|
|
||||||
next
|
case word
|
||||||
end
|
when 'Dv'
|
||||||
|
retval << '.BR'
|
||||||
|
next
|
||||||
|
when 'Em', 'Ev'
|
||||||
|
retval << '.IR'
|
||||||
|
next
|
||||||
|
when 'Pq'
|
||||||
|
retval << '('
|
||||||
|
@nospace = 1
|
||||||
|
parens = true
|
||||||
|
next
|
||||||
|
when 'Sx', 'Sy'
|
||||||
|
retval << '.B ' << words.join(' ')
|
||||||
|
break
|
||||||
|
when 'Ic'
|
||||||
|
retval << '\\fB'
|
||||||
|
until words.empty? || /^[\.,]/ =~ words[0]
|
||||||
|
case words[0]
|
||||||
|
when 'Op'
|
||||||
|
words.shift
|
||||||
|
retval << '['
|
||||||
|
words.push(words.pop + ']')
|
||||||
|
next
|
||||||
|
when 'Ar'
|
||||||
|
words.shift
|
||||||
|
retval << '\\fI' << words.shift << '\\fP'
|
||||||
|
else
|
||||||
|
retval << words.shift
|
||||||
|
end
|
||||||
|
|
||||||
case word
|
retval << ' ' if @nospace == 0
|
||||||
when 'Sm'
|
end
|
||||||
case words[0]
|
|
||||||
when 'off'
|
retval.chomp!(' ')
|
||||||
$nospace = 2
|
retval << '\\fP'
|
||||||
when 'on'
|
retval << words.shift unless words.empty?
|
||||||
# retval << "\n"
|
break
|
||||||
$nospace = 0
|
when 'Bl'
|
||||||
|
@oldoptlist = @optlist
|
||||||
|
|
||||||
|
case words[0]
|
||||||
|
when '-bullet'
|
||||||
|
@optlist = 1
|
||||||
|
when '-enum'
|
||||||
|
@optlist = 2
|
||||||
|
@enum = 0
|
||||||
|
when '-tag'
|
||||||
|
@optlist = 3
|
||||||
|
when '-item'
|
||||||
|
@optlist = 4
|
||||||
|
end
|
||||||
|
|
||||||
|
break
|
||||||
|
when 'El'
|
||||||
|
@optlist = @oldoptlist
|
||||||
|
next
|
||||||
end
|
end
|
||||||
words.shift
|
|
||||||
next
|
if @optlist != 0 && word == 'It'
|
||||||
|
case @optlist
|
||||||
|
when 1
|
||||||
|
# bullets
|
||||||
|
retval << '.IP \\(bu'
|
||||||
|
when 2
|
||||||
|
# enum
|
||||||
|
@enum += 1
|
||||||
|
retval << '.IP ' << @enum << '.'
|
||||||
|
when 3
|
||||||
|
# tags
|
||||||
|
retval << ".TP\n"
|
||||||
|
case words[0]
|
||||||
|
when 'Pa', 'Ev'
|
||||||
|
words.shift
|
||||||
|
retval << '.B'
|
||||||
|
end
|
||||||
|
when 4
|
||||||
|
# item
|
||||||
|
retval << ".IP\n"
|
||||||
|
end
|
||||||
|
|
||||||
|
next
|
||||||
|
end
|
||||||
|
|
||||||
|
case word
|
||||||
|
when 'Sm'
|
||||||
|
case words[0]
|
||||||
|
when 'off'
|
||||||
|
@nospace = 2
|
||||||
|
when 'on'
|
||||||
|
# retval << "\n"
|
||||||
|
@nospace = 0
|
||||||
|
end
|
||||||
|
words.shift
|
||||||
|
next
|
||||||
|
end
|
||||||
|
|
||||||
|
retval << word
|
||||||
end
|
end
|
||||||
|
|
||||||
retval << word
|
return nil if retval == '.'
|
||||||
|
|
||||||
|
retval.sub!(/\A\.([^a-zA-Z])/, "\\1")
|
||||||
|
# retval.chomp!(' ')
|
||||||
|
|
||||||
|
retval << ')' if parens
|
||||||
|
|
||||||
|
retval << ']' if option
|
||||||
|
|
||||||
|
# retval << ' ' unless @nospace == 0 || retval.empty? || /\n\z/ =~ retval
|
||||||
|
|
||||||
|
retval << ' ' unless !@ext || @extopt || / $/ =~ retval
|
||||||
|
|
||||||
|
retval << "\n" unless @ext || @extopt || retval.empty? || /\n\z/ =~ retval
|
||||||
|
|
||||||
|
return retval
|
||||||
end
|
end
|
||||||
|
|
||||||
return nil if retval == '.'
|
def self.mdoc2man(i, o)
|
||||||
|
new.mdoc2man(i, o)
|
||||||
retval.sub!(/\A\.([^a-zA-Z])/, "\\1")
|
end
|
||||||
# retval.chomp!(' ')
|
|
||||||
|
|
||||||
retval << ')' if parens
|
|
||||||
|
|
||||||
retval << ']' if option
|
|
||||||
|
|
||||||
# retval << ' ' unless $nospace == 0 || retval.empty? || /\n\z/ =~ retval
|
|
||||||
|
|
||||||
retval << ' ' unless !$ext || $extopt || / $/ =~ retval
|
|
||||||
|
|
||||||
retval << "\n" unless $ext || $extopt || retval.empty? || /\n\z/ =~ retval
|
|
||||||
|
|
||||||
return retval
|
|
||||||
end
|
end
|
||||||
|
|
||||||
ARGF.each { |line|
|
if $0 == __FILE__
|
||||||
if /^\./ !~ line
|
Mdoc2Man.mdoc2man(ARGF, STDOUT)
|
||||||
print line
|
end
|
||||||
print ".br\n" if $literal
|
|
||||||
next
|
|
||||||
end
|
|
||||||
|
|
||||||
line.slice!(0, 1)
|
|
||||||
|
|
||||||
next if /\\"/ =~ line
|
|
||||||
|
|
||||||
line = parse_macro(line) and print line
|
|
||||||
}
|
|
||||||
|
|
|
||||||
Загрузка…
Ссылка в новой задаче