diff options
| author | Pearu Peterson <pearu.peterson@gmail.com> | 2006-12-23 13:56:35 +0000 |
|---|---|---|
| committer | Pearu Peterson <pearu.peterson@gmail.com> | 2006-12-23 13:56:35 +0000 |
| commit | 3fa7474c1f507482c82ec63e0276cf05f02c596c (patch) | |
| tree | c9a554b040fe7f586bff9dc679f6fa5fbe191479 /numpy/f2py/lib/parser/pattern_tools.py | |
| parent | 0b5b7b6897600c264e22283e3b18374f9704b26b (diff) | |
| download | numpy-3fa7474c1f507482c82ec63e0276cf05f02c596c.tar.gz | |
Cont. implementing F2000 parser.
Diffstat (limited to 'numpy/f2py/lib/parser/pattern_tools.py')
| -rw-r--r-- | numpy/f2py/lib/parser/pattern_tools.py | 5 |
1 files changed, 5 insertions, 0 deletions
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('<defined-unary-op>','[.][A-Z]+[.]',flags=re.I) defined_binary_op = Pattern('<defined-binary-op>','[.][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('<defined-op>','[.][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('<subroutine>', r'SUBROUTINE', flags=re.I) +select_case = Pattern('<select-case>', 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') |