oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fix.

Browse Source
This commit is contained in:
Martin Baulig
1998-09-08 13:10:55 +00:00
parent a6584c2f75
commit 6fe6cfdc15
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
sysdeps/guile/guile.awk
View File

@@ -48,7 +48,7 @@ function make_output(line) {
list = params[param]; list = params[param];
type = params[param]; type = params[param];
sub(/\(.*/, "", type); sub(/\(.*/, "", type);
sub(/^\w+\(/, "", list); sub(/\)$/, "", list); sub(/^.*\(/, "", list); sub(/\)$/, "", list);
count = split (list, fields, /,/); count = split (list, fields, /,/);
total_nr_params = total_nr_params + count; total_nr_params = total_nr_params + count;
for (field = 1; field <= count; field++) { for (field = 1; field <= count; field++) {
@@ -87,7 +87,7 @@ function make_output(line) {
list = elements[element]; list = elements[element];
type = elements[element]; type = elements[element];
sub(/\(.*/, "", type); sub(/\(.*/, "", type);
sub(/^\w+\(/, "", list); sub(/\)$/, "", list); sub(/^.*\(/, "", list); sub(/\)$/, "", list);
count = split (list, fields, /,/); count = split (list, fields, /,/);
for (field = 1; field <= count; field++) { for (field = 1; field <= count; field++) {
output = output""convert[type]" ("feature"."fields[field]"),\n\t\t\t"; output = output""convert[type]" ("feature"."fields[field]"),\n\t\t\t";