По колено в коде — Говнокод.ру

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

+59

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
92
93

#ifndef PORT_H_
#define PORT_H_

#define MAKE_PORT(portName, ddrName, pinName, className, ID) \
		class className{\
		public:\
			typedef uint8_t DataT; /* Alias for the type of data port*/\
		private:\
			static volatile DataT &data()\
			{\
				return portName;\
			}\
			static volatile DataT &dir()\
			{\
				return ddrName;\
			}\
			static volatile DataT &pin()\
			{\
				return pinName;\
			}\
		public:\
			static void Write(DataT value) /*Write value to port PORT = value*/\
			{\
				data() = value;\
			}\
			static void ClearAndSet(DataT clearMask, DataT value) /*Clear by mask and set PORT = (PORT & ~clearMask) | value */\
			{\
				data() = (data() & ~clearMask) | value;\
			}\
			static DataT Read() /*Read the value written to the port*/\
			{\
				return data();\
			}\
			static void DirWrite(DataT value)/*Record the value of the direction of the lines I/O */\
			{\
				dir() = value;\
			}\
			static DataT DirRead() /*Read the value of the direction of the lines I/O */\
			{\
				return dir();\
			}\
			static void Set(DataT value) /*Set bits in the port PORT |= value;*/\
			{\
				data() |= value;\
			}\
			static void Clear(DataT value) /*Clear bits in the port PORT &= ~value;*/\
			{\
				data() &= ~value;\
			}\
			static void Togle(DataT value) /*Switch bits PORT ^= value;*/\
			{\
				data() ^= value;\
			}\
			static void DirSet(DataT value) /*Set direction bits*/\
			{\
				dir() |= value;\
			}\
			static void DirClear(DataT value) /*Clear direction bits*/\
			{\
				dir() &= ~value;\
			}\
			static void DirTogle(DataT value)\
			{\
				dir() ^= value;\
			}\
			static DataT PinRead()\
			{\
				return pin();\
			}\
			enum{Id = ID};\
			enum{Width=sizeof(DataT)*8};/*Bit depth*/\
		};

#ifdef PORTA
	MAKE_PORT(PORTA, DDRA, PINA, Porta, 'A');
#endif

#ifdef PORTB
	MAKE_PORT(PORTB, DDRB, PINB, Portb, 'B');
#endif

#ifdef PORTC
	MAKE_PORT(PORTC, DDRC, PINC, Portc, 'C');
#endif

#ifdef PORTD
	MAKE_PORT(PORTD, DDRD, PIND, Portd, 'D');
#endif




#endif /* PORT_H_ */

Использование СИ++ в микроконтроллерах доставляет....

nsa_a1, 18 Февраля 2014

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

C# / Говнокод #14622

+115

1
2
3
4

for (int i = 0; i < 40; i++)
{
GC.Collect();
}

чтоб наверняка :))

alex0f0b, 17 Февраля 2014

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

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

+43

1
2
3
4
5
6

/*
 * encoding.cpp
 *
 *  Created on: Oct 25, 2012
 *      Author: root
 */

falsting, 17 Февраля 2014

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

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

+91

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

function TDuel.getFieldStr(p1: ansistring; p2: ansistring; p3: ansistring = ''): ansistring;
begin
  Result := '';
  if p1 = 'p1' then begin
    if p2 = 'attack' then begin
      if p3 = '' then Result := p1attack;
      if p3 = '1' then Result := p1attack1;
    end;
    if p2 = 'defend' then begin
      Result := p1defend;
    end;
  end;
  if p1 = 'p2' then begin
    if p2 = 'attack' then begin
      if p3 = '' then Result := p2attack;
      if p3 = '1' then Result := p2attack1;
    end;
    if p2 = 'defend' then begin
      Result := p2defend;
    end;
  end;
end;

function TDuel.getFieldInt(p1: ansistring; p2: ansistring; p3: ansistring = ''): integer;
begin
  if p1 = 'player' then begin
    if p2 = '1' then Result := player1;
    if p2 = '2' then Result := player2;
  end;

  if p1 = 'p' then begin
    if p2 = '1' then begin
      if p3 = 'dmg' then Result := p1dmg;
    end;
    if p2 = '2' then begin
      if p3 = 'dmg' then Result := p2dmg;
    end;
  end;
end;

procedure TDuel.updFieldInt(p1: ansistring; p2: ansistring; value: integer);
begin
  if p1 = 'p1' then begin
    if p2 = 'dmg' then p1dmg := p1dmg + value;
  end;
  if p1 = 'p2' then begin
    if p2 = 'dmg' then p2dmg := p2dmg + value;
  end;
end;

Вот такой шедевр программерской мысли остался в коде сервера браузерки от первых девелоперов. Я так и не распарсил пока, что он делает-)

Cynicrus, 17 Февраля 2014

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

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

+171

1
2
3
4
5
6
7

if($pos === false){
$true = true;
}
else{
$true = false;
}
if($true){ /* тут код */ }

Просто оставлю это здесь.

dbepcepk, 17 Февраля 2014

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

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

+2

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
92
93
94
95
96
97

void KateQuickOpen::update () {
  // пропущено
  QModelIndex idxToSelect;
  int linecount = 0;
  QMapIterator<qint64, KTextEditor::View *> i2(sortedViews);
  while (i2.hasNext()) {
        i2.next();

        KTextEditor::Document *doc = i2.value()->document();

        if (alreadySeenDocs.contains(doc))
          continue;

        alreadySeenDocs.insert (doc);

        QStandardItem *itemName = new QStandardItem(doc->documentName());

        itemName->setData(qVariantFromValue(QPointer<KTextEditor::Document> (doc)), DocumentRole);
        itemName->setData(QString("%1: %2").arg(doc->documentName()).arg(doc->url().pathOrUrl()), SortFilterRole);
        itemName->setEditable(false);
        QFont font = itemName->font();
        font.setBold(true);
        itemName->setFont(font);

        QStandardItem *itemUrl = new QStandardItem(doc->url().pathOrUrl());
        itemUrl->setEditable(false);
        base_model->setItem(linecount, 0, itemName);
        base_model->setItem(linecount, 1, itemUrl);
        linecount++;

        if (!doc->url().isEmpty() && doc->url().isLocalFile())
          alreadySeenFiles.insert (doc->url().toLocalFile());

        // select second document, that is the last used (beside the active one)
        if (linecount == 2)
          idxToSelect = itemName->index();
    }

  // get all open documents
  QList<KTextEditor::Document*> docs = Kate::application()->documentManager()->documents();
    foreach(KTextEditor::Document *doc, docs) {
        // skip docs already open
        if (alreadySeenDocs.contains (doc))
          continue;

        QStandardItem *itemName = new QStandardItem(doc->documentName());

        itemName->setData(qVariantFromValue(QPointer<KTextEditor::Document> (doc)), DocumentRole);
        itemName->setData(QString("%1: %2").arg(doc->documentName()).arg(doc->url().pathOrUrl()), SortFilterRole);
        itemName->setEditable(false);
        QFont font = itemName->font();
        font.setBold(true);
        itemName->setFont(font);

        QStandardItem *itemUrl = new QStandardItem(doc->url().pathOrUrl());
        itemUrl->setEditable(false);
        base_model->setItem(linecount, 0, itemName);
        base_model->setItem(linecount, 1, itemUrl);
        linecount++;

        if (!doc->url().isEmpty() && doc->url().isLocalFile())
          alreadySeenFiles.insert (doc->url().toLocalFile());
    }

    // insert all project files, if any project around
    if (Kate::PluginView *projectView = m_mainWindow->mainWindow()->pluginView ("kateprojectplugin")) {
      QStringList projectFiles = projectView->property ("projectFiles").toStringList();
      foreach (const QString &file, projectFiles) {
        // skip files already open
        if (alreadySeenFiles.contains (file))
          continue;

        QFileInfo fi (file);
        QStandardItem *itemName = new QStandardItem(fi.fileName());

        itemName->setData(qVariantFromValue(KUrl::fromPath (file)), UrlRole);
        itemName->setData(QString("%1: %2").arg(fi.fileName()).arg(file), SortFilterRole);
        itemName->setEditable(false);
        QFont font = itemName->font();
        font.setBold(true);
        itemName->setFont(font);

        QStandardItem *itemUrl = new QStandardItem(file);
        itemUrl->setEditable(false);
        base_model->setItem(linecount, 0, itemName);
        base_model->setItem(linecount, 1, itemUrl);
        linecount++;
      }
    }

    // swap models and kill old one
    m_model->setSourceModel (base_model);
    delete m_base_model;
    m_base_model = base_model;

    // пропущено
}

Адская копипаста. У меня мозг сегфолтится при попытке ее формализировать.

https://projects.kde.org/projects/kde/applications/kate/repository/revisions/master/entry/kate/app/katequickopen.cpp#L135

Elvenfighter, 16 Февраля 2014

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

VisualBasic / Говнокод #14597

−120

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

Option Explicit

Dim HTMLCode As String 'переменная для хранения кода страницы

Private Sub Command1_Click()
    Winsock1.RemotePort = 80                'устанавливаем порт сервера 80
    Winsock1.RemoteHost = "ippages.com"     'Хост
    Winsock1.Connect                        'Подключаемся
    Label4.Caption = Winsock2.LocalIP
End Sub

Function CutIP(HTML As String) As String
Dim p1 As Integer
    p1 = InStr(HTML, "Content-Type: text/html")
    CutIP = Trim(Mid(HTML, p1 + 27, Len(HTML) - p1 - 23))
End Function

Private Sub Label1_Click()

End Sub

Private Sub Winsock1_Close()        'Событие генерируется при закрытии Канала связи
    Form1.Caption = "Не подключен" 'Просто сообщаем о том что не подключены
    Winsock1.Close
End Sub

Private Sub Winsock1_Connect()      'Событие генерируется при подключении
   Form1.Caption = "Подключение"      'Подключены
   'Посылаем запрос на сервер  выдающему наш IP
  Winsock1.SendData "GET " + "/simple/" + " HTTP/1.0" + Chr(10) + Chr(10)
End Sub

'Событие генерируется когда нам приходят данные
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
  Winsock1.GetData HTMLCode
  Label1.Caption = CutIP(HTMLCode)
End Sub

Получение ай-пи адреса посредством отправки на сайт запроса через компонент WinSock.
http://vbbook.ru/visual-basic/polychenie-svoego-ip/
Строго говоря, это не лажа кодера, просто используется (по незнанию?) очень глючный и непредсказуемый компонент.

Fixed by me:

Function GetCurrentIP() As String

  Dim txt As String

  Dim i, j As Integer

  Dim mshttp As New XMLHTTP 'по умолчанию сервер всегда зареган.

  mshttp.open "GET", "http://checkip.dyndns.org/", False ' синхронный get

  mshttp.send

  txt = mshttp.responseText

  i = InStr(1, txt, ":")

  

  If i > 0 Then

    i = i + 1

  Else

    GetCurrentIP = "" ' удобно было бы, если по присваиванию, подобному этому, происходило покидание процедуры. Ан, нет.

    Exit Function

  End If

  

  j = InStr(i, txt, "</")

  If j < 1 Then

    GetCurrentIP = ""

    Exit Function

  End If

  

  GetCurrentIP = Trim(Mid(txt, i, j - i))

End Function

Stertor, 15 Февраля 2014

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

Objective C / Говнокод #14594

−184

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

- (Pt) menuItemPos: (int) i colRef: (int *) colr
{
    int rowBeg [6] = { 1, 8, 15, 22, 28, 100 };
    float rowNum [6] =  { 7, 7, 7, 6.0, 5.0 };// { 7.03, 6.72, 7, 5.65, 4.43 };
    int col = -5;
    int row = -5;
    for(int j = 1; j < 6; ++j)
        if(i < rowBeg[j] && i >= rowBeg[j - 1])
        {
            row = j - 1;
            col = i - rowBeg[row];
            *colr = col;
            break;
        }
    
    float S = _large ? 80 : 30;
    float W = _large ? 1474/2 : 320;
    float w = W - 2 * S;
    float dx = w / (rowNum[row] - 1);
    
   // float scX = _large ? 2.1 : 1.0;
    float scY = _large ? 2.0 : 1.0;
    float aX = _large ? 18 : 0;
    return ccp( (S + col * dx) + aX,  (210 - row * 56.0) * scY);
}

Хардкодинг 90 уровня. Все константы подобраны вручную, с заботой и любовью.

tirinox, 15 Февраля 2014

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

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

+70

1
2

.
																		buffer.put(Transaction.getTransaction((JSONObject)transactionsData.get(j)).getBytes());

Вложенность, например. Но это нужно видеть целиком.
https://bitbucket.org/JeanLucPicard/nxt-public/src/

rat4, 15 Февраля 2014

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

SQL / Говнокод #14590

−157

1
2
3
4

SELECT ...
FROM ...
WHERE (CASE WHEN big_part = 1 AND blk_flag = 2 THEN -1 ELSE 0 END) <> -1 
;

slbsomeone, 15 Февраля 2014

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

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

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

C# / Говнокод #14622

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

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

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

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

VisualBasic / Говнокод #14597

Objective C / Говнокод #14594

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

SQL / Говнокод #14590