[BACK]Return to generateurs_aleatoires.awk CVS log [TXT] [DIR] Up to [local] / rpl / src
File:  [local] / rpl / src / generateurs_aleatoires.awk
Revision 1.8: download - view: text, annotated - select for diffs - revision graph
Tue Feb 26 19:56:12 2013 UTC (12 years, 2 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_35, rpl-4_1_34, rpl-4_1_33, rpl-4_1_32, rpl-4_1_31, rpl-4_1_30, rpl-4_1_29, rpl-4_1_28, rpl-4_1_27, rpl-4_1_26, rpl-4_1_25, rpl-4_1_24, rpl-4_1_23, rpl-4_1_22, rpl-4_1_21, rpl-4_1_20, rpl-4_1_19, rpl-4_1_18, rpl-4_1_17, rpl-4_1_16, rpl-4_1_15, rpl-4_1_14, rpl-4_1_13, rpl-4_1_12, HEAD
Mise à jour des copyrights.

    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>