BOUCLE FOR

; Boucle For
; -----------

alias for  {
  if ($4) {
    if $regex($1,/^([[:alnum:]]+=\d{1,})/i) { var %deb , %debreg = $regsub($1,/([[:alnum:]]+=)/gi,,%deb) }
    elseif $regex($1,/^([[:alnum:]]+)$/i) { var %deb = 0 }
    else { forsyn | goto end }
    if $regex($2,/(([[:alnum:]])(<|>|<=|>=)(\d{1,2}))/) { var %fin = $regml(4) , %marche = $regml(3) }
    else { forsyn | goto end }
    if $regex($3,/^(([+-])(\d{1,}))$/) { var %mdpas = $regml(2) , %pas = $regml(3) }
    elseif $regex($3,/^(([[:alnum:]]+)((\+|-){2}))$/i) { var %mdpas = $left($regml(3),1) , %pas = 1 }
    elseif $regex($3,/^(([[:alnum:]]+)=(\2)([+-])(\d{1,}))$/i) { var %mdpas = $regml(4) , %pas = $regml(5) }
    else { forsyn | goto end }
    %commblc = $4
    if ($5-) { var %oparam = $5- }
    while (%deb %marche %fin) { %commblc %deb $iif(%oparam,%oparam) | $iif((%mdpas == +),inc,dec) %deb %pas }
  }
  else { forsyn }
  :end
}
alias -l forsyn {
  echo -st $chr(2) $+ Incorrect Syntax in " FOR-loop "
  echo -st $chr(160)
  echo -st /for $for< $+ [NomVariable][=][Initialisation] $+ $for> $for< $+ [NomVariable][<|>|<=|>=][Fin] $+ $for> $for< $+ [+|-][Pas] $+ $for| $+ [NomVariable][++|--] $+ $for| $+ [NomVariable]=[NomVariable][+|-][Pas] $+ $for> $for< $+ [CommandBlocName] $+ $for> $for< $+ [OtherParameters] $+ $for>
  echo -st $chr(160)
  echo -st $fordb(Para 1:) $for< $+ [NomVariable][=][Initialisation] $+ $for> $fordb(Para 2:) $for< $+ [NomVariable][<|>|<=|>=][Fin] $+ $for>
  echo -st $fordb(Para 3:) $for< $+ [+|-][Pas] $+ $for| $+ [NomVariable][++|--] $+ $for| $+ [NomVariable]=[NomVariable][+|-][Pas] $+ $for>
  echo -st $fordb(Para 4:) $for< $+ [CommandBlocName] $+ $for> $fordb(Para 5:) $for< $+ [OtherParameters] $+ $for>
}
alias -l for< { return $+($chr(3),03,<,$chr(3)) }
alias -l for> { return $+($chr(3),03,>,$chr(3)) }
alias -l for| { return $+($chr(3),04,|,$chr(3)) }
alias -l fordb { return $+($chr(2),$1-,$chr(2)) }

; Exemple de Bloc de commandes
; -------------------------------------

alias commbloc {
  ; Para. $1 = %deb ; Other Parameters = $2-
  echo -st -
  echo -st command: $1
  echo -st command: $1
  echo -st Other Parameters: $2-
  echo -st -
}

; FOR Loop (with comments)
; ------------------------ 
  
alias for {
  ; si tous les paramètres nécessaires existent ...
  if ($4) { 
    ; recherche de la valeure de l'initialisation ...
    ; en utilisant un $regsub, on récupère cette valeure !
    if $regex($1,/^([[:alnum:]]+=\d{1,})/i) { 
      var %deb , %debreg = $regsub($1,/([[:alnum:]]+=)/gi,,%deb)
    } 
    ; si aucune valeure n'est précisée, alors prendre 0 !
    elseif $regex($1,/^([[:alnum:]]+)$/i) { 
      var %deb = 0
    } 
    ; sinon , aller acheter un kébab ptdr
    else { forsyn | goto end }
    ; recherche de la borne de la boucle ...
    ; à partir du $regex et donc des $regml(n), on récupère les valeurs qu'ils nous faut ^^
    if $regex($2,/(([[:alnum:]])(<|>|<=|>=)(\d{1,2}))/) {
      var %fin = $regml(4) , %marche = $regml(3)
    } 
    ; sinon , aller au macdo LOL
    else { forsyn | goto end } 
    ; recherche du pas de la boucle ...
    ; j'utilise ici 3 modèles de regex différents ^^
    ; cas ou +|-Pas est rentré
    if $regex($3,/^(([+-])(\d{1,}))$/) { 
      var %mdpas = $regml(2) , %pas = $regml(3)
    } 
    ; cas ou NomVariable++|-- est rentré
    elseif $regex($3,/^(([[:alnum:]]+)((\+|-){2}))$/i) {
      var %mdpas = $left($regml(3),1) , %pas = 1
    } 
    ; cas ou NomVariable=NomVariable+Pas est rentré ^^
    ; ( attention: si vous mettez par exemple, test=machine+2 , ça ne marchera jamais . il faut mettre test=test+2 , si le nom de la variable est " test " bien sur )
    elseif $regex($3,/^(([[:alnum:]]+)=(\2)([+-])(\d{1,}))$/i) {
      var %mdpas = $regml(4) , %pas = $regml(5)
    } 
    ; sinon , manger une pomme !
    else { forsyn | goto end }
    ; récupération du nom de bloc de commandes et de ses paramètres ...
    %commblc = $4 
    if ($5-) { var %oparam = $5- } 
    ; enfin , faire une boucle avec toutes les valeurs précédemment traitées :O)
    while (%deb %marche %fin) { 
      ; appel du bloc de commande ^^ ...
      %commblc %deb $iif(%oparam,%oparam)
      ; ici , selon la valeu de %mdpas (+ ou -), faire un inc ou un dec :)
      $iif((%mdpas == +),inc,dec) %deb %pas 
    } 
  } 
  else { forsyn } 
  :end 
} 

/*
Quelques explications sur les Regex:
$regml(n) renvoit la nième partie du texte vérifiant le modèle
ainsi, on peut récupérer CE QUE L'ON VEUT (n'est-ce pas génial ? :p)
$regsub quant à lui à la prétention de faire une substitution de ce qu'on veut dans une chaîne de caractère par ce que l'on veut \o/
*/

voila voila

13 novembre 2006 05:02:50 :

correction d'un ptit bug de rien du tout

13 novembre 2006 05:45:33 :

rajout de la partie [OtherParameters] pour pouvoir utiliser la boucle partout " ou presque " :)

13 novembre 2006 06:39:55 :

rajout d'autres possibilités pour le pas ^^

13 novembre 2006 06:48:43 :

minor change

13 novembre 2006 06:51:07 :

minor change

13 novembre 2006 07:20:39 :

rajout d'une version commentée ^^