pd.if.org Git - pccts/blob - testcpp/11/test.g

   1 /* This is test.g which tests multiple scanners/parsers; DLG-based scanner;
   2  * also, we test multiple lexical classes.
   3  */
   4 <<
   5 #include "Lexer.h"
   6 typedef ANTLRCommonToken ANTLRToken;
   7 #include "PBlackBox.h"
   8
   9 int main()
  10 {
  11         ParserBlackBox<Lexer, Include, ANTLRToken> p(stdin);
  12         p.parser()->input();
  13         return 0;
  14 }
  15 >>
  16
  17 #token "[\ \t\n]+"      <<skip();>>
  18
  19 #lexclass START
  20
  21 class Include {
  22
  23 <<
  24 /* this is automatically defined to be a member function of Include::
  25  * since it is within the "class {...}" boundaries.
  26  */
  27 private:
  28 char *stripquotes(ANTLRChar *s)
  29 {
  30         s[strlen(s)-1] = '\0';
  31         return &s[1];
  32 }
  33 >>
  34
  35 input
  36         :       ( cmd | include )* "@"
  37         ;
  38
  39 cmd     :       "print"
  40                 (       NUMBER          <<printf("%s\n", $1->getText());>>
  41                 |       STRING          <<printf("%s\n", $1->getText());>>
  42                 )
  43         ;
  44
  45 include
  46         :       "#data" STRING
  47                 <<{
  48                 FILE *f;
  49                 f = fopen(stripquotes($2->getText()), "r");
  50                 if ( f==NULL ) {fprintf(stderr, "can't open %s\n", $2->getText()+1);}
  51                 else {
  52                         ANTLRTokenPtr aToken = new ANTLRToken;
  53                         DLGFileInput in(f);
  54                         Lexer scan(&in);
  55                         scan.setToken(mytoken(aToken));
  56                         scan.mode(Lexer::DATA);
  57                         ANTLRTokenBuffer pipe(&scan);
  58                         Include parser(&pipe);
  59                         parser.init();
  60                         parser.data();
  61                 }
  62                 }>>
  63         ;
  64
  65 #lexclass DATA
  66
  67 #token "[\ \t\n]+"      <<skip();>>
  68
  69 data:   "0x[0-9]+" ":" "0x[0-9]+"
  70                 <<printf("data %s\n", $1->getText());>>
  71         ;
  72
  73 }
  74
  75 #lexclass START
  76
  77 #token STRING   "\" [a-zA-Z0-9_.,\ \t]+ \""
  78 #token NUMBER   "[0-9]+"