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