(* Module Jaas *)
(* Author: Simon Vocella <voxsim@gmail.com> *)
module Jaas =
autoload xfm
let space_equal = del (/[ \t]*/ . "=" . /[ \t]*/) (" = ")
let lbrace = del (/[ \t\n]*/ . "{") "{"
let rbrace = del ("};") "};"
let word = /[A-Za-z0-9_.-]+/
let wordonly = /[A-Za-z0-9_.-]+;/
let value_re =
let value_squote = /'[^\n']*'/
in let value_squote_2 = /'[^\n']*';/
in let value_dquote = /"[^\n"]*"/
in let value_dquote_2 = /"[^\n"]*";/
in let value_tf = /(true|false);/
in let value_tf_2 = /(true|false);/
in value_squote | value_squote_2 | value_dquote | value_dquote_2 | value_tf | value_tf_2
let moduleOption = [Util.del_opt_ws "" . key word . space_equal . (store value_re . Util.comment_or_eol)]
let flag = [label "flag" . ((store word . Util.eol . moduleOption+) | (store wordonly . Util.eol))]
let loginModuleClass = [Util.del_opt_ws "" . label "loginModuleClass" . (store word . Util.del_ws_spc) . flag]
let content = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModuleClass)*
let loginModule = [Util.del_opt_ws "" . label "login" . (store word . lbrace) . (content . rbrace)]
let lns = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModule)*
let filter = incl "/opt/shibboleth-idp/conf/login.config"
let xfm = transform lns filter