Revision 2216

trunk/src/nh99/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;
... This diff was truncated because it exceeds the maximum size that can be displayed.

Also available in: Unified diff