View file File name : routes.aug Content :(* Module: Routes Parses /etc/sysconfig/network/routes *) module Routes = autoload xfm let comment = Util.comment let empty = Util.empty let eol = Util.eol | Util.comment (* Anything that's not a separator is part of a token *) let tok_ch = /[^ \t\n#\\",]|\\\\[^ \t\n]/ let indent = Util.del_ws " " let token = store tok_ch+ let route_token = /[0-9]+[.][0-9]+[.][0-9]+[.][0-9]+/ let mask_token = /[0-9]+/ let column(n:string) = [ label n . token ] let default_route = [ key /default/ . indent . column "gateway" . indent . column "netmask" . indent . column "device" . eol ] let route_entry = [ key route_token . del "/" "/" . [ key mask_token . indent . column "gateway" . indent . column "netmask" . indent . column "device" . eol ] ] let lns = (comment|empty| default_route | route_entry )* let filter = incl "/etc/sysconfig/network/routes" . Util.stdexcl let xfm = transform lns filter