% -*- slang -*-

% This file provides a mode for editing Frogfoot Networks RWhois server
%  configuration files.
% This mode requires DFA syntax highlighting and jed >= 0.99.14
%
% Copyright (C) 2004 Abraham vd Merwe <abz@blio.com>
%
% Last updated: 2004-01-11

variable rwhoisd = "rwhoisd";

create_syntax_table (rwhoisd);
set_syntax_flags (rwhoisd,0x04);

% colors
set_color ("keyword","brightblue","black");
set_color ("keyword1","yellow","black");
set_color ("operator","brown","black");
set_color ("preprocess","cyan","black");
set_color ("number","green","black");
set_color ("string","red","black");
set_color ("...","lightgray","black");

#ifdef HAS_DFA_SYNTAX
%%% DFA_CACHE_BEGIN %%%

static define setup_dfa_callback (name)
{
   % DFA color rules
   dfa_enable_highlight_cache ("rwhoisd.dfa",name);

   % numbers
   dfa_define_highlight_rule ("[0-9]+","number",name);

   % comments
   dfa_define_highlight_rule ("#.*","comment",name);

   % commands
   %dfa_define_highlight_rule ("user|group|pidfile|listen|allow","keyword",name);
   dfa_define_highlight_rule ("timeout|limit|hostname|contact","keyword",name);
   dfa_define_highlight_rule ("ldaphost|basedn|binddn|bindpw","keyword",name);

   % values
   %dfa_define_highlight_rule ("post|fetch","keyword1",name);

   % strings
   dfa_define_highlight_rule ("\"[^\"]*\"","string",name);

   % networks
   dfa_define_highlight_rule ("[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+(/[0-9]+)?","preprocess",name);

   % conditional directives
   %dfa_define_highlight_rule ("ifdef|endif","operator",name);

   % the rest
   dfa_define_highlight_rule ("[a-zA-Z0-9]([0-9a-zA-Z_]|\\.|-)*","...",name);

   dfa_build_highlight_table(name);
}
dfa_set_init_callback (&setup_dfa_callback, "rwhoisd");
%%% DFA_CACHE_END %%%
#endif

define rwhoisd_mode ()
{
   set_mode (rwhoisd,4);
   use_syntax_table (rwhoisd);
}