1. Куча / Говнокод #1073

    +153

    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
    PROCEDURE changeValue ( KeyStore:IN OUT Keys'Class; value: IN INTEGER ) 
      IS 
      BEGIN
       IF value = 1024 THEN
          Message ( "NOT IN RANGE" );
       ELSIF value = 2048 THEN
          Message ( "OUT OF RANGE" );
       ELSIF value = KeyStore.def THEN
    
         KeyStore.val = value;
      ELSE
        Message ( "IN RANGE");
     END IF;
     END changeValue;

    Какой-то наркоманский код.
    Трезвый такого не напишет.
    Почему приходится дорабатывать такое... будто за кем-то ж.. подтираешь:)

    Запостил: guest, 20 Мая 2009

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

    • Похоже на инфу для отладки.
      Наверно в реальном коде этих условий не будет.
      Ответить

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