From ee9812e9af80d85b1a1b016e48cd4c0c9bda381e Mon Sep 17 00:00:00 2001 From: Martin Baulig Date: Wed, 9 Dec 1998 09:41:32 +0000 Subject: [PATCH] For arrays, make a gh_list out of it and add this list to the returned 1998-12-09 Martin Baulig * guile.awk: For arrays, make a gh_list out of it and add this list to the returned list instead of adding all array fields there. --- sysdeps/guile/ChangeLog | 5 +++++ sysdeps/guile/guile.awk | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/sysdeps/guile/ChangeLog b/sysdeps/guile/ChangeLog index 09fbe65e..225ebdcc 100644 --- a/sysdeps/guile/ChangeLog +++ b/sysdeps/guile/ChangeLog @@ -1,3 +1,8 @@ +1998-12-09 Martin Baulig + + * guile.awk: For arrays, make a gh_list out of it and add this list + to the returned list instead of adding all array fields there. + 1998-12-08 Martin Baulig * guile.awk (glibtop-get-sysdeps): New guile function. diff --git a/sysdeps/guile/guile.awk b/sysdeps/guile/guile.awk index 50162ddd..4f723e5d 100644 --- a/sysdeps/guile/guile.awk +++ b/sysdeps/guile/guile.awk @@ -105,9 +105,11 @@ function make_output(line) { fields[field] = field_parts[1]; sub(/\]/, "", field_parts[2]); number = field_parts[2]; + output = output"gh_list\n\t\t\t("; for (nr = 0; nr < number; nr++) { - output = output""convert[type]" ("feature"."fields[field]" ["nr"]),\n\t\t\t"; + output = output""convert[type]" ("feature"."fields[field]" ["nr"]),\n\t\t\t "; } + output = output"SCM_UNDEFINED),\n\t\t\t"; } else { output = output""convert[type]" ("feature"."fields[field]"),\n\t\t\t"; }