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

    • ava guest 21.05.2009 05:29 # +1

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

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