mirror of
git://projects.qi-hardware.com/openwrt-xburst.git
synced 2024-12-11 14:33:08 +02:00
161 lines
4.2 KiB
Awk
161 lines
4.2 KiB
Awk
|
# Configuration update functions
|
||
|
#
|
||
|
# Copyright (C) 2006 by Fokus Fraunhofer <carsten.tittel@fokus.fraunhofer.de>
|
||
|
# Copyright (C) 2006 by Felix Fietkau <nbd@openwrt.org>
|
||
|
#
|
||
|
# This program is free software; you can redistribute it and/or modify
|
||
|
# it under the terms of the GNU General Public License as published by
|
||
|
# the Free Software Foundation; either version 2 of the License, or
|
||
|
# (at your option) any later version.
|
||
|
#
|
||
|
# This program is distributed in the hope that it will be useful,
|
||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
|
# General Public License for more details.
|
||
|
#
|
||
|
# You should have received a copy of the GNU General Public License
|
||
|
# along with this program; if not, write to the Free Software
|
||
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||
|
|
||
|
|
||
|
function read_file(filename, result) {
|
||
|
while ((getline <filename) == 1) {
|
||
|
result = result $0 "\n"
|
||
|
}
|
||
|
gsub(/\n*$/, "", result)
|
||
|
return result
|
||
|
}
|
||
|
|
||
|
function cmd2option(str, tmp) {
|
||
|
if (match(str,"=")!=0) {
|
||
|
res = "\toption " substr(str,1,RSTART-1) "\t'" substr(str,RSTART+1) "'"
|
||
|
} else {
|
||
|
res= ""
|
||
|
}
|
||
|
return res
|
||
|
}
|
||
|
|
||
|
function cmd2config(atype, aname) {
|
||
|
return "config \"" atype "\" \"" aname "\""
|
||
|
}
|
||
|
|
||
|
function update_config(cfg, update, \
|
||
|
lines, line, l, n, i, i2, section, scnt, remove, tmp, aidx, rest) {
|
||
|
scnt = 1
|
||
|
linecnt=split(cfg "\n", lines, "\n")
|
||
|
|
||
|
cfg = ""
|
||
|
for (n = 1; n < linecnt; n++) {
|
||
|
# stupid parser for quoted arguments (e.g. for the type string).
|
||
|
# not to be used to gather variable values (backslash escaping doesn't work)
|
||
|
line = lines[n]
|
||
|
gsub(/^[ \t]*/, "", line)
|
||
|
gsub(/#.*$/, "", line)
|
||
|
i2 = 1
|
||
|
delete l
|
||
|
rest = line
|
||
|
while (length(rest)) {
|
||
|
if (match(rest, /[ \t\"]+/)) {
|
||
|
if (RSTART>1) {
|
||
|
l[i2] = substr(rest,1,RSTART-1)
|
||
|
i2++
|
||
|
}
|
||
|
aidx=index(rest,"\"")
|
||
|
if (aidx>=RSTART && aidx<=RSTART+RLENGTH) {
|
||
|
rest=substr(rest,aidx+1)
|
||
|
# find the end of the string
|
||
|
match(rest,/\"/)
|
||
|
l[i2]=substr(rest,1,RSTART-1)
|
||
|
i2++
|
||
|
}
|
||
|
rest=substr(rest,RSTART+RLENGTH)
|
||
|
} else {
|
||
|
l[i2] = rest
|
||
|
i2++
|
||
|
rest = ""
|
||
|
}
|
||
|
}
|
||
|
line = lines[n]
|
||
|
|
||
|
# when a command wants to set a config value for the current
|
||
|
# section and a blank line is encountered before an option with
|
||
|
# the same name, insert it here to maintain some coherency between
|
||
|
# manually and automatically created option lines
|
||
|
# if an option with the same name appears after this point, simply
|
||
|
# ignore it, because it is already set.
|
||
|
if ((section != "") && (l[1] != "option")) {
|
||
|
if (line ~ /^[ \t]*$/) {
|
||
|
if (update ~ "^" section "\\.") {
|
||
|
gsub("^" section ".", "", update)
|
||
|
cfg = cfg cmd2option(update) "\n"
|
||
|
gsub(/=.*$/, "", update)
|
||
|
update = "-" section "." update
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if (l[1] == "config") {
|
||
|
# look for all unset values
|
||
|
if (section != "") {
|
||
|
flag=0
|
||
|
if (update ~ "^" section "\\.") {
|
||
|
flag=1
|
||
|
gsub("^" section ".", "", update)
|
||
|
cfg = cfg cmd2option(update) "\n"
|
||
|
|
||
|
update = "-" section "." update
|
||
|
}
|
||
|
if (flag!=0) cfg = cfg "\n"
|
||
|
}
|
||
|
|
||
|
remove = ""
|
||
|
section = l[3]
|
||
|
if (!length(section)) {
|
||
|
section = "cfg" scnt
|
||
|
}
|
||
|
scnt++
|
||
|
if (update == "-" section) {
|
||
|
remove = "section"
|
||
|
update = ""
|
||
|
} else if (update ~ "^@" section "=") {
|
||
|
update = ""
|
||
|
} else if (update ~ "^&" section "=") {
|
||
|
gsub("^&" section "=", "", update)
|
||
|
line = cmd2config(l[2],update)
|
||
|
update = ""
|
||
|
}
|
||
|
}
|
||
|
if (remove == "option") remove = ""
|
||
|
if (l[1] == "option") {
|
||
|
if (update ~ "^-" section "\\." l[2] "$") remove = "option"
|
||
|
# if a supplied config value already exists, replace the whole line
|
||
|
if (match(update, "^" section "." l[2] "=")) {
|
||
|
gsub("^" section ".", "", update)
|
||
|
line = cmd2option(update)
|
||
|
update = ""
|
||
|
}
|
||
|
}
|
||
|
if (remove == "") cfg = cfg line "\n"
|
||
|
}
|
||
|
|
||
|
# any new options for the last section??
|
||
|
if (section != "") {
|
||
|
if (update ~ "^" section "\\.") {
|
||
|
gsub("^" section ".", "", update)
|
||
|
cfg = cfg cmd2option(update) "\n"
|
||
|
|
||
|
update = "-" section "." update
|
||
|
}
|
||
|
}
|
||
|
|
||
|
if (update ~ "^@") {
|
||
|
# new section
|
||
|
section = stype = substr(update,2)
|
||
|
gsub(/=.*$/,"",section)
|
||
|
gsub(/^.*=/,"",stype)
|
||
|
cfg = cfg "\nconfig \"" stype "\" \"" section "\"\n"
|
||
|
}
|
||
|
|
||
|
return cfg
|
||
|
}
|