1. Pascal / Говнокод #319

    +30

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    for i := 0 to high(vParagsChanges) do
    begin
      if vParNumIn < vParagsChanges[i].ParNo1 then
      begin
        inc(vParNumOut, vParagsChanges[i].ParNo1 - vParNumIn);
        vParNumIn := vParagsChanges[i].ParNo1;
      end;

      if i < high(vParagsChanges) then
        if (vParagsChanges[i].ParNo1+vParagsChanges[i].Range=vParagsChanges[i+1].ParNo1) and
        ((vParagsChanges[i].Kind=ckDelete) and (vParagsChanges[i+1].Kind=ckAdd)) then
          {if vParagsChanges[i].Range = vParagsChanges[i+1].Range then} 
          begin
            vUnitedPars := min(vParagsChanges[i].Range, vParagsChanges[i+1].Range);
            if vParagsChanges[i+1].Range >= vUnitedPars then
              vParagsChanges[i+1].Range := vParagsChanges[i+1].Range - vUnitedPars;
            if vParagsChanges[i].Range >= vUnitedPars then
              vParagsChanges[i].Range := vParagsChanges[i].Range - vUnitedPars;
            for j := 0 to vUnitedPars-1 do 
            begin
              FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkReplaced;
              vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumIn+vInsertedCount1+j).Str);
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              if vParagsChanges[i].InCard then 
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgCard]
              else
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgText];
            end;
            inc(vParNumIn, vUnitedPars);
            inc(vParNumOut, vUnitedPars);
          end;

      case vParagsChanges[i].Kind of
        ckAdd: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft{raRight});
            FEditor1.InsPar(vParNumIn+vInsertedCount1+j, vTmpParag, false);
            FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkAdded;
            vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumOut+vInsertedCount2+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount1, vParagsChanges[i].Range);
          inc(vParNumOut, vParagsChanges[i].Range);
        end;
        ckDelete: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft);
            FEditor2.InsPar(vParNumOut+vInsertedCount2+j, vTmpParag, false);
            FParsHL[vParNumOut+vInsertedCount2+j].Kind := pkDeleted;
            vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount2, vParagsChanges[i].Range);
          inc(vParNumIn, vParagsChanges[i].Range);
        end;
        ckModify: begin 
          if (ciAlignment in vParagsChanges[i].ChangedItems) and (vParagsChanges[i].StrChanges = nil) then
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkAlignment
          else
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkModified;

          FParsHL[vParNumIn+vInsertedCount1].Changes := GetViewChanges(vParagsChanges[i].StrChanges);
          FParsHL[vParNumIn+vInsertedCount1].ViewGroups := GetViewGroupsByChangeItems(vParagsChanges[i].ChangedItems);
          if vParagsChanges[i].InCard then 
            if (ciText in vParagsChanges[i].ChangedItems) or (ciAlignment in vParagsChanges[i].ChangedItems) then 
            begin 
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups + [vgCard];
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups - [vgText, vgAlignment];

              for j := 0 to high(FParsHL[vParNumIn+vInsertedCount1].Changes) do 
                if FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup = vgText then
                  FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup := vgCard;
            end;

          inc(vParNumIn, 1);
          inc(vParNumOut, 1);
        end;
      end;
    end;

    Такой г****код возник не за 1 день. Голову пришлось поломать основательно :))
    Комментарии убраны, дабы не портить удовольствие от прочтения.

    Запостил: guest, 31 Декабря 2008

    Комментарии (2) RSS

    • ava guest 31.12.2008 16:53 # 0

      Что не понравилось?
      (с)програмист дельфи
      Ответить

    • ava guest 02.01.2009 17:02 # 0

      Нечитаемо. Несопровождаемо. Если чего не работает внутри - шиш поймешь, где трабла.

      Технический лидер (будучи такой в команде, где говнокодер работает) -- явный лох, что допустил такую хрень и не оторвал говнокодеру дурную голову. :)
      Ответить

    Добавить комментарий