Revision 2216 trunk/src/df1b2separable/tpl2rem.lex
tpl2rem.lex (revision 2216)  

3414  3414 
} 
3415  3415 
} 
3416  3416  
3417 
<IN_NAMED_SIX_ARRAY_DEF>{name} { 

3418 
if (warn_unallocated) write_unallocated("6darray()"); 

3419  
3420 
strcpy(tmp_string,yytext); // get x in x(1,4) 

3421 
fprintf(fdat,"%s",tmp_string); 

3422 
fprintf(fall," %s",tmp_string); 

3423 
fprintf(fall,"%s",".allocate()"); 

3424 
//fprintf(fall,"%s",".allocate"); 

3425 
//after_part(tmp_string1,yytext,'('); // get x in x(1,4) 

3426 
//before_part(tmp_string2,tmp_string1,')'); 

3427 
//fprintf(fall,"%s)",tmp_string2); 

3428 
fprintf(fdat,"%s",";\n"); 

3429 
fprintf(fall,"%s",";\n"); 

3430 
if (!params_defined) 

3431 
{ 

3432 
if(likelihood_found) { 

3433 
if(likelihood_counter<MAX_LIKE_CHECK) sprintf(likelihood_checker[likelihood_counter++],"%s",tmp_string); 

3434 
likelihood_found=0; 

3435 
} 

3436 
BEGIN DEFINE_DATA; 

3437 
} 

3438 
else 

3439 
{ 

3440 
BEGIN DEFINE_PARAMETERS; 

3441 
} 

3442 
} 

3443  
3417  3444 
<IN_NAMED_SEVEN_ARRAY_DEF>{name}\({num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp}\) { 
3418  3445  
3419  3446 
before_part(tmp_string,yytext,'('); // get x in x(1,4) 
Also available in: Unified diff