variable * createvar(const char *nom, listdim *d)
{
variable *var;
listdim *dims;
char ligne[LONG_M];
char listdimension[LONG_M];
var = (variable *) calloc(1,sizeof(variable));
Init_Variable(var);
strcpy(listdimension,"");
strcpy(var->v_nomvar,nom);
strcpy(var->v_modulename,curmodulename);
strcpy(var->v_commoninfile,cur_filename);
strcpy(var->v_subroutinename,subroutinename);
if ( strcasecmp(nameinttypename,"") )
{
strcpy(var->v_nameinttypename,nameinttypename);
}
if ( optionaldeclare == 1 ) var->v_optionaldeclare = 1;
if ( pointerdeclare == 1 ) var->v_pointerdeclare = 1;
if ( VariableIsParameter == 1 ) var->v_VariableIsParameter = 1 ;
if ( PublicDeclare == 1 ) var->v_PublicDeclare = 1 ;
if ( PrivateDeclare == 1 ) var->v_PrivateDeclare = 1;
if ( ExternalDeclare == 1 ) var->v_ExternalDeclare = 1;
var->v_dimension = d;
/* Creation of the string for the dimension of this variable */
dimsempty = 1;
if ( d )
{
var->v_dimensiongiven = 1;
dims = d;
while (dims)
{
if ( strcasecmp(dims->dim.first,"") || strcasecmp(dims->dim.last,""))
{
dimsempty = 0;
}
sprintf(ligne,"%s:%s",dims->dim.first,dims->dim.last);
strcat(listdimension,ligne);
if ( dims->suiv )
{
strcat(listdimension,",");
}
dims = dims->suiv;
}
if ( dimsempty == 1 || GlobalDeclarationType == 1 ) var->v_dimsempty = 1;
}
strcpy(var->v_readedlistdimension,listdimension);
Save_Length(listdimension,15);
var->v_nbdim = get_num_dims(d);
return var;
}
void Add_Data_Var_Names_01 (listvar **curlist,listname *l1,listname *l2)
{
listvar *newvar;
listvar *tmpvar;
listname *tmpvar1;
listname *tmpvar2;
char ligne[LONG_C];
tmpvar1 = l1;
tmpvar2 = l2;
while (tmpvar1)
{
newvar=(listvar *)malloc(sizeof(listvar));
newvar->var=(variable *)malloc(sizeof(variable));
/* */
Init_Variable(newvar->var);
/* */
if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
strcpy(newvar->var->v_nomvar,tmpvar1->n_name);
Save_Length(tmpvar1->n_name,4);
strcpy(newvar->var->v_subroutinename,subroutinename);
Save_Length(subroutinename,11);
strcpy(newvar->var->v_modulename,curmodulename);
Save_Length(curmodulename,6);
strcpy(newvar->var->v_commoninfile,mainfile);
Save_Length(mainfile,10);
strcpy(newvar->var->v_initialvalue,tmpvar2->n_name);
Save_Length(tmpvar2->n_name,14);
newvar->suiv = NULL;
if ( ! (*curlist) )
{
*curlist = newvar ;
}
else
{
tmpvar = *curlist;
while (tmpvar->suiv)
tmpvar=tmpvar->suiv;
tmpvar->suiv = newvar;
}
tmpvar1 = tmpvar1->suiv;
tmpvar2 = tmpvar2->suiv;
}
return;
}
void Add_Data_Var_1 (listvar **curlist,char *name,char *values)
{
listvar *newvar;
char ligne[LONG_C];
// if ( firstpass == 1 )
// {
newvar=(listvar *)malloc(sizeof(listvar));
newvar->var=(variable *)malloc(sizeof(variable));
/* */
Init_Variable(newvar->var);
/* */
if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
strcpy(newvar->var->v_nomvar,name);
Save_Length(name,4);
strcpy(newvar->var->v_subroutinename,subroutinename);
Save_Length(subroutinename,11);
strcpy(newvar->var->v_modulename,curmodulename);
Save_Length(curmodulename,6);
strcpy(newvar->var->v_commoninfile,mainfile);
Save_Length(mainfile,10);
if (strchr(values,',') && strncasecmp(values,"'",1))
{
sprintf(ligne,"(/%s/)",values);
}
else
strcpy(ligne,values);
strcpy(newvar->var->v_initialvalue,ligne);
Save_Length(ligne,14);
newvar->suiv = NULL;
if ( ! (*curlist) )
{
*curlist = newvar ;
}
else
{
newvar->suiv = *curlist;
*curlist = newvar;
}
// }
}
// ----------------------------------------------------------------------------
// 2006-10-23 오전 2:34:25 추가(New), Sun.H.D
// 호출 시점 : CCell Member Function
//
// 특 징 :
//
// 매개 변수 :
//
// 리 턴 값 :
// ----------------------------------------------------------------------------
CCell::CCell()
{
Init_Variable();
}
// ----------------------------------------------------------------------------
// 2006-10-23 오전 2:34:06 추가(New), Sun.H.D
// 호출 시점 : CInkPoint Member Function
//
// 특 징 :
//
// 매개 변수 :
//
// 리 턴 값 :
// ----------------------------------------------------------------------------
CInkPoint::CInkPoint()
{
Init_Variable();
}
