Corso di programmazione in REXX - Lezione 5 - nozioni avanzate

• Annidamento di più istruzioni IF
• Uso di DO...END per evitare ambiguità
• L'istruzione NOP
• L'istruzione ITERATE
• Istruzioni DO composite
• Annidamento di loop

Annidamento di più istruzioni IF
E' possibile districarsi da complicate situazioni di scelta tra diverse condizioni annidando diverse istruzioni IF.
Il seguente esempio mostra come da due decisioni successive si possono ottenere quattro diversi risultati:

. . .
if tempo = "bello" then do
   if campo = "libero" then
      say "andiamo a giocare a pallone?"
   else
      say "andiamo a fare una passeggiata?"
   end
else do
   if giocatori = 2 then
      say "giochiamo a scacchi?"
   else
      say "giochiamo a poker?"
   end

Se si fosse usato SELECT al posto delle istruzioni IF annidate, sarebbe stato necessario usare più volte anche l'operatore logico &:

. . .
select
   when tempo = "bello" & campo = "libero" then
      say "andiamo a giocare a pallone?"
   when tempo = "bello" & campo \= "libero" then
      say "andiamo a fare una passeggiata?"
   when tempo \= "bello" & giocatori = 2 then
      say "giochiamo a scacchi?"
   otherwise
      say "giochiamo a poker?"
   end /* select */

Uso di DO...END per evitare ambiguità
E' consigliabile usare la coppia di istruzioni DO...END quando in una serie di scelte non sia presente sempre l'alternativa introdotta da ELSE.
Nel seguente esempio si può erroneamente pensare che ELSE faccia riferimento al primo IF, mentre invece l'interprete del REXX assume sempre si riferisca al primo IF che lo precede:

if tempo = "bello" then
   if campo = "libero" then
       say "andiamo a giocare a pallone?"
else
   say "dobbiamo mettere l'impermeabile?"

if tempo = "bello" then do
   if campo = "libero" then
      say "andiamo a giocare a pallone?"
   end
else
   say "dobbiamo mettere l'impermeabile?"

L'istruzione NOP

Le istruzioni THEN e ELSE devono essere seguite da un'istruzione: non è sufficiente un semplice carattere di punto e virgola.
L'istruzione NOP viene usata proprio per indicare che nessuna operazione deve essere eseguita.
Questa operazione può essere utile nei casi in cui ci siano delle istruzioni IF annidate senza che per ognuna di esse sia prevista un'azione alternativa. L'esempio del precedente paragrafo, grazie all'istruzione NOP può funzionare correttamente anche senza l'uso di DO...END:

if tempo = "bello" then
   if campo = "libero" then
      say "andiamo a giocare a pallone?"
   else
      nop
else
   say "dobbiamo mettere l'impermeabile?"

L'istruzione ITERATE
L'istruzione ITERATE, all'interno di un loop, permette di saltare da una parte qualsiasi della lista di istruzioni comprese nel loop alla condizione di esecuzione del loop stesso.
Allo stesso modo di LEAVE può essere introdotta da THEN o ELSE.
Dopo ITERATE, se il ciclo è del tipo DO UNTIL o DO WHILE viene testata la validità della condizione successiva, se è specificato un contatore questo viene incrementato.
Se dopo il test della condizione o l'incremento del contatore il loop è ancora attivo l'elaborazione riprende dalla prima istruzione del loop stesso:

DO variabile = espressione_i BY delta TO espressione_t
   istruzione1
   istruzione2
   IF espressione THEN DO
      istruzione3
      istruzione4
      ITERATE
   END
   istruzione5
   istruzione6
END

Istruzioni DO composite
E' possibile combinare in un unico loop sia la verifica di una condizione che l'incremento di un contatore.
Il seguente esempio mostra l'implementazione di una versione semplificata della funzione POS in grado di riportare la posizione di una stringa in un testo. Anche se alcuni costrutti possono essere non molto chiari (funzioni e subroutine saranno trattati nella prossima lezione) la sintassi del loop dovrebbe essere abbastanza comprensibile:

/* POSIZ.CMD                                             */
/* uso: posiz(stringa, testo)                            */

/* controlla gli argomenti immessi                       */
if arg() \= 2 then         /* se non ci sono 2 argomenti */
   return                  /* restituisce ""             */
if arg(1, "O") then        /* se il secondo argomento è  */
   return                  /* nullo restituisce ""       */

/* assegna gli argomenti alle variabili stringa e testo  */
parse arg stringa, testo

/* calcola la massima posizione possibile per la stringa */
maxpos = length(testo) - length(stringa) + 1

/* cerca "stringa" in "testo"                            */
do risultato = 1 to maxpos,
   until substr(testo, risultato, length(stringa)) = stringa
   end

/* restituisce la posizione di "stringa" o "0" nel caso  */
/* questa non sia presente in testo                      */
if risultato > maxpos then
   risultato = 0
return risultato

Annidamento di loop
Spesso un programma è costituito da più loop annidati e può essere necessario, al verificarsi di una condizione, uscire non solo dal loop corrente ma anche da uno gerarchicamente superiore.
Per ottenere questo è necessario dare un nome al loop specificando un contatore fittizio:

DO esterno = 1
   .
   .
   .
END

DO esterno = 1
   .
   .
   DO interno = 1
      .
      .
      IF espressione THEN
         LEAVE esterno
      .
      .
   END
   .
   .
END