mfd-data-get.m2c
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:5k
- ############################################################# -*- c -*-
- ## generic include for XXX. Do not use directly.
- ##
- ## $Id: mfd-data-get.m2c,v 1.18.2.1 2005/01/03 00:50:29 rstory Exp $
- ########################################################################
- ########################################################################
- ## 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@
- @ eval $hack = "Id"@
- /*
- * Note: this file originally auto-generated by mib2c using
- * version $Revision: 1.18.2.1 $ of $RCSfile: mfd-data-get.m2c,v $
- *
- * $$hack:$
- *
- * @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 $RCSfile: mfd-data-get.m2c,v $ $Revision: 1.18.2.1 $ */
- @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 $RCSfile: mfd-data-get.m2c,v $ $Revision: 1.18.2.1 $ */
- @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
- * version $Revision: 1.18.2.1 $ of $RCSfile: mfd-data-get.m2c,v $
- *
- * $$hack:$
- */
- @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 $RCSfile: mfd-data-get.m2c,v $ $Revision: 1.18.2.1 $ */
- @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 == 1@
- @ 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 != 1@
- @ 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 $RCSfile: mfd-data-get.m2c,v $ $Revision: 1.18.2.1 $ */
- @end@
- ########################################################################
- @end@ // $mfd_processing_types =~ /c/
- ## restore original processing types
- @eval $m2c_processing_type = "$mfd_data_get_processing_type_save"@