lenses/inittab.aug

   1 (* Parsing /etc/inittab *)
   2 module Inittab =
   3    autoload xfm
   4
   5    let sep = Util.del_str ":"
   6    let eol = Util.del_str "\n"
   7
   8    let id = /[^\/#:\n]{1,4}/
   9    let value = /[^#:\n]*/
  10
  11    let comment = Util.comment|Util.empty
  12
  13    let record =
  14      let field (name:string) = [ label name . store value ] in
  15      let process = [ label "process" . store /[^#\n]*/ ] in
  16      let eolcomment =
  17        [ label "#comment" . del /#[ \t]*/ "# "
  18            . store /([^ \t\n].*[^ \t\n]|[^ \t\n]?)/ ] in
  19        [ key id . sep .
  20            field "runlevels" . sep .
  21            field "action" . sep .
  22            process . eolcomment? . eol ]
  23
  24    let lns = ( comment | record ) *
  25
  26    let xfm = transform lns (incl "/etc/inittab")
  27
  28
  29 (* Local Variables: *)
  30 (* mode: caml       *)
  31 (* End:             *)