def classify_until(lUntils, iToken, lObjects, oType=parser.todo):
'''
subtype_indication ::=
[ resolution_indication ] type_mark [ constraint ]
'''
iCurrent = iToken
iStop = len(lObjects) - 1
iOpenParenthesis = 0
iCloseParenthesis = 0
while iCurrent < iStop:
iCurrent = utils.find_next_token(iCurrent, lObjects)
if utils.token_is_open_parenthesis(iCurrent, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iCurrent, lObjects):
iCloseParenthesis += 1
# print(f'{lObjects[iCurrent].get_value()} | {iOpenParenthesis} | {iCloseParenthesis} | {lUntils}')
if iOpenParenthesis < iCloseParenthesis:
break
elif lObjects[iCurrent].get_value().lower() in lUntils:
if utils.token_is_close_parenthesis(iCurrent, lObjects):
if iOpenParenthesis == iCloseParenthesis:
utils.assign_token(lObjects, iCurrent, parser.close_parenthesis)
continue
else:
break
elif utils.token_is_comma(iCurrent, lObjects):
if iOpenParenthesis == iCloseParenthesis:
break
else:
utils.assign_token(lObjects, iCurrent, parser.comma)
else:
break
else:
sValue = lObjects[iCurrent].get_value()
if sValue == ')':
utils.assign_token(lObjects, iCurrent, parser.close_parenthesis)
elif sValue == '(':
utils.assign_token(lObjects, iCurrent, parser.open_parenthesis)
elif sValue == '-':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '+':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '*':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '**':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '/':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue.lower() == 'downto':
utils.assign_token(lObjects, iCurrent, direction.downto)
elif sValue.lower() == 'to':
utils.assign_token(lObjects, iCurrent, direction.to)
else:
utils.assign_token(lObjects, iCurrent, oType)
return iCurrent
def detect(iCurrent, lObjects):
'''
association_element ::=
[ formal_part => ] actual_part
An association element will either end in a close parenthesis or a comma that is not within paranthesis.
accociation_element [)|,]
'''
iOpenParenthesis = 0
iCloseParenthesis = 0
iToken = iCurrent
while not utils.token_is_semicolon(iToken, lObjects):
iToken = utils.find_next_token(iToken, lObjects)
if utils.token_is_open_parenthesis(iToken, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iToken, lObjects):
iCloseParenthesis += 1
if iCloseParenthesis == iOpenParenthesis + 1:
classify(iCurrent, iToken, lObjects, ')')
return iToken
if iCloseParenthesis == iOpenParenthesis:
if utils.token_is_comma(iToken, lObjects):
classify(iCurrent, iToken, lObjects, ',')
return iToken
iToken += 1
return iToken
def classify_until(lUntils, iToken, lObjects, oType=parser.todo):
'''
name ::=
simple_name
| operator_symbol
| character_literal
| selected_name
| indexed_name
| slice_name
| attribute_name
| external_name
NOTE: At the moment, everything will be set to parser.todo.
'''
iCurrent = iToken
iStop = len(lObjects) - 1
iOpenParenthesis = 0
iCloseParenthesis = 0
while iCurrent < iStop:
iCurrent = utils.find_next_token(iCurrent, lObjects)
if utils.token_is_open_parenthesis(iCurrent, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iCurrent, lObjects):
iCloseParenthesis += 1
if iOpenParenthesis < iCloseParenthesis:
break
elif lObjects[iCurrent].get_value().lower() in lUntils:
break
else:
sValue = lObjects[iCurrent].get_value()
if sValue == ')':
utils.assign_token(lObjects, iCurrent,
parser.close_parenthesis)
elif sValue == '(':
utils.assign_token(lObjects, iCurrent, parser.open_parenthesis)
elif sValue == '-':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '+':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '*':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '**':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue == '/':
utils.assign_token(lObjects, iCurrent, parser.todo)
elif sValue.lower() == 'downto':
utils.assign_token(lObjects, iCurrent, direction.downto)
elif sValue.lower() == 'to':
utils.assign_token(lObjects, iCurrent, direction.to)
else:
utils.assign_token(lObjects, iCurrent, oType)
return iCurrent
def classify_until(lUntils, iToken, lObjects):
iCurrent = iToken
iStop = len(lObjects) - 1
iOpenParenthesis = 0
iCloseParenthesis = 0
while iCurrent < iStop:
iCurrent = utils.find_next_token(iCurrent, lObjects)
if utils.token_is_open_parenthesis(iCurrent, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iCurrent, lObjects):
iCloseParenthesis += 1
if iOpenParenthesis < iCloseParenthesis:
break
elif iOpenParenthesis == iCloseParenthesis:
if lObjects[iCurrent].get_value().lower() in lUntils:
break
else:
utils.assign_token(lObjects, iCurrent, parser.todo)
else:
utils.assign_token(lObjects, iCurrent, parser.todo)
return iCurrent
def classify_until_old(lUntils, iToken, lObjects):
iEnd = len(lObjects) - 1
iCurrent = iToken
iOpenParenthesis = 0
iCloseParenthesis = 0
for iIndex in range(iToken, len(lObjects)):
print(lObjects[iIndex].get_value())
if not utils.is_item(lObjects, iIndex):
continue
if utils.token_is_open_parenthesis(iIndex, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iIndex, lObjects):
iCloseParenthesis += 1
if iOpenParenthesis < iCloseParenthesis:
break
elif lObjects[iIndex].get_value().lower() in lUntils:
if iOpenParenthesis == iCloseParenthesis:
break
else:
utils.assign_token(lObjects, iIndex, parser.todo)
if iCurrent == iEnd:
return iToken
return iCurrent
def classify(iToken, lObjects):
'''
subtype_indication ::=
[ resolution_indication ] type_mark [ constraint ]
'''
iCurrent = iToken
iStop = len(lObjects) - 1
iOpenParenthesis = 0
iCloseParenthesis = 0
while iCurrent < iStop:
iCurrent = utils.find_next_token(iCurrent, lObjects)
if utils.token_is_open_parenthesis(iCurrent, lObjects):
iOpenParenthesis += 1
if utils.token_is_close_parenthesis(iCurrent, lObjects):
iCloseParenthesis += 1
if iOpenParenthesis < iCloseParenthesis:
break
else:
if utils.is_next_token(',', iCurrent, lObjects):
utils.assign_token(lObjects, iCurrent, token.comma)
else:
utils.assign_token(lObjects, iCurrent, parser.todo)
return iCurrent