Permalink
Browse files

support one char values

  • Loading branch information...
1 parent 1099280 commit 78c548b7ab8613965ad839b6a9fb8e41946e159b @domenkozar committed Nov 13, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 bacula.aug
View
@@ -29,7 +29,7 @@ module Bacula =
let key_name = /[a-zA-Z][a-zA-Z ]+[a-zA-Z]/
let dquote = del /"?/ "\""
- let val = dquote . store /[^}"#\n\t; ][^}"#\n;]*[^}"#\n\t; ]/ . dquote
+ let val = dquote . store /[^}"#\n\t; ]([^}"#\n;]*[^}"#\n\t; ])?/ . dquote
let keyvalue = key key_name . equal . val
let include = label "@include" . Util.del_str "@" . store /[^# \t\n@};]+/
@@ -101,10 +101,10 @@ module Bacula =
{"Pid Directory" = "kaki sd"}
}
- (* edge case in key *)
+ (* one char value *)
test Bacula.lns get "Storage {\n Maximum Concurrent Jobs = 1\n}" =
{"@block" = "Storage"
- {"Name" = "kaki-sd" }
+ {"Maximum Concurrent Jobs" = "1" }
}
(* semicolon *)

0 comments on commit 78c548b

Please sign in to comment.