Revision 2216 trunk/src/nh99/tpl2cpp.lex
tpl2cpp.lex (revision 2216)  

3223  3223 
{ 
3224  3224 
BEGIN DEFINE_PARAMETERS; 
3225  3225 
} 
3226 
} 

3226 
} 

3227 
<IN_NAMED_FOUR_ARRAY_DEF>{name} { 

3228 
if (warn_unallocated) write_unallocated("4darray()"); 

3227  3229  
3230 
strcpy(tmp_string,yytext); // get x in x(1,4) 

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

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

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

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

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

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

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

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

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

3240 
if (!params_defined) 

3241 
{ 

3242 
if(likelihood_found) { 

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

3244 
likelihood_found=0; 

3245 
} 

3246 
BEGIN DEFINE_DATA; 

3247 
} 

3248 
else 

3249 
{ 

3250 
BEGIN DEFINE_PARAMETERS; 

3251 
} 

3252 
} 

3253  
3228  3254 
<IN_NAMED_FIVE_ARRAY_DEF>{name}\({num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp},{num_exp}\) { 
3229  3255  
3230  3256 
before_part(tmp_string,yytext,'('); // get x in x(1,4) 
...  ...  
3248  3274 
{ 
3249  3275 
BEGIN DEFINE_PARAMETERS; 
3250  3276 
} 
3251 
} 

3277 
} 

3278 
<IN_NAMED_FIVE_ARRAY_DEF>{name} { 

3279 
if (warn_unallocated) write_unallocated("5darray()"); 

3252  3280  
3281 
strcpy(tmp_string,yytext); // get x in x(1,4) 

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

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

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

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

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

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

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

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

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

3291 
if (!params_defined) 

3292 
{ 

3293 
if(likelihood_found) { 

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

3295 
likelihood_found=0; 

3296 
} 

3297 
BEGIN DEFINE_DATA; 

3298 
} 

3299 
else 

3300 
{ 

3301 
BEGIN DEFINE_PARAMETERS; 

3302 
} 

3303 
} 

3304  
3305  
3253  3306 
<IN_NAMED_SIX_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}\) { 
3254  3307  
3255  3308 
before_part(tmp_string,yytext,'('); // get x in x(1,4) 
...  ...  
3274  3327 
BEGIN DEFINE_PARAMETERS; 
3275  3328 
} 
3276  3329 
} 
3330 
<IN_NAMED_SIX_ARRAY_DEF>{name} { 

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

3277  3332  
3333 
strcpy(tmp_string,yytext); // get x in x(1,4) 

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

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

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

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

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

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

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

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

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

3343 
if (!params_defined) 

3344 
{ 

3345 
if(likelihood_found) { 

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

3347 
likelihood_found=0; 

3348 
} 

3349 
BEGIN DEFINE_DATA; 
Also available in: Unified diff