@@ -295,7 +295,7 @@ def scan
295295
296296 @stats . add_module f9x_module
297297
298- f9x_comment = COMMENTS_ARE_UPPER ?
298+ f9x_comment = COMMENTS_ARE_UPPER ?
299299 find_comments ( pre_comment . join ( "\n " ) ) + "\n " + module_trailing :
300300 module_trailing + "\n " + find_comments ( module_code . sub ( /^.*$\n /i , '' ) )
301301 f9x_module . comment = f9x_comment
@@ -320,8 +320,8 @@ def scan
320320 program_code = module_program_code
321321 program_trailing = module_program_trailing
322322 # progress "p" # HACK what stats thingy does this correspond to?
323- program_comment = COMMENTS_ARE_UPPER ?
324- find_comments ( pre_comment . join ( "\n " ) ) + "\n " + program_trailing :
323+ program_comment = COMMENTS_ARE_UPPER ?
324+ find_comments ( pre_comment . join ( "\n " ) ) + "\n " + program_trailing :
325325 program_trailing + "\n " + find_comments ( program_code . sub ( /^.*$\n /i , '' ) )
326326 program_comment = "\n \n = <i>Program</i> <tt>#{ program_name } </tt>\n \n " \
327327 + program_comment
@@ -410,12 +410,12 @@ def parse_program_or_module(container, code,
410410 # This information is used when "add_method" and
411411 # "set_visibility_for" are called.
412412 #
413- visibility_default , visibility_info =
413+ visibility_default , visibility_info =
414414 parse_visibility ( remaining_lines . join ( "\n " ) , visibility , container )
415415 @@public_methods . concat visibility_info
416416 if visibility_default == :public
417417 if !cascaded_modules_list . empty?
418- cascaded_modules =
418+ cascaded_modules =
419419 Attr . new ( "Cascaded Modules" ,
420420 "Imported modules all of whose components are published again" ,
421421 "" ,
@@ -499,7 +499,7 @@ def parse_program_or_module(container, code,
499499 type_trailing = find_comments ( $4)
500500 next if type_trailing =~ /^:nodoc:/
501501 type_visibility = $1
502- type_comment = COMMENTS_ARE_UPPER ?
502+ type_comment = COMMENTS_ARE_UPPER ?
503503 find_comments ( $~. pre_match ) + "\n " + type_trailing :
504504 type_trailing + "\n " + find_comments ( type_code . sub ( /^.*$\n /i , '' ) )
505505 type_element_visibility_public = true
@@ -567,8 +567,8 @@ def parse_program_or_module(container, code,
567567 end
568568
569569 if !derived_types_comment . empty?
570- derived_types_table =
571- Attr . new ( "Derived Types" , "Derived_Types" , "" ,
570+ derived_types_table =
571+ Attr . new ( "Derived Types" , "Derived_Types" , "" ,
572572 derived_types_comment )
573573 container . add_attribute ( derived_types_table )
574574 end
@@ -733,8 +733,8 @@ def parse_program_or_module(container, code,
733733 subroutine_trailing = procedure_trailing
734734 subroutine_code = procedure_code
735735
736- subroutine_comment = COMMENTS_ARE_UPPER ?
737- pre_comment . join ( "\n " ) + "\n " + subroutine_trailing :
736+ subroutine_comment = COMMENTS_ARE_UPPER ?
737+ pre_comment . join ( "\n " ) + "\n " + subroutine_trailing :
738738 subroutine_trailing + "\n " + subroutine_code . sub ( /^.*$\n /i , '' )
739739 subroutine = AnyMethod . new ( "subroutine" , subroutine_name )
740740 parse_subprogram ( subroutine , subroutine_params ,
@@ -787,7 +787,7 @@ def parse_program_or_module(container, code,
787787
788788 # The visibility of procedure is specified
789789 #
790- set_visibility ( container , procedure_name ,
790+ set_visibility ( container , procedure_name ,
791791 visibility_default , @@public_methods )
792792
793793 # The alias for this procedure from external modules
@@ -871,11 +871,11 @@ def parse_program_or_module(container, code,
871871 next if !old_meth
872872 nolink = old_meth . visibility == :private ? true : nil
873873 nolink = nil if @options . show_all
874- new_meth =
875- initialize_external_method ( generic_name , proc ,
876- old_meth . params , nil ,
877- old_meth . comment ,
878- old_meth . clone . token_stream [ 0 ] . text ,
874+ new_meth =
875+ initialize_external_method ( generic_name , proc ,
876+ old_meth . params , nil ,
877+ old_meth . comment ,
878+ old_meth . clone . token_stream [ 0 ] . text ,
879879 true , nolink )
880880 new_meth . singleton = old_meth . singleton
881881
@@ -937,10 +937,10 @@ def parse_program_or_module(container, code,
937937 end
938938
939939 if indicated_method
940- external_method =
941- initialize_external_method ( generic_name , proc ,
942- indicated_method . params ,
943- indicated_file ,
940+ external_method =
941+ initialize_external_method ( generic_name , proc ,
942+ indicated_method . params ,
943+ indicated_file ,
944944 indicated_method . comment )
945945
946946 @stats . add_method external_method
@@ -1004,12 +1004,12 @@ def parse_program_or_module(container, code,
10041004 # Parse arguments, comment, code of subroutine and function. Return
10051005 # AnyMethod object.
10061006
1007- def parse_subprogram ( subprogram , params , comment , code ,
1007+ def parse_subprogram ( subprogram , params , comment , code ,
10081008 before_contains = nil , function = nil , prefix = nil )
10091009 subprogram . singleton = false
10101010 prefix = "" if !prefix
10111011 arguments = params . sub ( /\( / , "" ) . sub ( /\) / , "" ) . split ( "," ) if params
1012- args_comment , params_opt =
1012+ args_comment , params_opt =
10131013 find_arguments ( arguments , code . sub ( /^s*?contains\s *?(!.*?)?$.*/im , "" ) ,
10141014 nil , nil , true )
10151015 params_opt = "( " + params_opt + " ) " if params_opt
@@ -1086,7 +1086,7 @@ def find_arguments(args, text, all=nil, indent=nil, modified_params=nil)
10861086 if arg == defitem . varname . strip . chomp || all
10871087 args_rdocforms << <<-"EOF"
10881088
1089- #{ indent } <tt><b>#{ defitem . varname . chomp . strip } #{ defitem . arraysuffix } </b> #{ defitem . inivalue } </tt> ::
1089+ #{ indent } <tt><b>#{ defitem . varname . chomp . strip } #{ defitem . arraysuffix } </b> #{ defitem . inivalue } </tt> ::
10901090#{ indent } <tt>#{ defitem . types . chomp . strip } </tt>
10911091EOF
10921092 if !defitem . comment . chomp . strip . empty?
@@ -1096,7 +1096,7 @@ def find_arguments(args, text, all=nil, indent=nil, modified_params=nil)
10961096 }
10971097 args_rdocforms << <<-"EOF"
10981098
1099- #{ indent } <tt></tt> ::
1099+ #{ indent } <tt></tt> ::
11001100#{ indent } <tt></tt>
11011101#{ indent } #{ comment . chomp . strip }
11021102EOF
@@ -1130,7 +1130,7 @@ def find_namelists(text, before_contains=nil)
11301130 before_contains = "" if !before_contains
11311131 while lines =~ /^\s *?namelist\s +\/ \s *?(\w +)\s *?\/ ([\s \w \, ]+)$/i
11321132 lines = $~. post_match
1133- nml_comment = COMMENTS_ARE_UPPER ?
1133+ nml_comment = COMMENTS_ARE_UPPER ?
11341134 find_comments ( $~. pre_match ) : find_comments ( $~. post_match )
11351135 nml_name = $1
11361136 nml_args = $2. split ( "," )
@@ -1193,7 +1193,7 @@ def initialize_external_method(new, old, params, file, comment, token=nil,
11931193
11941194 if internal
11951195 external_alias_header = "#{ INTERNAL_ALIAS_MES } "
1196- external_alias_text = external_alias_header + old
1196+ external_alias_text = external_alias_header + old
11971197 elsif file
11981198 external_alias_header = "#{ EXTERNAL_ALIAS_MES } "
11991199 external_alias_text = external_alias_header + file + "#" + old
@@ -1325,8 +1325,8 @@ def check_external_aliases(subname, params, comment, test=nil)
13251325 subname . upcase == alias_item [ "old_name" ] . upcase &&
13261326 @options . ignore_case
13271327
1328- new_meth = initialize_external_method ( alias_item [ "new_name" ] ,
1329- subname , params , @file_name ,
1328+ new_meth = initialize_external_method ( alias_item [ "new_name" ] ,
1329+ subname , params , @file_name ,
13301330 comment )
13311331 new_meth . visibility = alias_item [ "visibility" ]
13321332
@@ -1402,7 +1402,7 @@ def united_to_one_line(f90src)
14021402 brank_flag = false
14031403 now_continuing = false
14041404 next ""
1405- else
1405+ else
14061406 brank_flag = false
14071407 now_continuing = false
14081408 ignore = false
@@ -1595,7 +1595,7 @@ def remove_trailing_alias(text)
15951595 comment_block = Array . new
15961596 checked = false
15971597 lines . each do |line |
1598- if !checked
1598+ if !checked
15991599 if /^\s ?#{ INTERNAL_ALIAS_MES } / =~ line ||
16001600 /^\s ?#{ EXTERNAL_ALIAS_MES } / =~ line
16011601 checked = true
@@ -1676,9 +1676,9 @@ def initialize(varname, types, inivalue, arraysuffix, comment,
16761676
16771677 def to_s
16781678 return <<-EOF
1679- <Fortran95Definition:
1679+ <Fortran95Definition:
16801680varname=#{ @varname } , types=#{ types } ,
1681- inivalue=#{ @inivalue } , arraysuffix=#{ @arraysuffix } , nodoc=#{ @nodoc } ,
1681+ inivalue=#{ @inivalue } , arraysuffix=#{ @arraysuffix } , nodoc=#{ @nodoc } ,
16821682comment=
16831683#{ @comment }
16841684>
0 commit comments