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:
CVSweb interface <joel.bertrand@systella.fr>