lenses/dhclient.aug

   1 (* Intefraces module for Augeas
   2    Author: Free Ekanayaka <free@64studio.com>
   3
   4    Reference: man dhclient.conf
   5    The only difference with the reference syntax is that this lens assumes
   6    that statements end with a new line, while the reference syntax allows
   7    new statements to be started right after the trailing ";" of the
   8    previous statement. This should not be a problem in real-life
   9    configuration files as statements get usually splitted across several
  10    lines, rather than merged in a single one.
  11
  12 *)
  13
  14 module Dhclient =
  15
  16    autoload xfm
  17
  18 (************************************************************************
  19  *                           USEFUL PRIMITIVES
  20  *************************************************************************)
  21
  22 let eol               = Util.eol
  23 let comment           = Util.comment
  24 let comment_or_eol    = Util.comment_or_eol
  25 let empty             = Util.empty
  26
  27 (* Define separators *)
  28 let sep_spc           = del /[ \t\n]+/ " "
  29 let sep_scl           = del /[ \t]*;/ ";"
  30 let sep_obr           = del /[ \t\n]*\{\n]*/ " {\n"
  31 let sep_cbr           = del /[ \t\n]*\}/ " }"
  32 let sep_com           = del /[ \t\n]*,[ \t\n]*/ ","
  33 let sep_slh           = del "\/" "/"
  34 let sep_col           = del ":" ":"
  35 let sep_eq            = del /[ \t]*=[ \t]*/ "="
  36
  37 (* Define basic types *)
  38 let word              = /[A-Za-z0-9_.-]+(\[[0-9]+\])?/
  39
  40 (* Define fields *)
  41
  42 (* TODO: there could be a " " in the middle of a value ... *)
  43 let sto_to_spc        = store /[^\\#,;{}" \t\n]+|"[^\\#"\n]+"/
  44 let sto_to_spc_noeval = store /[^=\\#,;{}" \t\n]|[^=\\#,;{}" \t\n][^\\#,;{}" \t\n]*|"[^\\#"\n]+"/
  45 let sto_to_scl        = store /[^ \t\n][^;\n]+[^ \t]|[^ \t;\n]+/
  46 let rfc_code          = [ key "code" . sep_spc . store word ]
  47                       . sep_eq
  48                       . [ label "value" . sto_to_scl ]
  49 let eval              = [ label "#eval" . Sep.equal . sep_spc . sto_to_scl ]
  50 let sto_number        = store /[0-9][0-9]*/
  51
  52 (************************************************************************
  53  *                         SIMPLE STATEMENTS
  54  *************************************************************************)
  55
  56 let stmt_simple_re    = "timeout"
  57                       | "retry"
  58                       | "select-timeout"
  59                       | "reboot"
  60                       | "backoff-cutoff"
  61                       | "initial-interval"
  62                       | "do-forward-updates"
  63                       | "reject"
  64
  65 let stmt_simple       = [ key stmt_simple_re
  66                         . sep_spc
  67                         . sto_to_spc
  68                         . sep_scl
  69                         . comment_or_eol ]
  70
  71
  72 (************************************************************************
  73  *                          ARRAY STATEMENTS
  74  *************************************************************************)
  75
  76 (* TODO: the array could also be empty, like in the request statement *)
  77 let stmt_array_re     = "media"
  78                       | "request"
  79                       | "require"
  80
  81 let stmt_array        = [ key stmt_array_re
  82                         . sep_spc
  83                         . counter "stmt_array"
  84                         . [ seq "stmt_array" . sto_to_spc ]
  85                         . [ sep_com . seq "stmt_array" . sto_to_spc ]*
  86                         . sep_scl . comment_or_eol ]
  87
  88 (************************************************************************
  89  *                          HASH STATEMENTS
  90  *************************************************************************)
  91
  92
  93 let stmt_hash_re      = "send"
  94                       | "option"
  95
  96 let stmt_hash         = [ key stmt_hash_re
  97                         . sep_spc
  98                         . ( [ key word . sep_spc . sto_to_spc_noeval ]
  99                           | [ key word . sep_spc . (rfc_code|eval) ] )
 100                         . sep_scl
 101                         . comment_or_eol ]
 102
 103 let stmt_opt_mod_re   = "append"
 104                       | "prepend"
 105                       | "default"
 106                       | "supersede"
 107
 108 let stmt_opt_mod      = [ key stmt_opt_mod_re . sep_spc . stmt_hash ]
 109
 110 (************************************************************************
 111  *                         BLOCK STATEMENTS
 112  *************************************************************************)
 113
 114 let stmt_block_re     = "interface"
 115                       | "lease"
 116                       | "alias"
 117
 118 let stmt_block_opt_re = "interface"
 119                       | "script"
 120                       | "bootp"
 121                       | "fixed-address"
 122                       | "filename"
 123                       | "server-name"
 124                       | "medium"
 125                       | "vendor option space"
 126
 127 (* TODO: some options could take no argument like bootp *)
 128 let stmt_block_opt    = [ key stmt_block_opt_re
 129                          . sep_spc
 130                          . sto_to_spc
 131                          . sep_scl
 132                          . comment_or_eol ]
 133
 134 let stmt_block_date_re
 135                       = "renew"
 136                       | "rebind"
 137                       | "expire"
 138
 139 let stmt_block_date   = [ key stmt_block_date_re
 140                         . [ sep_spc . label "weekday" . sto_number ]
 141                         . [ sep_spc . label "year"    . sto_number ]
 142                         . [ sep_slh . label "month"   . sto_number ]
 143                         . [ sep_slh . label "day"     . sto_number ]
 144                         . [ sep_spc . label "hour"    . sto_number ]
 145                         . [ sep_col . label "minute"  . sto_number ]
 146                         . [ sep_col . label "second"  . sto_number ]
 147                         . sep_scl
 148                         . comment_or_eol ]
 149
 150 let stmt_block_arg    = sep_spc . sto_to_spc
 151
 152 let stmt_block_entry  = sep_spc
 153                       . ( stmt_array
 154                         | stmt_hash
 155                         | stmt_opt_mod
 156                         | stmt_block_opt
 157                         | stmt_block_date )
 158
 159 let stmt_block        = [ key stmt_block_re
 160                         . stmt_block_arg?
 161                         . sep_obr
 162                         . stmt_block_entry+
 163                         . sep_cbr
 164                         . comment_or_eol ]
 165
 166 (************************************************************************
 167  *                              LENS & FILTER
 168  *************************************************************************)
 169
 170 let statement = (stmt_simple|stmt_opt_mod|stmt_array|stmt_hash|stmt_block)
 171
 172 let lns               = ( empty
 173                         | comment
 174                         | statement )*
 175
 176 let filter            = incl "/etc/dhcp3/dhclient.conf"
 177                       . incl "/etc/dhcp/dhclient.conf"
 178                       . incl "/etc/dhclient.conf"
 179
 180 let xfm                = transform lns filter