demos/for_range.c

   1 #include "cll1.h"
   2
   3 program
   4 {
   5  int i,j=1;
   6
   7  echo("Just plain vanilla auto-increment:\tfor_range(i,1,5)");
   8  for_range(i,1,5)
   9  {
  10   printf(" [%d]",i);
  11  }
  12  print("");
  13
  14  echo("Single-evaluation of macro argument:\tj=1; for_range(i,0,j++)");
  15  for_range(i,0,j++)
  16  {
  17   printf(" [%d]",i);
  18  }
  19  print("");
  20
  21  echo("Just plain vanilla auto-decrement:\tfor_range(i,1,0)");
  22  for_range(i,1,0)
  23  {
  24   printf(" [%d]",i);
  25  }
  26  print("");
  27
  28  echo("Single iteration is possible too:\tfor_range(i,1,1)");
  29  for_range(i,1,1)
  30  {
  31   printf(" [%d]",i);
  32  }
  33  print("");
  34
  35  echo("Yet another example of macro safety:\tj=2; for_range(i,5,--j)");
  36  for_range(i,5,--j)
  37  {
  38   printf(" [%d]",i);
  39  }
  40  print("");
  41
  42  echo("Nesting of this macro seems to be safe:\tfor_range(i,1,3) for_range(j,3,1)");
  43  for_range(i,1,3)
  44  {
  45   for_range(j,3,1)
  46   {
  47    printf(" [%d,%d]",i,j);
  48   }
  49  }
  50  print("");
  51 }