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;
}
}
|