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>