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

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

−1

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

global $obj,$pict; 
file_put_contents ('export.txt',''); 
$cr = file_get_contents ('data.txt'); 
file_put_contents ('compile.txt',$cr); 
$all = file_get_contents ('compile.txt'); 
$player_x = c('player')->x; 
$player_y = c('player')->y; 
$all1 = str_replace('player_x',$player_x, $all); 
$all2 = str_replace('player_y',$player_y, $all1); 
$all3 = str_replace('picture',$pict, $all2); 
$map_x = c("god")->w; 
$map_y = c("god")->h; 
$all4 = str_replace('map_x',$map_x, $all3); 
$all5 = str_replace('map_y',$map_y, $all4); 
$all6 = str_replace('obj_folder','compile/test_export/test/', $all5); 
$all7 = str_replace('obj_count',$obj, $all6); 
file_put_contents('export.txt', $all7, FILE_APPEND | LOCK_EX); 

global $obj_x,$obj_y,$obj_w,$obj_h,$obj_color; 
global $obj,$pict,$player_x,$player_y,$map_x,$map_y; 
$player_x = c('player')->x; 
$player_y = c('player')->y; 
$map_x = c("god")->w; 
$map_y = c("god")->h; 
$obj_x = c("obj".$null)->x; 
$obj_y = c("obj".$null)->y; 
$obj_w = c("obj".$null)->w; 
$obj_h = c("obj".$null)->h; 
$obj_color = c("Form1->obj".$null)->brushColor; 
ShowForm(map, SW_SHOW); 
for ($x=0;$x<$obj;$x++) 
{ 
cr_object(); 
}

Компиляция локаций в моём 2D движке который я писал очень давно xD

NodnolStudio, 25 Сентября 2016

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

Куча / Говнокод #21266

−8

1
2
3
4
5

(* Solving the Queen Puzzle *)
#define N 8
#define NSOL 10
val () =
(((fix qsolve(n: int): stream(list0(int)) => if(n > 0)then((qsolve(n-1)*list0_make_intrange(0,N)).map(TYPE{list0(int)})(lam($tup(xs,x))=>cons0(x,xs))).filter()(lam(xs)=>let val-cons0(x0,xs) = xs in xs.iforall()(lam(i, x)=>((x0)!=x)&&(abs(x0-x)!=i+1)) end)else(stream_make_sing(nil0())))(N)).takeLte(NSOL)).iforeach()(lam(i, xs)=>(println!("Solution#", i+1, ":"); xs.rforeach()(lam(x) => ((N).foreach()(lam(i)=>(print_string(ifval(i=x," Q", " ."))));println!()));println!()))

LispGovno, 25 Сентября 2016

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

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

−1

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

c("openDlg1")->execute(); 
$dir = c("openDlg1")->fileName; 
$files1 = scandir($dir); 
$files1 = str_replace("..","",$files1); 
$files1 = str_replace(".","",$files1); 
unset($files1[0]); 
unset($files1[1]); 
$count = 2; 
$x = count($files1); 
while ($count<=$x){ 
$p1 = file_get_contents ("p1.txt"); 
$p2 = file_get_contents ("p2.txt"); 
$put = $p1.$dir."/".$files1[$count].$p2; 
$count = $count+1; 
file_put_contents ("index.html",$put, FILE_APPEND | LOCK_EX); 
c("chromium1")->url = "index.html"; 
}

NodnolStudio, 25 Сентября 2016

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

Куча / Говнокод #21264

−9

1
2
3
4
5
6

Мужчина лет сорока сидит в купе поезда с барышней.
-Знаете, как-то раз я познакомился с девушкой, возникла симпатия, мы познакомились и провели ночь.
Наутро я проснулся в пустой постели. На столике я обнаружил немного денег и записку: "Вы - осёл"...
-О, это грустноватая история...
Погас свет...
Наутро мужчина проснулся в пустом купе. На столике лежали деньги и записка: "Это Вам на овёс".

...

voodoodal16, 24 Сентября 2016

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

Haskell / Говнокод #21263

−9

1

ПЕРДЬ!!!!

RCS разработана в 1980-х годах Уолтером Тихи из Университета Пердью как свободная и более развитая альтернатива популярной тогда Source Code Control System (SCCS). В настоящее время, является частью Проекта GNU, однако всё ещё поддерживается Университетом Пердью.

barop, 24 Сентября 2016

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

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

−3

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

$list = array(
1 => "panel1",
2 => "panel3",
3 => "opt",
4 => "listBox1",
);
//-----------------------------
$x = $list[1];
$dev_w = file_get_contents ("dev/".$x."_w.ini");
c($list[1])->w = $dev_w;
$dev_h = file_get_contents ("dev/".$x."_h.ini");
c($list[1])->h = $dev_h;

$x = $list[2];
$dev_w = file_get_contents ("dev/".$x."_w.ini");
c($list[2])->w = $dev_w;
$dev_h = file_get_contents ("dev/".$x."_h.ini");
c($list[2])->h = $dev_h;

$x = $list[3];
$dev_w = file_get_contents ("dev/".$x."_w.ini");
c($list[3])->w = $dev_w;
$dev_h = file_get_contents ("dev/".$x."_h.ini");
c($list[3])->h = $dev_h;

$x = $list[4];
$dev_w = file_get_contents ("dev/".$x."_w.ini");
c($list[4])->w = $dev_w;
$dev_h = file_get_contents ("dev/".$x."_h.ini");
c($list[4])->h = $dev_h;

Запись в текстовые файлы информацию о позиции объектов (X и Y)

NodnolStudio, 24 Сентября 2016

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

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

0

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

fstream:=tstreamex.Create(signaturepath,fmShareDenyWrite);
    FLock.Enter;
    try
      while not fstream.EOS do
      begin
        obj:=tsignature.create;
        try
          obj.AddingDate:=fstream.ReadDate;
          obj.Comment:=fstream.ReadString;
          fstream.ReadBuffer(Len, SizeOf(Len));
          obj.MStream.SetSize(len);
          fstream.ReadBuffer(obj.mstream.memory^, len);
          fsignlist.Add(obj);
        except
          obj.Free;
          raise esignatureloadingerror.Create('Signature read error');
        end;

Стрим читает из файла сохраненный объект. К сожалению, подобный подход используется даже в серьезных коммерческих проеках, это классика.
Если что-то поменять в файле хоть на 1 байт, стрим промахнётся мимо поля - прога либо съест всю доступную системную память либо обрушится с Access Violation.
В любом случае, память будет испорчена, и дальнейшее выполнение программы чревато UB.

Кстати, а не грозит ли юзание структур порчей памяти? Допустим, хотим определить валидность заголовка, загружаем структуру, а в файле - трешак.
Не будет ли обращения по ложному адресу? UB?

voodoodal16, 24 Сентября 2016

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

Куча / Говнокод #21258

−6

1

Посоветуй нативный язык с выводом типов. И не Хаскель. В идеале без мономорфизм рестрикшен

LispGovno, 24 Сентября 2016

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

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

−1

1
2
3
4
5
6
7
8
9

$chat = c("memo1");
$send = c("memo2")->text;
$name = c("edit1")->text;
$send1 = file_get_contents ("data/send.txt");
$send1 = str_replace ("NAME",$name,$send1);
$send1 = str_replace ("SEND",$send,$send1);
$send1 = "".$send1;
file_put_contents ("data/chat.txt", $send1, FILE_APPEND | LOCK_EX);
$chat->text = file_get_contents ("data/chat.txt");

Говно-чатик

NodnolStudio, 23 Сентября 2016