Method: CodeRunner::Run::FortranNamelist.parse_old_website_docs

Defined in:

lib/coderunner/fortran_namelist.rb

.parse_old_website_docs(file = ) ⇒ Object

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

def self.parse_old_website_docs(file = ARGV[-1])
	text = File.read(file)
	text.scan(/Namelist:\s+<i>\s*(?<namelist>\w+).*?<\s*table(?<var_text>(?:<table.*?<\/table>|.)*?)(?=<\/table>)/m) do 
		namelist = $~[:namelist].to_sym
		ep 'namelist', namelist
		var_text = $~[:var_text]
		vars = var_text.split('<tr><th>')
		2.times{vars.shift}
	  vars.each do |var_text|
			ep var_text
			name, type, default, help = var_text.split('<td>')
			name, type, default = [name, type, default].map do |str|
				str.sub(/^\s+/, '').sub(/\s+\Z/, '').gsub(/<[^>]+>/, '')
			end
			name = name.sub(/^\s+/, '').sub(/\s+\Z/, '').gsub(/<[^>]+>/, '').to_sym
			ep 'name', name
			#begin
		  	#p	name, type, help, default, rcp.namelists[namelist][:variables][name][:autoscanned_defaults] 
			#rescue => err
				#p err
				#p namelist, name
			#end
			if rcp.namelists[namelist][:variables][name]
				names = [name]
			else
				names = name.to_s.split(/\s*,\s*/).map{|n| n.to_sym}
			end
			ep 'names', names
			help = help.gsub(/<\/?[bi]>/, '').gsub(/<br>/, '**')
			names.each do |name|
				unless rcp.namelists[namelist][:variables][name]
					var =  rcp.namelists[namelist][:variables].keys.find{|var|  rcp.namelists[namelist][:variables][var][:code_name] == name}
					raise "Can't find #{name.inspect} in #{namelist}" unless var
					name = var
				end

				begin
					sync_variable_help(namelist, name, help)
					if rcp.namelists[namelist][:variables][name][:help] =~ /<[^>]+>/
						edit_variable_help(namelist, name)
					end
				rescue => err
					p namelist, name
					raise err
				end
 
			end 



		end


	end

end