############################################################# -*- c -*- ## generic include for XXX. Do not use directly. ## ######################################################################## @if $m2c_mark_boundary == 1@ /** START code generated by generic-get-char.m2i */ @end@ ######################################################################## ## ## enums first @if $m2c_node_skip_mapping == -1@ @ eval $m2c_node_skip_mapping = 1@ @end@ @if ($node.enums == 1) && ("$node.perltype" eq "BITS")@ /* * TODO:242:o: update or replace BITS tests (get). * If $node data is stored in SNMP BIT order, individual * bit tests are redundant, and you can do a straight copy. If not, then * update each if condition to test the correct bit. * * NOTE WELL: setting bit '0' for: * C 0x0000001 * SNMP 0x8000000 * @ if $m2c_node_skip_mapping != 1@ * define correct bit to test for all INTERNAL_* defines in the * ${context} enum or contants header file. */ $example_start $m2c_node_lh = 0; @ foreach $e $v enum@ @ include m2c_setup_enum.m2i@ if ($m2c_ctx_rh & INTERNAL_$context.uc_$m2c_iname) { $m2c_node_lh |= $m2c_ename; } $m2c_node_lh = htonl( $m2c_node_lh ); @ end@ # for each $example_end @ else@ * assuming generated code keeps $node BITS in SNMP order. */ $m2c_node_lh = htonl( @m2c_ctx_rh@ ); @ end@ @end@ ## ######################################################################## @if $m2c_mark_boundary == 1@ /** END code generated by generic-get-char.m2i */ @end@