Lazarus, встроенный парсер командной строки.

Posted on by Tolik Punkoff

Преамбула

В Lazarus есть довольно неплохой парсер командной строки, который (почти) работает из коробки.

Для его использования нужно создать приложение на базе класса TCustomApplication, который обладает таким функционалом. Готовый шаблон проекта имеется в комплекте. Проект —> Создать проект… и в появившемся окне выбрать тип проекта Консольное приложение:

Можно ввести параметры для генерации кода:

Основной код приложения размещается в процедуре DoRun, например, в procedure TMyApplication.DoRun;

Решил расширить пример с поиском файла по маске (копия), заодно поэкспериментировать с парсером командной строки.

Параметры будут такие:

Использование: smallfinder.exe <аргументы>
-h - эта помощь
-m <маска> - маска файла для поиска. Обязательный параметр
-d <директория> - Начальняя директория, если параметр не указан, используется текущая.
-s - включить в поиск подкаталоги

Анализ параметров командной строки

Примечание: весь код в процедуре TSmallfinder.DoRun.

Почему-то способ проверки из документации, случая, когда параметров нет вообще, у меня сработал криво, так что пришлось вспоминать более старый:

// check if no parameters - способ из документации нихуя не сработал

if ParamCount=0 then begin
	WriteHelp;
	Terminate;
	Exit;
end;

Но далее все вроде бы пошло как надо, единственное, что параметры регистрозависимые (т.е. -d и -D программа воспринимает как разные параметры), пока не стал с этим разбираться, может после, если сильно надо будет. Длинные имена параметров не использовал, только короткие.

Вывод помощи:

//help
if HasOption('h', '') then begin
	WriteHelp;
	Terminate;
	Exit;
end;

Процедуру WriteHelp можно создать при создании нового проекта, а потом только запомнить, примерно так:

procedure TSmallfinder.WriteHelp;
begin
  writeln('Usage: ',ExtractFileName(ExeName), ' <arguments>');
  WriteLn('-h - this help');
  WriteLn('-m <mask> - file mask for search. Parameter must be!');
  WriteLn('-d <directory> - start directory. If not, use current dir.');
  WriteLn('-s - include subdirs');
end;

Маска файла:

//mask
if HasOption('m','') then begin
	Mask:=GetOptionValue('m','');
	if Mask = '' then begin
		WriteHelp;
		Terminate;
		Exit;
	end;
end;

Стартовый каталог:

//start directory
StartDir:=GetOptionValue('d','');
if StartDir='' then begin
	StartDir:=GetCurrentDir();
end;

Искать в подкаталогах:

//Include subdirs
IncludeSubdirs:=HasOption('s','');

Ну и сам процесс поиска, до кучи:

WriteLn('Start directory: ',StartDir);
lstFiles := TStringList.Create;
FindAllFiles(lstFiles, StartDir, Mask, IncludeSubdirs);
i:=0;
while i < lstFiles.Count do begin
	WriteLn(lstFiles[i]);
	inc(i);
end;
lstFiles.Free();

Естественно, все нужные переменные перечисляем в секции var процедуры TSmallfinder.DoRun

var
   Mask, StartDir:string;
   IncludeSubdirs:boolean;
   i:LongInt;
   lstFiles:TStringList;

Примеры работы

smallfinder.exe -m *.exe -d C:\Windows

smallfinder.exe -m *.exe -d C:\Windows -s

smallfinder.exe -m *.exe

Ссылки

Мануал по обработке параметров командной строки
Пример целиком на GitHub

Lazarus: Транслит строки (в консоли)

Posted on by Tolik Punkoff

1. Понадобятся модули regexpr и fgl:

uses regexpr, fgl;

regexpr нужен для небольшой оптимизации, a fgl — для создания аналога словаря (Dictionary).

2. Создаем тип для будущего словаря:

type
  TDictTrans=class(specialize TFPGMap<string, string>);

Документация по TFPGMap

3. Сделаем функцию для транслитерации, с одним параметром, входной строкой с русскими буквами:

function Translit(Str:string):string;
//тут будет код
end;

4. Заводим внутренние переменные функции:

var Regex:TRegExpr;
Dict:TDictTrans;
Ch,oStr,oTrans:string;
I:LongInt;

Regex — экземпляр класса для работы с регулярным выражением.
Dict — словарь для транслитерации.
Ch — транслитерируемый символ
oStr — выходная строка
oTrans — сюда будем возвращать результат транслита отдельного символа.
I — счетчик цикла, в котором будем анализировать строку.

Небольшая оптимизация

Создаем новое регулярное выражение для кириллицы (и пробела) и проверяем входную строку на наличие русских букв. Если их нет — возвращаем исходную строку и выходим из функции:

Regex:=TRegExpr.Create;
Regex.Expression:='[А-Я]|[а-я]|\s';
if not Regex.Exec(Str) then begin
   exit(Str);
end;

5. Заполняем словарь (транслит взят из старого армейского учебника времен СССР, можете сделать свой):

Dict:=TDictTrans.Create;
Dict.Add(' ','_');
Dict.Add('А','A'); Dict.Add('а','a');
...
Dict.Add('Я','JA'); Dict.Add('я','ja');

Словарь целиком на PasteBin

6. Инициализируем переменные, используемые в цикле:

Ch:=''; oStr:='';

7. Заводим цикл for, нумерация символов в строке идет с 1, длина строки получается функцией Length(Str):

for I:=1 to Length(Str) do begin
...
end;

8. В цикле получаем символ из строки:

Ch:=Copy(Str,I,1);

9. Пробуем получить данные из словаря по ключу, которым является русская буква. Если это удалось, присоединяем результат транслита к выходной строке, если нет — это не русская буква, присоединяем исходный символ к выходной строке:

if Dict.TryGetData(Ch, oTrans) then begin
	oStr:=oStr+oTrans; //russkaya bukva - transliteriruem
end
else begin
	oStr:=oStr+Ch; //nerusskaya bukva, ostavlaem v pokoe
end;

10. Освобождаем память словаря после цикла:

Dict.Free;

11. Возвращаем результат работы функции:

exit(oStr);

Функция целиком на PasteBin

12. Код основной программы:

var
    strInput, strOutput:string;
...
begin
  Write('Input string:'); ReadLn(strInput);
  strOutput:=Translit(strInput);
  WriteLn(strOutput);
  WriteLn('Press Enter...'); ReadLn();
end.

Для совместимости с русским языком в консоли необходимо добавить директивы компилятора, иначе словарь будет работать неправильно:

program translit;
{$mode objfpc} {H+}
{$codepage CP866}
...

$mode objfpc
H+ — чтоб строки по умолчанию не были ShortString‘ами
$codepage CP866 — установка кодовой страницы.

Документация по работе со строками

Проверка

Исходник примера на GitHub

Lazarus, поддержка русских букв в консоли (Windows 7)

Posted on by Tolik Punkoff

Из коробки русские буквы в консоли поддерживаются через жопу:

Это потому что Lazarus по умолчанию создает файл в UTF8, а консоль Windows 7 поддерживает CP 866 (кодировку DOS/OEM), достаточно перекодировать файл:

1. Щелкаем по пустому месту в исходнике в редакторе.

2. Выбираем Параметры файла —> Кодировка

3. В выпадающем списке выбираем CP866:

4. В появившемся окне нажимаем кнопку Изменить файл:

5. ФАНФАРЫ!

Источник
Тестовый пример на GitHub

Lazarus, регулярные выражения.

Posted on by Tolik Punkoff

Из коробки доступен мощный класс TRegExpr, вполне себе работает с регулярками. Сожрал даже C#-овскую, без изменения синтаксиса вообще. Пример регулярки для обнаружения русских букв:

program regexptest;
uses regexpr;
var  Regex:TRegExpr;

begin
     Regex:=TRegExpr.Create;
     Regex.Expression:='[а-я]|\s';
     Writeln(Regex.Exec('АБВГ'));
     Writeln(Regex.Exec('ABCD'));
     ReadLn();
end.

Документация
Пример на Киберфоруме

Этот пример на GitHub

UPD: Более лучшая регулярка для поиска кириллицы (и пробела).

[А-Я]|[а-я]|\s

Первая ([а-я]|\s) нормально работает, если формат файла исходника UTF-8, и текст в UTF-8, а вот с консолью в Win7 она работает только на строчных буквах, на заглавных не работает. А консоль требует CP866.

О других косяках кириллицы в консоли — в следующих выпусках нашего журнала.

Lazarus, список каталогов с подкаталогами

Posted on by Tolik Punkoff

Плохо, что по маске не умеет каталоги искать. А в остальном все просто.

program alldirs;
uses Classes, SysUtils, FileUtil;
var
   lstDirs:TStringList;
   i: Integer;
begin
     lstDirs := TStringList.Create;
     FindAllDirectories(lstDirs,'C:\Windows',true);
     i:=0;
     while i < lstDirs.Count do begin
       WriteLn(lstDirs[i]);
       inc(i);
     end;
     WriteLn ('Found: ',lstDirs.Count);
     WriteLn ('Press Enter');
     lstDirs.Free();
     ReadLn();
end.

Ссылка на GitHub

Поигрался с Freepascal/Lazarus

Posted on by Tolik Punkoff

Больше по служебной необходимости, и воле случая, чем по собственному желанию.
Инет отсутствовал, компы нормальные все заболели, а утилиту писать надо. Ще було, на том и писали.

Поиск файла

Наконец-то нормальный поиск файла, где маска файла работает как надо (как в DOS) и не принимает, например, расширение *.htm и *.html за одно и то же. C# мне не удалось этому очевидному решению научить, конечно, можно потом по выборке прогнать регулярное выражение, но оно тоже плохо срабатывает, упускает некоторые случаи, например, если имя файла начинается с расширения (т.е. на файл .html оно не сработает):

В Lazarus все работает из коробки:

program testfind;
uses Classes, SysUtils, FileUtil;
var
   lstFiles:TStringList;
   i: Integer;
begin
     lstFiles := TStringList.Create;
     FindAllFiles(lstFiles, 'C:\Temp\Test', '*.htm', true);
     i:=0;
     while i < lstFiles.Count do begin
       WriteLn(lstFiles[i]);
       inc(i);
     end;
     WriteLn ('Found: ',lstFiles.Count);
     WriteLn ('Press Enter');
     ReadLn();
     lstFiles.Free();
end.

Пример и каталог с тестовыми файлами на GitHub

UPD: Ссылка на мануал

Небольшая коллекция игр на Flash

Posted on by Tolik Punkoff

cutiequake — Битва с яйцами.
egg_fighter — Битва с яйцами, еще одна версия.
gopher_war — Убей суслика
NURSING — Будни работника соцзащиты, замочи пенсирнеров, пока они не замочили тебя.
office_war — кидаемся в офисе друг в друга документами
Spearbritney — Надо убить Бритни Спирс, проткнув ее.
xiaoxiao9 — файтинг
L4 — Маньяк-инопланетянин жжет людей через лупу, как муравьев.

Скачать с Mega.NZ (SWF+EXE) RAR

ПИЗДИ!

Posted on by Tolik Punkoff

Как бы ты не прочел этот девиз, дорогой друг, это мой основополагающий принцип борьбы с СИСТЕМОЙ. И так по порядку…

         1. Скажи честно, и у тебя появлялись мысли о том, что неплохо было бы иметь кучу баблоса, тачку крутую, снимать красивых телок и нюхать качественный кокс, а не клей «Момент»? Хотелось тепленького уютненького гнездышка, ненапряжной денежной работы, регулярного оттяга на Гавайях? Были? И у меня бывают. И тогда я беру и начинаю пиздить в себе обывателя, того кому холодильник или новый телевизор важнее человеческого самоуважения. Посмотри на окружающих нас людей, уважают ли они себя, довольны ли они? Большинство нет. Им всем чего-то нехватает. Они все нигилисты, но их нигилизм обывательский, он характеризуется фразой: «Все плохо, но что я могу сделать?». Посмотри на поколение 45-60 летних, наполняющие КПРФ’ные митинги, это поколение просравшее свои идеалы. Хотя были ли они у них? Те кто моложе, въебывают из-зо дня в день ради копеек, надеясь на повышение зарплат, окладов и премий в далеком будущем, провозглашаемое властью, надеясь на улучшение своего быта, своей каморки (ты кстати заметил, что в наших квартирах жить нельзя, там можно только ночевать), если она есть. Власть регулярно покупает недовольные слои населения очередными подачками, как собакам бросает объедки. То пенсию повысит, то устроит показательный суд над олигархом, то боевика какого-то подстрелит… И все терпят, ворчат, ругаются, но терпят. Как ослы, которым обещали давать больше сена, если они будут еще усерднее и терпеливее въебывать. И пиздить надо такое животное в себе, пока досмерти не запиздишь.
         2. После Ф. Энгельса стало модным повторять: «Труд сделал из обезьяны человека». Может быть в ту древнюю эпоху да, но для нашего времени это утверждение откровенный пиздеж. Сейчас труд является средством подавления, отвода энергии в безопасное и самое главное доходное для хозяев русло. SWAROMIR писал как-то о том, что человек вынужденный трудиться приносит себя в жертву. Жертвуя своим временем, удовольствиями, своей жизнью. А что получает в итоге? Гавно на блюдечке. Я работаю уже 5 лет, и понял уже давно, что я готов меньше зарабатывать, если буду меньше работать, если время моего труда сократиться. Собственно я сейчас так и живу. Но ты скажешь мне, а как же кормить себя, семью и т.д. Пизди! СИСТЕМА в лице государства наживается на тебе, наживайся и ты на ней. Сейчас с распространением Интернета это не особенно трудно. Я лично взламывая Интернет-магазины и сайты зарабатываю значительно больше, чем получаю на официальной работе. И все это в свое удовольствие.
         3. Особенностью всякой СИСТЕМЫ является ее бессистемность, хаотичность. Посмотри на нашу власть, хуй знаешь что от нее ожидать. Древние говорили: «Мысль изреченная — есть ложь». Позже Алистер Кроули изрек: «Изначальная ложь значительно ближе к истине». Поэтому пизди! Пизди там, где этого меньше всего ждут, ибо там где пиздежь предполагается, твои слова не дойдут до слушателей, и ты получишь статус пиздобола или кидалы. Пиздеть своим товарищам или подельникам (можно было бы сказать коллегам по бизнесу, но каков наш бизнес ты знаешь) это долбоебство. Пиздежь должен быть умным, тогда СИСТЕМА его проглотит и примет за правду. Приведу пример: мой знакомый работал в одном вузе, и у них проходила довольно пафосная конференция с участием приглашенных гостей из власти. Можно было бы сорвать это мероприятие, закидать яйцами и помидорами гостей. Мы сделали лучше, мы написали несколько совершенно долбоебских статей от имени гондурасских профессоров, содержанием которых был полный бред о скором наступлении мировой революции. Благодаря этим статьям и заявкам конференцию сделали международной. Отправили эти статьи с подставных почтовых ящиков, и через неделю уже видели сборники выпущенные в Москве с этой поебенью, плюс на конференции все эти пофостные морды ждали «видных» гондурасских ученых с пленарными докладами. Руководство вуза потом в письмах очень сожалело о том, что ученые несмогли добраться до России, из-за вылазок гондурасских партизан-наркоторговцев, и с нетерпением ждут видных гостей на следующую конференцию…
         Может быть не совсем хороший пример пиздежа, но мы его провернули недавно.

         Так что лозунгом моим является: «Пизди СИСТЕМУ, пизди у СИСТЕМЫ, пизди СИСТЕМЕ! Это борьба без конца. До самой смерти, ибо смерть и будет ПОБЕДОЙ!

         ДА, СМЕРТЬ!

Durito

В рамках сохранения HTML-пямятников истории и культуры, 2004

Армия: идти или не идти. Дедовщина.

Posted on by Tolik Punkoff

          … Не буду подробно останавливаться на понятии «дедовщина», наверное все (или большинство) с этим словом знакомы, возможно, кто-то даже ощутил на себе все ее прелести; лучше поведаю, как служилось мне лично и то, что я видел своими глазами. В некоторых местах этого повествования каждый из читающих волен мне не верить, дело, как говорится, хозяйское, но с другой стороны — не сочинял же я все это.
         Итак. Начну с того места, как благополучно призвавшись и миновав на поезде Петрозаводск и Питер, мы попали в Ковров. Город славится оружейным заводом имени Дегтярева, мотоциклами «Ковровец» и обилием учебных частей различных родов войск.
         Приехали естественно в «гражданке», которую нам, по приезду в пункт распределения, что располагается в воинской части № N, посоветовали снять, зашить в наволочки и, подписав, отправить на родину маме с папой. Стоит ли говорить, что ни одна из посылок до пункта назначения не дошла, если точнее они оттуда не отправлялись вовсе. Вот что сказал мне один служащий из «молодых», увидевший меня за складыванием одежды, цитирую: «Не е..и себе мозги! Лучше сразу в общую кучу кинь. Они, че получше себе берут, а остальное сжигают. Иди лучше форму получи!»
         Переодев, начали осматривать личные вещи. Оставляли следующее: ручки, тетради, конверты (если были подписаны), дешевые станки для бритья и пр. туалетные принадлежности. Все. Деньги, сигареты с фильтром, зажигалки, хорошие туалетные принадлежности либо меняли на плохие, либо изымали совсем. Цепочки (подарки любимых девушек), конечно же нам бы не пригодились, поэтому их вежливо просили оставить тем, «кому домой».
         «Приятно удивила» столовая, точнее ее персонал. Такая картина: новобранец, которого еще не успели обрить (наголо) подходит с подносом к раздаче, откуда слышится такая речь: «А тебя «душара», я зажигалкой побрею, сука!». Признаться, после таких слов я понял, куда я попал.
Сами полгода в «учебке» прошли гладко, остро выраженной «дедовщины», как таковой, не наблюдалось. Не видел, чтоб кого-то били, там с этим строго; правда, разрешено было наказывать физическими упражнениями. Вот и случалось такое, что рота по пол ночи стояла в упоре лежа или «погибала» на плацу. Самое неприятное было, когда приезжают родители (тогда отпускали в увольнение), столь радостное событие омрачает «приказ» старослужащих: «С «увала» приносишь 200 руб., бутылку водки и закусить!». Даже стыдно было смотреть в глаза родителям. Честно.
         Но полгода пролетело, как глазом моргнул. Осенью начали приезжать «покупатели» из настоящих воинских частей, т.е. из регулярной армии (Адыгея, Москва, Владивосток и …Северный Кавказ, со всеми его зонами конфликтов). Мне выпала, не побоюсь этого слова, честь попасть на Северный Кавказ. Сознаюсь, услыхав название района своей дальнейшей службы, но после напутствия сержанта, цитирую: «Не ссы, один раз живешь, а если суждено, то и на гражданке грохнут!». Но все же больше всего мне запомнились слова командира части, провожающего нас на Кавказ. После глубокого вздоха он сказал следующее: «Родина сказала — надо! Мы отвечаем — есть!». Напоминает смертный приговор, не находите?

Итак, Кавказ.

         Уже на поезде, видя из окон эшелона расстрелянные поезда, дома, машины, невольно захотелось домой. Но я хотел рассказать о «дедовщине», войну и душевные переживания оставлю на следующий раз.
         Попал я служить в отдельный гранатометный взвод мотострелкового батальона, который, кстати, ежегодно выезжает на выполнение боевых задач на границу Чечня-Ингушетия, чем в принципе и горжусь.
Вот тут дедовщина, по-моему не только не пресекалась, но скорее наоборот — даже разрешалась в какой-то степени. Слышал краем уха такой диалог: командир — сержант.
         — Товарищ старший лейтенант, молодые не слушаются ни х..я! Чо делать?
         — Дай им п..ды! Чо до меня-то дое..ваешься?
         Нормальное отношение к тем, кто в реальном бою может спасти твою, извиняюсь, задницу! И, кстати, здесь были уже не только старослужащие, но и офицеры.
         Первые полгода, теперь уже на Кавказе показались сущим адом! Каких только унижений я не насмотрелся (на себе не испытывал, решил сразу: пускай лучше изобьют, но не унижусь; жаль не все так решили!); от простых стираний портянок, до орального и анального изнасилования. Последнее мне, правда, не «посчастливилось» лицезреть, но слухи ходили и оправдывались. Так например, солдат, доведенный до отчаяния избиением, а в довершение еще и будучи изнасилован, оставил пост и, прихватив оружие и боекомплект бежал.
         Конечно, была послана поисковая группа, по которой несчастный и открыл огонь и в результате непродолжительной перестрелки был убит. Но, конечно, правда осталась нераскрытой, как и мотивы побега, а виновный через 2 месяца преспокойно уехал домой, живой и здоровый.
В связи с дешевизной алкоголя (7 руб. за 0,5 л. водки) и вездерастущей марихуаной, преступления совершались поистине тяжелые. Где получив сапогом или прикладом по лицу, осознаешь, что ты легко отделался.
         Имели место следующие развлечения: устраивались бои «старый» против «молодого». В таких боях фактор успеха не играл абсолютно никакой роли, или тебя изобьет противник (что гораздо предпочтительнее), или, победив, получаешь уже от всего старослужащего состава.
         И еще, вы видели когда-нибудь армейскую табуретку? А верите ли вы, что человеческая голова способна выдержать шесть (!!!) таких табуретов, т.е. это когда после удара — табурет в щепки, а на голове — шишка (сотрясение мозга, потеря сознания). Вот так-то!
         Не ручаюсь за все воинские части, может где-то и лучше. Ну а идти или не идти решать вам. Конечно, бесспорно, тамошняя атмосфера закаляет, так сказать, показывает темную сторону жизни. Сам я не жалею, что сходил, послужил; все же новые друзья, новые места, да и есть много чего интересного, но для себя решил вот что. Нужна контрактная основа службы, чтоб служили те, кому это действительно надо, кто готов и морально и физически.
         По крайней мере, количество самоубийств и самовольных оставлений части резко бы снизилось.
         Спасибо.

просто Служивый

         От редактора: как и автор статьи, не претендую на абсолютную точку зрения, однако, по-моему, это тот случай, когда лучше сто раз услышать, чем один раз увидеть, и не дай вам боги испытать это на себе…
Читайте следующую статью об армии, коия близка к моему мнению.

В рамках сохранения HTML-памятников истории и культуры, 2004 год, воспоминания респондента о чеченской кампании.

Какой перед вами долг?

Posted on by Tolik Punkoff

         Хотелось бы осветить один из аспектов «военного вопроса», а именно само понятие воинского долга, коим так любят «помахать перед носом» у молодого человека призывного возраста и коим, надо сказать, махать-то, в принципе и незачем.
         Честно говоря, слушая все эти разглагольствования о воинском долге я все никак понять не могу — кому это я должен? Ради чего я должен рисковать своей жизнью? Простите, уважаемые военные, она у меня одна и нет мне никакого резона подчиняться вашим приказам. Да и предлагаемая альтернативная служба у меня, как и у авторов статьи кроме вопросов ничего не вызывает.
         Какой у меня перед вами, совершенно чужими и незнакомыми мне людьми может быть долг? Чего вы мне такого сделали, что я вдруг стал вам должен? Кто вы мне? В данный момент на эти вопросы у меня нет ответов, может, вы поясните?
За мой счет и так уже кормится жутких размеров армия чиновников, так я еще и на вас должен работать. А зачем? Я для вас — цифра в отчете, винтик в четком отлаженном механизме Системы, частью которой вы являетесь, за счет которой живете, и, надо сказать, неплохо.
         Так что, простите, никакого долга перед Вами я не обнаруживаю и работать на вас (хотя бы в форме службы в армии) не собираюсь, своя жизнь еще не устроена.
         Конечно, многие могут не согласиться со мной, начнут рассуждать о войнах, отвечу им заранее: войны ведутся и выигрываются не накаченными мужиками в погонах, и никак не мальчишками, а политиками, чиновниками. Это люди, которые все давно уже поделили, проверили и рассчитали.
         Для них мы, простые парни, которым идти в армию, всего лишь инструмент для достижения их личных целей.
         И цели эти, такие же, как у всех, хотя и прикрыты кричащими словами вроде «долг». «А каковы же они?», — спросите вы меня. Подумайте, что человеку нужно для жизни — долг, честь, обязанности? Нет! Еда, воздух, жизненное пространство… И как это не назови, как не прикрывай, все равно никуда от этого не деться.
         Так что, господа власть предержащие, не надо, хотя бы лицемерить.
         А вы, ребята, срочники и призывники, держитесь и помните о собственной значимости.
         Помните о том, что о себе вы можете позаботиться только сами.

Вампирметр

2004.
В рамках сохранения HTML-памятников истории и культуры.

Подарили нашему российскому корешу автограф БГ

Posted on by Tolik Punkoff

В обмен на «Курочку» конечно же. БГ еще 400 лет концерты давать будет, а вот «Курочку» хуй в третий раз перевыпустят.

Автограф выиграли на партизанском канале ARU TV, аж сам Артемий Троицкий нам подарил.

Опубликовано с разрешения всех источников и акторов. Копилефт всех материалов подтвержден.

Dyna Blaster for DOS (Бомбермен)

Posted on by Tolik Punkoff

Родное demo игры:

По многочисленным просьбам зрителей, Werwolf сделал репак старой DOS-овской игры.

Под Windows XP и выше можно играть в DOSBOX последней версии (на момент написания заметки 0.74-3).

Добавлена возможность включения и отключения фоновой музыки:

Для включения надо запустить файл ONMUSIC.EXE, для выключения OFFMUSIC.BAT, по умолчанию фоновая музыка отключена.

Добавлен файл CHEATS.TXT с кодами для доступа к каждому уровню и кодом на бессмертие. Копия на PasteBin

Скачать

DYNA Blast for DOS с Mega.NZ(ZIP)

Курочка открыла дверь в Карелии.

Posted on by Tolik Punkoff

И теперь едет открывать ее в Финляндии.

«Курочка, открой дверь», это тебе не простая крипипаста про деревню. Тут и непонятной природы сущности, и странные секты, и спецслужбы, тайное российское, а возможно и мировое правительство. Даже отряд казаков встречается.

В общем, если бы Стивен Кинг и Виктор Пелевин писали сценарий к Евангелиону, примерно оно бы и вышло.

Думаю, вообще, произведение недооцененное, по причине «камерности» и совсем никакого пиара, Раймонду Крумгольду должно было бы зайти. И вообще, по повести аниме надо снимать, а уж статья на Катабасии обязательна вообще.

Книга с «Курочкой» и еще несколькими рассказами того же автора, вновь вышла ограниченным тиражом. Мы ждали этого джва минимум 5 годиков.

Текст и озвучка доступны в сети бесплатно:

Текст на Мракопедии
Озвучка от Криперс

Заказать книжку, если кому надо, и если осталось, можно в описании под озвучкой.

Скрипт для тестирования сетевых соединений. Инструкция.

Posted on by Tolik Punkoff

Преамбула

Друзья из одной небольшой фиромочки попросили написать небольшой скрипт для тестирования соединений, чтобы быстро понять, где отвалилось. Например, упал роутер, не отвечает внутренний сервер, упал провайдер, или сдох VPN. Попросили сделать кросивое, с этим тоже справился, ошибки выделяются красным цветом, пройденные этапы зеленым, можно включить или отключить звуковое оповещение через PC-speaker.

Что умеет

+ Последовательно проводить два вида тестов: ping и получение страницы (или файла) с web-сервера
+ Оповещать пользователя об ошибках или пройденных тестах, с цветным текстом.
+ Выдавать звуковые сигналы об успешном завершении теста, или об ошибке на PC-speaker.

Для звуковых оповещений должен быть настроен PC-speaker и установлена утилита beep (копия).

Последовательность операций задается в конфигурационном файле.

Конфигурационный файл

Конфигурационный файл состоит из строк следующего формата:

операция|адрес|отображаемое описание|прервать/игнорировать

Пока поддерживаются только две операции:

ping — для ping’а адреса
getp — для получения страницы или файла с WEB-сервера (с помощью wget)

адрес — адрес, WWW для getp, IP или WWW для ping.

отображаемое описание — описание операции, текст, который будет выводиться на консоль.

прервать/игнорировать — при ошибке операции, если указано ключевое слово break, скрипт останавливает работу и выводит сообщение о том, что в ходе тестирования произошли ошибки. Если указать иное значение, например, skip, то скрипт продолжит производить тесты, пока не закончится конфигурационный файл, или пока не будет следующий сбой в тесте, где указана опция break.

Названия операций и break нечувстивительны к регистру (т.е. можно написать Ping, ping или Getp, GeTP или BreaK, breaK).

Первые два поля (операция и адрес) являются обязательными. Если они не будут указаны, скрипт будет прерван на строке с ошибкой:

...
Ping|192.168.0.1|Main router|break #Main router ping
ping|[ДАННЫЕ УДАЛЕНЫ]|Provider IP|break
getp
...

Если не будет указано поле описания, то оно будет по умолчанию установлено в значение No desription:

Если последнее поле не будет заполнено, то оно принимает значение break.

Если в первом поле будет неверно указанный код операции, то скрипт его проигнорирует, выдав соответствующее сообщение, продолжит выполнять другие операции, но завершится с ошибкой:

Ping|192.168.0.1|Main router|break #Main router ping
ping|[ДАННЫЕ УДАЛЕНЫ]|Provider IP|break
getp|[ДАННЫЕ УДАЛЕНЫ]|Provider page
1234|[ДАННЫЕ УДАЛЕНЫ]|VPN Server IP|break
ping|8.8.8.8|Internet IP|break
getp|google.com|Internet page|break

Для разделения полей используется символ |

В конфигурационном файле можно использовать комментарии, начинающиеся с символа #, все, что находится после этого символа — игнорируется. Пустые строки также игнорируются.

Пример конфигурационного файла (без данных)

#inettest.cfg example

Ping|192.168.0.1|Main router|break #Main router ping
ping|x.x.x.x|Provider IP|break #Change x.x.x.x to your provider ip
getp|myprovider.net|Provider site page|skip #change myprovider.net to real site your provider
ping|x.x.x.x|VPN Server IP|break #Change x.x.x.x to real VPN provider IP
ping|8.8.8.8|Internet IP|break
getp|google.com|Internet page|break

Переменные скрипта

Скрипт не имеет параметров командной строки, основные настройки осуществляются через переменные самого скрипта:

CONFIG — путь к конфигурационному файлу, например CONFIG="./inettest.cfg". Если конфигурационный файл не будет найден, скрипт выдаст ошибку:

CRITICAL ERROR: Config file ./inettest.cfg not exist!

NOCOLOR — если значение равно 0, включить вывод цветного текста на консоль, если 1 — отключить. По умолчанию 0

NOCOLOR=1:

NOSOUNDP — включение ( по умолчанию 0) или отключение (1) звука в процессе тестов. Звук выдается после каждого отдельного теста.
NOSOUNDF — аналогично предыдущей переменной, только звук звучит после окончания всех тестов или их прерывания.

NOADDR — 0, включить тестируемый адрес в вывод скрипта, 1 — не включать.

NOADDR=0:

NOADDR=1:

PACKETS — количество пакетов для команды ping (по умолчанию PACKETS=3)
TIMEOUT — тайм-аут для получения страницы или файла (в скрипте делается с помощью wget, по умолчанию TIMEOUT=5)

Тест при ошибке сети

Конфиг:

Ping|192.168.0.1|Main router|break #Main router ping
ping|[ДАННЫЕ УДАЛЕНЫ]|Provider IP|skip
getp|[ДАННЫЕ УДАЛЕНЫ]Provider page|skip
ping|[ДАННЫЕ УДАЛЕНЫ]|VPN Server IP|break
ping|8.8.8.8|Internet IP|break
getp|google.com|Internet page|break

Результат:

Коды ошибок

ping:
1 — No reply (не один из пакетов до пингуемого адреса не дошел)
2 — Other error (другая ошибка, в большинстве случаев — «сеть недоступна»).

getp (wget):
1 — Иная / общая ошибка (generic error code)
2 — Ошибка в параметрах командной строки или файлах конфигурации (.wgetrc или .netrc)
3 — Ошибка файлового ввода/вывода (I/O error)
4 — Ошибка сети (например, при обрыве связи)
5 — Ошибка SSL
6 — Ошибка идентификации (неправильное имя пользователя или пароль)
7 — Ошибка протокола
8 — Ошибка сервера (например, нужный файл на сервере не найден, ошибка 404)

Коды возврата скрипта

0 — Ошибок в ходе тестов не произошло.
1 — Произошла хотя бы одна ошибка.

Скачать

Репозиторий на GitHub

(Ч)мобик.

Posted on by Tolik Punkoff

Вчера поехал в город, че-то захотелось вкусьненького, решил посетить ресторацию.

На такси обратно жаба задавила ехать, пошел на маршрутку до Бесовца, на останiвке (кто понял, тот понял) стоит чмобик, и кому-то бурно рассказывает по телефону:

— Да, еду. Вот через неделю уже еду, на фронт.
— Я же сержант медицинской службы.
— Да у меня экипировка будет, я же спонсора нашел. Осталось бронепластины купить.
— Дык мой генеральный [директор] тоже патриот, он мне все купит.

Хотелось, конечно, спросить, какие бронежилеты помогают от Хаймарса, но я вслушивался в важный разговор, чтобы понять, какой мудак его спонсирует. Жаль, название фирмы так и не было произнесено, иначе б я похвастался, что пополнил (в очередной раз) базу «Миротворца».

ЗЫ. Вот Мырзин мучительно отказывается от работы на СБУ, хотя ему настойчиво предлагали, а мы аж всей компанией хотим, и даже может че-то можем, хотя нас два околоайтишника, один айтишник, графоман и ветеринарша, но нам не предлагают.

ТрусЫ, история друга про военкомат.

Posted on by Tolik Punkoff

Я ограниченно годен ([ДАННЫЕ УДАЛЕНЫ] психиатрическая болезнь), воевать могу, но если таблетки есть, если кончатся, могу воевать с чертями, лешими и сослуживцами. Диагноз был древний, как говно мамонта, так что к 15 годам (первая медкомиссия) военкомата я абсолютно не боялся, так что вот вам первая прикольная история.

К первой медкомиссии я как-то не подготовился, осень (потому не купался), я только с дачи приехал, соответственно на мне были трусы системы «колени в тепле», тем более, сосланные на эту дачу еще до появления у Земли естественного спутника. Потому, разделся я только до пояса. Захожу в коридор военкомата, меня встречает какой-то дяденька в форме:

— А ты почему до трусов не разделся?

И это «ты» меня перемкнуло.

— Во-первых, не «ты», а «вы», я к вам на «вы», уважительно, а вы мне «тыкаете».

Дяденька от неожиданности поперхнулся, а очередь из примерно таких же по возрасту пацанов, удивленно на меня воззрилась.

— Во-вторых, предоставьте мне закон, по которому я должен быть тут в трусах! Номер федерального закона, конкретный пункт. Если он есть, я сниму штаны, если нет, то вы не должны от меня это требовать!

Дяденька, наконец, нашелся (хоть как-то):

— Ну все стоят в трусах.
— Ну и пусть стоят, их личное дело.

По-моему, даже глаза у дяденьки начали смотреть в разные стороны, наконец, он собрал их в кучу, и грозно на меня надвинулся. Думаю, он бы даже меня ударил, если бы свидетелей не было.

— Ты че тут, самый умный?
— Ну не дурак, наверное. Городскую олимпиаду по биологии взял. Может, на районную поеду. И кстати, представьтесь пожалуйста, я вот [ДАННЫЕ УДАЛЕНЫ], а вы? Имя, фамилия, должность, звание?

Тут дяденька резко развернулся и скрылся в неизвестном направлении.

А первую комиссию я так в штанах и прошел.

Сейчас, рассуждая «с высоты прожитых лет», думаю, что нанес «дяденьке» смертельную обиду, ведь его словесное унижение пятнадцатилетним подростком видела не только очередь из таких подростков, но даже вахтерша военкомата, которая сидела в прозрачной будке (как бы сейчас сказали «ресепшне») и все видела. Извини, но ты сам себя как козел повел.

Linux: как проверить в скрипте, пингуется ли адрес.

Posted on by Tolik Punkoff

Оказалось все очень просто.

ping <ip|url> -c <packets_count>

где:
<ip|url> — IP или URL адрес
ip — IP-адрес (например 8.8.8.8 или 192.168.0.1)
url — URL-адрес (например google.com)
<packets_count> — количество отправленных пакетов

В следующем примере мы пингуем google.com:

ping google.com -c 3

Вывод команды приводить не буду для экономии места, кому нужно, смотрите на PasteBin

Можно пропинговать и по IP, например, локальный роутер:

ping 192.168.0.1 -c 3

Вывод, опять же на PasteBin

Внимание! Количество отправленных пакетов (-с <число>), если вы используете ping в скрипте bash нужно указать обязательно, иначе команда ping никогда не прекратит свою работу и завесит скрипт, в отличии от команды ping в Windows (она по умолчанию посылает 5 пакетов и прекращает работу).

Коды возврата ping

Естественно, для анализа работы ping в скрипте, нам потребуются коды возврата.

К сожалению, в официальном man для команды ping их, почему-то забыли указать.

0 — Success (хоть один из пакетов дошел до адреса)
1 — No reply (не один из пакетов до пингуемого адреса не дошел)
2 — Other error (другая ошибка, в большинстве случаев — «сеть недоступна»).

На всякий случай

Если произошла ошибка с кодом 2, то команда ping выводит на stderr сообщение об ошибке, например:

ping 8.8.8.8 -c 3
connect: Network is unreachable

Отключение вывода

ping является полуинтерактивной командой, и показывает параметры отправленных пакетов (см. на PasteBin), если это не нужно, можно отключить вывод стандартным способом, перенаправив вывод команды ping из stdin и stderr в /dev/null, например:

ping 8.8.8.8 -c 3 >/dev/null 2>/dev/null

где:
>/dev/null — перенаправление stdin в нуль-устройство
2>/dev/null — перенаправление stderr в нуль-устройство

Пример

Простейшее использование команды ping в скрипте:

#!/bin/bash

#testping
# $1 - IP or URL address

ping $1 -c 3 >/dev/null 2>/dev/null
if [ $? -eq 0 ]; then
    echo "Pinging!"
else
    echo "Not pinging!"
fi

Копия на PasteBin

Проверка

smallwolfie@wolfschanze:~/nettest$ ./testping 8.8.8.8
Pinging!
smallwolfie@wolfschanze:~/nettest$ ./testping 666.666.666.666
Not pinging!
smallwolfie@wolfschanze:~/nettest$ ./testping 192.168.0.55
Not pinging!
smallwolfie@wolfschanze:~/nettest$ ./testping example.org
Pinging!

Цветной текст в консоли Linux #3. Улучшаем совместимость скрипта.

Posted on by Tolik Punkoff

Преамбула

Друзья [info]ketmar@ljr и [info]grusha@ljr отправили мне несколько ценных замечаний по поводу покраски консоли из скрипта (копия). Решил про них здесь отдельно написать, и модифицировать скрипт

Замечание #1, попадание ESC-последовательностей в поток, при вызове скрипта в потоке

Решил начать с него, оно более важное.
Впрочем, отдельно ему посвятил маленькую заметку (копия), где описал проблему и ее решение, так что осталось только применить, оборачиваю основной код функции echoc() в if, осушествляющий проверку, вызвали ли скрипт в терминале или в потоке:

if [ -t 1 ];then
	E__="\x1b[${FGROUND[$2]}m"
	if [ -n "$3" ];then
		E__="$E__\x1b[${BGROUND[$3]}m"
	fi

	if [ -n "$4" ];then
		E__="$E__\x1b[$4""m"
	fi

	echo -e "$E__$1\x1b[0m"

else
	echo "$1"
fi

Если не в терминале, просто выводим обычный текст без ESC-кодов:

В функции echocn() поступаем аналогично, просто к вызову echo не забываем добавить пареметр -n:

if [ -t 1 ];then	
	...
	echo -e -n "$E__$1\x1b[0m"

else
	echo -n "$1"
fi

Замечание #2. Совместимость цветов.

коды для яркости не входят в общепринятый стандарт VT-100, это расширение, и поддерживается далеко не всеми. один из стандартных способов увеличить яркость — включить полужирный режим: «\e[1;32m». да, это не работает для фона, стандартного метода для фона нет..

Т.е. максимально совместимыми цветами с терминалом являются только первые 7: коды 30..37 для текста, 40..47 для фона, дефолтные коды 39 и 49 для текста и фона соответственно (см. таблицу из предыдущей заметки (копия)).

Коды для яркости текста (90..97) и фона (100..107) расширение стандарта и поддерживаются не всеми терминалами. Для текста есть способ увеличить яркость — включить полужирный режим: семь цветов плюс полужирный с расчётом на то, что это давно уже яркость текста.

Совместимые цвета и стили

Итого, получаем вот такую таблицу совместимых цветов:

# Название цвета Код цвета текста Код цвета фона
0 Default (По умолчанию) 39 49
1 Black (Черный) 30 40
2 DarkRed (Темно-красный) 31 41
3 DarkGreen (Зеленый) 32 42
4 DarkYellow (Темно-желтый) 33 43
5 DarkBlue (Синий) 34 44
6 DarkMagenta (Темно-фиолетовый) 35 45
7 DarkCyan (Темный аквамарин) 36 46
8 Gray (Серый) 37 47
9 DarkGray (Темно-серый) 1;30 —
10 Red (Красный) 1;31 —
11 Green (Ярко-зеленый) 1;32 —
12 Yellow (Желтый) 1;33 —
13 Blue (Голубой) 1;34 —
14 Magenta (Фиолетовый) 1;35 —
15 Cyan (Аквамарин) 1;36 —
16 White (Белый) 1;37 —

Код сброса: \x1b[0m — сбрасывает настройки консоли (цвет текста, фона и стиль) к значению по умолчанию. Он работает нормально.

Заодно уж выбросил из таблицы стилей «мигающий» и «невидимый», которые объективно не работают:

Код стиля Стиль текста
0 Default (По умолчанию)
1 Bold (Жирный/яркость текста)
4 Understrike (Подчеркнутый)
7 Inversing (Инверсия), цвет фона и текста меняются местами

Модифицируем скрипт

Массивы с кодами цветов теперь выглядят так (массив с именами показан для лучшего понимания):

NAMES=(Default Black DarkRed DarkGreen DarkYellow DarkBlue DarkMagenta DarkCyan Gray DarkGray Red Green Yellow Blue Magenta Cyan White)
FGROUND=("39" "30" "31" "32" "33" "34" "35" "36" "37" "1;30" "1;31" "1;32" "1;33" "1;34" "1;35" "1;36" "1;37")
BGROUND=(49 40 41 42 43 44 45 46 47)

И подправляем вывод:

echo -e "Foreground color:\tBackground color:"

for N in {0..16}; do
    if [ $N -eq 1 ];then #foreground
	echocn "$N - ${NAMES[$N]}" $N 4
    else
	echocn "$N - ${NAMES[$N]}" $N
    fi
    echo -e -n "\t\t"
    
    if [ $N -le 8 ];then
	if [ $N -gt 1 ];then
	    echoc " ${NAMES[$N]} " 1 $N #background
	else
	    echoc " ${NAMES[$N]} " 0 $N
	fi
    else
	echo
    fi
done
echo
echocn "Default" 0 0 0; echo -n " "
echocn "Bold" 0 0 1; echo -n " "
echocn "Understrike" 0 0 4; echo -n " "
echocn "Inversing" 0 0 7; echo -n " "
echo
echo

Что получилось

Вывод в терминал:

Вывод в файл:

./esccolorscomp >test.txt

Замечание #3. Об использовании tput

Я задал вопрос, а не проще ли вместо ESC-кодов использовать tput, о чем я уже писал (копия). Ответ был таким: Он требует установленого ncurses, в общем и целом — никто не гарантирует его наличия.

Готовый скрипт

На GitHub