cfengine_stdlib.cf

bundle edit_line set_variable_values2(file,v)
#
# Another implementation of set_variable_values.
# The input and output should be exactly the same (except the file name),
# but in some Cfengine versions there are bugs,
# so this bundle can be used as a workaround.
#
{
vars:

  "index" slist => getindices("$(v)");

  # Be careful if the index string contains funny chars

  "cindex[$(index)]" string => canonify("$(index)");

  "fieldc_$(cindex[$(index)])" int => getfields("$(index).*","$(file)","=","FIELD_$(cindex[$(index)])");

classes:
  "$(cindex[$(index)])_in_file" expression => strcmp("$(index)=$($(v)[$(index)])", "$(FIELD_$(index)[1])=$(FIELD_$(index)[2])");


delete_lines:  # delete any lhs when no match
  "$(index)=.*",
    ifvarclass => "!$(cindex[$(index)])_in_file";


insert_lines:

  "$(index)=$($(v)[$(index)])",

	 comment => "Insert a variable definition",
      ifvarclass => "!$(cindex[$(index)])_in_file";

}