ts-parser-pod 1.1.0

Pod grammar for tree-sitter
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

module.exports = grammar({
  name: 'pod',
  externals: $ => [
    $._eol,
    $._start_command,
    $._start_plain,
    $._start_verbatim,
    $._content_plain,
    $._intseq_letter,
    $._intseq_start,
    $._intseq_end,
    $._data_section,
    $._intseq_escape_letter,
  ],
  rules: {
    pod: $ => repeat(choice(
      $.pod_paragraph,

      $.begin_paragraph,
      $.for_paragraph,
      $.command_paragraph,

      $.plain_paragraph,
      $.verbatim_paragraph,

      // We don't really stop at a `=cut` but it's handy for highlighting purposes
      $.cut_paragraph,

      $._blank_line
    )),

    _blank_line: $ => /\r?\n/,

    pod_paragraph: $ => seq($._start_command, $.pod_command, $._eol),
    pod_command: $ => '=pod',

    begin_paragraph: $ => seq(
      $._start_command, $.begin_command, /[ \t]+/, field('format', $.format_name), $._eol,
      alias($._data_section, $.data),
      $._start_command, $.end_command, /[ \t]+/, $.format_name, $._eol,
    ),
    begin_command: $ => '=begin',
    end_command: $ => '=end',

    for_paragraph: $ => seq(
      $._start_command, $.for_command, /[ \t]+/, field('format', $.format_name),
      optional(seq(/[ \t]+/, alias($._content_plain, $.content))),
      $._eol,
    ),
    for_command: $ => '=for',

    format_name: $ => /[a-zA-Z:]\S*/,

    // \s includes linefeed; tree-sitter doesn't seem to recognise \h for "horizontal whitespace
    command_paragraph: $ => seq($._start_command, field('command', $.command), /[ \t]*/, optional($.content), $._eol),
    command: $ => token(/=[a-zA-Z]\S*/),

    plain_paragraph: $ => seq($._start_plain, $.content, $._eol),

    verbatim_paragraph: $ => seq($._start_verbatim, alias($._content_plain, $.content), $._eol),

    cut_paragraph: $ => seq($._start_command, $.cut_command, $._eol),
    cut_command: $ => '=cut',

    content: $ => $._content,
    _content: $ => repeat1(choice($._content_plain, $.interior_sequence, $.escape_sequence)),

    interior_sequence: $ => seq(
      field('letter', $.sequence_letter),
      alias($._intseq_start, '<'),
      optional($.content),
      alias($._intseq_end, '>'),
    ),
    sequence_letter: $ => $._intseq_letter,

    // E<...> is always an escape sequence; its content is an entity name or
    // number (e.g. lt, gt, copy, 0x263A), not nested Pod markup. The content
    // is a repeat1 of plain tokens (rather than a single one) so that the
    // scanner always sees TOKEN_CONTENT_PLAIN co-valid with TOKEN_INTSEQ_END,
    // which is the condition under which it will emit the closing '>'.
    escape_sequence: $ => seq(
      field('letter', alias($._intseq_escape_letter, $.sequence_letter)),
      alias($._intseq_start, '<'),
      optional(alias($._escape_content, $.content)),
      alias($._intseq_end, '>'),
    ),
    _escape_content: $ => repeat1($._content_plain),
  },
})