void
RCMcpy(RCMapObj *dest, RCMapObj *orig)
{
STRcpy(dest->view, orig->view);
STRcpy(dest->displaycmd, orig->displaycmd);
STRcpy(dest->printcmd, orig->printcmd);
}
node *MYCPPdoPreprocessing(node *syntaxtree)
{
int err;
char *cppcallstr;
char *dirnm, *basenm;
DBUG_ENTER("MYCPPdoPreprocessing");
char *buffer1, *buffer2;
buffer1 = STRcpy(global.infile);
buffer2 = STRcpy(global.infile);
dirnm = dirname( buffer1);
basenm = basename( buffer2);
if (myglobal.cpp_I != NULL)
{
cppcallstr = STRcatn( 10,
"cpp ",
"-I ",
myglobal.cpp_I,
" ",
global.infile,
" > ",
dirnm,
"/.",
basenm,
".cpp");
}
else
{
cppcallstr = STRcatn( 7,
"cpp ",
global.infile,
" > ",
dirnm,
"/.",
basenm,
".cpp");
}
err = system( cppcallstr);
cppcallstr = MEMfree( cppcallstr);
if ( err) {
CTIabort( "Unable to run C preprocessor");
}
global.cpp = TRUE;
MEMfree(buffer1);
MEMfree(buffer2);
MEMfree(cppcallstr);
DBUG_RETURN( syntaxtree);
}
node *PPLOCat( node *arg_node, info *arg_info)
{
DBUG_ENTER("PPLOCat");
int loc;
node *temp;
node *top = NULL;
node *ref;
if(INFO_TOP(arg_info) != NULL) {
top = INFO_TOP(arg_info);
ref = TBmakeNetrefs(top, NULL);
NODE_ERRCODE(ref) = STRcpy(NODE_ERRCODE(arg_node));
NETREFS_LOCATION(ref) = AT_LOCATION(arg_node);
temp = TBmakeNetbody(NULL, ref);
NODE_ERRCODE(temp) = STRcpy(NODE_ERRCODE(arg_node));
temp = TBmakeNetdef(STRcpy(NETDEF_NAME(top)),
NULL,
FALSE, FALSE, NULL,
temp,
NULL);
NODE_ERRCODE(temp) = STRcpy(NODE_ERRCODE(arg_node));
top = temp;
INFO_TOP(arg_info) = NULL;
}
loc = INFO_LOC(arg_info);
INFO_LOC(arg_info) = AT_LOCATION(arg_node);
AT_LEFT(arg_node) = TRAVdo(AT_LEFT(arg_node), arg_info);
INFO_LOC(arg_info) = loc;
temp = AT_LEFT(arg_node);
AT_LEFT(arg_node) = NULL;
FREEdoFreeTree(arg_node);
arg_node = temp;
INFO_TOP(arg_info) = top;
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEmodule
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Module node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEmodule( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEmodule");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(MODULE_DEFS( arg_node)!= NULL){
MODULE_DEFS( arg_node)= TRAVdo( MODULE_DEFS( arg_node), arg_info);
}
if(MODULE_FIELDS( arg_node)!= NULL){
MODULE_FIELDS( arg_node)= TRAVdo( MODULE_FIELDS( arg_node), arg_info);
}
if(MODULE_STAGS( arg_node)!= NULL){
MODULE_STAGS( arg_node)= TRAVdo( MODULE_STAGS( arg_node), arg_info);
}
if(MODULE_BTAGS( arg_node)!= NULL){
MODULE_BTAGS( arg_node)= TRAVdo( MODULE_BTAGS( arg_node), arg_info);
}
if(MODULE_INTERFACES( arg_node)!= NULL){
MODULE_INTERFACES( arg_node)= TRAVdo( MODULE_INTERFACES( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEnetdef
*
* @brief Sets error code for the node and its sons
*
* @param arg_node NetDef node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEnetdef( node *arg_node, info *arg_info ){
const char *temp;
DBUG_ENTER("MERRCODEnetdef");
/* Get new error code */
temp = INFO_ERRCODE(arg_info);
INFO_ERRCODE(arg_info)= MDUtilMetadataGetKey(NETDEF_METADATA( arg_node), METADATA_KEY_ERR_CODE);
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(NETDEF_SIGN( arg_node)!= NULL){
NETDEF_SIGN( arg_node)= TRAVdo( NETDEF_SIGN( arg_node), arg_info);
}
if(NETDEF_BODY( arg_node)!= NULL){
NETDEF_BODY( arg_node)= TRAVdo( NETDEF_BODY( arg_node), arg_info);
}
if(NETDEF_METADATA( arg_node)!= NULL){
NETDEF_METADATA( arg_node)= TRAVdo( NETDEF_METADATA( arg_node), arg_info);
}
/* Reset error code */
INFO_ERRCODE(arg_info)= temp;
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEtagexpr
*
* @brief Sets error code for the node and its sons
*
* @param arg_node TagExpr node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEtagexpr( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEtagexpr");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(TAGEXPR_STAG( arg_node)!= NULL){
TAGEXPR_STAG( arg_node)= TRAVdo( TAGEXPR_STAG( arg_node), arg_info);
}
if(TAGEXPR_BTAG( arg_node)!= NULL){
TAGEXPR_BTAG( arg_node)= TRAVdo( TAGEXPR_BTAG( arg_node), arg_info);
}
if(TAGEXPR_CONDITION( arg_node)!= NULL){
TAGEXPR_CONDITION( arg_node)= TRAVdo( TAGEXPR_CONDITION( arg_node), arg_info);
}
if(TAGEXPR_LEFT( arg_node)!= NULL){
TAGEXPR_LEFT( arg_node)= TRAVdo( TAGEXPR_LEFT( arg_node), arg_info);
}
if(TAGEXPR_RIGHT( arg_node)!= NULL){
TAGEXPR_RIGHT( arg_node)= TRAVdo( TAGEXPR_RIGHT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEoutputfields
*
* @brief Sets error code for the node and its sons
*
* @param arg_node OutputFields node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEoutputfields( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEoutputfields");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(OUTPUTFIELDS_LEFTFIELD( arg_node)!= NULL){
OUTPUTFIELDS_LEFTFIELD( arg_node)= TRAVdo( OUTPUTFIELDS_LEFTFIELD( arg_node), arg_info);
}
if(OUTPUTFIELDS_RIGHTFIELD( arg_node)!= NULL){
OUTPUTFIELDS_RIGHTFIELD( arg_node)= TRAVdo( OUTPUTFIELDS_RIGHTFIELD( arg_node), arg_info);
}
if(OUTPUTFIELDS_STAG( arg_node)!= NULL){
OUTPUTFIELDS_STAG( arg_node)= TRAVdo( OUTPUTFIELDS_STAG( arg_node), arg_info);
}
if(OUTPUTFIELDS_BTAG( arg_node)!= NULL){
OUTPUTFIELDS_BTAG( arg_node)= TRAVdo( OUTPUTFIELDS_BTAG( arg_node), arg_info);
}
if(OUTPUTFIELDS_TAGEXPR( arg_node)!= NULL){
OUTPUTFIELDS_TAGEXPR( arg_node)= TRAVdo( OUTPUTFIELDS_TAGEXPR( arg_node), arg_info);
}
if(OUTPUTFIELDS_NEXT( arg_node)!= NULL){
OUTPUTFIELDS_NEXT( arg_node)= TRAVdo( OUTPUTFIELDS_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEboxref
*
* @brief Sets error code for the node and its sons
*
* @param arg_node BoxRef node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEboxref( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEboxref");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(NODE_ERRCODE(BOXREF_BOX(arg_node)));
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEfieldref
*
* @brief Sets error code for the node and its sons
*
* @param arg_node FieldRef node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEfieldref( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEfieldref");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEnetrefs
*
* @brief Sets error code for the node and its sons
*
* @param arg_node NetRefs node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEnetrefs( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEnetrefs");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(NODE_ERRCODE(NETREFS_NET(arg_node)));
/* Visit sons */
if(NETREFS_NEXT( arg_node)!= NULL){
NETREFS_NEXT( arg_node)= TRAVdo( NETREFS_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn COPYvarlet
*
* @brief Copies the node and its sons/attributes
*
* @param arg_node VarLet node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *
COPYvarlet (node * arg_node, info * arg_info)
{
node *result = TBmakeVarlet (NULL);
DBUG_ENTER ("COPYvarlet");
LUTinsertIntoLutP (INFO_LUT (arg_info), arg_node, result);
/* Copy attributes */
VARLET_NAME (result) = STRcpy (VARLET_NAME (arg_node));
VARLET_DECL (result) =
LUTsearchInLutPp (INFO_LUT (arg_info), VARLET_DECL (arg_node));
/* Return value */
DBUG_RETURN (result);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEchoice
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Choice node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEchoice( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEchoice");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(CHOICE_BRANCHLIST( arg_node)!= NULL){
CHOICE_BRANCHLIST( arg_node)= TRAVdo( CHOICE_BRANCHLIST( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEtypesigdef
*
* @brief Sets error code for the node and its sons
*
* @param arg_node TypeSigDef node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEtypesigdef( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEtypesigdef");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(TYPESIGDEF_TYPESIGN( arg_node)!= NULL){
TYPESIGDEF_TYPESIGN( arg_node)= TRAVdo( TYPESIGDEF_TYPESIGN( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODErectype
*
* @brief Sets error code for the node and its sons
*
* @param arg_node RecType node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODErectype( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODErectype");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(RECTYPE_ENTRIES( arg_node)!= NULL){
RECTYPE_ENTRIES( arg_node)= TRAVdo( RECTYPE_ENTRIES( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn COPYerror
*
* @brief Copies the node and its sons/attributes
*
* @param arg_node Error node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *
COPYerror (node * arg_node, info * arg_info)
{
node *result = TBmakeError (NULL, PH_initial, NULL);
DBUG_ENTER ("COPYerror");
LUTinsertIntoLutP (INFO_LUT (arg_info), arg_node, result);
/* Copy attributes */
ERROR_MESSAGE (result) = STRcpy (ERROR_MESSAGE (arg_node));
ERROR_ANYPHASE (result) = ERROR_ANYPHASE (arg_node);
/* Copy sons */
ERROR_NEXT (result) = COPYTRAV (ERROR_NEXT (arg_node), arg_info);
/* Return value */
DBUG_RETURN (result);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEmetadatakeylist
*
* @brief Sets error code for the node and its sons
*
* @param arg_node MetadataKeyList node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEmetadatakeylist( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEmetadatakeylist");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(METADATAKEYLIST_NEXT( arg_node)!= NULL){
METADATAKEYLIST_NEXT( arg_node)= TRAVdo( METADATAKEYLIST_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEfields
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Fields node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEfields( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEfields");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(FIELDS_NEXT( arg_node)!= NULL){
FIELDS_NEXT( arg_node)= TRAVdo( FIELDS_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEmetadatadefaultdef
*
* @brief Sets error code for the node and its sons
*
* @param arg_node MetadataDefaultDef node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEmetadatadefaultdef( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEmetadatadefaultdef");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(METADATADEFAULTDEF_KEYS( arg_node)!= NULL){
METADATADEFAULTDEF_KEYS( arg_node)= TRAVdo( METADATADEFAULTDEF_KEYS( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEat
*
* @brief Sets error code for the node and its sons
*
* @param arg_node At node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEat( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEat");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(AT_LEFT( arg_node)!= NULL){
AT_LEFT( arg_node)= TRAVdo( AT_LEFT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODElanguageinterfaces
*
* @brief Sets error code for the node and its sons
*
* @param arg_node LanguageInterfaces node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODElanguageinterfaces( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODElanguageinterfaces");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(LANGUAGEINTERFACES_NEXT( arg_node)!= NULL){
LANGUAGEINTERFACES_NEXT( arg_node)= TRAVdo( LANGUAGEINTERFACES_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEserial
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Serial node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEserial( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEserial");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(SERIAL_LEFT( arg_node)!= NULL){
SERIAL_LEFT( arg_node)= TRAVdo( SERIAL_LEFT( arg_node), arg_info);
}
if(SERIAL_RIGHT( arg_node)!= NULL){
SERIAL_RIGHT( arg_node)= TRAVdo( SERIAL_RIGHT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEfeedback
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Feedback node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEfeedback( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEfeedback");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(FEEDBACK_LEFT( arg_node)!= NULL){
FEEDBACK_LEFT( arg_node)= TRAVdo( FEEDBACK_LEFT( arg_node), arg_info);
}
if(FEEDBACK_BACK( arg_node)!= NULL){
FEEDBACK_BACK( arg_node)= TRAVdo( FEEDBACK_BACK( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEsync
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Sync node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEsync( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEsync");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(SYNC_MAINPATTERN( arg_node)!= NULL){
SYNC_MAINPATTERN( arg_node)= TRAVdo( SYNC_MAINPATTERN( arg_node), arg_info);
}
if(SYNC_AUXPATTERNS( arg_node)!= NULL){
SYNC_AUXPATTERNS( arg_node)= TRAVdo( SYNC_AUXPATTERNS( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEtrans
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Trans node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEtrans( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEtrans");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(TRANS_LEFT( arg_node)!= NULL){
TRANS_LEFT( arg_node)= TRAVdo( TRANS_LEFT( arg_node), arg_info);
}
if(TRANS_RIGHT( arg_node)!= NULL){
TRANS_RIGHT( arg_node)= TRAVdo( TRANS_RIGHT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEbtaginit
*
* @brief Sets error code for the node and its sons
*
* @param arg_node BTagInit node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEbtaginit( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEbtaginit");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(BTAGINIT_BTAG( arg_node)!= NULL){
BTAGINIT_BTAG( arg_node)= TRAVdo( BTAGINIT_BTAG( arg_node), arg_info);
}
if(BTAGINIT_INIT( arg_node)!= NULL){
BTAGINIT_INIT( arg_node)= TRAVdo( BTAGINIT_INIT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEtypemap
*
* @brief Sets error code for the node and its sons
*
* @param arg_node TypeMap node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEtypemap( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEtypemap");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(TYPEMAP_INTYPE( arg_node)!= NULL){
TYPEMAP_INTYPE( arg_node)= TRAVdo( TYPEMAP_INTYPE( arg_node), arg_info);
}
if(TYPEMAP_OUTTYPE( arg_node)!= NULL){
TYPEMAP_OUTTYPE( arg_node)= TRAVdo( TYPEMAP_OUTTYPE( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEnetbody
*
* @brief Sets error code for the node and its sons
*
* @param arg_node NetBody node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEnetbody( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEnetbody");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(NETBODY_DEFS( arg_node)!= NULL){
NETBODY_DEFS( arg_node)= TRAVdo( NETBODY_DEFS( arg_node), arg_info);
}
if(NETBODY_CONNECT( arg_node)!= NULL){
NETBODY_CONNECT( arg_node)= TRAVdo( NETBODY_CONNECT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEboxsign
*
* @brief Sets error code for the node and its sons
*
* @param arg_node BoxSign node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEboxsign( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEboxsign");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(BOXSIGN_INTYPE( arg_node)!= NULL){
BOXSIGN_INTYPE( arg_node)= TRAVdo( BOXSIGN_INTYPE( arg_node), arg_info);
}
if(BOXSIGN_OUTTYPES( arg_node)!= NULL){
BOXSIGN_OUTTYPES( arg_node)= TRAVdo( BOXSIGN_OUTTYPES( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEfilt
*
* @brief Sets error code for the node and its sons
*
* @param arg_node Filt node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEfilt( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEfilt");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(FILT_PATTERN( arg_node)!= NULL){
FILT_PATTERN( arg_node)= TRAVdo( FILT_PATTERN( arg_node), arg_info);
}
if(FILT_GUARDACTIONS( arg_node)!= NULL){
FILT_GUARDACTIONS( arg_node)= TRAVdo( FILT_GUARDACTIONS( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
/** <!--******************************************************************-->
*
* @fn MERRCODEboxtypes
*
* @brief Sets error code for the node and its sons
*
* @param arg_node BoxTypes node to process
* @param arg_info pointer to info structure
*
* @return processed node
*
***************************************************************************/
node *MERRCODEboxtypes( node *arg_node, info *arg_info ){
DBUG_ENTER("MERRCODEboxtypes");
/* Set error code */
NODE_ERRCODE(arg_node)= STRcpy(INFO_ERRCODE(arg_info));
/* Visit sons */
if(BOXTYPES_ENTRIES( arg_node)!= NULL){
BOXTYPES_ENTRIES( arg_node)= TRAVdo( BOXTYPES_ENTRIES( arg_node), arg_info);
}
if(BOXTYPES_NEXT( arg_node)!= NULL){
BOXTYPES_NEXT( arg_node)= TRAVdo( BOXTYPES_NEXT( arg_node), arg_info);
}
/* Return value */
DBUG_RETURN(arg_node);
}
