Method: CodeRunner::Run::FortranNamelist.update_text_options

Defined in:

lib/coderunner/fortran_namelist.rb

.update_text_options(source_code_folder = ) ⇒ Object

# File 'lib/coderunner/fortran_namelist.rb', line 1267

def self.update_text_options(source_code_folder = ARGV[-1])
	source = get_aggregated_source_code_text(source_code_folder)
	options = {}
	source.scan(/^\s*type\s*\(text_option\)\s*.*?\:\:\s*(?<var>\w+)\s+(?<options>(?:(?:&\s*[\n\r]+)|(?:\s*!.*[\n\r])|[^!\n\r])*)/) do 
			
                         name = $~[:var]
# 			 eputs $~ if name == "adiabaticopts"
			 opts =  $~[:options].scan(/text_option\('([^']+)/).flatten
			 name = "collision_model_opts" if opts.include? "krook" 
			 options[name] = opts
	end
	mapping = {}
# 	get_option_value &
#          (ginit_option, ginitopts, ginitopt_switch, &
	source.scan(/^\s*call\s*get_option_value[\s|&]*\((?<var>\w+),[\s|&]*(?<options>\w+)/) do 
#                          p $~
			 var = $~[:var].to_sym
			 op = $~[:options]
			op = "collision_model_opts" if var == :collision_model
			 mapping[var] = op
	end
# 	pp mapping
# 	pp options
# 	string_vars = []
	rcp.namelists.each do |namelist, nhash|
		nhash[:variables].each do |var, varhash|
			if varhash[:type] == :String
				if mapping[(varhash[:code_name] or var)]
					varhash[:text_options] = options[mapping[var]].uniq
# 					pp var, varhash
				end
				
			end
		end
	end
	save_namelists
# 	ep options, string_vars, mapping
# 	File.open(File.dirname(__FILE__) + '/namelists.rb', 'w'){|f| f.puts NAMELISTS.pretty_inspect}
end