parser: use single-quotes in config

[lisp-parkour.git] / parser / scheme / init.lua

require'lpeg'
local lpeg = lpeg
local P, S, R = lpeg.P, lpeg.S, lpeg.R

-- TODO: add more prefixes
local macro_prefix =
        P'#' * (
                S'us' * ('8' + '16' + '32' + '64') --[[+ P'f' * ('32' + '64')]] +
                R'09'^0 * 'vu8' +
                R'09'^1 +
                ';') +
        P'#'^-1 * (P',@' + S",`'") +
        '#'

local opposite = {
        ['('] = ')',
        [')'] = '(',
        ['{'] = '}',
        ['}'] = '{',
        ['['] = ']',
        [']'] = '[',
        ['"'] = '"',
        ['|'] = '|',
        [';']  = '\n',
        ['\n']  = ';',
        ['#|'] = '|#',
}

return {
        prefix = macro_prefix,
        opposite = opposite,
}