############################################################# -*- c -*- ## Defaults ######################################################################## @if "$m2c_node_name" ne "$node"@ ## if $node.accessible != 1, might be inaccessible index node @ eval $m2c_node_name = $node@ @ eval $m2c_node_skip_mapping = $m2c_table_skip_mapping@ @ eval $m2c_node_needlength = $node.needlength@ @ eval $m2c_node_get_comments = ""@ @ eval $m2c_node_set_comments = ""@ @ eval $m2c_node_skip_get = 0@ ##//how should a function handle a pointer to a buffer that is to small? @ eval $m2c_node_realloc = 0@ // 0=fail, 1=realloc, 2=malloc ######################################################################## ## fix some declarations ######################################################################## @ if $node.enums == 1@ ## @ if $m2c_node_skip_mapping == -1@ @ eval $m2c_node_skip_mapping = 0@ @ end@ ## ## validate some assumptions ## @ if ("$node.perltype" ne "INTEGER") && ("$node.perltype" ne "BITS")@ @ print "$node had enums, but isn't INTEGER or BITS! ($node.perltype)\n"@ @ exit@ @ end@ @ if $node.ranges == 1@ @ print "$node has enums and ranges!\n"@ @ exit@ @ end@ ## ## for a TC, prefix definition w/syntax to reduce collisions ## @ if $node.syntax ne $node.perltype@ @ eval $m2c_de_pfx = "${m2c_const_pfx}$node.syntax"@ @ else@ @ eval $m2c_de_pfx = "${m2c_const_pfx}$node"@ @ end@ @ if $m2c_const_lc == 0@ @ eval $m2c_de_pfx = uc($m2c_de_pfx)@ @ end@ @ if "$node.perltype" eq "BITS"@ @ eval $m2c_enum_sfx="_flag"@ @ eval $m2c_enum_mask="${m2c_de_pfx}_flag"@ @ if $m2c_const_lc == 0@ @ eval $m2c_enum_sfx = uc($m2c_enum_sfx)@ @ eval $m2c_enum_mask = uc($m2c_enum_mask)@ @ end@ @ else@ @ eval $m2c_enum_sfx=""@ @ end@ ## ## use longs for enums (w/out length) ## @ eval $m2c_decl = "u_long"@ @ eval $m2c_node_needlength = 0@ @ if "$node.perltype" eq "BITS"@ @ eval $m2c_node_skip_get = 1@ @ end@ @ else@ @ eval $m2c_decl = $node.decl@ @ end@ // enums ######################################################################## ## find max size ######################################################################## @ if $node.ranges == 1@ ## ## I do not *think* you can have both... ## @ if $node.enums == 1@ @ print "$node has enums and ranges!\n"@ @ exit@ @ end@ @ eval $m2c_node_maxlen = 0@ @ foreach $a $b range $node@ @ eval $m2c_node_maxlen = max($m2c_node_maxlen,$b)@ @ end@ @ elsif "$node.type" eq "ASN_OBJECT_ID"@ @ eval $m2c_node_maxlen = 128@ @ else@ #ranges @ eval $m2c_node_maxlen = 65535@ @ end@ #ranges ##/*#################################################################### ## set up extra params, based on if we need length ######################################################################## ## VAR_VAL : variable value. ## VAR_VAL_PTR : pointer to variable value. ## VAR_REF : variable reference. (pointer to pointer to variable value) ##*/ @ if "x$m2c_node_var_name" eq "x"@ @ eval $m2c_node_var_name="var->"@ @ end@ @ eval $m2c_node_var_val_ptr = "($m2c_decl *)${m2c_node_var_name}val.string"@ @ if $m2c_node_needlength == 1@ @ eval $m2c_XX = "($m2c_decl **)&${m2c_node_var_name}val.string,"@ @ eval $m2c_node_var_ref = "$m2c_XX &${m2c_node_var_name}val_len"@ @ eval $m2c_node_var_val = "$m2c_node_var_val_ptr, ${m2c_node_var_name}val_len"@ @ else@ @ eval $m2c_node_var_ref = "($m2c_decl *)${m2c_node_var_name}val.string"@ @ eval $m2c_node_var_val = "*($m2c_node_var_val_ptr)"@ @ end@ ## ## @ eval $m2c_node_param_val_name = "${node}_val"@ @ eval $m2c_node_param_val_lname = "${m2c_node_param_val_name}_len"@ @ eval $m2c_node_param_ref_name = "${m2c_node_param_val_name}_ptr"@ @ if $m2c_node_needlength == 1@ @ eval $m2c_node_param_val_name = "${m2c_node_param_val_name}_ptr"@ @ eval $m2c_node_param_val_lname = "${m2c_node_param_val_name}_len"@ @ eval $m2c_node_param_val_call = "${m2c_node_param_val_name}, ${m2c_node_param_val_lname}"@ @ eval $m2c_node_param_ref_name = "${m2c_node_param_ref_name}_ptr"@ @ eval $m2c_node_param_ref_lname = "${m2c_node_param_val_lname}_ptr"@ @ eval $m2c_XX = "$m2c_decl **$m2c_node_param_ref_name,"@ @ eval $m2c_node_param_ref = "$m2c_XX size_t *$m2c_node_param_ref_lname"@ @ eval $m2c_XX = "$m2c_decl *$m2c_node_param_val_name,"@ @ eval $m2c_node_param_val = "$m2c_XX size_t $m2c_node_param_val_lname"@ @ else@ @ eval $m2c_node_param_ref = "$m2c_decl * $m2c_node_param_ref_name"@ @ eval $m2c_node_param_val = "$m2c_decl $m2c_node_param_val_name"@ @ eval $m2c_node_param_val_call = "$m2c_node_param_val_name"@ ## @ end@ ## ######################################################################## ## include user overrides ######################################################################## @ include -ifexists ${m2c_defaults_dir}node-${node}.m2d@ ######################################################################## ## ######################################################################## @ if $m2c_get_use_temp == 1@ @ eval $m2c_node_lh = "temp_$node"@ @ eval $m2c_node_lhs = "temp_${node}_len"@ @ else@ @ eval $m2c_node_lh = "(* $m2c_node_param_ref_name )"@ @ eval $m2c_node_lhs = "(* $m2c_node_param_ref_lname )"@ @ end@ @ eval $m2c_ctx_lh="$m2c_node_lh"@ @ eval $m2c_ctx_lhs="$m2c_node_lhs"@ @ eval $m2c_ctx_lhu="bytes"@ @ eval $m2c_ctx_rh="${m2c_data_item}${node}"@ @ eval $m2c_ctx_rhs="${m2c_data_item}${node}_len"@ @ eval $m2c_ctx_rhu="elements"@ ######################################################################## ## ######################################################################## @ if $m2c_node_skip_mapping != 1@ @ if $m2c_node_needlength == 1@ @ eval $m2c_XX="$m2c_decl **mib_$m2c_node_param_ref_name,"@ @ eval $m2c_XX="$m2c_XX size_t *mib_$m2c_node_param_ref_lname,"@ @ eval $m2c_XX="$m2c_XX $m2c_decl *raw_$m2c_node_param_val_name,"@ @ eval $m2c_XX="$m2c_XX size_t raw_$m2c_node_param_val_lname,"@ @ eval $m2c_node_map_param="$m2c_XX int allow_realloc"@ @ else@ @ eval $m2c_XX="$m2c_decl *mib_$m2c_node_param_ref_name,"@ @ eval $m2c_node_map_param="$m2c_XX $m2c_decl raw_$m2c_node_param_val_name"@ @ end@ @ end@ ######################################################################## ## ######################################################################## @ eval $m2c_node_srh = "$m2c_node_param_val_name"@ @ eval $m2c_node_srhs = "$m2c_node_param_val_lname"@ @end@ ######################################################################## ## @eval $m2c_node_summary="$node($node.subid)/$node.syntax/$node.type/$node.decl($m2c_decl)/"@ @if $node.needlength == 0@ @ eval $m2c_node_summary="$m2c_node_summary/l"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/L"@ @end@ @if $node.noaccess == 0@ @ eval $m2c_node_summary="$m2c_node_summary/A"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/a"@ @end@ @if $node.settable == 0@ @ eval $m2c_node_summary="$m2c_node_summary/w"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/W"@ @end@ @if $node.enums == 0@ @ eval $m2c_node_summary="$m2c_node_summary/e"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/E"@ @end@ @if $node.ranges == 0@ @ eval $m2c_node_summary="$m2c_node_summary/r"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/R"@ @end@ @if $node.hasdefval == 0@ @ eval $m2c_node_summary="$m2c_node_summary/d"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/D"@ @end@ @if $node.hashint == 0@ @ eval $m2c_node_summary="$m2c_node_summary/h"@ @else@ @ eval $m2c_node_summary="$m2c_node_summary/H"@ @end@ ######################################################################## @ ifconf ${m2c_defaults_dir}node-${node}.m2d@ @ else@ @ push@ @ open ${m2c_defaults_dir}node-${node}.m2d@ @ eval $m2c_conf_comment = "##"@ @ eval $m2c_conf_comment_divider = "########################################################################"@ $m2c_conf_comment_divider $m2c_conf_comment $m2c_conf_comment mib2c node setting for $node $m2c_conf_comment $m2c_conf_comment Remove the '##' comment delimeter to change settings $m2c_conf_comment $m2c_conf_comment_divider $m2c_conf_comment Node declaration type? This is the C type to be used when $m2c_conf_comment declaring a variable to hold a value for this column. It $m2c_conf_comment is strongly recommended that you do not change this value. $m2c_conf_comment If you do, it is likely to break lots of generated code that $m2c_conf_comment you will have to fix. $m2c_conf_comment $m2c_conf_comment @eval $@m2c_decl = $m2c_decl@ $m2c_conf_comment $m2c_conf_comment_divider $m2c_conf_comment Generate/use mapping functions? Useful if the MIB defines $m2c_conf_comment a different format or enumerations than you data store uses. $m2c_conf_comment $m2c_conf_comment @eval $@m2c_node_skip_mapping = $m2c_node_skip_mapping@ $m2c_conf_comment $m2c_conf_comment_divider $m2c_conf_comment Need a length for the value? Most OCTET-STRING based values will $m2c_conf_comment need a length, most other types will not. Do not change this one $m2c_conf_comment unless you know what you are doing! You will almost certainly need $m2c_conf_comment to fix lots of generated code if you do. $m2c_conf_comment $m2c_conf_comment @eval $@m2c_node_needlength = $m2c_node_needlength@ $m2c_conf_comment $m2c_conf_comment_divider $m2c_conf_comment Skip get? Set this to 1 if you do not want to implement a value $m2c_conf_comment for this column. $m2c_conf_comment $m2c_conf_comment @eval $@m2c_node_skip_get = $m2c_node_skip_get@ $m2c_conf_comment @ if $m2c_node_needlength == 1@ $m2c_conf_comment_divider $m2c_conf_comment Allow realloc when data size exceeds length? If your data $m2c_conf_comment store for this node is a pointer allocated with one of the $m2c_conf_comment alloc family functions, you can set this to 1 to use realloc $m2c_conf_comment when a new value length exceeds the old lenght. If you are $m2c_conf_comment using a fixed size buffer, this value should be 0. $m2c_conf_comment $m2c_conf_comment @eval $@m2c_node_realloc = $m2c_node_realloc@ @ end@ @ close ${m2c_defaults_dir}node-${node}.m2d@ @ pop@ @ end@