linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add @TCL/@END code to gen_sct

Browse Source
This commit is contained in:
Douglas Clowes
2014-08-15 16:35:38 +10:00
parent da17516491
commit ea9de2c617
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
site_ansto/instrument/util/gen_sct.py
View File

@ -156,6 +156,8 @@ tokens = [
'ID', 'ID',
'TCL_BEG', 'TCL_BEG',
'TCL_END', 'TCL_END',
'AT_TCL',
'AT_END',
] + list(reserved.values()) ] + list(reserved.values())
# #
@ -167,6 +169,20 @@ t_LBRACE = r'{'
t_RBRACE = r'}' t_RBRACE = r'}'
t_SLASH = r'/' t_SLASH = r'/'
def t_AT_TCL(t):
r'@TCL'
if Verbose:
print 'AT_TCL'
t.lexer.begin('tcl')
#return t
def t_tcl_AT_END(t):
r'[ \t]*@END'
if Verbose:
print 'AT_END'
t.lexer.begin('INITIAL')
#return t
def t_TCL_BEG(t): def t_TCL_BEG(t):
r'{%%' r'{%%'
if Verbose: if Verbose:
@ -513,6 +529,7 @@ def p_true_false(p):
def p_code(p): def p_code(p):
''' '''
code : CODE code_type id_or_str EQUALS LBRACE code_block RBRACE code : CODE code_type id_or_str EQUALS LBRACE code_block RBRACE
| CODE code_type id_or_str EQUALS LBRACE tcl_code_block RBRACE
| CODE code_type id_or_str EQUALS TCL_BEG code_block TCL_END | CODE code_type id_or_str EQUALS TCL_BEG code_block TCL_END
''' '''
p[0] = { 'Code' : { 'name' : p[3], 'type' : p[2], 'text' : p[6] }} p[0] = { 'Code' : { 'name' : p[3], 'type' : p[2], 'text' : p[6] }}
@ -532,6 +549,12 @@ def p_code_type(p):
''' '''
p[0] = p[1] p[0] = p[1]
def p_tcl_code_block(p):
'''
tcl_code_block : AT_TCL code_block AT_END
'''
p[0] = p[2]
def p_code_block(p): def p_code_block(p):
'''code_block : empty '''code_block : empty
| code_block CODE_STRING | code_block CODE_STRING