class Rouge::Lexers::TCL

def self.gen_delimiter_states(name, close, opts={})
  gen_command_state("_in_#{name}")
  state :"params_in_#{name}" do
    rule close do
      token Punctuation
      pop! 2
    end
    # mismatched delimiters.  Braced strings with mismatched
    # closing delimiters should be okay, since this is standard
    # practice, like {]]]]}
    if opts[:strict]
      rule CHARS[CLOSE - [close]], Error
    else
      rule CHARS[CLOSE - [close]], Text
    end
    mixin :params
  end
  state name do
    rule close, Punctuation, :pop!
    mixin :"command_in_#{name}"
  end
end