Edit File: inittab.aug
(* Parsing /etc/inittab *) module Inittab = autoload xfm let sep = Util.del_str ":" let eol = Util.del_str "\n" let id = /[^\/#:\n]{1,4}/ let value = /[^#:\n]*/ let comment = Util.comment|Util.empty let record = let field (name:string) = [ label name . store value ] in let process = [ label "process" . store /[^#\n]*/ ] in let eolcomment = [ label "#comment" . del /#[ \t]*/ "# " . store /([^ \t\n].*[^ \t\n]|[^ \t\n]?)/ ] in [ key id . sep . field "runlevels" . sep . field "action" . sep . process . eolcomment? . eol ] let lns = ( comment | record ) * let xfm = transform lns (incl "/etc/inittab") (* Local Variables: *) (* mode: caml *) (* End: *)