Add argument for routine

logoPlayer/galgas-sources/logoPlayer-syntax.galgas

@@ -3,7 +3,8 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
   rule <start_symbol> {
     # Routine definition
     $PROGRAM$
-    <routines>
+    @routineMap routineArray = {}
+    <routines> !? routineArray
 
     $BEGIN$
     <instructions>
@@ -11,14 +12,14 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
     $.$
   }
 
-  rule <routines> {
+  rule <routines> ?! @routineMap routineArray {
     repeat
     while
-      <routine>
+      <routine> !? routineArray
     end
   }
 
-  rule <routine> {
+  rule <routine> ?! @routineMap ioRoutineArray {
     $ROUTINE$
     $identifier$ ?let @lstring routineId
     log routineId
@@ -66,7 +67,7 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
 
   rule <call_routine> {
     $CALL$
-    $identifier$ ?*
+    $identifier$ ?let @lstring routineId
   }
     
 }