% -*- slang -*-

%  This file provides a mode for editing Debian control files.
%
%  Written by Abraham vd Merwe <abz@blio.com>
%  Basic syntax highligting, nothing else.
%  Last updated: 21 July 2004

variable debian = "debian";

!if (keymap_p (debian)) make_keymap (debian);

% Now create and initialize a syntax table.
create_syntax_table (debian);

define_syntax ("({", ")}", '(',debian);			% parentheses
define_syntax ("0-9a-fA-F.xXL",'0',debian);		% numbers
define_syntax (",;",',',debian);				% delimiters
define_syntax ("+*/%=.&|^~<>!?@:#",'+',debian);	% operators

set_syntax_flags (debian,0x04);

#ifdef HAS_DFA_SYNTAX
static define setup_dfa_callback (name)
{
   dfa_enable_highlight_cache ("debian.dfa",name);

   dfa_define_highlight_rule ("[ \t,][0-9]+(\\.[0-9]+)*","number",name);

   dfa_define_highlight_rule ("^Architecture:","keyword",name);
   dfa_define_highlight_rule ("^Build-Depends:","keyword",name);
   dfa_define_highlight_rule ("^Depends:","keyword",name);
   dfa_define_highlight_rule ("^Description:","keyword",name);
   dfa_define_highlight_rule ("^Maintainer:","keyword",name);
   dfa_define_highlight_rule ("^Package:","keyword",name);
   dfa_define_highlight_rule ("^Priority:","keyword",name);
   dfa_define_highlight_rule ("^Section:","keyword",name);
   dfa_define_highlight_rule ("^Source:","keyword",name);
   dfa_define_highlight_rule ("^Standards-Version:","keyword",name);
   dfa_define_highlight_rule ("^Suggests:","keyword",name);
   dfa_define_highlight_rule ("^Conflicts:","keyword",name);
   dfa_define_highlight_rule ("^Replaces:","keyword",name);
   dfa_define_highlight_rule ("^Recommends:","keyword",name);
   dfa_define_highlight_rule ("^Enhances:","keyword",name);

   dfa_build_highlight_table (name);
}
dfa_set_init_callback (&setup_dfa_callback,debian);
#endif

define debian_mode ()
{
   variable kmap = debian;
   set_mode (kmap,4);
   use_keymap (kmap);
   use_syntax_table (kmap);
}