class InlineParser

preclow
  nonassoc EX_LOW
  left QUOTE
       BAR
       SLASH
       BACK_SLASH
       URL
       OTHER
       REF_OPEN
       FOOTNOTE_OPEN
       FOOTNOTE_CLOSE
  nonassoc EX_HIGH
prechigh

token EM_OPEN
      EM_CLOSE
      CODE_OPEN
      CODE_CLOSE
      VAR_OPEN
      VAR_CLOSE
      KBD_OPEN
      KBD_CLOSE
      INDEX_OPEN
      INDEX_CLOSE
      REF_OPEN
      REF_CLOSE
      FOOTNOTE_OPEN
      FOOTNOTE_CLOSE
      VERB_OPEN
      VERB_CLOSE
      BAR
      QUOTE
      SLASH
      BACK_SLASH
      URL
      OTHER
      EX_LOW
      EX_HIGH

rule
  content : elements
          ;

  elements : elements element { result.append val[1] }
           | element          { result = val[0] }
           ;

  element : emphasis
          | code
          | var
          | keyboard
          | index
          | reference
          | footnote
          | verb
          | normal_str_ele
          ;

  emphasis : EM_OPEN content EM_CLOSE {
    content = val[1]
    result = inline "<em>#{content}</em>", content
  }
  ;

  code : CODE_OPEN content CODE_CLOSE {
    content = val[1]
    result = inline "<code>#{content}</code>", content
  }
  ;

  var : VAR_OPEN content VAR_CLOSE {
    content = val[1]
    result = inline "+#{content}+", content
  }
  ;

  keyboard : KBD_OPEN content KBD_CLOSE {
    content = val[1]
    result = inline "<tt>#{content}</tt>", content
  }
  ;

  index : INDEX_OPEN content INDEX_CLOSE {
    label = val[1]
    @block_parser.add_label label.reference
    result = "<span id=\"label-#{label}\">#{label}</span>"
  }
  ;

# Reference # ((<subst|filename/element_label>))

reference : REF_OPEN substitute ref_label REF_CLOSE {
  result = "{#{val[1]}}[#{val[2].join}]"
} | REF_OPEN ref_label2 REF_CLOSE {
  scheme, inline = val[1]

  result = "{#{inline}}[#{scheme}#{inline.reference}]"
}
;

# result is scheme and reference
ref_label : URL ref_url_strings {
  result = [nil, inline(val[1])]
} | filename element_label {
  result = [
    'rdoc-label:',
    inline("#{val[0].reference}/#{val[1].reference}")
  ]
} | element_label {
  result = ['rdoc-label:', val[0].reference]
} | filename {
  result = ['rdoc-label:', "#{val[0].reference}/"]
}
;

# result is reference type and value
ref_label2 : URL ref_url_strings {
  result = [nil, inline(val[1])]
} | filename element_label2 {
  result = [
    'rdoc-label:',
    inline("#{val[0].reference}/#{val[1].reference}")
  ]
} | element_label2 {
  result = ['rdoc-label:', val[0]]
} | filename {
  ref = val[0].reference
  result = ['rdoc-label:', inline(ref, "#{ref}/")]
}
;

substitute : ref_subst_content BAR
           | QUOTE ref_subst_content_q QUOTE BAR { result = val[1] }
           | QUOTE ref_subst_strings_q QUOTE BAR { result = val[1] }
           ;

filename : ref_subst_strings_first SLASH {
  result = inline val[0]
} | QUOTE ref_subst_strings_q QUOTE SLASH {
  result = inline "\"#{val[1]}\""
}
;

# when substitute part exists
element_label : ref_subst_strings_first {
  result = inline val[0]
} | QUOTE ref_subst_strings_q QUOTE {
  result = inline "\"#{val[1]}\""
}
;

# when substitute part doesn't exist
# in this case, element label can contain Inlines
element_label2 : ref_subst_content
               | QUOTE ref_subst_content_q QUOTE { result = val[1] }
               | QUOTE ref_subst_strings_q QUOTE { result = inline val[1] }
               ;

ref_subst_content : ref_subst_ele2 ref_subst_eles {
  result = val[0].append val[1]
} | ref_subst_str_ele_first ref_subst_eles {
  result = val[0].append val[1]
} | ref_subst_str_ele_first {
  result = val[0]
} | ref_subst_ele2 {
  result = inline val[0]
}
;

ref_subst_content_q : ref_subst_eles_q
                    ;

ref_subst_eles : ref_subst_eles ref_subst_ele {
  result = val[0].append val[1]
} | ref_subst_ele {
  result = inline val[0]
}
;

ref_subst_eles_q : ref_subst_eles_q ref_subst_ele_q {
  result = val[0].append val[1]
} | ref_subst_ele_q {
  result = val[0]
}
;

ref_subst_ele2 : emphasis
               | code
               | var
               | keyboard
               | index
               | verb
               ;

ref_subst_ele : ref_subst_ele2
              | ref_subst_str_ele
              ;

ref_subst_ele_q : ref_subst_ele2
                | ref_subst_str_ele_q
                ;

ref_subst_str_ele : ref_subst_strings = EX_LOW {
  result = val[0]
}
;

ref_subst_str_ele_first : ref_subst_strings_first {
  result = inline val[0]
}
;

ref_subst_str_ele_q : ref_subst_strings_q = EX_LOW {
  result = inline val[0]
}
;

ref_subst_strings : ref_subst_strings ref_subst_string3 { result << val[1] }
                  | ref_subst_string3
                  ;

# if it is first element of substitute, it can't contain URL on head.
ref_subst_strings_first : ref_subst_string ref_subst_strings = EX_HIGH {
  result << val[1]
} | ref_subst_string = EX_LOW
;

ref_subst_strings_q : ref_subst_strings_q ref_subst_string_q {
  result << val[1]
} | ref_subst_string_q
;

ref_subst_string : OTHER
                 | BACK_SLASH
                 | REF_OPEN
                 | FOOTNOTE_OPEN
                 | FOOTNOTE_CLOSE
                 ;

ref_subst_string2 : ref_subst_string
                  | URL
                  ;

ref_subst_string3 : ref_subst_string2
                  | QUOTE
                  ;

ref_subst_string_q : ref_subst_string2
                   | BAR
                   | SLASH
                   ;

# end subst

# string in url

ref_url_strings : ref_url_strings ref_url_string { result << val[1] }
                | ref_url_string
                ;

ref_url_string : OTHER
               | BACK_SLASH BACK_SLASH
               | URL
               | SLASH
               | BAR
               | QUOTE
               | EM_OPEN
               | EM_CLOSE
               | CODE_OPEN
               | CODE_CLOSE
               | VAR_OPEN
               | VAR_CLOSE
               | KBD_OPEN
               | KBD_CLOSE
               | INDEX_OPEN
               | INDEX_CLOSE
               | REF_OPEN
               | FOOTNOTE_OPEN
               | FOOTNOTE_CLOSE
               | VERB_OPEN
               | VERB_CLOSE
               ;

# end url # end Reference

footnote : FOOTNOTE_OPEN content FOOTNOTE_CLOSE {
  index = @block_parser.add_footnote val[1].rdoc
  result = "{*#{index}}[rdoc-label:foottext-#{index}:footmark-#{index}]"
}
;

verb : VERB_OPEN verb_strings VERB_CLOSE {
  result = inline "<tt>#{val[1]}</tt>", val[1]
}
;

# normal string
# OTHER, QUOTE, BAR, SLASH, BACK_SLASH, URL
normal_string : OTHER
              | QUOTE
              | BAR
              | SLASH
              | BACK_SLASH
              | URL
              ;

normal_strings : normal_strings normal_string { result << val[1] }
               | normal_string
               ;

normal_str_ele : normal_strings = EX_LOW {
  result = inline val[0]
}
;

# in verb
verb_string : verb_normal_string
            | BACK_SLASH verb_normal_string { result = val[1] }
            | BACK_SLASH VERB_CLOSE         { result = val[1] }
            | BACK_SLASH BACK_SLASH         { result = val[1] }
            ;

verb_normal_string : OTHER
                   | QUOTE
                   | BAR
                   | SLASH
                   | EM_OPEN
                   | EM_CLOSE
                   | CODE_OPEN
                   | CODE_CLOSE
                   | VAR_OPEN
                   | VAR_CLOSE
                   | KBD_OPEN 
                   | KBD_CLOSE
                   | INDEX_OPEN
                   | INDEX_CLOSE
                   | REF_OPEN 
                   | REF_CLOSE
                   | FOOTNOTE_OPEN 
                   | FOOTNOTE_CLOSE 
                   | VERB_OPEN
                   | URL
                   ;

verb_strings : verb_strings verb_string { result << val[1] }
             | verb_string
             ; 

   verb_str_ele : verb_strings
   ;

end

—- inner

#

EM_OPEN = '((*' EM_OPEN_RE = /A#{Regexp.quote(EM_OPEN)}/ EM_CLOSE = '*))' EM_CLOSE_RE = /A#{Regexp.quote(EM_CLOSE)}/ CODE_OPEN = '(({' CODE_OPEN_RE = /A#{Regexp.quote(CODE_OPEN)}/ CODE_CLOSE = '}))' CODE_CLOSE_RE = /A#{Regexp.quote(CODE_CLOSE)}/ VAR_OPEN = '((|' VAR_OPEN_RE = /A#{Regexp.quote(VAR_OPEN)}/ VAR_CLOSE = '|))' VAR_CLOSE_RE = /A#{Regexp.quote(VAR_CLOSE)}/ KBD_OPEN = '((%' KBD_OPEN_RE = /A#{Regexp.quote(KBD_OPEN)}/ KBD_CLOSE = '%))' KBD_CLOSE_RE = /A#{Regexp.quote(KBD_CLOSE)}/ INDEX_OPEN = '((:' INDEX_OPEN_RE = /A#{Regexp.quote(INDEX_OPEN)}/ INDEX_CLOSE = ':))' INDEX_CLOSE_RE = /A#{Regexp.quote(INDEX_CLOSE)}/ REF_OPEN = '((<' REF_OPEN_RE = /A#{Regexp.quote(REF_OPEN)}/ REF_CLOSE = '>))' REF_CLOSE_RE = /A#{Regexp.quote(REF_CLOSE)}/ FOOTNOTE_OPEN = '((-' FOOTNOTE_OPEN_RE = /A#{Regexp.quote(FOOTNOTE_OPEN)}/ FOOTNOTE_CLOSE = '-))' FOOTNOTE_CLOSE_RE = /A#{Regexp.quote(FOOTNOTE_CLOSE)}/ VERB_OPEN = “(('” VERB_OPEN_RE = /A#{Regexp.quote(VERB_OPEN)}/ VERB_CLOSE = “'))” VERB_CLOSE_RE = /A#{Regexp.quote(VERB_CLOSE)}/

BAR = “|” BAR_RE = /A#{Regexp.quote(BAR)}/ QUOTE = '“' QUOTE_RE = /A#{Regexp.quote(QUOTE)}/ SLASH = ”/“ SLASH_RE = /A#{Regexp.quote(SLASH)}/ BACK_SLASH = ”\“ BACK_SLASH_RE = /A#{Regexp.quote(BACK_SLASH)}/ URL = ”URL:“ URL_RE = /A#{Regexp.quote(URL)}/

other_re_mode = Regexp::EXTENDED other_re_mode |= Regexp::MULTILINE

OTHER_RE = Regexp.new(

"\\A.+?(?=#{Regexp.quote(EM_OPEN)}|#{Regexp.quote(EM_CLOSE)}|
            #{Regexp.quote(CODE_OPEN)}|#{Regexp.quote(CODE_CLOSE)}|
            #{Regexp.quote(VAR_OPEN)}|#{Regexp.quote(VAR_CLOSE)}|
            #{Regexp.quote(KBD_OPEN)}|#{Regexp.quote(KBD_CLOSE)}|
            #{Regexp.quote(INDEX_OPEN)}|#{Regexp.quote(INDEX_CLOSE)}|
            #{Regexp.quote(REF_OPEN)}|#{Regexp.quote(REF_CLOSE)}|
          #{Regexp.quote(FOOTNOTE_OPEN)}|#{Regexp.quote(FOOTNOTE_CLOSE)}|
            #{Regexp.quote(VERB_OPEN)}|#{Regexp.quote(VERB_CLOSE)}|
            #{Regexp.quote(BAR)}|
            #{Regexp.quote(QUOTE)}|
            #{Regexp.quote(SLASH)}|
            #{Regexp.quote(BACK_SLASH)}|
            #{Regexp.quote(URL)})", other_re_mode)

#

## # Creates a new parser for inline markup in the rd format. The block_parser # is used to for footnotes and labels in the inline text.

def initialize block_parser

@block_parser = block_parser

end

## # Parses the inline text from RD format into RDoc format.

def parse inline

@inline = inline
@src = StringScanner.new inline
@pre = ""
@yydebug = true
do_parse.to_s

end

## # Returns the next token from the inline text

def next_token

return [false, false] if @src.eos?

# p @src.rest if @yydebug

if ret = @src.scan(EM_OPEN_RE)
  @pre << ret
  [:EM_OPEN, ret]
elsif ret = @src.scan(EM_CLOSE_RE)
  @pre << ret
  [:EM_CLOSE, ret]
elsif ret = @src.scan(CODE_OPEN_RE)
  @pre << ret
  [:CODE_OPEN, ret]
elsif ret = @src.scan(CODE_CLOSE_RE)
  @pre << ret
  [:CODE_CLOSE, ret]
elsif ret = @src.scan(VAR_OPEN_RE)
  @pre << ret
  [:VAR_OPEN, ret]
elsif ret = @src.scan(VAR_CLOSE_RE)
  @pre << ret
  [:VAR_CLOSE, ret]
elsif ret = @src.scan(KBD_OPEN_RE)
  @pre << ret
  [:KBD_OPEN, ret]
elsif ret = @src.scan(KBD_CLOSE_RE)
  @pre << ret
  [:KBD_CLOSE, ret]
elsif ret = @src.scan(INDEX_OPEN_RE)
  @pre << ret
  [:INDEX_OPEN, ret]
elsif ret = @src.scan(INDEX_CLOSE_RE)
  @pre << ret
  [:INDEX_CLOSE, ret]
elsif ret = @src.scan(REF_OPEN_RE)
  @pre << ret
  [:REF_OPEN, ret]
elsif ret = @src.scan(REF_CLOSE_RE)
  @pre << ret
  [:REF_CLOSE, ret]
elsif ret = @src.scan(FOOTNOTE_OPEN_RE)
  @pre << ret
  [:FOOTNOTE_OPEN, ret]
elsif ret = @src.scan(FOOTNOTE_CLOSE_RE)
  @pre << ret
  [:FOOTNOTE_CLOSE, ret]
elsif ret = @src.scan(VERB_OPEN_RE)
  @pre << ret
  [:VERB_OPEN, ret]
elsif ret = @src.scan(VERB_CLOSE_RE)
  @pre << ret
  [:VERB_CLOSE, ret]
elsif ret = @src.scan(BAR_RE)
  @pre << ret
  [:BAR, ret]
elsif ret = @src.scan(QUOTE_RE)
  @pre << ret
  [:QUOTE, ret]
elsif ret = @src.scan(SLASH_RE)
  @pre << ret
  [:SLASH, ret]
elsif ret = @src.scan(BACK_SLASH_RE)
  @pre << ret
  [:BACK_SLASH, ret]
elsif ret = @src.scan(URL_RE)
  @pre << ret
  [:URL, ret]
elsif ret = @src.scan(OTHER_RE)
  @pre << ret
  [:OTHER, ret]
else
  ret = @src.rest
  @pre << ret
  @src.terminate
  [:OTHER, ret]
end

end

## # Raises a ParseError when invalid formatting is found

def on_error(et, ev, values)

lines_of_rest = @src.rest.lines.to_a.length
prev_words = prev_words_on_error(ev)
at = 4 + prev_words.length

message = <<-MSG

RD syntax error: line #{@block_parser.line_index - lines_of_rest}: …#{prev_words} #{(ev||'')} #{next_words_on_error()} …

MSG

message << " " * at + "^" * (ev ? ev.length : 0) + "\n"
raise ParseError, message

end

## # Returns words before the error

def prev_words_on_error(ev)

pre = @pre
if ev and /#{Regexp.quote(ev)}$/ =~ pre
  pre = $`
end
last_line(pre)

end

## # Returns the last line of src

def last_line(src)

if n = src.rindex("\n")
  src[(n+1) .. -1]
else
  src
end

end private :last_line

## # Returns words following an error

def next_words_on_error

if n = @src.rest.index("\n")
  @src.rest[0 .. (n-1)]
else
  @src.rest
end

end

## # Creates a new RDoc::RD::Inline for the rdoc markup and the raw reference

def inline rdoc, reference = rdoc

RDoc::RD::Inline.new rdoc, reference

end

# —- header require 'strscan'

class RDoc::RD

## # RD format parser for inline markup such as emphasis, links, footnotes, etc.

—- footer end