__ini_value: moved awk script generation to gencode-remote
The script generation of the awk script was moved from `files/gen-awk.sh` to `gencode-remote` because the size not really matters. If the file does not exist, it will be created by a predefined template via an here-doc to avoid a big awk-script where it is not needed.
This commit is contained in:
parent
7380fcaaf9
commit
e3e4a91abe
|
|
@ -1,65 +0,0 @@
|
|||
#!/bin/sh -e
|
||||
# __ini_value/files/gen-awk.sh
|
||||
|
||||
# Generates the awk script that will modify the line
|
||||
#
|
||||
# Arguments:
|
||||
# 1: the file to modify
|
||||
# 2: the should_state
|
||||
|
||||
strip_comments() {
|
||||
grep -v '^[[:space:]]*\($\|#\)'
|
||||
}
|
||||
|
||||
|
||||
file="$1"
|
||||
state="$2"
|
||||
|
||||
|
||||
# Generate the basic awk struct
|
||||
cat <<SHELL
|
||||
tmpfile="\$(mktemp '${file}.cdist.XXXXXXXX')"
|
||||
if [ -f '$file' ]; then
|
||||
cp -p '$file' "\$tmpfile"
|
||||
fi
|
||||
|
||||
awk -f - '$file' > "\$tmpfile" <<'AWK'
|
||||
SHELL
|
||||
|
||||
|
||||
# generate the awk script and strip unnecessary things
|
||||
{
|
||||
# basic functions which everyone needs
|
||||
cat "$__type/files/common.awk"
|
||||
|
||||
# generate the script and strip
|
||||
awk -v state="$state" '
|
||||
function parse(line) {
|
||||
if(match(line, /^[ \t]*# %code_print%$/) > 0) {
|
||||
if(state == "present")
|
||||
print "v_print()"
|
||||
else if(state == "commented")
|
||||
print "v_print_commented()"
|
||||
else
|
||||
print "print \"script compile error! cdist state " state " unkown!\" > /dev/stderr"
|
||||
}
|
||||
else print line
|
||||
}
|
||||
{
|
||||
if(match($0, /^[ \t]*# %codeblock_([^%]+)%$/) > 0) {
|
||||
split($2, result, "_"); type = substr(result[2], 1, length(result[2]) - 1)
|
||||
file = (ENVIRON["__type"] "/files/parts/" state "/" type ".awk")
|
||||
while((getline line < file) > 0)
|
||||
parse(line)
|
||||
close(file)
|
||||
}
|
||||
else print
|
||||
}' "$__type/files/base.awk"
|
||||
} | strip_comments
|
||||
|
||||
|
||||
# end of here-doc
|
||||
cat <<SHELL
|
||||
AWK
|
||||
mv -f "\$tmpfile" '$file'
|
||||
SHELL
|
||||
|
|
@ -1,5 +1,14 @@
|
|||
#!/bin/sh -e
|
||||
# __ini_value/gencode-remote
|
||||
#
|
||||
# Generates the code. It will generate an AWK script to add, modify or remove
|
||||
# the line. The script differ in some points depend on the state. If the file
|
||||
# does not exist, it will only generate the script without the awk overhead.
|
||||
|
||||
# strip comments and newlines for a tighter script
|
||||
strip_comments() {
|
||||
grep -v '^[[:space:]]*\($\|#\)'
|
||||
}
|
||||
|
||||
|
||||
state_is="$(cat "$__object/explorer/state")"
|
||||
|
|
@ -15,8 +24,105 @@ file="$(cat "$__object/parameter/file")"
|
|||
# validation check
|
||||
case "$state_should" in
|
||||
present|commented|absent)
|
||||
# FIXME no need for a seperate file?
|
||||
"$__type/files/gen-awk.sh" "$file" "$state_should"
|
||||
if [ "$state_is" != "nosuchfile" ]; then
|
||||
# Generate the basic awk struct if a file already exists
|
||||
cat <<SHELL
|
||||
tmpfile="\$(mktemp '${file}.cdist.XXXXXXXX')"
|
||||
if [ -f '$file' ]; then
|
||||
cp -p '$file' "\$tmpfile"
|
||||
fi
|
||||
|
||||
awk -f - '$file' > "\$tmpfile" <<'AWK'
|
||||
SHELL
|
||||
|
||||
# generate the awk script and strip unnecessary things
|
||||
{
|
||||
# basic functions which everyone needs
|
||||
cat "$__type/files/common.awk"
|
||||
|
||||
# generate the script
|
||||
awk -v state="$state_should" '
|
||||
function parse(line) {
|
||||
if(match(line, /^[ \t]*# %code_print%$/) > 0) {
|
||||
if(state == "present")
|
||||
print "v_print()"
|
||||
else if(state == "commented")
|
||||
print "v_print_commented()"
|
||||
else
|
||||
print "print \"script compile error! cdist state " state " unkown!\" > /dev/stderr"
|
||||
}
|
||||
else print line
|
||||
}
|
||||
{
|
||||
if(match($0, /^[ \t]*# %codeblock_([^%]+)%$/) > 0) {
|
||||
split($2, result, "_"); type = substr(result[2], 1, length(result[2]) - 1)
|
||||
file = (ENVIRON["__type"] "/files/parts/" state "/" type ".awk")
|
||||
while((getline line < file) > 0)
|
||||
parse(line)
|
||||
close(file)
|
||||
}
|
||||
else print
|
||||
}' "$__type/files/base.awk"
|
||||
} | strip_comments
|
||||
|
||||
# end of here-doc
|
||||
cat <<SHELL
|
||||
AWK
|
||||
mv -f "\$tmpfile" '$file'
|
||||
SHELL
|
||||
|
||||
# state_is 'nosuchfile' is the same as state_should 'absent'
|
||||
elif [ "$state_should" != "absent" ]; then
|
||||
# generate the indentation string
|
||||
spaces() {
|
||||
_i=$1
|
||||
while [ $_i -gt 0 ]; do
|
||||
printf " "
|
||||
_i=$((_i - 1))
|
||||
done
|
||||
echo
|
||||
}
|
||||
|
||||
# get values required for the comment field
|
||||
key="$(cat "$__object/parameter/key")"
|
||||
delimiter="$(cat "$__object/parameter/delimiter")"
|
||||
value="$(cat "$__object/parameter/value")"
|
||||
indentation="$(cat "$__object/parameter/indentation" || true)"
|
||||
i_indent="$(spaces $indentation)"
|
||||
delimiter_space="$(cat "$__object/parameter/delimiter-space" || true)"
|
||||
i_del_space="$(spaces $delimiter_space)"
|
||||
comment_sign="$(cat "$__object/parameter/comment-sign" | cut -c1)"
|
||||
|
||||
# Generate a simple shell script which just generates the file
|
||||
printf "cat <<'FILE' > '%s'\n" "$file"
|
||||
printf "%s cdist-generated file by %s/%s\n" "$comment_sign" \
|
||||
"${__type##*/}" "$__object_id"
|
||||
echo
|
||||
|
||||
# print values if available
|
||||
section="$__object/parameter/section"
|
||||
if [ -f "$section" ]; then
|
||||
cat "$section"
|
||||
echo
|
||||
fi
|
||||
comment="$__object/parameter/comment"
|
||||
if [ -f "$comment" ]; then
|
||||
printf "%s%s " "$i_indent" "$comment_sign"
|
||||
cat "$comment"
|
||||
fi
|
||||
|
||||
# print the value
|
||||
printf "%s%s%s%s%s%s%s\n" \
|
||||
"$i_indent" \
|
||||
"$(if [ "$state_should" = "commented" ]; then
|
||||
printf "%s" "$comment_sign";
|
||||
fi)" \
|
||||
"$key" "$i_del_space" "$delimiter" "$i_del_space" "$value"
|
||||
echo
|
||||
|
||||
# terminate HERE-DOC
|
||||
echo "FILE"
|
||||
fi
|
||||
;;
|
||||
|
||||
*)
|
||||
|
|
|
|||
Loading…
Reference in New Issue