sub comment()

in d3d/archive/images/d3d11/postproc.pl [590:609]
20 lines of code
31 McCabe index (conditional complexity)

    sub comment
    {
        my($self, $origtext) = @_;
        if ( uc($origtext) eq "INT" )  { $in_int = 1; if(!$::no_int && !$InHeader) {Log "<DIV class=boxed style=\"background-color: pink\"><small><i>[MS internal build]</i></small><br>"} return; }
        if ( uc($origtext) eq "/INT" ) { $in_int = 0; if(!$::no_int && !$InHeader) {Log "</DIV>"} return; }
        if ( uc($origtext) eq "DDI" )  { $in_ddi = 1; if(!$::no_int && !$InHeader) {Log "<DIV class=boxed style=\"background-color: lightgreen\"><small><i>[DDI build]</i></small><br>"} return; }
        if ( uc($origtext) eq "/DDI" ) { $in_ddi = 0; if(!$::no_int && !$InHeader) {Log "</DIV>"} return; }
        if ( uc($origtext) eq "API" )  { $in_api = 1; if(!$::no_int && !$InHeader) {Log "<DIV class=boxed style=\"background-color: orange\"><small><i>[API build]</i></small><br>"} return; }
        if ( uc($origtext) eq "/API" ) { $in_api = 0; if(!$::no_int && !$InHeader) {Log "</DIV>"} return; }
        if ( uc($origtext) eq "REM" )  { $in_rem = 1; if(!$::no_int && !$InHeader) {Log "<DIV class=boxed style=\"background-color: lightblue\"><small><i>[Remark]</i></small><br>"}
                                                      elsif(!$InHeader) {Log "<DIV class=boxed style=\"background-color: lightblue\">"}
                                                      return; }
        if ( uc($origtext) eq "/REM" ) { $in_rem = 0; if(!$InHeader) {Log "</DIV>"} return; }
        if ( uc($origtext) eq "DEL10TO11" )  { $in_del10To11 = 1; if(!$::no_int && !$::no_del10To11 && !$InHeader) {Log "<DIV class=boxed style=\"background-color: yellow\"><small><i>[delta: D3D10-&gt;D3D11.1]</i></small><br>"}
                                                      elsif(!$InHeader) {Log "<DIV class=boxed style=\"background-color: yellow\">"}
                                                      return; }
        if ( uc($origtext) eq "/DEL10TO11" ) { $in_del10To11 = 0; if(!$InHeader) {Log "</DIV>"} return; }
        if ($InHeader) { $Header .= $origtext; }
        else           { PrintWithNamesResolved "<!--$origtext-->"; }
    }