summaryrefslogtreecommitdiff
path: root/web/yacco2/compiler/grammars/xc_strsym.cpp
blob: 5178c843dea4e4061cded0859c467c70be9bf51a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
/*
 File: xc_strsym.cpp
 Date and Time: Fri Jan 30 18:55:28 2015 
*/
#include "xc_str.h"
using namespace NS_yacco2_T_enum;// enumerate
using namespace NS_yacco2_err_symbols;// error symbols
using namespace NS_yacco2_k_symbols;// lrk 
using namespace NS_yacco2_terminals;// terminals
using namespace NS_yacco2_characters;// rc 
using namespace yacco2;// yacco2 library
using namespace NS_xc_str;// grammar's ns
// first set terminals
yacco2::THR _YACCO2_CALL_TYPE
NS_xc_str::TH_xc_str(yacco2::Parser* Caller_pp){
  yacco2::Thread_entry& pp_thread_entry = ITH_xc_str;
  NS_xc_str::Cxc_str Cxc_str_;// parallel-parser's parse table
#define ssPARSE_TABLE Cxc_str_
#include "wpp_core.h"
}
THR_result _YACCO2_CALL_TYPE
NS_xc_str::PROC_TH_xc_str(yacco2::Parser* Caller_pp){
  char called_proc_name[] = "PROC_TH_xc_str";
  static bool one_time(false);
  static NS_xc_str::Cxc_str* NS_xc_str_Cxc_str_(0);// parallel-parser's fsm table
  static Parser* NS_xc_str_Cxc_str_parser(0);
  Parser* proc_parser(0);
  if(one_time == false){
    one_time = true;
    NS_xc_str_Cxc_str_ = new NS_xc_str::Cxc_str();// parallel-parser's fsm table
    NS_xc_str_Cxc_str_parser = new Parser(*NS_xc_str_Cxc_str_,Caller_pp);
  }
 proc_parser = NS_xc_str_Cxc_str_parser;
#include "wproc_pp_core.h"
}
void 
Cxc_str::reduce_rhs_of_rule
    (yacco2::UINT Sub_rule_no,yacco2::Rule_s_reuse_entry** Recycled_rule){
   int reducing_rule = rhs_to_rules_mapping_[Sub_rule_no];
   Per_rule_s_reuse_table* rule_reuse_tbl_ptr = 
        fsm_rules_reuse_table.per_rule_s_table_[reducing_rule];
   Rule_s_reuse_entry* re(0);
   find_a_recycled_rule(rule_reuse_tbl_ptr,&re);
   (*Recycled_rule) = re;
   fnd_re: switch (Sub_rule_no){
    case rhs1_Rxc_str_:{
       Rxc_str* sym;
     if(re->rule_ == 0){
       sym = new Rxc_str(parser__);
       re->rule_ = sym;
     }else{
       sym = (Rxc_str*)re->rule_;
     }
    // no rule's constructor directive
     (*Recycled_rule)->rule_ = sym;
     sym->rule_info__.rhs_no_of_parms__ = 2;
    

     sym->sr1();
     return;}
    case rhs1_Rquote_:{
       Rquote* sym;
     if(re->rule_ == 0){
       sym = new Rquote(parser__);
       re->rule_ = sym;
     }else{
       sym = (Rquote*)re->rule_;
     }
    // no rule's constructor directive
     (*Recycled_rule)->rule_ = sym;
     sym->rule_info__.rhs_no_of_parms__ = 1;
    

     sym->sr1();
     return;}
    default: return;
   }
}