Exemplo n.º 1
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_O_REF_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_O_REF * self = (ooaofooa_O_REF *) instance;
  /* Initialize application analysis class attributes.  */
  self->Obj_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  self->RObj_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 2 ] );
  self->ROid_ID = Escher_atoi( avlstring[ 3 ] );
  self->RAttr_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 4 ] );
  self->Rel_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->OIR_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  self->ROIR_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 7 ] );
  self->Attr_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 8 ] );
  self->ARef_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 9 ] );
  self->PARef_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 10 ] );
  self->Is_Cstrd = ( '0' != *avlstring[ 11 ] );
  {i_t i = avlstring[ 12 + 1 ] - avlstring[ 12 ];
  self->Descrip = ( i > 0 ) ? (c_t *) Escher_malloc( i ) : "";
  while ( --i >= 0 ) { self->Descrip[ i ] = avlstring[ 12 ][ i ]; }
  }
  self->RObj_Name = Escher_strcpy( self->RObj_Name, avlstring[ 13 ] );
  self->RAttr_Name = Escher_strcpy( self->RAttr_Name, avlstring[ 14 ] );
  self->Rel_Name = Escher_strcpy( self->Rel_Name, avlstring[ 15 ] );
  return return_identifier;
}
Exemplo n.º 2
0
/*
 * Domain Function:  test
 */
void
c1_test()
{
  c1_PING * ping; c1_PONG * pong; c_t s[ESCHER_SYS_MAX_STRING_LEN]; 
  /* CREATE OBJECT INSTANCE ping OF PING */
  XTUML_OAL_STMT_TRACE( 1, "CREATE OBJECT INSTANCE ping OF PING" );
  ping = (c1_PING *) Escher_CreateInstance( c1_DOMAIN_ID, c1_PING_CLASS_NUMBER );
  /* CREATE OBJECT INSTANCE pong OF PONG */
  XTUML_OAL_STMT_TRACE( 1, "CREATE OBJECT INSTANCE pong OF PONG" );
  pong = (c1_PONG *) Escher_CreateInstance( c1_DOMAIN_ID, c1_PONG_CLASS_NUMBER );
  /* RELATE ping TO pong ACROSS R1 */
  XTUML_OAL_STMT_TRACE( 1, "RELATE ping TO pong ACROSS R1" );
  c1_PING_R1_Link( pong, ping );
  /* ASSIGN ping.i = 0 */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN ping.i = 0" );
  ping->i = 0;
  /* ASSIGN pong.s = 'pong' */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN pong.s = 'pong'" );
  Escher_strcpy( pong->s, "pong" );
  /* ASSIGN s = 'tic function test' */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN s = 'tic function test'" );
  Escher_strcpy( s, "tic function test" );
  /*  SEND toss::s1(sp1:1) */
  XTUML_OAL_STMT_TRACE( 1, " SEND toss::s1(sp1:1)" );
  c1_toss_s1( 1 );

}
Exemplo n.º 3
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_ACT_BLK_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_ACT_BLK * self = (ooaofooa_ACT_BLK *) instance;
  /* Initialize application analysis class attributes.  */
  self->Block_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  return_identifier = self->Block_ID;
  self->WhereSpecOK = ( '0' != *avlstring[ 2 ] );
  self->InWhereSpec = ( '0' != *avlstring[ 3 ] );
  self->SelectedFound = ( '0' != *avlstring[ 4 ] );
  self->TempBuffer = Escher_strcpy( self->TempBuffer, avlstring[ 5 ] );
  self->SupData1 = Escher_strcpy( self->SupData1, avlstring[ 6 ] );
  self->SupData2 = Escher_strcpy( self->SupData2, avlstring[ 7 ] );
  self->CurrentLine = Escher_atoi( avlstring[ 8 ] );
  self->CurrentCol = Escher_atoi( avlstring[ 9 ] );
  self->currentKeyLettersLineNumber = Escher_atoi( avlstring[ 10 ] );
  self->currentKeyLettersColumn = Escher_atoi( avlstring[ 11 ] );
  self->currentParameterAssignmentNameLineNumber = Escher_atoi( avlstring[ 12 ] );
  self->currentParameterAssignmentNameColumn = Escher_atoi( avlstring[ 13 ] );
  self->currentAssociationNumberLineNumber = Escher_atoi( avlstring[ 14 ] );
  self->currentAssociationNumberColumn = Escher_atoi( avlstring[ 15 ] );
  self->currentAssociationPhraseLineNumber = Escher_atoi( avlstring[ 16 ] );
  self->currentAssociationPhraseColumn = Escher_atoi( avlstring[ 17 ] );
  self->currentDataTypeNameLineNumber = Escher_atoi( avlstring[ 18 ] );
  self->currentDataTypeNameColumn = Escher_atoi( avlstring[ 19 ] );
  self->blockInStackFrameCreated = ( '0' != *avlstring[ 20 ] );
  self->Action_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 21 ] );
  self->Parsed_Action_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 22 ] );
  return return_identifier;
}
Exemplo n.º 4
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_PARM_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_PARM * self = (ooaofooa_TE_PARM *) instance;
  /* Initialize application analysis class attributes.  */
  self->Name = Escher_strcpy( self->Name, avlstring[ 1 ] );
  {i_t i = avlstring[ 2 + 1 ] - avlstring[ 2 ];
  self->Descrip = ( i > 0 ) ? (c_t *) Escher_malloc( i ) : "";
  while ( --i >= 0 ) { self->Descrip[ i ] = avlstring[ 2 ][ i ]; }
  }
  self->Order = Escher_atoi( avlstring[ 3 ] );
  self->ParamBuffer = Escher_strcpy( self->ParamBuffer, avlstring[ 4 ] );
  self->OALParamBuffer = Escher_strcpy( self->OALParamBuffer, avlstring[ 5 ] );
  self->ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  return_identifier = self->ID;
  self->nextID = (Escher_iHandle_t) Escher_atoi( avlstring[ 7 ] );
  self->GeneratedName = Escher_strcpy( self->GeneratedName, avlstring[ 8 ] );
  self->By_Ref = Escher_atoi( avlstring[ 9 ] );
  self->te_dtID = (Escher_iHandle_t) Escher_atoi( avlstring[ 10 ] );
  self->dimensions = Escher_atoi( avlstring[ 11 ] );
  self->te_dimID = (Escher_iHandle_t) Escher_atoi( avlstring[ 12 ] );
  self->array_spec = Escher_strcpy( self->array_spec, avlstring[ 13 ] );
  self->AbaID = (Escher_iHandle_t) Escher_atoi( avlstring[ 14 ] );
  self->SM_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 15 ] );
  self->SMedi_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 16 ] );
  self->SParm_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 17 ] );
  self->TParm_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 18 ] );
  self->PP_Id = (Escher_iHandle_t) Escher_atoi( avlstring[ 19 ] );
  self->BParm_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 20 ] );
  return return_identifier;
}
Exemplo n.º 5
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_FUNCTION_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_FUNCTION * self = (ooaofooa_TE_FUNCTION *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->method, avlstring[ 1 ] );
  Escher_strcpy( self->parameters, avlstring[ 2 ] );
  self->Statement_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 3 ] );
  return return_identifier;
}
Exemplo n.º 6
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TM_IF_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TM_IF * self = (ooaofooa_TM_IF *) instance;
  /* Initialize application analysis class attributes.  */
  self->Package = Escher_strcpy( self->Package, avlstring[ 1 ] );
  self->Name = Escher_strcpy( self->Name, avlstring[ 2 ] );
  self->c_iId = (Escher_iHandle_t) Escher_atoi( avlstring[ 3 ] );
  return return_identifier;
}
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TM_PRECISION_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TM_PRECISION * self = (ooaofooa_TM_PRECISION *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->Domain, avlstring[ 1 ] );
  Escher_strcpy( self->DT_name, avlstring[ 2 ] );
  Escher_strcpy( self->xName, avlstring[ 3 ] );
  Escher_strcpy( self->initial_value, avlstring[ 4 ] );
  return return_identifier;
}
Exemplo n.º 8
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TM_SYNC_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TM_SYNC * self = (ooaofooa_TM_SYNC *) instance;
  /* Initialize application analysis class attributes.  */
  self->RegisteredDomain = Escher_strcpy( self->RegisteredDomain, avlstring[ 1 ] );
  self->Name = Escher_strcpy( self->Name, avlstring[ 2 ] );
  self->IsSafeForInterrupts = ( '0' != *avlstring[ 3 ] );
  self->IsInitFunction = ( '0' != *avlstring[ 4 ] );
  return return_identifier;
}
Exemplo n.º 9
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_TARGET_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_TARGET * self = (ooaofooa_TE_TARGET *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->language, avlstring[ 1 ] );
  Escher_strcpy( self->c2cplusplus_linkage_begin, avlstring[ 2 ] );
  Escher_strcpy( self->c2cplusplus_linkage_end, avlstring[ 3 ] );
  Escher_strcpy( self->main, avlstring[ 4 ] );
  return return_identifier;
}
Exemplo n.º 10
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_DMA_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_DMA * self = (ooaofooa_TE_DMA *) instance;
  /* Initialize application analysis class attributes.  */
  self->file = Escher_strcpy( self->file, avlstring[ 1 ] );
  self->allocate = Escher_strcpy( self->allocate, avlstring[ 2 ] );
  self->release = Escher_strcpy( self->release, avlstring[ 3 ] );
  self->debugging_heap = ( '0' != *avlstring[ 4 ] );
  return return_identifier;
}
Exemplo n.º 11
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_ENUM_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_ENUM * self = (ooaofooa_TE_ENUM *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->Name, avlstring[ 1 ] );
  Escher_strcpy( self->Value, avlstring[ 2 ] );
  self->Order = Escher_atoi( avlstring[ 3 ] );
  Escher_strcpy( self->GeneratedName, avlstring[ 4 ] );
  self->Enum_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  return return_identifier;
}
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_EVENT_PARAMETERS_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_EVENT_PARAMETERS * self = (ooaofooa_TE_EVENT_PARAMETERS *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->evt_msg_var, avlstring[ 1 ] );
  Escher_strcpy( self->parameter, avlstring[ 2 ] );
  Escher_strcpy( self->value, avlstring[ 3 ] );
  Escher_strcpy( self->value_type, avlstring[ 4 ] );
  self->Statement_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  return return_identifier;
}
Exemplo n.º 13
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_I_AVL_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_I_AVL * self = (ooaofooa_I_AVL *) instance;
  /* Initialize application analysis class attributes.  */
  self->Inst_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  self->Obj_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 2 ] );
  self->Attr_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 3 ] );
  Escher_strcpy( self->Value, avlstring[ 4 ] );
  Escher_strcpy( self->Label, avlstring[ 5 ] );
  return return_identifier;
}
Exemplo n.º 14
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_O_IOBJ_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
    Escher_iHandle_t return_identifier = 0;
    ooaofooa_O_IOBJ * self = (ooaofooa_O_IOBJ *) instance;
    /* Initialize application analysis class attributes.  */
    self->IObj_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
    self->Obj_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 2 ] );
    self->Modl_Typ = Escher_atoi( avlstring[ 3 ] );
    self->SS_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 4 ] );
    self->Obj_Name = Escher_strcpy( self->Obj_Name, avlstring[ 5 ] );
    self->Obj_KL = Escher_strcpy( self->Obj_KL, avlstring[ 6 ] );
    return return_identifier;
}
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_SELECT_RELATED_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_SELECT_RELATED * self = (ooaofooa_TE_SELECT_RELATED *) instance;
  /* Initialize application analysis class attributes.  */
  self->Statement_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  self->link_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 2 ] );
  self->starting_Value_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 3 ] );
  self->where_clause_Value_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 4 ] );
  self->starting_Var_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->result_Var_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  self->by_where = ( '0' != *avlstring[ 7 ] );
  self->where_clause = Escher_strcpy( self->where_clause, avlstring[ 8 ] );
  self->where_clause_OAL = Escher_strcpy( self->where_clause_OAL, avlstring[ 9 ] );
  self->multiplicity = Escher_strcpy( self->multiplicity, avlstring[ 10 ] );
  self->is_implicit = ( '0' != *avlstring[ 11 ] );
  self->result_var = Escher_strcpy( self->result_var, avlstring[ 12 ] );
  self->result_var_OAL = Escher_strcpy( self->result_var_OAL, avlstring[ 13 ] );
  self->start_many = ( '0' != *avlstring[ 14 ] );
  self->start_var = Escher_strcpy( self->start_var, avlstring[ 15 ] );
  self->start_var_OAL = Escher_strcpy( self->start_var_OAL, avlstring[ 16 ] );
  self->te_classGeneratedName = Escher_strcpy( self->te_classGeneratedName, avlstring[ 17 ] );
  return return_identifier;
}
Exemplo n.º 16
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_PAR_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_PAR * self = (ooaofooa_TE_PAR *) instance;
  /* Initialize application analysis class attributes.  */
  self->Name = Escher_strcpy( self->Name, avlstring[ 1 ] );
  self->By_Ref = Escher_atoi( avlstring[ 2 ] );
  self->buffer = Escher_strcpy( self->buffer, avlstring[ 3 ] );
  self->Order = Escher_atoi( avlstring[ 4 ] );
  self->Value_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->te_parmID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  return return_identifier;
}
Exemplo n.º 17
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_VAL_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_VAL * self = (ooaofooa_TE_VAL *) instance;
  /* Initialize application analysis class attributes.  */
  self->OAL = Escher_strcpy( self->OAL, avlstring[ 1 ] );
  self->buffer = Escher_strcpy( self->buffer, avlstring[ 2 ] );
  self->dimensions = Escher_atoi( avlstring[ 3 ] );
  self->array_spec = Escher_strcpy( self->array_spec, avlstring[ 4 ] );
  self->te_dimID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->Value_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  return return_identifier;
}
Exemplo n.º 18
0
/*
 * Domain Function:  report
 */
void
perf_funcs_report( i_t p_count, i_t p_duration, c_t p_message[ESCHER_SYS_MAX_STRING_LEN])
{
  c_t message[ESCHER_SYS_MAX_STRING_LEN]; i_t count; i_t duration; c_t s[ESCHER_SYS_MAX_STRING_LEN]; 
  /* ASSIGN message = PARAM.message */
  Escher_strcpy( message, p_message );
  /* ASSIGN count = PARAM.count */
  count = p_count;
  /* ASSIGN duration = PARAM.duration */
  duration = p_duration;
  /* ASSIGN s = 'printf( %34s:  %10d %4d %10d\n, p_message, p_count, p_duration, ( p_count / p_duration ) * 1000  );' */
  Escher_strcpy( s, "printf( %34s:  %10d %4d %10d\n, p_message, p_count, p_duration, ( p_count / p_duration ) * 1000  );" );

}
Exemplo n.º 19
0
/*
 * class operation:  populate
 */
ooaofooa_DOC_SEC *
ooaofooa_DOC_SEC_op_populate( ooaofooa_DOC_SEC * p_parent_doc_sec, c_t * p_subtitle, c_t * p_title )
{
  ooaofooa_DOC_SEC * parent_doc_sec;ooaofooa_DOC_SEC * doc_sec;
  /* CREATE OBJECT INSTANCE doc_sec OF DOC_SEC */
  doc_sec = (ooaofooa_DOC_SEC *) Escher_CreateInstance( ooaofooa_DOMAIN_ID, ooaofooa_DOC_SEC_CLASS_NUMBER );
  doc_sec->ID = (Escher_UniqueID_t) doc_sec;
  /* ASSIGN doc_sec.title = PARAM.title */
  doc_sec->title = Escher_strcpy( doc_sec->title, p_title );
  /* ASSIGN doc_sec.subtitle = PARAM.subtitle */
  doc_sec->subtitle = Escher_strcpy( doc_sec->subtitle, p_subtitle );
  /* ASSIGN doc_sec.level = 1 */
  doc_sec->level = 1;
  /* ASSIGN parent_doc_sec = PARAM.parent_doc_sec */
  parent_doc_sec = p_parent_doc_sec;
  /* IF ( not_empty parent_doc_sec ) */
  if ( ( 0 != parent_doc_sec ) ) {
    ooaofooa_DOC_SEC * sibling_doc_sec=0;
    /* SELECT one sibling_doc_sec RELATED BY parent_doc_sec->DOC_SEC[R2307.has first child] */
    sibling_doc_sec = ( 0 != parent_doc_sec ) ? parent_doc_sec->DOC_SEC_R2307_has_first_child : 0;
    /* IF ( empty sibling_doc_sec ) */
    if ( ( 0 == sibling_doc_sec ) ) {
      /* RELATE doc_sec TO parent_doc_sec ACROSS R2307 */
      ooaofooa_DOC_SEC_R2307_Link_has_parent( doc_sec, parent_doc_sec );
      /* ASSIGN doc_sec.level = ( parent_doc_sec.level + 1 ) */
      doc_sec->level = ( parent_doc_sec->level + 1 );
    }
    else {
      ooaofooa_DOC_SEC * next_doc_sec;
      /* ASSIGN next_doc_sec = sibling_doc_sec */
      next_doc_sec = sibling_doc_sec;
      /* WHILE ( not_empty next_doc_sec ) */
      while ( ( 0 != next_doc_sec ) ) {
        /* ASSIGN sibling_doc_sec = next_doc_sec */
        sibling_doc_sec = next_doc_sec;
        /* SELECT one next_doc_sec RELATED BY sibling_doc_sec->DOC_SEC[R2306.follows] */
        next_doc_sec = ( 0 != sibling_doc_sec ) ? sibling_doc_sec->DOC_SEC_R2306_follows : 0;
      }
      /* RELATE sibling_doc_sec TO doc_sec ACROSS R2306 */
      ooaofooa_DOC_SEC_R2306_Link_follows( sibling_doc_sec, doc_sec );
      /* ASSIGN doc_sec.level = sibling_doc_sec.level */
      doc_sec->level = sibling_doc_sec->level;
    }
  }
  /* RETURN doc_sec */
  {ooaofooa_DOC_SEC * xtumlOALrv = doc_sec;
  return xtumlOALrv;}

}
Exemplo n.º 20
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TM_TPV_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TM_TPV * self = (ooaofooa_TM_TPV *) instance;
  /* Initialize application analysis class attributes.  */
  self->ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  return_identifier = self->ID;
  Escher_strcpy( self->instance, avlstring[ 2 ] );
  Escher_strcpy( self->value, avlstring[ 3 ] );
  self->tm_tpID = (Escher_iHandle_t) Escher_atoi( avlstring[ 4 ] );
  self->te_iirID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->te_ciID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  return return_identifier;
}
Exemplo n.º 21
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_DOC_SEC_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_DOC_SEC * self = (ooaofooa_DOC_SEC *) instance;
  /* Initialize application analysis class attributes.  */
  self->ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  return_identifier = self->ID;
  self->nextID = (Escher_iHandle_t) Escher_atoi( avlstring[ 2 ] );
  self->title = Escher_strcpy( self->title, avlstring[ 3 ] );
  self->subtitle = Escher_strcpy( self->subtitle, avlstring[ 4 ] );
  self->level = Escher_atoi( avlstring[ 5 ] );
  self->abstract = Escher_strcpy( self->abstract, avlstring[ 6 ] );
  return return_identifier;
}
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_GENERATE_CREATOR_EVENT_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_GENERATE_CREATOR_EVENT * self = (ooaofooa_TE_GENERATE_CREATOR_EVENT *) instance;
  /* Initialize application analysis class attributes.  */
  self->sm_evt = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  self->self_directed = ( '0' != *avlstring[ 2 ] );
  Escher_strcpy( self->var_name, avlstring[ 3 ] );
  Escher_strcpy( self->event_label, avlstring[ 4 ] );
  Escher_strcpy( self->event_meaning, avlstring[ 5 ] );
  Escher_strcpy( self->parameters, avlstring[ 6 ] );
  self->Statement_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 7 ] );
  return return_identifier;
}
Exemplo n.º 23
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_BRG_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_BRG * self = (ooaofooa_TE_BRG *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->EEname, avlstring[ 1 ] );
  Escher_strcpy( self->EEkeyletters, avlstring[ 2 ] );
  Escher_strcpy( self->Name, avlstring[ 3 ] );
  Escher_strcpy( self->GeneratedName, avlstring[ 4 ] );
  self->AbaID = (Escher_iHandle_t) Escher_atoi( avlstring[ 5 ] );
  self->Brg_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 6 ] );
  self->EE_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 7 ] );
  return return_identifier;
}
Exemplo n.º 24
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_SWC_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_SWC * self = (ooaofooa_TE_SWC *) instance;
  /* Initialize application analysis class attributes.  */
  Escher_strcpy( self->Obj_Kl, avlstring[ 1 ] );
  Escher_strcpy( self->Where_Spec, avlstring[ 2 ] );
  Escher_strcpy( self->Key, avlstring[ 3 ] );
  self->Ret_Val = ( '0' != *avlstring[ 4 ] );
  self->Built_In = ( '0' != *avlstring[ 5 ] );
  self->Oid_ID = Escher_atoi( avlstring[ 6 ] );
  Escher_strcpy( self->GeneratedName, avlstring[ 7 ] );
  return return_identifier;
}
Exemplo n.º 25
0
/*
 * 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 */
}
Exemplo n.º 26
0
/*
 * class operation:  init
 */
monitor_vitalsign *
monitor_O2saturation_op_init()
{
  monitor_O2saturation * O2saturation;monitor_vitalsign * vitalsign;
  /* CREATE OBJECT INSTANCE O2saturation OF O2saturation */
  XTUML_OAL_STMT_TRACE( 1, "CREATE OBJECT INSTANCE O2saturation OF O2saturation" );
  O2saturation = (monitor_O2saturation *) Escher_CreateInstance( monitor_DOMAIN_ID, monitor_O2saturation_CLASS_NUMBER );
  /* CREATE OBJECT INSTANCE vitalsign OF vitalsign */
  XTUML_OAL_STMT_TRACE( 1, "CREATE OBJECT INSTANCE vitalsign OF vitalsign" );
  vitalsign = (monitor_vitalsign *) Escher_CreateInstance( monitor_DOMAIN_ID, monitor_vitalsign_CLASS_NUMBER );
  /* ASSIGN vitalsign.name = O2saturation */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN vitalsign.name = O2saturation" );
  Escher_strcpy( vitalsign->name, "O2saturation" );
  /* ASSIGN vitalsign.value = 0 */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN vitalsign.value = 0" );
  vitalsign->value = 0;
  /* ASSIGN vitalsign.yellow_threshold = 93 */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN vitalsign.yellow_threshold = 93" );
  vitalsign->yellow_threshold = 93;
  /* ASSIGN vitalsign.red_threshold = 85 */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN vitalsign.red_threshold = 85" );
  vitalsign->red_threshold = 85;
  /* RELATE O2saturation TO vitalsign ACROSS R2 */
  XTUML_OAL_STMT_TRACE( 1, "RELATE O2saturation TO vitalsign ACROSS R2" );
  monitor_O2saturation_R2_Link( vitalsign, O2saturation );
  /* RETURN vitalsign */
  XTUML_OAL_STMT_TRACE( 1, "RETURN vitalsign" );
  {monitor_vitalsign * xtumlOALrv = vitalsign;
  return xtumlOALrv;}

}
Exemplo n.º 27
0
/*
 * class operation:  populate_image
 */
ooaofooa_DOC_CELL *
ooaofooa_DOC_CELL_op_populate_image( c_t * p_image, ooaofooa_DOC_CELL * p_predecessor )
{
  ooaofooa_DOC_PAR * doc_par;ooaofooa_DOC_CELL * predecessor;ooaofooa_DOC_IMG * doc_img;ooaofooa_DOC_CELL * doc_cell;ooaofooa_DOC_SEC * empty_doc_sec=0;ooaofooa_DOC_PAR * empty_doc_par=0;
  /* ASSIGN predecessor = PARAM.predecessor */
  predecessor = p_predecessor;
  /* CREATE OBJECT INSTANCE doc_cell OF DOC_CELL */
  doc_cell = (ooaofooa_DOC_CELL *) Escher_CreateInstance( ooaofooa_DOMAIN_ID, ooaofooa_DOC_CELL_CLASS_NUMBER );
  /* IF ( not_empty predecessor ) */
  if ( ( 0 != predecessor ) ) {
    /* RELATE predecessor TO doc_cell ACROSS R2304 */
    ooaofooa_DOC_CELL_R2304_Link_follows( predecessor, doc_cell );
  }
  /* SELECT any empty_doc_par FROM INSTANCES OF DOC_PAR WHERE FALSE */
  empty_doc_par = 0;
  /* SELECT any empty_doc_sec FROM INSTANCES OF DOC_SEC WHERE FALSE */
  empty_doc_sec = 0;
  /* ASSIGN doc_par = DOC_PAR::populate(doc_sec:empty_doc_sec, predecessor:empty_doc_par, text:) */
  doc_par = ooaofooa_DOC_PAR_op_populate(empty_doc_sec, empty_doc_par, "");
  /* RELATE doc_par TO doc_cell ACROSS R2318 */
  ooaofooa_DOC_CELL_R2318_Link( doc_par, doc_cell );
  /* CREATE OBJECT INSTANCE doc_img OF DOC_IMG */
  doc_img = (ooaofooa_DOC_IMG *) Escher_CreateInstance( ooaofooa_DOMAIN_ID, ooaofooa_DOC_IMG_CLASS_NUMBER );
  /* RELATE doc_img TO doc_par ACROSS R2319 */
  ooaofooa_DOC_IMG_R2319_Link( doc_par, doc_img );
  /* ASSIGN doc_img.target = PARAM.image */
  doc_img->target = Escher_strcpy( doc_img->target, p_image );
  /* RETURN doc_cell */
  {ooaofooa_DOC_CELL * xtumlOALrv = doc_cell;
  return xtumlOALrv;}

}
Exemplo n.º 28
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_TE_SELECT_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_TE_SELECT * self = (ooaofooa_TE_SELECT *) instance;
  /* Initialize application analysis class attributes.  */
  self->o_obj = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  self->is_implicit = ( '0' != *avlstring[ 2 ] );
  Escher_strcpy( self->class_name, avlstring[ 3 ] );
  Escher_strcpy( self->target_class_name, avlstring[ 4 ] );
  Escher_strcpy( self->class_description, avlstring[ 5 ] );
  Escher_strcpy( self->multiplicity, avlstring[ 6 ] );
  Escher_strcpy( self->var_name, avlstring[ 7 ] );
  self->Statement_ID = (Escher_iHandle_t) Escher_atoi( avlstring[ 8 ] );
  return return_identifier;
}
Exemplo n.º 29
0
/*
 * Interface:  i2
 * Provided Port:  burn
 * To Provider Message:  o2
 */
i_t
c2_burn_o2( const i_t p_op2)
{
  /* <message compname="c2" compnum="1" portname="burn" portnum="1" msgname="o2" msgnum="0"/> */
  COMP_MSG_START_TRACE( "%d", 1, 1, 0, p_op2 );
  c_t s[ESCHER_SYS_MAX_STRING_LEN]; i_t p; 
  /* ASSIGN s = 'tac burn' */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN s = 'tac burn'" );
  Escher_strcpy( s, "tac burn" );
  /* LOG::LogInfo( message:s ) */
  XTUML_OAL_STMT_TRACE( 1, "LOG::LogInfo( message:s )" );
  LOG_LogInfo( s );
  /* ASSIGN p = PARAM.op2 */
  XTUML_OAL_STMT_TRACE( 1, "ASSIGN p = PARAM.op2" );
  p = p_op2;
  /* IF ( ( 2 != PARAM.op2 ) ) */
  XTUML_OAL_STMT_TRACE( 1, "IF ( ( 2 != PARAM.op2 ) )" );
  if ( ( 2 != p_op2 ) ) {
    /* LOG::LogFailure( message:'tac burn did not get 2' ) */
    XTUML_OAL_STMT_TRACE( 2, "LOG::LogFailure( message:'tac burn did not get 2' )" );
    LOG_LogFailure( "tac burn did not get 2" );
  }
  else {
    /* RETURN ( lase::o2(3) + 1 ) */
    XTUML_OAL_STMT_TRACE( 2, "RETURN ( lase::o2(3) + 1 )" );
    return ( c2_lase_o2( 3 ) + 1 );
  }
  /* RETURN 0 */
  XTUML_OAL_STMT_TRACE( 1, "RETURN 0" );
  return 0;
}
Exemplo n.º 30
0
/*
 * Instance Loader (from string data).
 */
Escher_iHandle_t
ooaofooa_C_P_instanceloader( Escher_iHandle_t instance, const c_t * avlstring[] )
{
  Escher_iHandle_t return_identifier = 0;
  ooaofooa_C_P * self = (ooaofooa_C_P *) instance;
  /* Initialize application analysis class attributes.  */
  self->Provision_Id = (Escher_iHandle_t) Escher_atoi( avlstring[ 1 ] );
  Escher_strcpy( self->Name, avlstring[ 2 ] );
  Escher_strcpy( self->InformalName, avlstring[ 3 ] );
  {i_t i = avlstring[ 4 + 1 ] - avlstring[ 4 ];
  self->Descrip = ( i > 0 ) ? (c_t *) Escher_malloc( i ) : "";
  while ( --i >= 0 ) { self->Descrip[ i ] = avlstring[ 4 ][ i ]; }
  }
  Escher_strcpy( self->pathFromComponent, avlstring[ 5 ] );
  return return_identifier;
}