/*
 * RELATE PE_PE TO S_SYS ACROSS R9100 USING G_EIS
 */
void
ooaofooa_G_EIS_R9100_Link( ooaofooa_PE_PE * aone, ooaofooa_S_SYS * aoth, ooaofooa_G_EIS * assr )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  assr->Element_ID = aone->Element_ID;
  assr->Sys_ID = aoth->Sys_ID;
  /* Initialize optimized relationship storage extended attributes */
  assr->PE_PE_R9100 = aone;
  assr->S_SYS_R9100 = aoth;
  Escher_SetInsertElement( &aone->G_EIS_R9100, assr );
  Escher_SetInsertElement( &aoth->G_EIS_R9100, assr );
}

/*
 * RELATE F TO E ACROSS R3 USING G
 */
void
assoc_unformal_G_R3_Link( assoc_unformal_F * aone, assoc_unformal_E * aoth, assoc_unformal_G * assr )
{
  if ( (aone == 0) || (aoth == 0) || (assr == 0) ) {
    XTUML_EMPTY_HANDLE_TRACE( "G", "assoc_unformal_G_R3_Link" );
    return;
  }
  /* Initialize optimized relationship storage extended attributes */
  assr->F_R3 = aone;
  assr->E_R3 = aoth;
  Escher_SetInsertElement( &aone->G_R3, assr );
  Escher_SetInsertElement( &aoth->G_R3, assr );
}

/*
 * RELATE S_EEEDI TO S_EEEVT ACROSS R13 USING S_EEEDT
 */
void
ooaofooa_S_EEEDT_R13_Link( ooaofooa_S_EEEDI * aone, ooaofooa_S_EEEVT * aoth, ooaofooa_S_EEEDT * assr )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  assr->EEedi_ID = aone->EEedi_ID;
  assr->EE_ID = aone->EE_ID;
  assr->EEevt_ID = aoth->EEevt_ID;
  assr->EE_ID = aoth->EE_ID;
  /* Initialize optimized relationship storage extended attributes */
  assr->S_EEEDI_R13_may_carry = aone;
  assr->S_EEEVT_R13_is_carried_via = aoth;
  Escher_SetInsertElement( &aone->S_EEEDT_R13, assr );
  Escher_SetInsertElement( &aoth->S_EEEDT_R13, assr );
}

/*
 * RELATE <left> X TO <right> X ACROSS R12.'is buddy of' USING Y
 */
void
assoc_unformal_Y_R12_Link_is_buddy_of( assoc_unformal_X * left, assoc_unformal_X * right, assoc_unformal_Y * assr )
{
  if ( (left == 0) || (right == 0) || (assr == 0) ) {
    XTUML_EMPTY_HANDLE_TRACE( "Y", "assoc_unformal_Y_R12_Link_is_buddy_of" );
    return;
  }
  Escher_strcpy( assr->pal, left->name );
  Escher_strcpy( assr->buddy, right->name );
  /* Initialize optimized relationship storage extended attributes */
  assr->X_R12_is_pal_of = left;  /* RAL 1 */
  assr->X_R12_is_buddy_of = right; /* RAL 2 */
  Escher_SetInsertElement( &right->Y_R12_is_pal_of, assr ); /* RAL 8 */
  Escher_SetInsertElement( &left->Y_R12_is_buddy_of, assr ); /* RAL 12 */
}

/*
 * Insert a single element into the set in no particular order.
 * The element is a data item.  A container node will be allocated
 * to link in the element.
 */
void
Escher_SetInsertElement(
    Escher_ObjectSet_s * set,
    void * const substance
)
{
    Escher_SetElement_s * slot;
    if ( 0 == node1_FreeList.head ) {
        Escher_SetElement_s * new_mem = ( Escher_SetElement_s *) Escher_malloc( 10 * sizeof( Escher_SetElement_s ) );

        if ( 0 == new_mem ) {
            UserNodeListEmptyCallout(); /* Bad news!  No more heap space.  */
        } else {
            u1_t i;
            for ( i = 0; i < 10 - 1; i++ ) {
                new_mem[ i ].next = (Escher_SetElement_s *) &(new_mem[ i + 1 ]);
            }
            new_mem[ 10 - 1 ].next = 0;
            node1_FreeList.head = new_mem;
            Escher_SetInsertElement( set, substance );
        }
    } else {
        slot = node1_FreeList.head; /* Extract node from free list head. */
        node1_FreeList.head = node1_FreeList.head->next;
        slot->object = substance;
        slot->next = set->head;     /* Insert substance at list front.   */
        set->head = slot;
    }
}

/*
 * RELATE S_DT TO O_TPARM ACROSS R118
 */
void
ooaofooa_O_TPARM_R118_Link_defines_the_type_of_( ooaofooa_S_DT * part, ooaofooa_O_TPARM * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->DT_ID = part->DT_ID;
  form->S_DT_R118_is_defined_by = part;
  Escher_SetInsertElement( &part->O_TPARM_R118_defines_the_type_of_, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE S_SS TO O_IOBJ ACROSS R3
 */
void
ooaofooa_O_IOBJ_R3_Link_can_contain_classs_from_other_subsystems_via( ooaofooa_S_SS * part, ooaofooa_O_IOBJ * form )
{
    /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
    form->SS_ID = part->SS_ID;
    form->S_SS_R3_represents_a_class_from_another_subsystem_in = part;
    Escher_SetInsertElement( &part->O_IOBJ_R3_can_contain_classs_from_other_subsystems_via, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE O_OBJ TO O_IOBJ ACROSS R101
 */
void
ooaofooa_O_IOBJ_R101_Link_has_presence_in_other_subsystems( ooaofooa_O_OBJ * part, ooaofooa_O_IOBJ * form )
{
    /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
    form->Obj_ID = part->Obj_ID;
    form->O_OBJ_R101_represents = part;
    Escher_SetInsertElement( &part->O_IOBJ_R101_has_presence_in_other_subsystems, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE TE_CLASS TO TE_SWC ACROSS R2001
 */
void
ooaofooa_TE_SWC_R2001_Link( ooaofooa_TE_CLASS * part, ooaofooa_TE_SWC * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  Escher_strcpy( form->GeneratedName, part->GeneratedName );
  form->TE_CLASS_R2001 = part;
  Escher_SetInsertElement( &part->TE_SWC_R2001, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE TE_SYS TO TE_DISP ACROSS R2003
 */
void
ooaofooa_TE_DISP_R2003_Link( ooaofooa_TE_SYS * part, ooaofooa_TE_DISP * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->SystemID = part->SystemID;
  form->TE_SYS_R2003 = part;
  Escher_SetInsertElement( &part->TE_DISP_R2003, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE O_OBJ TO ACT_FIW ACROSS R676
 */
void
ooaofooa_ACT_FIW_R676_Link( ooaofooa_O_OBJ * part, ooaofooa_ACT_FIW * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->Obj_ID = part->Obj_ID;
  form->O_OBJ_R676_from_extent_of = part;
  Escher_SetInsertElement( &part->ACT_FIW_R676, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE SM_SM TO CA_EESMC ACROSS R403
 */
void
ooaofooa_CA_EESMC_R403_Link_has_received_event_communication_represented_by( ooaofooa_SM_SM * part, ooaofooa_CA_EESMC * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->SM_ID = part->SM_ID;
  form->SM_SM_R403_shows_event_communication_to = part;
  Escher_SetInsertElement( &part->CA_EESMC_R403_has_received_event_communication_represented_by, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE SM_SM TO SM_EVTDI ACROSS R516
 */
void
ooaofooa_SM_EVTDI_R516_Link_can_asynchronously_communicate_via( ooaofooa_SM_SM * part, ooaofooa_SM_EVTDI * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->SM_ID = part->SM_ID;
  form->SM_SM_R516_is_carried_on_events_into = part;
  Escher_SetInsertElement( &part->SM_EVTDI_R516_can_asynchronously_communicate_via, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE SM_EVT TO SM_EVTDI ACROSS R532
 */
void
ooaofooa_SM_EVTDI_R532_Link_carries( ooaofooa_SM_EVT * part, ooaofooa_SM_EVTDI * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->SMevt_ID = part->SMevt_ID;
  form->SM_EVT_R532_carried_by = part;
  Escher_SetInsertElement( &part->SM_EVTDI_R532_carries, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE S_DT TO SM_EVTDI ACROSS R524
 */
void
ooaofooa_SM_EVTDI_R524_Link_defines_the_type_of( ooaofooa_S_DT * part, ooaofooa_SM_EVTDI * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->DT_ID = part->DT_ID;
  form->S_DT_R524_is_defined_by = part;
  Escher_SetInsertElement( &part->SM_EVTDI_R524_defines_the_type_of, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE TE_IIR TO TM_TPV ACROSS R2806
 */
void
ooaofooa_TM_TPV_R2806_Link( ooaofooa_TE_IIR * part, ooaofooa_TM_TPV * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->te_iirID = part->ID;
  form->TE_IIR_R2806 = part;
  Escher_SetInsertElement( &part->TM_TPV_R2806, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE TM_TP TO TM_TPV ACROSS R2808
 */
void
ooaofooa_TM_TPV_R2808_Link_has_value( ooaofooa_TM_TP * part, ooaofooa_TM_TPV * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->tm_tpID = part->ID;
  form->TM_TP_R2808 = part;
  Escher_SetInsertElement( &part->TM_TPV_R2808_has_value, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE SM_SM TO SM_EVT ACROSS R502
 */
void
ooaofooa_SM_EVT_R502_Link_can_be_communicated_to_via( ooaofooa_SM_SM * part, ooaofooa_SM_EVT * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->SM_ID = part->SM_ID;
  form->SM_SM_R502 = part;
  Escher_SetInsertElement( &part->SM_EVT_R502_can_be_communicated_to_via, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE MSG_M TO MSG_A ACROSS R1000
 */
void
ooaofooa_MSG_A_R1000_Link_has_an_informal( ooaofooa_MSG_M * part, ooaofooa_MSG_A * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->Informal_Msg_ID = part->Msg_ID;
  form->MSG_M_R1000_belongs_to_informal = part;
  Escher_SetInsertElement( &part->MSG_A_R1000_has_an_informal, (Escher_ObjectSet_s *) form );
}

/*
 * RELATE O_TFR TO O_TPARM ACROSS R117
 */
void
ooaofooa_O_TPARM_R117_Link_contains( ooaofooa_O_TFR * part, ooaofooa_O_TPARM * form )
{
  /* Use TagEmptyHandleDetectionOn() to detect empty handle references.  */
  form->Tfr_ID = part->Tfr_ID;
  form->O_TFR_R117_is_part_of_ = part;
  Escher_SetInsertElement( &part->O_TPARM_R117_contains, (Escher_ObjectSet_s *) form );
}