gsub!(/\$[A-Z_]+/) {|m| m.delete!("$").reverse.downcase!.concat(" b@").reverse}
if example == 1
- case $_
+ case $_
when /#endif/
buf.push($_.gsub!(/#endif/, "@endcode"))
- doxy = 0
example = 0
else
- buf.push($_)
+ buf.push($_)
end
- else
- case $_
+ else # when example == 0
+
+ case $_
- when /^\s*$/
- if doxy == 1
- buf.push($_)
- end
+ when /^\s*$/
+ if doxy == 1 # empty line in doxygen comment
+ buf.push($_)
+ end
- when /\/\*=\*\//
- commentblock(buf)
+ when /\/\*=\*\// #/*=*/ (flush)
+ commentblock(buf)
buf = []
-
-# when /^\/\*\s.*\*\// # /* comment */ type comment
+
+ when /^\/\*\s.*\*\// # /* comment */ type comment
# if doxy == 1
# # should be included only in the example code
# ## We used to do the following substituion as a workaround of
# buf.push($_)
# end
-# when /\/\*\s.*\*\// # code + /* comment */ type comment
+ when /\/\*\s.*\*\// # code + /* comment */ type comment
# if doxy == 1
# # should be included in the example code
# ## See the above comment.
# ## buf.push($_.gsub!(/\*\//, " ").gsub!(/\/\*/, "//"))
# buf.push($_) # should be included in the example code
# else
-# if doxy == 0
-# commentblock(buf)
-# buf = []
-# print $_.gsub!(/\/\*\s.*\*\//," ") # should be omiited in code
+ if doxy == 0
+ commentblock(buf)
+ buf = []
+ print $_.gsub!(/\/\*\s.*\*\//," ") # should be omiited in code
# end
-# end
+ end
when /\/\*{2,3}ja.*\*\// #japanese one liner
when /\/\*\*en.*\*\// #one liner
doxy = 1
when /EXAMPLE_CODE/
+ #start example code lines
buf.push($_.gsub!(/#if EXAMPLE_CODE/, "\n \n @par Example:\n @code"))
- doxy = 1
example = 1
when /\*\//