lenses/devfsrules.aug

   1 module DevfsRules =
   2
   3   autoload xfm
   4
   5   let comment  = IniFile.comment IniFile.comment_re "#"
   6
   7   let eol = Util.eol
   8
   9   let line_re = /[^][#; \t\n][^#;\n]*[^#; \t\n]/
  10   let entry = [ seq "entry" . store line_re . (eol | comment) ]
  11
  12   let title = Util.del_str "["
  13             . key Rx.word . [ label "id" . Sep.equal . store Rx.integer ]
  14             . Util.del_str "]" . eol
  15             . counter "entry"
  16
  17   let record = IniFile.record title (entry | comment)
  18
  19   let lns = IniFile.lns record comment
  20
  21   let filter = incl "/etc/defaults/devfs.rules"
  22             .  incl "/etc/devfs.rules"
  23
  24   let xfm = transform lns filter