kamailio.cfg fomatter - sr-users

10 Dec 2020

After noticing that emacs mode is missing, below is my first cut of
kamailio-mode.el.

-- Juha

-----------------------------------------------------------------------

;; kamailio mode for emacs (function list is not complete)

;; activate by starting your kamailio.cfg with this kind of line:

;; #-*-mode: kamailio; tab-width: 4; c-basic-offset: 4;

(setq kamailio-font-lock-keywords
      (let* (
            ;; define several category of keywords
            (x-keywords '("branch_route" "break" "case"
"default" "else" "event_route" "exit"
"failure_route" "for" "if" "loadmodule"
"onreply_route" "onsend_route" "reply_route"
"request_route" "return" "route" "switch"
"while"))
            (x-types '())
            (x-constants '())
            (x-events '())
            (x-functions '("acc_db_request" "add_path_received"
"add_rr_param" "allow_routing" "allow_trusted"
"append_hf" "append_to_reply" "avp_check"
"avp_delete" "change_reply_status" "check_route_param"
"defined" "dp_translate" "ERROR" "fix_nated_sdp"
"force_send_socket" "forward" "get_redirects"
"handle_ruri_alias" "inactivate_gw" "INFO"
"in_list" "isflagset" "is_avp_set" "isbflagset"
"is_direction" "is_domain_local" "is_e164"
"is_gflag" "is_gruu" "is_method" "is_numeric"
"is_present_hf" "jsonrpc_dispatch" "load_gws"
"lookup_domain" "lookup" "loose_route" "modparam"
"mt_match" "NOTICE" "proxy_challenge"
"record_route" "redirecting" "remove_hf"
"resetflag" "rtpengine_answer" "rtpengine_delete"
"rtpengine_offer" "save" "sdp_content"
"sdp_transport" "send_reply_mode" "send_reply"
"setbflag" "setflag" "setxflag" "set_reply_close"
"set_reply_no_connect" "set_rtpengine_set" "set_uri_host"
"set_uri_user" "set_forward_no_connect" "sql_query"
"sql_result_free" "starts_with" "subst_uri"
"tel2sip" "t_check_status" "t_is_canceled"
"t_load_contacts" "t_next_contacts" "t_on_branch"
"t_on_failure" "t_on_reply" "t_relay_cancel"
"t_relay" "t_set_fr" "unregister" "WARN"
"ws_handle_handshake" "www_challenge" "xhttp_reply"))
            (x-keywords-regexp (regexp-opt x-keywords 'words))
            (x-types-regexp (regexp-opt x-types 'words))
            (x-constants-regexp (regexp-opt x-constants 'words))
            (x-events-regexp (regexp-opt x-events 'words))
            (x-functions-regexp (regexp-opt x-functions 'words)))
        `(
          (,x-types-regexp . font-lock-type-face)
          (,x-constants-regexp . font-lock-constant-face)
          (,x-events-regexp . font-lock-builtin-face)
          (,x-functions-regexp . font-lock-function-name-face)
          (,x-keywords-regexp . font-lock-keyword-face)
          )))

(defvar kamailio-mode-syntax-table nil "Syntax table for
`kamailio-mode'.")

(setq kamailio-mode-syntax-table
      (let ( (synTable (make-syntax-table)))
        ;; python style comment: “# …”
        (modify-syntax-entry ?# "<" synTable)
        (modify-syntax-entry ?\n ">" synTable)
        synTable))

(define-derived-mode kamailio-mode c-mode "kamailio mode"
  "Major mode for editing Kamailio configuration files"
  (setq font-lock-defaults '((kamailio-font-lock-keywords)))
  (set-syntax-table kamailio-mode-syntax-table))

(provide 'kamailio-mode)