Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−127
type="${(@j::M)${(@)tmp#-}#?}"
if (( $tmp[(I)-g*] )); then
glob="${${${${(@M)tmp:#-g*}#-g}##[[:blank:]]#}%%[[:blank:]]#}"
[[ "$glob" = *[^\\][[:blank:]]* ]] &&
glob="{${glob//(#b)([^\\])[[:blank:]]##/${match[1]},}}"
# add `#q' to the beginning of any glob qualifier if not there already
[[ "$glob" = (#b)(*\()([^\|\~]##\)) && $match[2] != \#q* ]] &&
glob="${match[1]}#q${match[2]}"
fi
zsh, избранное из _files: остальное чуть лучше.
Зато... хм, портабельно (в смысле между не оболочками, а платформами).
greno,
30 Июня 2011
+92
// к говнокоду 7101:
interface
type TObjectAuto = class;
TSmartPtr = packed record
data: TObjectAuto;
end;
TSmartPtrA = array of TSmartPtr;
//-------------------------------------------------------------------------------------------
// класс с "авто"-деструктором
TObjectAuto = class(TObject)
n: integer; // для тестов
constructor Create(var ptr: TSmartPtrA);
destructor Destroy(); override;
end;
implementation
uses Windows;
var winheap: Cardinal;
var savedlinks: array of integer; // в тестовом примере сойдет, а вообще надо хеш-таблицу
//-------------------------------------------------------------------------------------------
constructor TObjectAuto.Create(var ptr: TSmartPtrA);
begin
inherited Create();
SetLength(ptr, 1);
ptr[0].data := self;
// сохраняем адрес выделенной памяти под массив (у него еще есть длина и счетчик ссылок)
SetLength(savedlinks, Length(savedlinks) + 1);
savedlinks[Length(savedlinks) - 1] := integer(ptr) - 2 * sizeof(integer);
end;
//-------------------------------------------------------------------------------------------
destructor TObjectAuto.Destroy();
begin
n := 0; // сюда брякпойнт поставим:)
inherited;
end;
//-------------------------------------------------------------------------------------------
function WinGetMem(Size: Integer): Pointer;
begin
Result := HeapAlloc(winheap, 0, Size);
end;
//-------------------------------------------------------------------------------------------
function WinFreeMem(P: Pointer): Integer;
var i, j: integer;
begin
// ищем адрес освобождаемой памяти среди сохраненных
i := 0; j := 0; while(i < Length(savedlinks))do begin
// если нашли, то вызываем "авто"-деструктор
if (savedlinks[i] = integer(P)) then
TSmartPtrA(integer(p) + 2 * sizeof(integer))[0].data.Free()
else begin
savedlinks[j] := savedlinks[i];
inc(j);
end;
inc(i);
end;
SetLength(savedlinks, j);
HeapFree(winheap, 0, P);
Result := 0;
end;
//-------------------------------------------------------------------------------------------
function WinReallocMem(P: Pointer; Size: Integer): Pointer;
begin
Result := HeapReAlloc(winheap, 0, P, Size);
end;
//-------------------------------------------------------------------------------------------
var winmem: TMemoryManager = (
GetMem: WinGetMem;
FreeMem: WinFreeMem;
ReallocMem: WinReallocMem);
oldmem: TMemoryManager;
//-------------------------------------------------------------------------------------------
initialization
begin
winheap := GetProcessHeap();
GetMemoryManager(oldmem);
SetMemoryManager(winmem);
SetLength(savedlinks, 0);
end;
//-------------------------------------------------------------------------------------------
finalization
begin
SetLength(savedlinks, 0);
SetMemoryManager(oldmem);
end;
//-------------------------------------------------------------------------------------------
end.
// пример использования:
procedure TfrmTest.Button1Click(Sender: TObject);
var ptr: TSmartPtrA;
obj: TObjectAuto;
begin
obj := TObjectAuto.Create(ptr);
obj.n := 222; // ptr[0].data.n := 222;
// тут obj удалится сам
end;
примерно так можно реализовать автодеструктор в delphi
для передачи в функцию нужно использовать ptr и работать с ним как ptr[0].data - неудобно конечно.
ЗЫ: код тестовый - в нем полно кривостей.
ctm,
30 Июня 2011
+66
http://svn.codehaus.org/groovy/trunk/groovy/groovy-core/src/main/org/codehaus/groovy/runtime/ArrayUtil.javaБыло? Вроде нет...
wvxvw,
30 Июня 2011
+71
String type = ((Map<String, String>) getParams(request, Arrays.asList("type"))).get("type");нужно было получить данные, мозг сразу выдал место где их можно взять, руки быстро воплотили это в код и немного погодя мозг начал анализировать то, что получилось :)
zlob.jc,
30 Июня 2011
+136
<style>
.comments_indent_holder .comment { margin-left:400px;}
.comments_indent_holder .indent_0 { margin-left:38px;}
.comments_indent_holder .indent_1 { margin-left:58px;}
.comments_indent_holder .indent_2 { margin-left:78px;}
.comments_indent_holder .indent_3 { margin-left:98px;}
.comments_indent_holder .indent_4 { margin-left:118px;}
.comments_indent_holder .indent_5 { margin-left:138px;}
.comments_indent_holder .indent_6 { margin-left:158px;}
.comments_indent_holder .indent_7 { margin-left:178px;}
.comments_indent_holder .indent_8 { margin-left:198px;}
.comments_indent_holder .indent_9 { margin-left:218px;}
.comments_indent_holder .indent_10 { margin-left:238px;}
.comments_indent_holder .indent_11 { margin-left:258px;}
.comments_indent_holder .indent_12 { margin-left:278px;}
.comments_indent_holder .indent_13 { margin-left:298px;}
.comments_indent_holder .indent_14 { margin-left:318px;}
.comments_indent_holder .indent_15 { margin-left:338px;}
.comments_indent_holder .indent_16 { margin-left:358px;}
.comments_indent_holder .indent_17 { margin-left:378px;}
.comments_indent_holder .indent_18 { margin-left:398px;}
.comments_indent_holder .indent_19 { margin-left:418px;}
.comments_indent_holder .indent_20 { margin-left:438px;}
</style>
<div id="6509734" class="comment indent_0 u28525">
....
</div>
<div id="6509750" class="comment indent_1 u34409">
....
</div>одно иллитарное сообщество с ограниченной вложенностью камментов. facepalm.svg
DrFreez,
29 Июня 2011
+154
setcookie("password",$password,time()+94555556)Супер!
substr,
29 Июня 2011
−134
Функция ПолучитьОстаток(ДанныеСтроки)
Запрос = Новый Запрос("ВЫБРАТЬ
| ПартииТоваровНаСкладахОстатки.КоличествоОстаток
|ИЗ
| РегистрНакопления.ПартииТоваровНаСкладах.Остатки КАК ПартииТоваровНаСкладахОстатки
|ГДЕ
| ПартииТоваровНаСкладахОстатки.СерияНоменклатуры = &Серия");
Запрос.УстановитьПараметр("Серия", ДанныеСтроки.Ссылка);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
СерияНоменклатуры = ДанныеСтроки.Ссылка.ПолучитьОбъект();
Если РезультатЗапроса.Следующий() тогда
СерияНоменклатуры.Остаток = РезультатЗапроса.КоличествоОстаток;
Иначе
СерияНоменклатуры.Остаток = 0;
КонецЕсли;
СерияНоменклатуры.Записать();
КонецФункции
Процедура СправочникСписокПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
ПолучитьОстаток(ДанныеСтроки);
КонецПроцедуры // СправочникСписокПриВыводеСтроки()Задача была - при выборе серии номенклатуры подтягивать в форму выбора остатки на складе...
Kirmas,
29 Июня 2011
−104
<%= !!@case[:img] ? image_tag(@case[:img]) : "" %>
pavel_so,
29 Июня 2011
+160
<?php
//...
$fileinattachments = $root_directory.$filepath.$fileid.'_'.$filename;
if(!file($fileinattachments)) $fileinattachments = $root_directory.$filepath.$fileid."_".$filename
//...
?>Много думал. Код из незабвенной vTiger CRM.
mr.The,
29 Июня 2011
−130
Request() {
Info "Добро пожаловать в VKSearch $sys_version!"
Info "Загрузка списка треков..."
vkapi_signature=$(echo -n "${vkapi_id}api_id=1696393count=${cfg_search_count}method=audio.searchq=${query}test_mode=1v=2.0${vkapi_secret}"|md5sum|awk '{print $1}')
wget "http://api.vkontakte.ru/api.php?api_id=1696393&count=${cfg_search_count}&v=2.0&method=audio.search&sig=${vkapi_signature}&test_mode=1&q=$query" -qO "${sys_temp}/vksearch.out"
found=$(cat ${sys_temp}/vksearch.out | sed -ne 's,<count>\([^<]*\)</count>,\1,p'|sed 's/^[ \t]*//')
error_msg="$(cat ${sys_temp}/vksearch.out | sed -n 's|<error_msg>\(.*\)</error_msg>|\1|p'|sed 's/^[ \t]*//'|head -n1 )"
error_code="$(cat ${sys_temp}/vksearch.out | sed -n 's|<error_code>\(.*\)</error_code>|\1|p'|sed 's/^[ \t]*//'|head -n1)"
[ -n "$error_msg" ] && Info "Ошибка: $error_msg (Код $error_code)" die
song_count=$(cat ${sys_temp}/vksearch.out | grep '<url>'|wc -l )
[ $song_count -eq 0 ] && Info "По запросу ${query} не найдено ни одного трека..." die || Info "По запросу ${query} найдено ${found} композиций. Обработка первых ${song_count}."
}
Parse() {
OLD_IFS=$IFS
IFS=$'\n'
song_urls=( `cat ${sys_temp}/vksearch.out | sed -n 's|<url>\(.*\)</url>|\1|p'|sed 's/^[ \t]*//' ` )
song_artists=( `cat ${sys_temp}/vksearch.out | sed -n 's|<artist>\(.*\)</artist>|\1|p'|sed 's/^[ \t]*//' ` )
song_titles=( `cat ${sys_temp}/vksearch.out | sed -n 's|<title>\(.*\)</title>|\1|p'|sed 's/^ //' ` )
song_durations=( `cat ${sys_temp}/vksearch.out |sed -n 's|<duration>\(.*\)</duration>|\1|p'|sed 's/^[ \t]*//' ` )
song_counts=$(( ${#song_urls[@]} - 1 ))
IFS=$OLD_IFS
}
RemoveDoubles() {
rm ${sys_temp}/vksearch.pars* 2>&-
Info "Начинаю удаление треков с одинаковой длительностью..."
for i in `seq 0 $song_counts`
do
echo "<1>${song_durations[$i]}<2>${song_artists[$i]}<3>${song_titles[$i]}<4>${song_urls[$i]}<5>" >> ${sys_temp}/vksearch.parsing
done
cat ${sys_temp}/vksearch.parsing | sort -n | uniq -w 6 > ${sys_temp}/vksearch.parsed
cat ${sys_temp}/vksearch.parsing | sort -n | uniq -w 6 -d > ${sys_temp}/vksearch.doubles
OLD_IFS=$IFS
IFS=$'\n'
song_urls=( `cat ${sys_temp}/vksearch.parsed |sed -ne 's,.*<4>\([^<]*\)<5>.*,\1,p' ` )
song_artists=( `cat ${sys_temp}/vksearch.parsed |sed -ne 's,.*<2>\([^<]*\)<3>.*,\1,p' ` )
song_titles=( `cat ${sys_temp}/vksearch.parsed | sed -ne 's,.*<3>\([^<]*\)<4>.*,\1,p' ` )
song_durations=( `cat ${sys_temp}/vksearch.parsed |sed -ne 's,.*<1>\([^<]*\)<2>.*,\1,p' ` )
song_counts=$(( ${#song_urls[@]} - 1 ))
IFS=$OLD_IFS
Info "В плейлисте осталось ${#song_urls[@]} треков."
}парочка функций из моего проекта VKSearch - поиск и сохранение музыки ВКонтакте на shell... -_-
snoopcatt,
29 Июня 2011
Follow us!