View file File name : mfd-data-get.m2c Content :############################################################# -*- c -*- ## generic include for XXX. Do not use directly. ## ######################################################################## ######################################################################## ## lower conf files get confused with multiple processing types, so ## set single options @eval $mfd_data_get_processing_type_save = "$m2c_processing_type"@ @if "$mfd_processing_types" =~ /h/@ @eval $m2c_processing_type = 'h'@ @if $m2c_create_fewer_files != 1@ @ open ${name}_data_get.h@ /* * Note: this file originally auto-generated by mib2c * using mfd-data-get.m2c * * @file ${name}_data_get.h * * @addtogroup get * * Prototypes for get functions * * @{ */ @ eval $m2c_tmp = "$name"@ @ eval $name = "${name}_DATA_GET"@ @ include generic-header-top.m2i@ @ eval $name = "$m2c_tmp"@ @end@ // m2c_create_fewer_files @if $m2c_mark_boundary == 1@ /** START header generated by mfd-data-get.m2c */ @end@ ######################################################################## ## /* ********************************************************************* * GET function declarations */ /* ********************************************************************* * GET Table declarations */ @foreach $table table@ @ include m2c_setup_table.m2i@ @ include details-table.m2i@ /* * indexes */ @ foreach $node index@ @ include m2c_setup_node.m2i@ @ if $m2c_node_skip_mapping != 1@ int ${node}_map($m2c_node_map_param); @ end@ # // skip mapping @ end@ # index @ foreach $node nonindex@ @ include m2c_setup_node.m2i@ @ if $m2c_node_skip_mapping != 1@ int ${node}_map($m2c_node_map_param); @ end@ # // skip mapping int ${node}_get( ${context}_rowreq_ctx *rowreq_ctx, $m2c_node_param_ref ); @ end@ // nonindex @ include generic-table-indexes-set.m2i@ @end@ // table @if $m2c_mark_boundary == 1@ /** END header generated by mfd-data-get.m2c */ @end@ @if $m2c_create_fewer_files != 1@ @ eval $m2c_tmp = "$name"@ @ eval $name = "${name}_DATA_GET"@ @ include generic-header-bottom.m2i@ @ eval $name = "$m2c_tmp"@ /** @} */ @end@ // m2c_create_fewer_files ###################################################################### @end@ // $mfd_processing_types =~ /h/ ###################################################################### ###################################################################### ###################################################################### @if "$mfd_processing_types" =~ /c/@ @eval $m2c_processing_type = 'c'@ @if $m2c_create_fewer_files != 1@ @open ${name}_data_get.c@ /* * Note: this file originally auto-generated by mib2c * using mfd-data-get.m2c */ @include generic-source-includes.m2i@ /** @defgroup data_get data_get: Routines to get data * * TODO:230:M: Implement $context get routines. * TODO:240:M: Implement $context mapping routines (if any). * * These routine are used to get the value for individual objects. The * row context is passed, along with a pointer to the memory where the * value should be copied. * * @{ */ @end@ // m2c_create_fewer_files @if $m2c_mark_boundary == 1@ /** START code generated by mfd-data-get.m2c */ @end@ @foreach $table table@ @ include m2c_setup_table.m2i@ @ include details-table.m2i@ /* --------------------------------------------------------------------- * TODO:200:r: Implement $context data context functions. */ @ if (($m2c_data_allocate == 1) || ($m2c_undo_embed == 0)) && ("$m2c_data_context" ne "generated")@ @ include generic-data-allocate.m2i@ @ end@ ## ## do nodes ## ##// internal only? how to know how to map external? @ foreach $node index@ @ include m2c_setup_node.m2i@ @ if $m2c_node_skip_mapping != 0@ @ next@ @ end@ @ include details-node.m2i@ @ if $m2c_report_progress == 1@ @ print | | +-> Processing index $node@ @ end@ @ include generic-value-map-func.m2i@ @ end@ # foreach column @ include generic-table-indexes-set.m2i@ @ foreach $node nonindex@ @ include m2c_setup_node.m2i@ @ include details-node.m2i@ @ if $node.noaccess == 1@ @ next@ # skip to next column @ end@ @ if $m2c_report_progress == 1@ @ print | | +-> Processing nonindex $node@ @ end@ @ if $m2c_node_skip_mapping == 0@ @ include generic-value-map-func.m2i@ @ end@ @ include node-get.m2i@ @ end@ # foreach column @end@ # foreach table ## /** @} */ ######################################################################## @if $m2c_mark_boundary == 1@ /** END code generated by mfd-data-get.m2c */ @end@ ######################################################################## @end@ // $mfd_processing_types =~ /c/ ## restore original processing types @eval $m2c_processing_type = "$mfd_data_get_processing_type_save"@