Secure your code as it's written. Use Snyk Code to scan source code in minutes - no build needed - and fix issues immediately.
def get_mod_procs(source,line,parent):
inherit_permission = parent.permission
retlist = []
SPLIT_RE = re.compile("\s*,\s*",re.IGNORECASE)
splitlist = SPLIT_RE.split(line.group(2))
if splitlist and len(splitlist) > 0:
for item in splitlist:
retlist.append(FortranModuleProcedure(item,parent,inherit_permission))
else:
retlist.append(FortranModuleProcedure(line.group(1),parent,inherit_permission))
doc = []
docline = source.__next__()
while docline[0:2] == "!" + parent.settings['docmark']:
doc.append(docline[2:])
docline = source.__next__()
source.pass_back(docline)
retlist[-1].doc = doc
return retlist
def get_mod_procs(source,line,parent):
inherit_permission = parent.permission
retlist = []
SPLIT_RE = re.compile("\s*,\s*",re.IGNORECASE)
splitlist = SPLIT_RE.split(line.group(2))
if splitlist and len(splitlist) > 0:
for item in splitlist:
retlist.append(FortranModuleProcedure(item,parent,inherit_permission))
else:
retlist.append(FortranModuleProcedure(line.group(1),parent,inherit_permission))
doc = []
docline = source.__next__()
while docline[0:2] == "!" + parent.settings['docmark']:
doc.append(docline[2:])
docline = source.__next__()
source.pass_back(docline)
retlist[-1].doc = doc
return retlist
def get_mod_procs(source,line,parent):
inherit_permission = parent.permission
retlist = []
SPLIT_RE = re.compile("\s*,\s*",re.IGNORECASE)
splitlist = SPLIT_RE.split(line.group(2))
if splitlist and len(splitlist) > 0:
for item in splitlist:
retlist.append(FortranModuleProcedure(item,parent,inherit_permission))
else:
retlist.append(FortranModuleProcedure(line.group(1),parent,inherit_permission))
doc = []
docline = source.__next__()
while docline[0:2] == "!" + parent.settings['docmark']:
doc.append(docline[2:])
docline = source.__next__()
source.pass_back(docline)
retlist[-1].doc = doc
return retlist
def get_mod_procs(source,line,parent):
inherit_permission = parent.permission
retlist = []
SPLIT_RE = re.compile("\s*,\s*",re.IGNORECASE)
splitlist = SPLIT_RE.split(line.group(2))
if splitlist and len(splitlist) > 0:
for item in splitlist:
retlist.append(FortranModuleProcedure(item,parent,inherit_permission))
else:
retlist.append(FortranModuleProcedure(line.group(1),parent,inherit_permission))
doc = []
docline = source.__next__()
while docline[0:2] == "!" + parent.settings['docmark']:
doc.append(docline[2:])
docline = source.__next__()
source.pass_back(docline)
retlist[-1].doc = doc
return retlist