1 (* Parsing /etc/inittab *)
5 let sep = Util.del_str ":"
6 let eol = Util.del_str "\n"
8 let id = /[^\/#:\n]{1,4}/
11 let comment = Util.comment|Util.empty
14 let field (name:string) = [ label name . store value ] in
15 let process = [ label "process" . store /[^#\n]*/ ] in
17 [ label "#comment" . del /#[ \t]*/ "# "
18 . store /([^ \t\n].*[^ \t\n]|[^ \t\n]?)/ ] in
20 field "runlevels" . sep .
21 field "action" . sep .
22 process . eolcomment? . eol ]
24 let lns = ( comment | record ) *
26 let xfm = transform lns (incl "/etc/inittab")
29 (* Local Variables: *)