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

Всего: 10

Perl / Говнокод #13647

−159

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

package Bool;

use strict;
use Carp qw/croak/;
use Scalar::Util qw/blessed/;

use base "Exporter";
our @EXPORT = qw/true false/;

use overload(
   'bool' => \&op_bool,
   '!'    => \&op_not,
   '=='   => \&op_equal,
   '!='   => \&op_not_equal,
   '""'   => \&op_to_string,
);

our $true  = !0;
our $false = !!0;

use constant true  => bless \$true;
use constant false => bless \$false;

sub import {
   my($package) = @_;
   $package->export_to_level(1, @_);
    
   &Internals::SvREADONLY(\!0,  0);
   &Internals::SvREADONLY(\!!0, 0);
   ${ \!0 }  = true;
   ${ \!!0 } = false;
   &Internals::SvREADONLY(\!0,  1);
   &Internals::SvREADONLY(\!!0, 1);
}

sub op_bool {
   my($self) = @_;
   return $$self;
}

sub op_not {
   my($self) = @_;
   $$self ? false : true;
}

sub op_equal {
   my($l, $r) = @_;
   typecheck($l, $r);
   return (($$l && $$r || !$$l && !$$r) ? true : false);
}

sub op_not_equal {
   my($l, $r) = @_;
   typecheck($l, $r);
   return (($$l && $$r || !$$l && !$$r) ? false : true);
}

sub op_to_string {
   my($self) = @_;
   return $self ? "true" : "false";
}

sub typecheck {
   map { blessed $_ eq __PACKAGE__ or croak "Bool: Type error" } @_;
   return;
}

1;

true/false в perl.
true == true -> true
1 == 1 -> true
"a" eq "b" -> false
и т.п.
true == 1 # Ошибка
Пришлось долго искать как превратить !0 в true и !!0 в false, посмотрел в чужом модуле.

an0nym, 22 Августа 2013

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

Perl / Говнокод #13565

−124

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

package Exception;

sub new {
   my($package, $what) = @_;
   return bless { what => $what }, $package;
}

sub what {
   my($self) = @_;
   return $self->{what};
}

package main;

sub try(&$) {
   my($code, $catch) = @_;
   unless(eval { $code->(); 1 }) {
      local $_ = $@;
      $catch->();
   }
}

sub catch(&) { $_[0] }

sub throw($) { die $_[0] }

try {
   throw new Exception("Ошибка");
} catch {
   print $_->what;
};

Исключения в perl.

an0nym, 08 Августа 2013

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

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

+7

1
2
3
4
5
6

namespace engine { namespace ui { class Console; } }

class Dummy
{
   engine::ui::Console * _ptr;
};

Решение проблемы с перекрёстными #include, когда классы должны хранить указатели друг на друга. Простое объявление class engine::ui::Console; не работает.
Не в первый раз сталкиваюсь с этой проблемой из-за примитивной системы импорта.

an0nym, 20 Июля 2013

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

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

+12

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

class Random
{
public:
    int getInt(int min, int max)
    {
        return std::uniform_int_distribution<int>(min, max)(_rd);
    }
    
    double getReal(double min, double max)
    {
        return std::uniform_real_distribution<double>(min, max)(_rd);
    }
    
    bool getBool()
    {
        return std::uniform_int_distribution<int>(0, 1)(_rd);
    }

private:
    std::random_device _rd;
};

Даже не знаю, говнокод это или нет.

an0nym, 02 Июля 2013

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

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

+14

1
2
3
4
5
6
7
8
9

int error = (unsigned)-1;

int x, y, w, h;
x = y = w = h = error;

stream >> x >> y >> w >> h;

if(x == error || y == error || w == error || h == error)
   ...

Не нашёл, как по-другому обрабатывать ошибки текстовых командах.

an0nym, 24 Июня 2013

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

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

+16

1
2
3
4
5
6
7
8

#define Throw(exc, msg) do {  \
   std::stringstream exc_str; \
   exc_str << __FILE__ << ":" << __LINE__ \
   << ": " << __func__ << "(): " << msg;  \
   throw exc(exc_str.str()); \
   } while(0)

Throw(std::runtime_error, "test");

terminate called after throwing an instance of 'std::runtime_error'
what(): main.cpp:22: main(): Error

Как вам?

an0nym, 10 Июня 2013

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

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

+28

1
2
3
4
5
6
7
8
9

const std::string cyrillic = "аАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩъЪыЫьЬэЭюЮяЯ";

std::string cyrillic_toupper(std::string s)
{
   if(cyrillic.find(s) == std::string::npos)
      throw std::runtime_error(std::string("cyrillic_toupper(): ") + "'" + s + "' is not cyrillic char");

   return cyrillic.substr(cyrillic.find(s) + 2, 2);
}

an0nym, 21 Октября 2012

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

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

+28

1
2
3
4
5
6
7
8

std::string toString(std::function<std::string(T)> f = std::function<std::string(T)>()) {
   std::stringstream ss;
   if(f)
      ss << f(some_value);
   else
      ss << some_value;
   return ss.str();
}

an0nym, 03 Октября 2012

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

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

+29

1
2
3
4
5
6
7

string input;
string output;
 
input = "C:\\bla.txt\\";          //"Bla.txt" is the file to copy
output = "C:\\test\\";            //"Test" is the folder to copy to
 
system("copy input.c_str() output.c_str()")

http://cboard.cprogramming.com/cplusplus-programming/109047-help-copy-files-cplusplus.html

an0nym, 10 Сентября 2012

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

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