Return to generateurs_aleatoires.awk CVS log

Up to [local] / rpl / src

Annotation of rpl/src/generateurs_aleatoires.awk, revision 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: