Update of /cvsroot/firebug/fireboard/tools/src/xlisten
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26576
Modified Files:
genc.pm
Log Message:
Worked on extracting embedded struct data for
output in genc.pm
Index: genc.pm
===================================================================
RCS file: /cvsroot/firebug/fireboard/tools/src/xlisten/genc.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** genc.pm 28 Jul 2004 00:59:01 -0000 1.2
--- genc.pm 31 Jul 2004 00:25:13 -0000 1.3
***************
*** 79,83 ****
($field, $type, $bitlength, $offset, $amax, $abitsize, $aoffset) = @{$_};
! ($ctype, $java_access, $arrayspec) = &cbasetype($type, $bitlength, 0);
## Gets an array of format specifiers useful in *print* functions
--- 79,95 ----
($field, $type, $bitlength, $offset, $amax, $abitsize, $aoffset) = @{$_};
! ($ctype, $java_access, $arrayspec) = &cbasetype($type, $bitlength, 0);
!
! # This is clunky but will work. A better way to do it would be to store
! # the nested struct internally in the field array somehow.
! # Maybe a perl guru can figure that out.
! # What needs to be done is to find one of these, then
! # store it until all the members written out,
! # then print it.
! if ($field =~ /(.*)\.([^.]*)$/) {
! $struct = $1;
! $member = $2;
! #print STDERR $struct;#.", "$member."\n";
! }
## Gets an array of format specifiers useful in *print* functions
|
