#!/bin/bash

INPUTFILE="data"

# Strip out all newlines and whitespace, flattening it into something
# we can process line-by-line.
# Then 'xargs' eats quotes.
# Then we feed it into awk, which parses it counting { } ( ),
# and extracts the fields of interest.
sed 's/[)][ \r\n\t]*;/)/g;s/[{}();]/ & /g' "$INPUTFILE" |
        tr -s ' \n' '\n' | xargs -n 1 | awk '
/;/ {   L=0 ; next }

/[{(]/ {
        if(DEP == 1)    PDNAME[++PDN]=STR[1]
        if(S ~ /#surfaces$/) PNAME[++PN]=STR[1]

        S=S"#"STR[1]
        DEP++

        L=0
#       printf(">> %s\n", S);
        next
}

/[})]/ {
        if(S ~ /#fields$/) {
                C=""
                for(N=1; N<=L; N++) C = C " " STR[N]
                FIELDS[++F]=substr(C,2);
        }

        L=0
        sub(/#[^#]*$/, "", S);
        DEP--
#       printf("<< %s\n", S);
        next
}

{       STR[++L]=$0     }

END {
        printf("planename=(");
        for(N=1; N<=PN; N++)    printf(" \"%s\"", PNAME[N]);
        printf(" )\n");

        printf("planedictname=(");
        for(N=1; N<=PDN; N++)   printf(" \"%s\"", PDNAME[N]);
        printf(" )\n");

        printf("fields=(");
        for(N=1; N<=F; N++)     printf(" \"%s\"", FIELDS[N]);
        printf(" )\n");
}' > /tmp/$$

# Read this into the shell to set the arrays
. /tmp/$$
# Remove temp file
rm -f /tmp/$$

echo "planedictname ${planedictname[@]}"
echo "planename ${planename[@]}"
echo "fields ${fields[@]}"

$ ./trans.sh

planedictname planeDictName planeDictName2
planename planeName1 planeName2
fields p U T p U

$