[Firebug-cvs] fireboard/tools/src/xlisten genc.pm,1.2,1.3

[David M. D. <do...@us...>]

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