- 1
- 2
- 3
- 4
- 5
- 6
- 7
void
timerfunc(int sig)
{
signal(SIGALRM, timerfunc);
TimerCount++;
TimerCallFunc();
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+30
void
timerfunc(int sig)
{
signal(SIGALRM, timerfunc);
TimerCount++;
TimerCallFunc();
}
найдено в "примере"
−586.4
/**
* создаем RemoteObject и регестрируем слушателей его метода sayLogin
* */
public function useLogonService():void
{
logonService = new RemoteObject();
logonService.destination = "amfphp";
logonService.source = "ez_report.logon";
logonService.sayLogin.addEventListener("result",resultHandler);
logonService.addEventListener("fault", faultHandler);
}
/**
* после запуска модуля стартуем здесь все, что необходимо.
* */
public function logonInit():void
{
useLogonService();
loginInput.setFocus();
}
/**
* вызываем RO метод с параметрами из textinput,
* который возвращает объект типа User, если регистрация прошла успешно.
* */
public function sayLogin():void
{
logonService.sayLogin(loginInput.text,passInput.text);
}
//todo: ПЕРЕДЕЛАТЬ НАХЕР!!! УЁ..ИЩЕ!! все сделать через интерфейсы и события!
/**
* присваиваем переменным в main.swf соответствующие значения
* */
private function resultHandler(rs:ResultEvent):void
{
parentApplication.login=loginInput.text;
parentApplication.password=passInput.text;
parentApplication.removeLogonModule();
}
//todo: прикрутить, наконец, проверку типа ошибки.
private function faultHandler(f:FaultEvent):void
{
Alert.show(f.fault.faultString+f.fault.faultDetail+f.message.body.toString());
}
Crazy horse
Когда-то мной писалось и такое))
кошмар, конечно, но все на чем-то учатся.
Теперь особо радуют комментарии (AsDoc, как же,)
связь с parentApplication и отсутствие прокси.
+8
static HRESULT SResToHRESULT(SRes res)
{
switch(res)
{
case SZ_OK: return S_OK;
case SZ_ERROR_MEM: return E_OUTOFMEMORY;
case SZ_ERROR_PARAM: return E_INVALIDARG;
case SZ_ERROR_UNSUPPORTED: return E_NOTIMPL;
// case SZ_ERROR_PROGRESS: return E_ABORT;
case SZ_ERROR_DATA: return S_FALSE;
}
return E_FAIL;
}
(c) 7z
+29
$i = 1;
while($i = 1){
echo $i;
}
+24.1
echo 'когда сделают камменты?';
+24.7
session_start();
if ($_SESSION['ok'] !== 1){
echo "Сделали , блок сесиией";
$_SESSION['ok'] = '1';
} else {
echo "Блок!";
}
Mr_Smile: сматрите ) в первый раз на странице должна быть надпись "Сделали блок сессией"
Mr_Smile: при последующих обновлениях надпись должн абыть "Блок"
Mr_Smile: а сколько ни обновляй все кажет "Сделали блок сессией"
Mr_Smile: я ахутнГ?
http://www.govnokod.com/171
−34.2
public boolean foo(...){
...
try{
...
}
finally{
if(expr_1){
return false;
}
if(expr_2){
return false;
}
...
if(expr_n){
return false;
}
}
...
return true;
}
поймал на сопровождении, долго курил (метод на 3 экранах)
+160.5
if ( strlen( $string ) > 3 ) echo "Имя должно содержать не больше 3-х символов";
elseif ( strlen( $string ) < 3 ) echo "Имя должно содержать не менее 3-х символов";
else echo "Вы корректно ввели имя"
+22
typedef struct tagRECT{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT, *PRECT, NEAR *NPRECT, FAR *LPRECT;
typedef const RECT FAR* LPCRECT;
typedef struct _RECTL{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECTL, *PRECTL, *LPRECTL;
typedef const RECTL FAR* LPCRECTL;
Вот так тайпдефятся абсолютно одинаковые структуры в windef.h
+24
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Деньга = record
Достоинство:integer;
Количество:integer;
end;
var
Лопатник: array of Деньга;
procedure ПоложитьНаЛопату(Купюра:Integer);
var
I: Integer;
УжеПоложили:Boolean;
begin
if Купюра=0 then
Exit;
УжеПоложили:=False;
for I := low(Лопатник) to High(Лопатник) do
if Лопатник[i].Достоинство=Купюра then
begin
inc(Лопатник[i].Количество);
УжеПоложили:=True;
end;
if not(УжеПоложили) then
begin
SetLength(Лопатник,Length(Лопатник)+1);
Лопатник[High(Лопатник)].Достоинство:=Купюра;
Лопатник[High(Лопатник)].Количество:=1;
end;
end;
var
Купюра:integer;
i:integer;
ВсегоНаЛопате:integer;
begin
repeat
Readln(Купюра);
ПоложитьНаЛопату(Купюра);
until Купюра=0;
ВсегоНаЛопате:=0;
for I := low(Лопатник) to High(Лопатник) do
begin
WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
end;
WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
ReadLn;
end.
Вообще-то это Delphi, но его в списке не было ;)
Задача была такая:
пользователь вводит достоинства купюры в произвольном порядке, ввод прекращ