File:
[local] /
rpl /
src /
generateurs_aleatoires.awk
Revision
1.6:
download - view:
text,
annotated -
select for diffs -
revision graph
Tue Jun 21 07:45:22 2011 UTC (13 years, 3 months ago) by
bertrand
Branches:
MAIN
CVS tags:
rpl-4_1_9,
rpl-4_1_8,
rpl-4_1_7,
rpl-4_1_6,
rpl-4_1_5,
rpl-4_1_4,
rpl-4_1_3,
rpl-4_1_2,
rpl-4_1_11,
rpl-4_1_10,
rpl-4_1_1,
rpl-4_1_0,
HEAD
Merge de la branche 4_0 sur HEAD.
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>