Ve speciálním jarním bonusovém přídavku seriálu (nejen) o PHP se podíváme, jak se
vlastně také programuje v praxi aneb šedá je teorie, zelený strom života.
1.4.2006 00:00 | Ondřej Čečák | přečteno 77016×
Nekomerční sdělení: Doporučujeme zobrazení v čitelnějším "leet" formátu (pouze pro světa znalé, kteří ovládají hackerskou řeč).
O komentářích jste se už mohli dočíst ve 4. a 62. seriálu. Pro naše potřeby si to raději shrňme.
Syntakticky mohou být komentáře jednořádkové (//
, #
)
nebo víceřádkové (/* */
), například:
<?
// komentar
# dalsi komentar
/*
Opet komentar, tenktorkat
ale
na vice radku. */
?>
Obsah samotných komentářů může být různý, řekneme si hned na úvod, že okomentovaný kód by neměla být jediná dokumentace. Pravidla pro jejich psaní jsou popsána ve výše zmíněném 62. dílu, takže mi připadá zbytečné je opakovat.
Poměrně vhodný text k zamyšlení nad psaním komentářů najdete v
/usr/src/linux/Documentation/CodingStyle
(kapitola 7). Docela
pěkný byl také jeden přípspěvek do konference linux@linux.cz, od Jana "Yenya"
Kasprzaka, kterého si dovolím citovat:
[...]
"> a všechno pečlivě okomentovává, takže je z kódu hotová kniha ...
Což taky není vždy dobře. Je to zase pěkné popsané v CodingStyle
.
Když člověk má tendenci napsat komentář, který vysvětluje nějakou záludnost
v kódu, mělo by to pro něho být signálem k zamyšlení, jestli náhodou nejde
tahle věc udělat tak, aby tam tato záludnost nebyla. Ne vždy to jde udělat,
ale riziko přílišného komentování tady vždycky je. Extrémní příklad jsem
viděl nedávno v jedné bakalářské práci, kde bylo něco jako
int tmp3; /* promenna tmp3 obsahuje pocet nalezenych prvku */
... celořádkový komentář vysvětlující to, co by se dalo daleko lépe
napsat bez komentáře a s proměnnou, která by se místo tmp3
jmenovala
nějak jako items_found
nebo
nalezenych_prvku
.
Stejně tak je zvěrstvo takové to co mají mnohé projekty – povinný popis funkce před její definicí – což obvykle končí tím že se převypráví slovně název funkce, názvy a typy argumentů a typ navrátové hodnoty. U dobře napsaného kódu je toto vše jasné z názvu funkce a parametru. Je-li použit nějaký trik, který tam fakt musí být, pak dokumentujme jen ten trik.
Primárním zdrojem informací o kódu má být kód samotný (jeho
čistota a čitelnost). Komentáře se často dostanou postupnými změnami
do rozporu se skutečností. Proto by jich mělo být co nejméně, a to
konkretně jen upozornění na nějaké triky a nestandardnosti (plus možná
nějaké celkové vysokoúrovňové povídání na začátku programu nebo modulu
nebo u nějaké podstatnějši funkce)."
[...]
Tak ale dost bylo povídání, pojďme se podívat na praktické ukázky ...
Upozornění: Části kódu pochází většinou z jednoho nejmenovaného portálu, jehož zdrojový
kód máme kromě italských mafiánů pouze my; pokud tedy chcete číst dále,
doporučujeme vyhotovení a podpis dvou kopií non-disclosure
agreement, jednu zašlete prosím na naši adresu a druhou do
/dev/null
(odpověď vám bude automaticky doručena do
/dev/urandom
). Přístupy na článek jsou logovány a předávány na
stůl našeho Consigliere a Capo de tutti Capi.
global $is_hotel; /* je uzivatel hotel ?? */
/* ----------- ukladaci skript pro polozky -------------
<notice>
chce to doinstalovat libpng2, libpng3 --> jinak to nepujde
problem solved, dragon founds ....
png jede bez komprese==>jpg na nahledy
</notice>
PNG bez komprese nelze – ten format to neumi --adh
*/
if(Count($access_priv) < 1) { $error_status = "no accesss priv set, developer error !!!!"; die($error_status); }
$body = "cagos !, nekde je chyba.\n hori nam letadlo salalala hej\n sql error message\n from: http://$SERVER_NAME{$SCRIPT_NAME}\n request method: $REQUEST_METHOD\n user agent: $HTTP_USER_AGENT\n remote addr: $REMOTE_ADDR\n query string: $QUERY_STRING\nhttp post vars:\n";
/* ----- SHIT: tady to padalo. may be fix...... ------- */ global $static_link; global $lang; $static_link = ""; $lang = "cz"; $stredni_lista = $static_link."includes/script_edit.php";
/* ----------- ulozime si preventivne, co se odesilalo -------------- */ /* mozna se na nej vysereme na ukladani */ $error_status = "fucked, logged"; $SQL_dotaz = "INSERT INTO force_logs (username, typ, ip_address) VALUES ('".$vorgotten_email."', 1, '".$REMOTE_ADDR."') "; $mydb->do_sql($SQL_dotaz, "log_attacker", 0); if($over_limit != 1) {
// ---------------- zjisti pocty ----------------------- if($mydb->get_row_count() > 0) { $celkem_vyhledanych = $mydb->get_res(0, 0); } else { $celkem_vyhledanych = 0; } /* let holubicko bila a potes nase domovy a pritom neslitni !!! */
// ------- HLAVNI ENGINE FORA + STROM ---------------------------- /* XXX: Tohle sem dalo nejaky pekny hovado, to proste nemuze fungovat --adh */ if (IsSet($l_visit[$id_kategorie])) $visit = $l_visit[$id_kategorie]; else $visit = 0; SetCookie("l_visit[".$id_kategorie."]", Time(), Time()+600000);
/* ---------- VLOZENI CI EDITACE PRISPEVKU DISKUSNIHO FORA ---------- */
/* ------- id_prispevku - prazdne - zadava se
- neprazdne, over moznost editace
fuck the share code and users !!!!!!
web: --> nahled
adm: --> ukladani
-------------------------------------------------------------------- */
/*---------------- I love you users !!!!!! ------------------- */ // XXX: tohle je prasarna a navic silne neoptimalni --adh $subject = (Get_Item_Name($id_parent, 6)); if(!EReg("^Re:", $subject)) { $subject = "Re: ".$subject; } //$xtpl_main->assign("SUBJECT_READONLY", " readonly"); }
/* ------------------------ stredni_lista -------------------------- */ /* zacatecni tag <td> stredni listy ??????!!!!!! */ UnSet($xtpl_main); $xtpl_main = new Xtemplate($static_link."html_stredy/td_kousek.html"); $xtpl_main->parse("td_kousek"); $xtpl_main->out("td_kousek"); /* ----------------------------------------------------------------- */
/* attacker fuck ----- */ } else { $error_status = "Attack"; Unset($xtpl_main); $xtpl_main = new Xtemplate($static_link."html/cz/not_found.html"); $xtpl_main->assign("ROOT_LINK", $root_link); $xtpl_main->assign("STATIC_LINK", $static_link); $xtpl_main->parse("not_found"); $xtpl_main->out("not_found"); }
<?
/* ------ nosny skript DOMOVSKA STRANKA UZIVATELE ---------------------- */
// XXX: co to probuh znamena "nosny skript" ??? --adh
Create_Header("Administrace == Editace clanku a zprav");
// die("<H2>EDITACE CLANKU JE DO 19:00 MIMO PROVOZ.
DEKUJEME ZA POCHOPENI.</H2>")
if ($gauth=='foo'){ $mydb->do_sql('UPDATE hlasovani set value='.$vote.' where type_item=11 and id_item='.$id_galerie.' and id_owner='. $_SESSION['id_administratora']); } else{ // foo } } }
// TODO: Datova cast - je na to jejaka krasna funkce, RTFM
// define ("eshopRootLink", "http://www.linuxsoft.slavo/shop/");
/* ----------- BEGIN: added by me (pavel) --------- */ } elseif($aktual_dir == "de") { $root_link == ""; $lang_link = ""; $lang = "de"; $alter_lang = "en"; $lang_number = 2; $alter_lang_number = 1; /* ----------- END: added by me (pavel) -------------*/
$SQL_part = ""; /* ??????????? FIXME */
/* --- maxiterror welcome --
} // zadny obrazky -- err } // no image, welcome to peklo
/* ---------- vlozeni polozky SW ------- adm ---
-- sekundarni kategorie se resi z dat jiz z vyselektovaneho rekursivne
pole, pridaji se k tomu jeste sekundarni kategorie a porovnana
se obsah poli ---
Dobre, a ted jeste jednou a cesky --adh
--------------------------------------------------------------- */
eset($error_array); $qs = "user_edit.php".Create_Err_QS($error_array, $qs); // nejaka error ??
} // zadny obrazky -- err } // hotel nema obrazky -- jaktoze ( piskac, smarda, zeleny raquel ??)
-- spolecna jazykova sablona pro jidlo i piti
??? system...... not detected
// prefs ???????????????????
/* ---------- vychozi mena ------------------------- */
/* ------------------- vyber domenovych jmen -------------- */
// ujasnit jak bude ?????
} else { $error_status = "coze, do mailu nic neslo ???"; // sendni mie mail cici, protoze to je prusvih !!!!
} else { $error_status = "Nic se nenaslo, ale melo ??!!!"; } /* TODO: <div align=center {DISABLE_ERR}>Nejsou zadne vysleky vyhledavani.</div> */
$error_status = "Neodesila maily !!!!"; ... $error_status = "Neodesila maily smejd !!!!";
$error_status = "<!-- sem se to nikdy dostat nemelo !!!! - chaos in decide engine -->"; die($error_status);
-- id_type - parametr -- go megashit go !!!!!
} else { // co se stane kdyz .... $error_status = "<!-- sem se to nikdy dostat nemelo !!! -->"; die($error_status);
A na závěr z trošku jiného soudku aneb i jiné projekty mají drsný kód (zarytí vyznavači PHP doufáme odpustí). Schválně kdo pozná nejvíce ukázek:
/* Ha, ha!! I did not realize C has a builtin XOR operator! */ #define XOR(a,b) (unsigned char) (((a&~b)|(~a&b)) & 0377) /* NOTE: a and b should be unsigned char */
exit 1 # maji to rozmrdane, kurvy jedny
while(*ptr) { *ptr=(*ptr & 0x7F); /* *ptr++ &= 0x7F. Yeah, I know... I just *like* long code */ ptr++; /* besides, it optimizes out the same anyway. */ }
/* User torturation. */ /* You are worried about what you see here? You don't see anything in * the first place. Also, be assured that we know what are we doing. */ /* (We are killing the user, obviously.) */ /* TODO: Gettextify? Er, better not. More people (translators) could * find out what are we doing... ;-) --pasky */ /* TODO: Be more cruel when in trouble? ;-) --pasky */ fputs( "Wheeeeeeeeeee! You played with the config.h by hand, didn't you?\n" "Of _COURSE_ you did! Is that how a nice .. creature behaves like?\n" "Of _COURSE_ it isn't! I feel offended and thus I will revenge now!\n" "You will _suffer_ >:).\n" "\n" "CPU burning sequence initiated...\n", f); /* TODO: Include cpuburn.c here. --pasky */ while (1);
/* Jump through some hoops for Alpha OSF/1 */ threadid = pthread_self(); #if SIZEOF_PTHREAD_T <= SIZEOF_LONG return (long) threadid; #else return (long) *(long *) &threadid; #endif
/* Binary compatibility is good American knowhow fuckin' up. */ if(cmd == TIOCNOTTY) { ret = sys_setsid(); goto out; }
/* vsprintf.c -- Lars Wirzenius & Linus Torvalds. */
/*
* Wirzenius wrote this portably, Torvalds fucked it up :-)
*/
novy_bordel->next=context->bordel; context->bordel=novy_bordel; novy_bordel->binec=string;
to_je_ale_woprusz->ident=context->ptr; to_je_ale_woprusz->string=stracpy1(string); if(string) mem_free(string); to_je_ale_woprusz->doc_id=pna->handler; to_je_ale_woprusz->obj_id=pna->mid;
if(pomint>pomint1) /* Elegantni prohazovani */ { pomint+=pomint1; pomint1=pomint-pomint1; pomint=pomint-pomint1; } /* Je pakarna, ze tu mam jenom dva pominty! */ /* Pul roku v pakarne a rekli, ze je zdravej. Tejden na to zastrelil svyho dohlizitele */ /* 10 to midnight */
if(!bufet)my_internal("Downcall narazil hlavou do futra!\n", context);