Conjugaison de verbe du 1er groupe

Commenter

Contenu du snippet

Voici un petit alias pour conjuguer vos verbes du 1er groupe.
Pas trop utile, mais juste histoire de taper ds l'originalité.

Source / Exemple : 


conjugue {
  if ($1 == $null) { halt }
  if ($2 == $null) { halt }
  set %verbe $1
  set %p $2
  set %verbelen $len(%verbe)
  set %radicverbe $left(%verbe,$calc(%verbelen - 2))
  if (%p = je) { goto je }
  if (%p = tu) { goto tu }
  if (%p = il) { goto il }
  if (%p = elle) { goto elle }
  if (%p = on) { goto on }
  if (%p = nous) { goto nous }
  if (%p = vous) { goto vous }
  if (%p = ils) { goto ils }
  :je
  if ($left(%radicverbe,1) == a) { goto je2 }
  if ($left(%radicverbe,1) == e) { goto je2 }
  if ($left(%radicverbe,1) == o) { goto je2 }
  if ($left(%radicverbe,1) == i) { goto je2 }
  if ($left(%radicverbe,1) == u) { goto je2 }
  else { echo -a je %radicverbe $+ e | goto vide }
  :je2
  echo -a j' $+ %radicverbe $+ e | goto vide
  :tu
  echo -a tu %radicverbe $+ es | goto vide
  :il
  echo -a il %radicverbe $+ e | goto vide
  :elle
  echo -a elle %radicverbe $+ e | goto vide
  :on
  echo -a on %radicverbe $+ e | goto vide
  :nous
  if (g isin %radicverbe) { goto nous2 }
  else { echo -a nous %radicverbe $+ ons | goto vide }
  :nous2
  echo -a nous %radicverbe $+ eons | goto vide
  :vous
  echo -a vous %radicverbe $+ ez | goto vide
  :ils
  echo -a ils %radicverbe $+ ent | goto vide
  :vide
  unset %verbe
  unset %verbelen
  unset %radicverbe
  unset %p | halt
}

Conclusion :


Cela s'utilise /conjugue leverbe lapersonne
par exemple /conjugue scripter je

Voila. @+

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_SornDrixer)