BOUCLE FOR

/*
Syntaxe : /for (initialisation>;<condition>;<modification>) /commande
Exemple d'utilisation : /for (%var=1;%var<=10;%var++) echo -a test
Ne gère pas les blocs de commande { ... }
Attention à ne mettre aucun espace entre les parenthèses du for
*/

alias for {
  var %param1, %param2, %param3, %debut, %fin, %Pas, %i, %mod, %NbIteration
  $iif($regex($gettok($right($1,-1),1,59),^%\w+=-?\d+$), %param1 = 1, %param1 = 0)
  $iif(($regex($gettok($1,2,59),^%\w+(<|>)=?-?\d+$)),%param2 = 1, %param2 = 0)
  if ($regex($gettok($left($1,-1)$1,3,59),^%.+[^+-](-{2}|\+{2})\d*$)) {
    %param3 = 1
    if $regex($gettok($left($1,-1)$1,3,59),\+{2}\d*$) {
      %i = $len($gettok($left($1,-1)$1,3,59))
      %mod = inc
      while (%i > 1 && $mid($gettok($left($1,-1)$1,3,59), %i, 1) != +) {
        %Pas = $+($mid($gettok($left($1,-1)$1,3,59), %i, 1),$eval(%Pas))
        dec %i
      }
      $iif(!%Pas, %Pas = 1)
    }
    elseif $regex($gettok($left($1,-1)$1,3,59),-{2}\d*$) {
      %i = $len($gettok($left($1,-1)$1,3,59))
      %mod = dec
      while (%i > 1 && $mid($gettok($left($1,-1)$1,3,59), %i, 1) != -) {
        %Pas = $+($mid($gettok($left($1,-1)$1,3,59), %i, 1),$eval(%Pas))
        dec %i
      }
      $iif(!%Pas, %Pas = 1)
    }
  }
  else { %param3 = 0 }
  if ((%param1) && (%param2) && (%param3)) {
    %debut = $gettok($gettok($right($1,-1),1,59),2,61)
    if ($regex($gettok($1,2,59),^%\w+<=-?\d+$)) {
      %fin = $gettok($gettok($1,2,59),2,61)
      while (%debut <= %fin) {
        $2-
        $iif(%Mod = inc, inc %debut %Pas, dec %debut %pas)
      }
    }
    elseif ($regex($gettok($1,2,59),^%\w+<-?\d+$)) {
      %fin = $gettok($gettok($1,2,59),2,60)
      while (%debut < %fin) {
        $2-
        $iif(%Mod = inc, inc %debut %Pas, dec %debut %pas)
      }
    }
    elseif ($regex($gettok($1,2,59),^%\w+>-?\d+$)) {
      %fin = $gettok($gettok($1,2,59),2,62)
      while (%debut > %fin) {
        $2-
        $iif(%Mod = inc, inc %debut %Pas, dec %debut %pas)
      }
    }
    elseif ($regex($gettok($1,2,59),^%\w+>=-?\d+$)) {
      %fin = $gettok($gettok($1,2,59),2,60)
      while (%debut >= %fin) {
        $2-
        $iif(%Mod = inc, inc %debut %Pas, dec %debut %pas)
      }
    }
  }
  else {
    echo -a 4Syntaxe incorrecte
    echo -a Syntaxe : /for (<initialisation>;<condition>;<modification>) /commande
    echo -a Exemple : /for (%i=1;%i<=10;%i++) echo -a test
  }
}