mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-12-22 04:13:33 +01:00
Works! but slower than ocaml...
Version:1.1.12
This commit is contained in:
parent
d5aff50367
commit
e76b6d967f
@ -171,7 +171,7 @@ class Fmodule(object):
|
|||||||
if '_needed_modules' not in self.__dict__:
|
if '_needed_modules' not in self.__dict__:
|
||||||
buffer = filter(lambda x: x.lstrip().startswith("use "), \
|
buffer = filter(lambda x: x.lstrip().startswith("use "), \
|
||||||
self.generated_text+self.head+self.residual_text)
|
self.generated_text+self.head+self.residual_text)
|
||||||
buffer = map(lambda x: x.split()[1].lower(), buffer)
|
buffer = map(lambda x: x.split()[1], buffer)
|
||||||
self._needed_modules = make_single(buffer)
|
self._needed_modules = make_single(buffer)
|
||||||
if self.name in self._needed_modules:
|
if self.name in self._needed_modules:
|
||||||
self._needed_modules.remove(self.name)
|
self._needed_modules.remove(self.name)
|
||||||
|
@ -507,9 +507,8 @@ def change_includes(text):
|
|||||||
file = open(filename,'r')
|
file = open(filename,'r')
|
||||||
file.close()
|
file.close()
|
||||||
result += create_preprocessed_text(filename)
|
result += create_preprocessed_text(filename)
|
||||||
#result += get_text(file.readlines(), filename)
|
|
||||||
except IOError:
|
except IOError:
|
||||||
result.append(line)
|
result.append(Declaration(line.i,line.text,line.filename))
|
||||||
else:
|
else:
|
||||||
result.append(line)
|
result.append(line)
|
||||||
return result
|
return result
|
||||||
|
@ -421,6 +421,7 @@ class Variable(object):
|
|||||||
if isinstance(line,Begin_provider):
|
if isinstance(line,Begin_provider):
|
||||||
if line.filename[1] == same_as:
|
if line.filename[1] == same_as:
|
||||||
inside = True
|
inside = True
|
||||||
|
vars = []
|
||||||
if inside:
|
if inside:
|
||||||
text.append( (vars,line) )
|
text.append( (vars,line) )
|
||||||
text += map( lambda x: ([],Simple_line(line.i,x,line.filename)), call_provides(vars) )
|
text += map( lambda x: ([],Simple_line(line.i,x,line.filename)), call_provides(vars) )
|
||||||
|
@ -1 +1 @@
|
|||||||
version = "1.1.11"
|
version = "1.1.12"
|
||||||
|
Loading…
Reference in New Issue
Block a user