bp/grammars/builtins.bpeg

yes: ''
no: !''

# Configurable options:
is-tty: no # Defined as either always-match or always-fail, depending on stdout
print-line-numbers: is-tty
print-filenames: is-tty
highlight: is-tty
include-binary-files: no;
is-text-file: ^^ >32(\t/\n/\r/\x20-x7e/!\x00-x7f utf8-codepoint/$$)

# Meta-rules for acting on everything:
pattern: !'' # Not defined by default
replacement: !'' # Not defined by default
replace-all: (
    (include-binary-files / is-text-file)
    define-highlights
    add-filename
    0+(...(>pattern hl-replacement)) ...
)
find-all: (
    (include-binary-files / is-text-file)
    define-highlights
    add-filename
    0+ (!..pattern {..\n=>})
    1+ (>..pattern add-line-number 1+(..hl-pattern) ..\n / {..\n=>})
    [{!<\n => "\n"}]
)
only-matches: (
    (include-binary-files / is-text-file)
    define-highlights
    add-filename
    1+{...@hl-pattern =>'@1\n'}
)
add-filename: [print-filenames (is-tty {=>"\033[33;1;4m@&:\033[0m\n"} / {=>"@&:\n"})]
add-line-number: [print-line-numbers (is-tty {=>"\033[2m@#\033[5G|\033[0m "} / {=>"@#| "})]
hl-pattern: {@match=pattern define-highlights => "@hl-start;@match;@hl-end;"}
hl-replacement: {@match=replacement define-highlights => "@hl-start;@match;@hl-end;" }
define-highlights: highlight @hl-start={=>"\033[31;1m"} @hl-end={=>"\033[0m"} / @hl-start="" @hl-end=""

# Helper definitions (commonly used)
#(
url: (
    "file://" 1+(`/ 0+url-char)
    / "mailto:" email
    / ("https"/"http"/"ftp") "://" [1+url-char [`: 1+url-char] `@] (ipv4/ipv6/domain) [`: int] [url-path]
)
url-path: 1+(`/ 0+url-char) [`? 1+(1+url-char`=1+url-char]
ipv4: 4 int % `.
ipv6: 8 (4 Hex) % `:
domain: 1+(Abc/digit/`-)%`.
url-char: Abc/digit/`$/`-/`_/`./`+/`!/`*/`'/`(/`)/`,/`%

url: @(https?|ftp)://(-\.)?([^\s/?\.#-]+\.?)+(/[^\s]*)?$@iS
)#
indent: \n|1+(\t/' ')
dedent: $ !(\n|)
indented-block: |` ..$ 0+(\n|..$)
utf8-codepoint: (
      \x00-x7f
    / \xc0-xdf 1\x80-xbf
    / \xe0-xef 2\x80-xbf
    / \xf0-xf7 3\x80-xbf
)
crlf: \r\n
cr: \r
anglebraces: `< 0+(anglebraces / !`>$.) `>
brackets: `[ 0+(brackets / !`]$.) `]
braces: `{ 0+(braces / !`}$.) `}
parens: `( 0+(parens / !`)$.) `)
id: !<(`a-z/`A-Z/`_/`0-9) (`a-z/`A-Z/`_) 0+(`a-z/`A-Z/`_/`0-9)
id-char: `a-z/`A-Z/`_/`0-9
word: !<(`a-z/`A-Z/`_/`0-9) 1+(`a-z/`A-Z) !>(`0-9/`_)
HEX: `0-9/`A-F
Hex: `0-9/`a-f/`A-F
hex: `0-9/`a-f
number: 1+`0-9 [`. 0+`0-9] / `. 1+`0-9
int: 1+`0-9
digit: `0-9
Abc: `a-z/`A-Z
ABC: `A-Z
abc: `a-z
esc: \e
tab: \t
nl: \n; lf: \n
c-block-comment: '/*' ... '*/'
c-line-comment: '//' ..$
c-comment: c-line-comment / c-block-comment
hash-comment: `# ..$
comment: !''; # No default definition, can be overridden
WS: ` /\t/\n/\r/comment
ws: ` /\t
$$: !$.
$:  !.
^^: !<$.
^:  !<.
__: 0+(` /\t/\n/\r/comment)
_:  0+(` /\t)