Revision 2216 trunk/src/df1b2-separable/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