1#! @PATH_PERL@ -w
2
3$found = 0;
4$last = 0;
5$debug = 0;
6
7while (<>) {
8    next if /^#/;
9    next if /^\s*$/;
10    if (/^typedef union req_data_u_tag/) {
11	$found = 1;
12    }
13    if (/^struct info_dns_assoc/) {
14	$last = 1;
15    }
16    if ($found) {
17	if (/^(struct\s*\w*)\s*{\s*$/) {
18	    $type = $1;
19	    print STDERR "type = '$type'\n" if $debug;
20	    printf "  printf(\"sizeof($type) = %%d\\n\", \n\t (int) sizeof($type));\n";
21	    next;
22	}
23	if (/^typedef (union\s*\w*)\s*{\s*$/) {
24	    $type = $1;
25	    print STDERR "union = '$type'\n" if $debug;
26	    printf "  printf(\"sizeof($type) = %%d\\n\", \n\t (int) sizeof($type));\n";
27	    next;
28	}
29	if (/\s*\w+\s+(\w*)\s*(\[.*\])?\s*;\s*$/) {
30	    $field = $1;
31	    print STDERR "\tfield = '$field'\n" if $debug;
32	    printf "  printf(\"offsetof($field) = %%d\\n\", \n\t (int) offsetof($type, $field));\n";
33	    next;
34	}
35	if (/^}\s*\w*\s*;\s*$/) {
36	    printf "  printf(\"\\n\");\n\n";
37	    $found = 0 if $last;
38	    next;
39	}
40	print STDERR "Unmatched line: $_";
41	exit 1;
42    }
43}
44