Sharp.Augeas/Sharp.Augeas.Test/lens/nginx.aug

135 lines
3.7 KiB
Plaintext
Raw Permalink Normal View History

2022-11-08 20:57:02 +03:00
(* Module: Nginx
Nginx module for Augeas
Authors: Ian Berry <iberry@barracuda.com>
Raphael Pinson <raphael.pinson@camptocamp.com>
About: Reference
This module was built to support a limited subset of nginx
configuration syntax. It works fine with simple blocks and
field/value lines.
About: License
This file is licenced under the LGPL v2+, like the rest of Augeas.
About: Lens Usage
To be documented
About: Configuration files
This lens applies to /etc/nginx/nginx.conf. See <filter>.
About: Examples
The <Test_Nginx> file contains various examples and tests.
About: TODO
* Convert statement keyworks for a regex
* Support more advanced block syntax (location)
*)
module Nginx =
autoload xfm
(* Variable: word *)
let word = /[A-Za-z0-9_.:-]+/
(* Variable: block_re
The keywords reserved for block entries *)
let block_re = "http" | "events" | "server" | "mail" | "stream"
(* All block keywords, including the ones we treat specially *)
let block_re_all = block_re | "if" | "location" | "geo" | "map"
| "split_clients" | "upstream"
(* View: simple
A simple entry *)
let simple =
let kw = word - block_re_all
in let mask = [ label "mask" . Util.del_str "/" . store Rx.integer ]
in let sto = store /[^ \t\n;#]([^";#]|"[^"]*\")*/
in [ Util.indent .
key kw . mask? .
(Sep.space . sto)? . Sep.semicolon .
(Util.eol|Util.comment_eol) ]
(* View: server
A simple server entry *)
let server =
let address = /[A-Za-z0-9_.:\/-]+/
in [ Util.indent . label "@server" . Util.del_str "server"
. [ Sep.space . label "@address" . store address ]
. [ Sep.space . key word . (Sep.equal . store word)? ]*
. Sep.semicolon
. (Util.eol|Util.comment_eol) ]
let arg (name:string) (rx:regexp) =
[ label name . Sep.space . store rx ]
(* Match any argument (as much as possible) *)
let any_rx =
let bare_rx = /[^" \t\n{][^ \t\n{]*/ in
let dquote_rx = /"([^\"]|\\.)*"/ in
bare_rx | dquote_rx
let any_arg (name:string) = arg name any_rx
(* 'if' conditions are enclosed in matching parens which we can't match
precisely with a regular expression. Instead, we gobble up anything that
doesn't contain an opening brace. That can of course lead to trouble if
a condition actually contains an opening brace *)
let block_if = key "if"
. arg "#cond" /\(([^ \t\n{]|[ \t\n][^{])*\)/
let block_location = key "location"
. (arg "#comp" /=|~|~\*|\^~/)?
. any_arg "#uri"
let block_geo = key "geo"
. (any_arg "#address")?
. any_arg "#geo"
let block_map = key "map"
. any_arg "#source"
. any_arg "#variable"
let block_split_clients = key "split_clients"
. any_arg "#string"
. any_arg "#variable"
let block_upstream = key "upstream"
. any_arg "#name"
let block_head = key block_re
| block_if
| block_location
| block_geo
| block_map
| block_split_clients
| block_upstream
(* View: block
A block containing <simple> entries *)
let block (entry : lens) =
[ Util.indent . block_head
. Build.block_newlines entry Util.comment
. Util.eol ]
let rec directive = simple | server | block directive
(* View: lns *)
let lns = ( Util.comment | Util.empty | directive )*
(* Variable: filter *)
let filter = incl "/etc/nginx/nginx.conf"
. incl "/etc/nginx/conf.d/*.conf"
. incl "/etc/nginx/sites-available/*"
. incl "/etc/nginx/sites-enabled/*"
. incl "/usr/portage/www-servers/nginx/files/nginx.conf"
. incl "/usr/local/etc/nginx/nginx.conf"
. incl "/usr/local/etc/nginx/conf.d/*.conf"
. incl "/usr/local/etc/nginx/sites-available/*"
. incl "/usr/local/etc/nginx/sites-enabled/*"
let xfm = transform lns filter