From a12cb7b1dab184bae0f1ae9931292778afc93f5d Mon Sep 17 00:00:00 2001 From: Pearu Peterson Date: Thu, 25 May 2006 10:54:57 +0000 Subject: Cont. impl. fortran parser, added do and ifthen blocks. --- numpy/f2py/lib/readfortran.py | 29 ++++++++++++++++++++++++----- 1 file changed, 24 insertions(+), 5 deletions(-) (limited to 'numpy/f2py/lib/readfortran.py') diff --git a/numpy/f2py/lib/readfortran.py b/numpy/f2py/lib/readfortran.py index 503fa123a..4937cb4b3 100644 --- a/numpy/f2py/lib/readfortran.py +++ b/numpy/f2py/lib/readfortran.py @@ -28,13 +28,13 @@ from cStringIO import StringIO from numpy.distutils.misc_util import yellow_text, red_text, blue_text from sourceinfo import get_source_info -from splitline import LineSplitter, String +from splitline import LineSplitter, String, string_replace_map _spacedigits=' 0123456789' _cf2py_re = re.compile(r'(?P\s*)!f2py(?P.*)',re.I) _is_fix_cont = lambda line: line and len(line)>5 and line[5]!=' ' and line[0]==' ' _is_f90_cont = lambda line: line and '&' in line and line.rstrip()[-1]=='&' - +_f90label_re = re.compile(r'\s*(?P