# -*- coding: utf-8 -*- #
# frozen_string_literal: true

module Rouge
  module Lexers
    class Lustre < RegexLexer
      title "Lustre"
      desc 'The Lustre programming language (Verimag)'
      tag 'lustre'
      filenames '*.lus'
      mimetypes 'text/x-lustre'

      def self.keywords
        @keywords ||= Set.new %w(
          extern unsafe assert const current enum function let node operator
          returns step struct tel type var model package needs provides uses is
          body end include merge
        )
      end

      def self.word_operators
        @word_operators ||= Set.new %w(
          div and xor mod or not nor if then else fby pre when with
        )
      end

      def self.primitives
        @primitives ||= Set.new %w(int real bool)
      end

      operator = %r([,!$%&*+./:<=>?@^|~#-]+)
      id = /[a-z_][\w']*/i

      state :root do
        rule %r/\s+/m, Text
        rule %r/false|true/, Keyword::Constant
        rule %r(\-\-.*), Comment::Single
        rule %r(/\*.*?\*/)m, Comment::Multiline
        rule %r(\(\*.*?\*\))m, Comment::Multiline
        rule id do |m|
          match = m[0]
          if self.class.keywords.include? match
            token Keyword
          elsif self.class.word_operators.include? match
            token Operator::Word
          elsif self.class.primitives.include? match
            token Keyword::Type
          else
            token Name
          end
        end

        rule %r/[(){}\[\];]+/, Punctuation
        rule operator, Operator

        rule %r/-?\d[\d_]*(.[\d_]*)?(e[+-]?\d[\d_]*)/i, Num::Float
        rule %r/\d[\d_]*/, Num::Integer

        rule %r/'(?:(\\[\\"'ntbr ])|(\\[0-9]{3})|(\\x\h{2}))'/, Str::Char
        rule %r/'[.]'/, Str::Char
        rule %r/"/, Str::Double, :string
        rule %r/[~?]#{id}/, Name::Variable
      end

      state :string do
        rule %r/[^\\"]+/, Str::Double
        mixin :escape_sequence
        rule %r/\\\n/, Str::Double
        rule %r/"/, Str::Double, :pop!
      end

      state :escape_sequence do
        rule %r/\\[\\"'ntbr]/, Str::Escape
        rule %r/\\\d{3}/, Str::Escape
        rule %r/\\x\h{2}/, Str::Escape
      end
    end
  end
end