[Firebug-cvs] fireboard/tools/src/xlisten genc.pm,1.2,1.3
Brought to you by:
doolin
From: David M. D. <do...@us...> - 2004-07-31 00:25:23
|
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 |