Return to generateurs_aleatoires.awk CVS log

Up to [local] / rpl / src

Annotation of rpl/src/generateurs_aleatoires.awk, revision 1.1.1.1

1.1       bertrand    1: BEGIN {
                      2:    indicateur = 0;
                      3: }
                      4: 
                      5: /^GSL_VAR const gsl_rng_type \*/ {
                      6:    if (toupper(substr($4, 2, length($4) - 2)) != "GSL_RNG_DEFAULT")
                      7:    {
                      8:        if (indicateur == 1)
                      9:        {
                     10:            printf("else ");
                     11:        }
                     12:        else
                     13:        {
                     14:            indicateur = 1;
                     15:        }
                     16: 
                     17:        printf("if (strcmp(requete, \"%s\") == 0)\n{\n", \
                     18:               toupper(substr($4, 10, length($4) - 10)));
                     19:        printf("    (*s_etat_processus).type_generateur_aleatoire = %s;\n", \
                     20:               substr($4, 2, length($4) - 2));
                     21:        printf("}\n");
                     22:    }
                     23: }
                     24: 
                     25: END {
                     26:    printf("else\n{\n");
                     27:    printf("    free(requete);\n");
                     28:    printf("    (*s_etat_processus).erreur_execution = ");
                     29:    printf("d_ex_argument_invalide;\n");
                     30:    printf("    liberation(s_etat_processus, s_objet_argument);\n");
                     31:    printf("    return;\n");
                     32:    printf("}\n");
                     33: }
                     34: