blob: cdf6efaedf131175b896c937779ec626d230ce5c (
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
|
fsm
(fsm-id "reset_rewrite_opt.lex",fsm-filename reset_rewrite_opt
,fsm-namespace NS_reset_rewrite_opt
,fsm-class Creset_rewrite_opt {
user-prefix-declaration
#include "integer_no.h"
***
/@
Trap the failed option and return a bad option.
This covers errors like the premature prefix -e where it should
be -err. i could have been less specific to trap
non first set options (-z) by defaulting to this
facility but i'm teaching myself...
As this thread is executed according to its first set ``-'',
any failed attempt is a bad option.
Please note the use of the |RSVP_FSM| macro.
Its context is different than the normal Rule's
use of |RSVP| macro.
@/
failed
CAbs_lr1_sym* s = new LR1_err_bad_rsx_rms_opt;
s->set_rc(*parser()->current_token(),*parser()
,"reset_rewrite_opt.lex",__LINE__);
RSVP_FSM(s);
return true;
***
}
,fsm-version "1.1",fsm-date "18 Oct. 2003",fsm-debug "true"
,fsm-comments "individual rsx/rms options")
parallel-parser
(
parallel-thread-function
TH_reset_rewrite_opt
***
parallel-la-boundary
"/" + "'"
***
)
|