diff options
Diffstat (limited to 'package/base-files/default/lib/config/uci-update.awk')
-rw-r--r-- | package/base-files/default/lib/config/uci-update.awk | 160 |
1 files changed, 0 insertions, 160 deletions
diff --git a/package/base-files/default/lib/config/uci-update.awk b/package/base-files/default/lib/config/uci-update.awk deleted file mode 100644 index efa875850..000000000 --- a/package/base-files/default/lib/config/uci-update.awk +++ /dev/null @@ -1,160 +0,0 @@ -# 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 -} |