-- Copyright 2006-2023 Mitchell. See LICENSE.
-- ASP LPeg lexer.
local lexer = lexer
local P, S = lpeg.P, lpeg.S

local html = lexer.load('html')
local lex = lexer.new(..., {inherit = html}) -- proxy for HTML

-- Embedded VB.
local vb = lexer.load('vb')
local vb_start_rule = lex:tag(lexer.PREPROCESSOR, '<%' * P('=') ^ -1)
local vb_end_rule = lex:tag(lexer.PREPROCESSOR, '%>')
lex:embed(vb, vb_start_rule, vb_end_rule)

-- Embedded VBScript.
local vbs = lexer.load('vb', 'vbscript')
local script_element = lexer.word_match('script', true)
local vbs_start_rule = #('<' * script_element * (P(
                           function(input, index)
        if input:find('^%s+language%s*=%s*(["\'])vbscript%1', index) or
            input:find('^%s+type%s*=%s*(["\'])text/vbscript%1', index) then
            return true
        end
    end) + '>')) * html.embed_start_tag -- <script language="vbscript">
local vbs_end_rule = #('</' * script_element * '>') * html.embed_end_tag -- </script>
lex:embed(vbs, vbs_start_rule, vbs_end_rule)

-- Fold points.
lex:add_fold_point(lexer.PREPROCESSOR, '<%', '%>')

lexer.property['scintillua.comment'] = '<!--|-->'

return lex
