Suggestion de parseur de grammaire (ANTLR)

Question

Eh bien, j'essaie d'écrire une grammaire QBasic simple sur Antlr4. Et 'Else-If' boucle ne fonctionnera pas correctement, il convertit automatiquement en assigncommand après THEN. Et pourriez-vous revoir ma grammaire, y a-t-il des améliorations?

Comment écrire un string dans l'expression régulière. (Aussi avec cyrillique)

devrais-je écrire ces mots clés ('PRINT' 'IF')? ou l'utilisation lexer (comme ..PRINTKEY; PRINTKEY : 'PRINT')

grammar Hello3; 

// AssignCommand; MainCommand; FlowCommand 
prog : (assigncommand | maincommand | flowcommand)+; 

// AssignInt; AssignString 
// MyAge = PreviousAge + 1 
// MyName$ = FirstName$ + MiddleName$ + LastName$ 
assigncommand : assignint | assignstring; 
assignint : IDINT '=' (IDINT | INT) (OPERATORMATH (IDINT | INT))* '\n'+; 
assignstring : IDSTRING '=' (IDSTRING | STRING) ('+' (IDSTRING | STRING))* '\n'+; 

//PrintCommand, InputCommand 
//PRINT MyName$, MyAge, "Hello", 123 
//INPUT "What is your name?", yourname$ 
//(or)INPUT yourname$ 
maincommand : printcommand | inputcommand; 
printcommand : 'PRINT' (',' (IDINT | IDSTRING | STRING | INT))+ '\n'+; 
inputcommand : 'INPUT' (IDINT | IDSTRING | STRING)? ',' (IDINT | IDSTRING) '\n'+; 


//If-ElseFlow; WhileFlow 
//If-Else-Add; Else-Add 
// 
//IF a > 3 THEN 
//PRINT a 
//a = a -1 
//ELSE IF a = 1 THEN 
//b = a 
//END IF 
// 
//WHILE a > 3 
//a = a - 1 
//PRINT a 
//WEND 
flowcommand : ifelseflow | whileflow; 
ifelseflow : 'IF' conditionflow 'THEN' '\n' ifelseadd* elseadd* 'END' 'IF' '\n'+; 
whileflow : 'WHILE' conditionflow '\n' (assigncommand | maincommand | flowcommand)* 'WEND' '\n'+; 

conditionflow : ((INT | IDINT) OPERATORBOOL (INT | IDINT)) | ((STRING | IDSTRING) '=' (STRING | IDSTRING)); 
ifelseadd : 'ELSEIF' conditionflow 'THEN' '\n' ((assigncommand | maincommand | flowcommand) '\n')+; 
elseadd : 'ELSE' '\n' ((assigncommand | maincommand | flowcommand) '\n')+; 

//Lexers 
INT : [0-9]+; 
STRING : '"' [a-zA-Z\u0400-\u04FF\0-9' ''?'':']+ '"'; 
IDINT : [a-zA-Z]([a-zA-Z0-9]*);  //MyAge 
IDSTRING : [a-zA-Z]([a-zA-Z0-9]*)'$'; //MyName$ 
OPERATORMATH : '+'|'-'|'*'|'/'; 
OPERATORBOOL : '='|'>'|'<'|'>='|'<='; 
WS : [ \t\r]+ -> skip; 

Answer 1

Comme vous, je trouve la mise en œuvre de if..else constructions dans un langage de type BASIC comme un véritable défi à mettre en œuvre. J'ai trouvé de bonnes ressources en ligne. S'il vous plaît jeter un oeil à ma grammaire snip:

ifstmt 
: IF condition_block (ELSE IF condition_block)* (ELSE stmt_block)? 
; 

condition_block 
: expr stmt_block 
; 

stmt_block 
: OBRACE statement+ CBRACE 
| statement 
; 

Et ma mise en œuvre (dans le modèle C# visiteur):

public override MuValue VisitIfstmt(LISBASICParser.IfstmtContext context) 
    { 
     LISBASICParser.Condition_blockContext[] conditions = context.condition_block(); 
     bool evaluatedBlock = false; 
     foreach (LISBASICParser.Condition_blockContext condition in conditions) 
     { 
      MuValue evaluated = Visit(condition.expr()); 
      if (evaluated.AsBoolean()) 
      { 
       evaluatedBlock = true; 
       Visit(condition.stmt_block()); 
       break; 
      } 
     } 
     if (!evaluatedBlock && context.stmt_block() != null) 
     { 
      Visit(context.stmt_block()); 
     } 
     return MuValue.Void; 
    } 

J'empruntèrent la MuValue idée d'une excellente mise en œuvre de son langage Mu de Bart Kiers. Beaucoup de bonnes idées dans ce projet de son.