Peler

: / usr / share / snmp / mib2c-data /
Filename : generic-get-char.m2i
back
#############################################################  -*- 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@