Список говнокодов пользователя TarasB

Всего: 95

Pascal / Говнокод #9430

+88

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

var A:array of record
  Foo: integer;
end;

function NewNode: integer;
begin
  SetLength(A, Length(A)+1);
  Result := High(A);
  // возвращаем не указатель на последний элемент,
  // а номер последнего элемента, потому что массив динамический и указатели нестабильны
end;

procedure DoSmth(var i: integer);
var
  n1,n2: integer;
begin
  n1 := NewNode;
  n2 := NewNode;
  // дальше что-то проделывааем над A[n1] и A[n2]
  i := A[n1].Foo + A[n2].Foo;
end;

var
  NewIndex: integer;
begin
  NewIndex := NewNode;
  DoSmth(A[NewIndex].Foo);
end.

Угадайте, почему это не будет работать и приведёт к порче памяти.

TarasB, 15 Февраля 2012

Комментарии (20)

C++ / Говнокод #9276

+153

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

// static_lit.h
#ifndef __STATIC_LIT__
#define __STATIC_LIT__

namespace
{ 
  namespace Toast
  { 
    namespace Detail
    {  
      template<int UNIT_LOCAL_UID> 
      struct TUnitUniqueId
      { 
          static int sGloballyUniqueVar; 
      }; 
 
      template<int UNIT_LOCAL_UID> 
      int TUnitUniqueId<UNIT_LOCAL_UID>::sGloballyUniqueVar = 0;
    } 
  } 
} 
 
#define GEN_UID_IMPL(line) &Toast::Detail::TUnitUniqueId<line>::sGloballyUniqueVar
//#define GEN_UID GEN_UID_IMPL(__LINE__)
#define GEN_UID GEN_UID_IMPL(__COUNTER__)
// В оригинале тут было __LINE__, однако в $тудии, сконфигурированной
// под билд в неком специфическом сдк, __LINE__ почему-то не опознавалось
// в качестве константы и не принималось в шаблон. Пришлось заменить её
// на менее портабельный, но работоспособный и, кстати, более уместный
// в этом качестве __COUNTER__.

template<class T,int* UID> 
struct StaticLit
{
  static T &Get (const char *str)
  {
    static T instance (str); // простейший случай для примера,
    // вы без труда адаптируете его к использованию синглтонов
    // и прочих премудростей
    return instance;
  }
};
  
#define SLTR_IMPL2(T,unique_id) StaticLit<T,unique_id>
#define SLTR_IMPL(T) SLTR_IMPL2(T,GEN_UID)

#define SLTR(T,str) (SLTR_IMPL(T)::Get (str))

#endif // __STATIC_LIT__

Настоящий Статический Литерал на С++
http://www.gamedev.ru/flame/forum/?id=158006
извените за игрострой

TarasB, 31 Января 2012

Комментарии (8)

Pascal / Говнокод #9229

+95

1
2
3
4
5

procedure TEditor.cbReverseClick(Sender: TObject);
begin
  T.Reversed := not T.Reversed;
  Show;
end;

Вместо
T.Reversed := cbReverse.Checked;
Интересно, может ли это создать баг?

TarasB, 26 Января 2012

Комментарии (22)

Pascal / Говнокод #9156

+141

1
2
3
4
5
6
7

// строка добавлена, чтобы сраный парсер говнокода не сжирал пробелы, этого в коде не было
              end;
            end;
          end;
        end;
      end;
    end;

Увидел в своём коде.
Очень сложный алгоритм.

TarasB, 18 Января 2012

Комментарии (35)

Pascal / Говнокод #9063

+96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

WM_KEYDOWN: begin
        if GetAsyncKeyState(VK_CONTROL) <> 0 then case W of
          integer('X') : SendMessage(H, WM_CUT,   0, 0);
          integer('C') : SendMessage(H, WM_COPY,  0, 0);
          integer('V') : SendMessage(H, WM_PASTE, 0, 0);
          integer('Z') : SendMessage(H, WM_UNDO , 0, 0);
          integer('Y') : ReDo(H);
          integer('A') : SelectAll(H);
          VK_INSERT    : SendMessage(H, WM_COPY,  0, 0);
          VK_PRIOR     : MoveCaretLine   (H, -1000000);  
          VK_NEXT      : MoveCaretLine   (H,  1000000);
          VK_DELETE    : SendMessage(H, WM_CLEAR, 0, 0);
      //  end else if GetAsyncKeyState(VK_ALT) then case W of
      //    VK_BACK      : SendMessage(H, WM_UNDO , 0, 0);
        end else if GetAsyncKeyState(VK_SHIFT) <> 0 then case W of
          VK_DELETE    : SendMessage(H, WM_CUT  , 0, 0);
          VK_INSERT    : SendMessage(H, WM_PASTE, 0, 0);
        end else case W of
          VK_SHIFT     : SDown(H);
          VK_LEFT      : MoveCaretSymbol (H, -1);
          VK_RIGHT     : MoveCaretSymbol (H,  1);
          VK_UP        : MoveCaretLine   (H, -1);
          VK_DOWN      : MoveCaretLine   (H,  1);
          VK_PRIOR     : MoveCaretLine   (H, -MaxLinesInScreenByH(H));
          VK_NEXT      : MoveCaretLine   (H,  MaxLinesInScreenByH(H));
          VK_DELETE    : DeleteSymbol(H, False);
        end;
        DrawText(H);
        Exit;
      end;

Пишу свой винапи-класс типа Edit.
Так сделаны горячие клавиши.

TarasB, 10 Января 2012

Комментарии (25)

Pascal / Говнокод #8744

+93

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

procedure _FinalizeArray(p: Pointer; typeInfo: Pointer; elemCount: Cardinal);
asm
        CMP     ECX, 0                        { no array -> nop }
        JE      @@zerolength

        PUSH    EAX
        PUSH    EBX
        PUSH    ESI
        PUSH    EDI
        MOV     EBX,EAX
        MOV     ESI,EDX
        MOV     EDI,ECX

        XOR     EDX,EDX
        MOV     AL,[ESI]
        MOV     DL,[ESI+1]

        CMP     AL,tkLString
        JE      @@LString

        CMP     AL,tkWString
        JE      @@WString

        CMP     AL,tkVariant
        JE      @@Variant

        CMP     AL,tkArray
        JE      @@Array

        CMP     AL,tkRecord
        JE      @@Record

        CMP     AL,tkInterface
        JE      @@Interface

        CMP     AL,tkDynArray
        JE      @@DynArray

        JMP     @@error

@@LString:
        CMP     ECX,1
        MOV     EAX,EBX
        JG      @@LStringArray
        CALL    _LStrClr
        JMP     @@exit
@@LStringArray:
        MOV     EDX,ECX
        CALL    _LStrArrayClr
        JMP     @@exit

@@WString:
        CMP     ECX,1
        MOV     EAX,EBX
        JG      @@WStringArray
        CALL    _WStrClr
        JMP     @@exit
@@WStringArray:
        MOV     EDX,ECX
        CALL    _WStrArrayClr
        JMP     @@exit
@@Variant:
        MOV     EAX,EBX
        ADD     EBX,16
        CALL    _VarClr
        DEC     EDI
        JG      @@Variant
        JMP     @@exit
@@Array:
        PUSH    EBP
        MOV     EBP,EDX
@@ArrayLoop:
        MOV     EDX,[ESI+EBP+2+8]
        MOV     EAX,EBX
        ADD     EBX,[ESI+EBP+2]
        MOV     ECX,[ESI+EBP+2+4]
        MOV     EDX,[EDX]
        CALL    _FinalizeArray
        DEC     EDI
        JG      @@ArrayLoop
        POP     EBP
        JMP     @@exit

@@Record:
        PUSH    EBP
        MOV     EBP,EDX
@@RecordLoop:
        { inv: EDI = number of array elements to finalize }

        MOV     EAX,EBX
        ADD     EBX,[ESI+EBP+2]

Это так в дельфах автофинализация строк, длиннострок, вариантов, массивов, записей, интерфейсов, динмассивов реализована.
Вместо того, чтобы напрямую вызвать деструктор, там в рантайме (ПИЗДЕЦ, В РАНТАЙМЕ БЛЯТЬ!!!) проверяется тип поля, требующего финализацию и через три таких жопы наконец-то вызывается деструктор. И это, блять, я ещё создал свой TInterfacedObject, потому что иначе бы деструктор вызывался не через три жопы, а через четыре, и одна из них - системный вызов.
Да, это при включённой оптимизации всё, если чё.

TarasB, 06 Декабря 2011

Комментарии (116)

PHP / Говнокод #8326

+146

1

for ($i=0; $j<10; $k++)

ОЛОЛО С БАШОРГА
http://ithappens.ru/story/7621

TarasB, 27 Октября 2011

Комментарии (9)

C++ / Говнокод #8123

+160

01
02
03
04
05
06
07
08
09
10
11
12
13

#include <iostream>
 
int main()
{
int a[4] = {1,2,3,4}; 
int (&b)[4] = a; 
int c[4] = {5,6,7,8}; 
a=c; 
std::cout<<b[0];
}

prog.cpp: In function ‘int main()’:
prog.cpp:8: error: invalid array assignment

Да, похоже С++ не настолько высокоуровневый, чтобы поддерживать такое понятие как присваивание массивов.

http://www.gamedev.ru/flame/forum/?id=153265&page=2#m20

TarasB, 08 Октября 2011

Комментарии (63)

Java / Говнокод #7418

+79

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

ArrayList<String> Stack = new ArrayList<String>(14);
 ArrayList<String> ShuffledStack = new ArrayList<String>(14); 
 

Stack.add(0,"a");
Stack.add(1,"b");
Stack.add(2,"c");
Stack.add(3,"d");
Stack.add(4,"e");
Stack.add(5,"f"); 
Stack.add(6,"e");
Stack.add(7,"g");
Stack.add(8,"h");
Stack.add(9,"j");
Stack.add(10,"k");
Stack.add(11,"l");
Stack.add(12,"o");
Stack.add(13,"m"); 
 
int size = Stack.size(); 
 
while(ShuffledStack.size() != size)
         {
             int r = (int)(Math.random()*(size));
                   if(!ShuffledStack.contains( Stack.get( r   )))
                       ShuffledStack.add( Stack.get( r   )); 
 
         }

> Еще более гнетет то что великого старину Доналда Кнута я так и не прочел. Дело в том что там большинство алгоритмов на математических формулах и основаны(бля, меня колбасит от такого)))...

Источник: http://pyha.ru/forum/topic/3831.0

TarasB, 02 Августа 2011

Комментарии (35)

Assembler / Говнокод #7378

+240

1
2
3
4
5

db $8F, $AE, $A7, $A4, $E0, $A0, $A2, $AB, $EF, $EE, $20, $E3, $EE, $E2, $AD, $A5
db $AD, $EC, $AA, $A8, $A9, $20, $A3, $AE, $A2, $AD, $AE, $AA, $AE, $A4, $A8, $AA
db $20, $E1, $20, $A4, $AD, $F1, $AC, $20, $E1, $A8, $E1, $E2, $A5, $AC, $AD, $AE
db $A3, $AE, $20, $A0, $A4, $AC, $A8, $AD, $A8, $E1, $E2, $E0, $A0, $E2, $AE, $E0
db $A0, $21

TarasB, 29 Июля 2011

Комментарии (18)

Говнокод: по колено в коде.