[BACK]Return to instructions_c2.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/instructions_c2.c between versions 1.37 and 1.40

version 1.37, 2012/09/29 17:53:02 version 1.40, 2012/10/01 11:05:03
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.10    RPL/2 (R) version 4.1.11
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 74  instruction_cycle(struct_processus *s_et Line 74  instruction_cycle(struct_processus *s_et
         printf("        ...\n");          printf("        ...\n");
         printf("    NEXT/STEP\n\n");          printf("    NEXT/STEP\n\n");
   
           printf("    FORALL (variable)\n");
           printf("        ...\n");
           printf("        CYCLE\n");
           printf("        ...\n");
           printf("    NEXT\n\n");
   
         printf("    START\n");          printf("    START\n");
         printf("        ...\n");          printf("        ...\n");
         printf("        CYCLE\n");          printf("        CYCLE\n");
Line 152  instruction_cycle(struct_processus *s_et Line 158  instruction_cycle(struct_processus *s_et
                     (strcmp(instruction_majuscule, "DO") == 0) ||                      (strcmp(instruction_majuscule, "DO") == 0) ||
                     (strcmp(instruction_majuscule, "WHILE") == 0) ||                      (strcmp(instruction_majuscule, "WHILE") == 0) ||
                     (strcmp(instruction_majuscule, "FOR") == 0) ||                      (strcmp(instruction_majuscule, "FOR") == 0) ||
                       (strcmp(instruction_majuscule, "FORALL") == 0) ||
                     (strcmp(instruction_majuscule, "START") == 0) ||                      (strcmp(instruction_majuscule, "START") == 0) ||
                     (strcmp(instruction_majuscule, "SELECT") == 0)                      (strcmp(instruction_majuscule, "SELECT") == 0)
                     || (strcmp(instruction_majuscule, "CRITICAL") == 0)                      || (strcmp(instruction_majuscule, "CRITICAL") == 0)
Line 165  instruction_cycle(struct_processus *s_et Line 172  instruction_cycle(struct_processus *s_et
                 else                  else
                 {                  {
                     if ((strcmp(instruction_majuscule, "FOR") == 0) ||                      if ((strcmp(instruction_majuscule, "FOR") == 0) ||
                               (strcmp(instruction_majuscule, "FORALL") == 0) ||
                             (strcmp(instruction_majuscule, "START") == 0))                              (strcmp(instruction_majuscule, "START") == 0))
                     {                      {
                         niveau++;                          niveau++;
Line 292  instruction_cycle(struct_processus *s_et Line 300  instruction_cycle(struct_processus *s_et
                     (fonction == instruction_do) ||                      (fonction == instruction_do) ||
                     (fonction == instruction_while) ||                      (fonction == instruction_while) ||
                     (fonction == instruction_for) ||                      (fonction == instruction_for) ||
                       (fonction == instruction_forall) ||
                     (fonction == instruction_start) ||                      (fonction == instruction_start) ||
                     (fonction == instruction_select) ||                      (fonction == instruction_select) ||
                     (fonction == instruction_case) ||                      (fonction == instruction_case) ||
Removed from v.1.37  
changed lines
  Added in v.1.40

CVSweb interface <joel.bertrand@systella.fr>