Add routine identifier storage

logoPlayer/galgas-sources/logoPlayer-syntax.galgas

@@ -7,7 +7,7 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
     <routines> !? routineArray
 
     $BEGIN$
-    <instructions>
+    <instructions> !? routineArray
     $END$
     $.$
   }
@@ -22,26 +22,27 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
   rule <routine> ?! @routineMap ioRoutineArray {
     $ROUTINE$
     $identifier$ ?let @lstring routineId
+    [ !? ioRoutineArray insertKey !routineId ]
     log routineId
     $BEGIN$
-    <instructions>
+    <instructions> !? ioRoutineArray
     $END$
   } 
 
-  rule <instructions> {
+  rule <instructions> ?! @routineMap ioRoutineArray {
     repeat
     while
-      <instruction>
+      <instruction> !? ioRoutineArray
     end
   }
 
-  rule <instruction> {
+  rule <instruction> ?! @routineMap ioRoutineArray {
     select
       <move>
     or
       <set_pen>
     or
-      <call_routine>
+      <call_routine> !? ioRoutineArray
     end
     $;$
   }
@@ -65,9 +66,10 @@ syntax logoPlayer_syntax (logoPlayer_lexique) {
     end
   }
 
-  rule <call_routine> {
+  rule <call_routine> ?! @routineMap ioRoutineArray {
     $CALL$
     $identifier$ ?let @lstring routineId
+    [ ioRoutineArray searchKey !routineId ]
   }
     
 }