Instruction RET fait un seul UP et ne retourne pas de valeur.

git-svn-id: http://ladystorm.bigmadarea.net/svn/nf11@34 1e871849-ca45-4617-b4d0-c39c463a1ac7

src/logoparsing/Logo.g

@@ -41,6 +41,7 @@ tokens {
 	POUR = 'POUR';
 	FIN = 'FIN';
 	CHAINE;
+	RET = 'RET';
 }
 @lexer::header {
 	package logoparsing;
@@ -89,6 +90,7 @@ instruction
 	|	ECRIS^ expr
 	|	procedure
 	|	exec
+	|	ret
 	;
 expr	:	sumExpr
 	;
@@ -128,3 +130,5 @@ procedure
 exec	:	a = ID^ { if (!procedures.contains($a.getText())) {valide = false; Log.appendnl("La procedure "+$a.getText()+" n'a pas ete declaree.");}}
 		((expr | id_lecture | chaine))*
 	;
+ret	:	RET^ (expr|chaine)
+	;

src/logoparsing/LogoTree.g

@@ -96,6 +96,7 @@ instruction
 	|	VE {traceur.init();}
 	|	procedure
 	|	exec
+	|	ret
 	;
 expr returns [double v]
 	:	^(OP_PLUS x=expr y=expr) {$v = $x.v + $y.v;}
@@ -175,7 +176,7 @@ procedure
 	;
 arg_dec	:	a = ID {procedureVars.get(procedureName).addVar($a.getText());}
 	;
-exec
+exec returns [String r]
 @init {
 	compteur = 1;
 }
@@ -190,3 +191,6 @@ exec
 arg_exec:	x = expr {procedureVars.get(procedureName).initVar(compteur++, String.valueOf($x.v));}
 	|	s = chaine {procedureVars.get(procedureName).initVar(compteur++, $s.s);}
 	;
+ret returns [String r]
+	:	^(RET (x = expr {r = String.valueOf($x.v);}|s = chaine {r = $s.s;})) {consumeUntil(input, Token.UP);}
+	;