From 3fa7474c1f507482c82ec63e0276cf05f02c596c Mon Sep 17 00:00:00 2001 From: Pearu Peterson Date: Sat, 23 Dec 2006 13:56:35 +0000 Subject: Cont. implementing F2000 parser. --- numpy/f2py/lib/parser/pattern_tools.py | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'numpy/f2py/lib/parser/pattern_tools.py') diff --git a/numpy/f2py/lib/parser/pattern_tools.py b/numpy/f2py/lib/parser/pattern_tools.py index c90e68401..9c840edd9 100644 --- a/numpy/f2py/lib/parser/pattern_tools.py +++ b/numpy/f2py/lib/parser/pattern_tools.py @@ -278,6 +278,8 @@ defined_unary_op = Pattern('','[.][A-Z]+[.]',flags=re.I) defined_binary_op = Pattern('','[.][A-Z]+[.]',flags=re.I) defined_operator = defined_unary_op | defined_binary_op | extended_intrinsic_operator abs_defined_operator = abs(defined_operator) +defined_op = Pattern('','[.][A-Z]+[.]',flags=re.I) +abs_defined_op = abs(defined_op) non_defined_binary_op = intrinsic_operator | logical_literal_constant @@ -339,6 +341,9 @@ abs_intent_spec = abs(intent_spec) subroutine = Pattern('', r'SUBROUTINE', flags=re.I) +select_case = Pattern('', r'SELECT\s*CASE', flags=re.I, value='SELECT CASE') +abs_select_case = abs(select_case) + def _test(): assert name.match('a1_a') assert abs(name).match('a1_a') -- cgit v1.2.1