Hallucination of Tired

Псто

Thu, 03 Dec 2009 07:19:45 GMT

Он бессмысленный.

Я планирую вернуться к насилованию фотошопа (и чьих-то мозгов) в феврале - сейчас идут гребаные зачеты, затем пойдет гребаная сессия, времени не хватает. Естественно, я готовлюсь к этому моменту: читаю всякие туториалы по фотошопу(мне повезло, что я смог одолжить свой старый ноут - их оказалось много и все они полезны) и изучаю арт других людей (я думал, может стоит выкладывать сюда лучшее из того, что я вижу?). Кроме того, я пишу текстовый фаллоут. Уже готов редактор предметов и монстров, идут размышления насчет вывода на экран и как будет выглядет редактор карт и сама игра. Как закончу, выложу исходники здесь.

Sun, 08 Nov 2009 14:52:35 GMT

Очередное уг.

Wed, 04 Nov 2009 18:26:24 GMT

Мой ноут ожидает похода в мастерскую, посколько то чудо работает, только если экран развернуть на 150 градусов от основания. Планшет с клавиатурой и тачпадом. Я не могу рисовать, поскольку должен (сам виноват!) делать текстовую рпг с автоматически генерируемым контентом. Вот так

Cisum

Thu, 29 Oct 2009 09:48:00 GMT

Да, вы уже догадались, о чем сейчас пойдет речь (если нет, перечитайте заголовок и начинайте читать пост с начала).

Lux Occulta
Несмотря на то, что я слышал у них только их последний альбом (судя по отзывам, затмивший все остальные 4), я очень уважаю эту группу. Потому что они создали весьма и весьма нешаблонную музыку, жанр которой очень сложно определить. Дичайшая психоделично-атмосферная смесь из индастриала, эмбиента, блэк-метала, джаза, приправленная большим количеством электроники, женским вокалом, огромным количеством компьютерных эффектов, обкуренными текстами. Альбом называется The Mother and the Enemy. С ним стоит ознакомиться. Больше ничего подобного я не видел.

Silencer
Распиаренный блэк-митол проект. Слишком уж распиаренный, это снизило эффект от их единственного альбома. Тем не менее, их произведение вполне мрачно(мне кажется, это скорее заслуга вокалиста - его полуплач-полускрим-полувизг обладает достаточно сильным воздействием на ЦНС слушателя). На любителя.

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

Last.fgm, PR, Fukking Death Metal and Devoid of Grace

Sat, 17 Oct 2009 19:41:07 GMT

>>>
----Привет! ;-) Быть может, тебя заинтересует вот эта группа http://devoidofgrace.ru/download.php Support death metal! \m/
<<<

Хорошее начало, да и комментов на ласт.фгм давно не было. Что ж, заинтересовали. Но Death Metal - понятие невероятно широкое, поэтому прежде чем качать представленный на сайте сплит с Apokefale(про них ниже), я решил ознакомиться с историей группы и чье творчество на них повлияло.

>>>
----Группа Devoid Of Grace сформировалась в 2001 году. Взяв за основу все самое лучшее от классической death'овой школы, добавив немного thrash'a и angry, ребята принялись копить и нарабатывать материал. Как и во многих коллективах не обошлось без смены состава, но это не сказалось на музыке с отрицательной стороны. Напротив, каждый новоиспеченный участник приносил что-то новое, что-то свое, делая, тем самым, звучание более разнообразным.

----Взращивая свое детище, под влиянием таких монстров как Decapitated, Death, Meshuggah, Vader, Cryptopsy, Strapping Young Lad, Emperor, грамотно прорабатывая материал, группа дает возможность насладиться лучшим, что было и есть у вышеперечисленных коллективов. От каждой команды понемногу, порция своих идей и мыслей, долгая кропотливая работа на репетициях, все приводит к тому, что слушателям, пришедшим на концерт, буквально "сносит крышу" ураганом мощи, запредельной энергией, и высокой техничностью.

----С 2007 года группа ведет активную концертную деятельность, разделяя сцену с Decapitated, Hate, Crionics, Sinful, Rossomahaar, Illidiance, Endless Gloom и многими другими.
<<<<

Мой мозг атаковали две мысли - "У них высокое самомнение, ну их" "А может быть они вполне заслужили право так говорить?". Поскольку слушать в режиме реального времени для меня сложно (тычок в сторону общажной сети), я решил все-таки скачать сплит. Полтора часа на 55 метров - это долго, на мой взгляд. Очень.

Начал я с девоид. Dickapitated не зря упомянуты в самом начале - часто встречаются ударные, напоминающие стрекот, создаваемый ВитЪком. Только менее техничный и более медленный. Зато вокалист нормально гроулит, лучше, чем на галлюценогенах, где ор по слогам меня раздражает. При чем здесь Death, не ясно. Лишнее напоминание о (великом и ужасном) Чаке Шъ. Meshuggah - индруальное отрывистое чесание по гитаре и тому подобное. Vader - Декапитатед без индустриала. Cryptopsy - не смешите, у вас композиции цельные, нету у вас веселой техничной хаотичной рубки-резки.
Материал хороший, но его мало, я требую полноформатника. Качаю минисд.

Apokefale - что-то хрипящее, блэко-дэтовое, с парой интересных моментов. С ними пока не разобрался. Качаю два альбома

Thu, 01 Oct 2009 05:35:20 GMT

С сегодняшнего дня я могу наконец-то легально покупать и пить некую желтую субстанцию, известную под кодовым названием "пиво".
Жду не дождусь, когда же я наконец помру.

---------------------

Tue, 29 Sep 2009 06:08:13 GMT

Что-то давно я не спамил в собственный ЖЖ. Исправляюсь :) Хотя писать почти не о чем.
Из нового:
1) Trigun Maximum. Манга-продолжение $трехтомника Trigun, на сей раз 15 томов с неутомимым хиппи Вашем и его зловредным братцем. В аниме присутствовали некоторые сцены где-то из начала, но в остальном все отличается друг от друга. Пока осилил первые 7 томов, остальные на закачке
2) Arch Enemy 2009. Неоднозначная работа. Если музыканту сделали свою работу на 5 (правда, звук скорее напоминает о Rise of the Tyrant больше, чем о старых альбомах), то я не могу оценить однозначно работу Анжелы. Лучше всего ей удались песни с Burning Bridges и Bridge of Destiny со Стигматы (С горящих мостов, по-моему, больше всег песен и взято), а открывашка Beast of Man требует скорее дикого алкогольного ора(без взяких эффектов вроде эха) Лиивы, чем хрип (да, ей надо взять перерыв и подлечиться. Или уйти на пенсию) Анжелки.
3) Berserk 307. Не читал, но вроде арка новая, да и перерыв был слишком долгим. Пора регулярно выпускать новые главы :)
4) Новых рисунков пока не будет. Я пытаюсь что-нибудь раскрасить, но когда дело доходит до теней, я не выдерживаю и удаляю все. Да и сил нет.

Sun, 06 Sep 2009 12:39:36 GMT

ОМГ, откуда это программе известно про мои идеи?

Остальное:
Misanthrope великолепны. Ну, по крайней мере, за 2003 год, поскольку остальное мне еще надо скачать :). Был бы весь мелодэт таким. Правда, тут намешано много всего (тексты на французском, декадантно-апокалиптически-извращенная тематика и атмосфера, прогрессивные черты: бассовые соло, хорошая работа всех муззыкантов, присутствует модные симфоничные клавишы, которые, впрочем, тут только в тему, ну и т.д.).
Упоминавшиеся постом Akercocke - слишком уж на любителя. Если вы ничего не имеете против набивших оскомину сатанистских мотивов, нойзовых (ака шумовых) вставках, женских криков под мрачные распевы и больных, немелодичных блэко-дэтовых риффов, то пожалуйста.
Ну и напоследок. КИНО. Отличная музыка, хоть и слишком простая. Но вы это знаете
--------------------------------..................
Меня опять френдят всякие левые люди. За что? Зачем? Вам что, нравится читать всю эту словесную отрыжку?

Infinite Loop

Sat, 29 Aug 2009 13:07:00 GMT

Раз! = http://omnilrenegade.deviantart.com/art/For-Every-Leaf-That-Falls-135145779 . Противникам юри не смотреть принципиально.
Двас! = Metalocalypse, который Металлопокалипсис, оказывается очень даже хорошим и интересным мультом.
Трис! = Novembers Doom великолепны
Чтырес! = Akercocke вроде тоже
Пятьс! = Я завтра уезжаю на 9 месяцев в Казань на учебу. Скорость появления новых постов сокращается в 5 раз.
Шестьс! = GOTO Раз!

Expectation of Autumn

Sat, 15 Aug 2009 13:53:02 GMT

Еще один пост, посвященный музыке. Название, взятой из инструменталки Hieronymus Bosch, на мой взгляд, хорошо описывает характер данного поста.
К делу. У вас часто бывает ощущение, что внутри все пусто? Да, как будто все внутренние органы удалили? А если еще зрение посерело? Вам становится беспричинно холодно, как если бы вас продул воющий и морозящий ветер? Прибавьте к этому полнейшую апатию и отсутствие настоящей радости и вы получите мое теперешнее состояние. К счастью, такое не бывает вечно, но, к несчастью, такое бывает периодически. А еще лето уходит - это такая своеобразная радость для меня. И чтобы с этим бороться, я слушаю дум.
И вот тут начинаются проблемы. Lake of Tears(имеется ввиду альбом Forever Autumn) недостаточно тяжелы (во всех смыслах, в т.ч. по атмосфере - напоминает прогулку по парку ранней осенью под редким моросящим дождем). My Dying Bride - раннее творчество уже переслушено немалое количество раз, 34.788%... совсем не подходит, дальнейшее творчество может быть и грустно и депрессивно, но чем дальше, тем слабее, и их последний альбом тому подтверждение. Paradise Lost - см. My Dying Bride, но у них атмосферны только первые два альбомы, последующие в этом планеслабее. Septic Flesh - снова не то. Opeth - песни-локустные одеяла, в роли локустов - небольшие отрывки. Да, хороший вокал, отличные тексты, отличные риффы, но атмосферен для меня только их дебют.

В такой ситуации выход один - найти срочно что-нибудь новое. Новым стали две группы - October Tide и Novembers Doom. Жаль, что группы September <что-то> не нашлось. Про вторую ничего пока сказать не могу - не скачалась еще дискография полностью, зато могу сказать про первую. И слова мои будут очень лестными, особенно по отношению к дебюту (альбомов у них всего 2, по 40 минут каждый). Это, как сейчас водится, Death Doom, причем очень хороший. То есть слушать его лучше, когда вокруг никого нет, а за окном серо и идет дождь. Невероятно грустный и печальный, с очень выразительным вокалом (гроул, как будто звучащий из залитого подвала), пронзительные, кричащие соло-партии и мощные риффы. Название альбома - Rain Without End - и трэков соответсвуют начинке.
Второй альбом пока не так запомнился, но и его стоит слушать.

Про остальное - я пытаюсь сотворить новую раскраску, по Инуяше на сей раз, но у меня пока проблемы с тенями/освещением, готовы только основные цвета.

ZOMG

Tue, 11 Aug 2009 18:38:41 GMT

Постниочем

Mon, 10 Aug 2009 19:05:15 GMT

Делают ли где-нибудь у нас в стране операции по прикриплению хороших, управляемых протезов (как в Алхимике) на ноги? Чертовски важный вопрос :)

По приезд(у/е) я так и не обнаружил ни одного появившегося коммента. Ни в ЖЖ, ни в ДА, а вcuntакте их не было лет 100. Обидно. Существует ли самобучающийся бот, в разговоре неотличимый от человека и с возможностью настроить характер?

Я наконец-то скачал себе самый первый альбом Парадайз Лостов. Бонусом - бонустреки ко всем альбомам, обложка с буклетом к последнему, нормальные треки для альбома 2005 года. Но кому это надо?

И нужен ли этот пост?

More of Fire Than Blood

Sun, 09 Aug 2009 14:53:50 GMT

~~~~

Sat, 08 Aug 2009 17:28:58 GMT

Я наконец-то вернулся в инет. Ожидайте новой раскраски на днях, она уже почти готова. Кроме того, на предыдущем рисунке исправлена кровь.

New Pic

Sun, 26 Jul 2009 13:41:24 GMT

I'm not fucking dead!!!11! It's a new berserk coloring after a long skip!!!1 Arrrgghhh!!!1

Good Bye!

Thu, 02 Jul 2009 18:55:54 GMT

Угу. Сабж. Я ухал на месяц. Спам эмо-лытдыбрами прекращается.

Сессия сдана

Mon, 29 Jun 2009 16:40:08 GMT

Сабж.
Нуфф сказал.

Berserk, Босх и все-все-все

Fri, 26 Jun 2009 10:48:22 GMT

Очередной бессмысленный и неинтересный пост, как обычно посвященный музыке(весьма хорошей), манге(отличной) и художнику(пока еще мне малознакомому). Причем все трое взаимосвязаны :)

Начнем с всем известной манги под банальным названием Berserk. Кстати, последние главы не так уж и плохи, Гатс, сколько бы ни пищали про его отсутствие, был бы тут лишним, к тому же с ним ничего, совсем ничего, не происходит. Исключение - похоже что его рука с глазом восстановились. Забавная трансформация (полу-)обычного мира в фэнтезийный, возможно, приведет к тому, что большую часть людского населения съедят(сожгут и запугают до смерти). Новость менее важного характера - дабы восстановиться, я начал расскрашивать одну из страниц манги. 30-50 процентов раскрашено, освещение с эффектами пока отсутствуют. А противная апатия, заставляющая меня забить на сессию, исчезает :).

Переходным мостиком между предыдущим и следующим пунктами является некто Иеронимус Босх. Стиль которого очень сильно повлиял на всем известного трудоголика-ленивца Кентаро Миуру. В последней главе (Берсерка) находится прямое цитирование Босха. Я скачал книгу с его работами, но боюсь, что просмотреть их я смогу, только сдав экзамен. Увы, мне мешает банальная лень :D. И сессия D:

Последний пунктик - Hieronymus Bosch, а вы что, ожидали что-то еще, да? Не очень широко известная русская группа, играющая в стиле Progressive Death Metal аж с 1994. Несмотря на название стиля, музыка ОЧЕНЬ мягкая, запоминающаяся, но не простая. Помимо отличных гитарных запилов (обязательных для жанра имхо) присутствуют частые смены ритма, отличная игра на басу (да и барабанщик тоже неплох, чего уж тут), акустические вставки и блюзово-джазовые фрагменты и почти полное отсутствие клавиш. В целом, очень даже мелодичная музыка. Гроул тут совершенно не агрессивен и не злобен, как в многих других командах того же жанра. Отсутствуют и кишково-сатанистские темы - музыка, тексты, названия песен альбомов абстрактны. Что очень хорошо, группа вполне может конкурировать с лучшими зарубежными образцами. Ближайшие ориентиры - Atheist, Cynic и Death периода Human и Patterns.

По мелочи - часть френдов, которая не была долгое время активной, я удалил.

Сессия - WTF Mode

Wed, 24 Jun 2009 06:57:24 GMT

Название полностью оправдывает мое состояние. Я в очередной раз поражаюсь правильности утверждения "Если в одном месте чего-то не хватает, то существует другое место, где этого с избытком". Почти халявно получив "оч хор" по истории, которую я почти не знаю, я едва не завалил алгебру(хотя я готовился достаточно долгое время), в которой, я думал, вполне себе разбираюсь. В итоге я все равно получил "хор", но все равно обидно - набрать чуть больше половины баллов за экзамен.
Осталось только программирование, я уверен, что не завалю хотя бы это.

Кому тут скучно, можете смело расфрендить меня.

Lytdibr

Sat, 20 Jun 2009 17:10:46 GMT

Zyklon (они же Zyklon-B)
Веселая такая группа. Похожа на Emperor периода Anthems и Equilibrium, только без симфонической части и без скрима Ishan'a. Долбежный дэт-блэк, цепляет слабо, на любителя. Хотя технически там все хороши.

Cryptopsy
Веселая и безбашенная группа. Первая в моей жизни группа, у которой все песни больше напоминают сплошную импровизацию на месте, а не типичные конструкции интро-куплет-припев-куплет-припев-соло-аутро. Ударник Фло Монье - демон, я не верю в то, что так можно играть на ударных - меняющиеся темпы, странные сбивки, сверхскоростные бластбиты действуют на голову похлеще кувалды. Стараются не отставать от него и гитарист с басистом. А вокалистов там много.

Я написал экзамен по алгебре, не знаю пока на сколько. У меня начинаются какие-то обострения - я могу сейчас забанить кого-угодно. Но только с причиной "Давно не ничего писал".
Fallout 3 - великая вещь :) ИМХО не хуже второй части (Хотя тут нельзя убивать детей и квестовых персонажей, а также копать могилы. Зато можно есть трупы и пить воду хоть из писсуара). Прохожу стилем "обдолбанный радиоактивный коммандо" - после очередных похождений по развалинам Пустоши у меня есть зависимости от всех возможных наркотических веществ.

Я пытаюсь что-нибудь раскрасить (или нарисовать), но пока что ничего не выходит.

Sat, 13 Jun 2009 09:16:34 GMT

АА!!!!
Наконец-то. Альбом утек в сеть и его можно невозбранно послушать. Музыканты, скрипя зубами, предлагают заказать его у них лично. Блин, меня совесть замучает, но я все равно скачаю его. Вроде бы он стал еще тяжелее.

Что касается анаал натракха, то альбом у них неполный, часть фрагментов отсутствует. Жду 26 июня.

3Xomen

Wed, 10 Jun 2009 18:43:59 GMT

Да, я сдал историю. Было нелегко, но все же. Хотя произошла непредвиденная халява - почти полные баллы за экзамен при том, что более половины ответа отсутствует.
Мне привезли коммутатор. Теперь наконец-то сижу в нете со своего ноута, а не с некошерного соседнего компа. Этому факту я рад больше, чем сдаче экзамена.
По поводу ~~пикчи~~ картины - отличнейший альбом. Хотя Orchid мне нравится больше
Только что прочитал последнюю главку берсерка. Отсутствие диалогов меня пугает :( Хотя Гатса с командой показали.

Скучные посты в последнее время пошли. Надо что-то менять

In The Constellation Of The Black Widow

Fri, 05 Jun 2009 15:38:36 GMT

Ну-с, я удачно сдал первый экзамен(матан) на 5. Осталось еще 3, следующий 10го, история.
Теперь про картинку. Для скачивания доступен новый альбом мясников-ухорезов Anaal Nathrakh. Описывать это, как всегда, бесполезно. Стало, впрочем, более похоже на первый альбом. Наверное. Я смог дослушать до половины из-за того, что у меня голова болела. После чего мне хотелось блевать кровью и убивать недочеловеков. Альбом не рекомендуется людям со слабыми нервами!!11!!

Музыка ^_^

Fri, 22 May 2009 15:44:07 GMT

1) TPH выложили 1 песню со своего нового альбома The Lustrate Process, который выйдет 6 июля. Песня хорошая, надо заметить :) Джо показывает новые приёмы своего голоса, гроулер как всегда на высоте (спасибо Дэну Свано, он знает свое дело :) ). Однако стало меньше клавиш (даже по сравнению с последними альбомами, в первых они делили место пополам с гитарами), и музыка дэтовее, так сказать.
Скачать её можно у них на сайте в Downloads. В новостях также указана ссылка на MegaUpload, но он не работает.
С этой песней у меня связан один глюк. Когда я качал её, я периодически прослушивал её. И там были фрагмент, которые отсутствовал в финальной версии. Его качество записи музыки отличалось. Он напоминал (ОЧЕНЬ!) MDB,в том числе и вокалом. Чистый вокал отсутствует в финалке, но заявлен вообще на этой песне.
Я никогда с этим не сталкивался.

2) Skyforger вышел. По музыке - Amorphis, мелодии очень похожи на те, что были в двух предыдущих альбомах, особенно в Silent Waters. Но это не мелочь. Томи поёт (да, поёт. Рычит он редко, но музыка слишком мелодична для гроула), по-моему, намного лучше, чем до этого. Остальные, впрочем, тоже на высоте.
Мне почему-то показалось, что лиричных моментов, даже несмотря на наличие вполне жестких (относительно) трэков, уж слишком много. Хорошая музыка для тех, кто не любит напрягать свои ушки ;)

The Technogoat. Релиз первый. Отчет.

Mon, 18 May 2009 10:51:01 GMT

Отчет

Задание

Написать программу, выполняющую функцию main с заданными параметрами. Текст программы находится как минимум в одном файле, список файл находится в файле include, длина пути к файлу не превышает 200 символов. Параметры задаются в файле vars, имена параметров указывается в программе(ах), количество чисел в vars должно совпадать с числом параметров функции main. Ограничений на количество функций, переменных, параметров функции, длин имен функций и переменных нет. В случае ошибки создается файл error.log, в котором указывается ошибка и где она появляется. Полный список ошибок приведен в конце. В коде программы возможны комментарии. Переменная объявляется автоматически при присваивании ей какого-либо выражения. Большие и маленькие символы различны. В качестве операторов могут использоваться присваивания, другие функции, в том числе и main, а также if (условный оператор) и while (цикл с предусловием). Переменные имеют только один тип – целый. Операторы должны заканчиваться После работы программы и в случае ошибки память очищается. Конечные значения переменных функции main и их имена выводятся в файл output.txt.

Алгоритм работы программы

Открываем файла include. Если он недоступен, программа выводит ошибку и прекращаем работу программы.
Читаем список файлов, необходимых для работы программы, и для каждого элемента, входящего в список, читаем соответствующий файл программы.
В процессе чтение файла программы заносим функции в список функций, заодно указываем имя функции и список параметров.
Если уже существует функция с таким именем, или существует несколько одноименных параметров, или количество (символов открытию блока) не соответствует количеству (символов закрытия блока), или между кодами функции обнаружен посторонний символ, или в имени функции или параметра обнаружен посторонний символ, или имя параметра не включает символов, то выводим соответствующую ошибку и прекращаем работу программы.
Создаем стек функций, заносим туда main, значения параметров читаем из файла vars. Если количество указанных в файле значений параметров не совпадает с количеством параметров функции или файл недоступен, то выводим соответствующую ошибку и прекращаем работу программы.
Начинаем выполнение функцию main. Если же она не указана ни в одном из файлов, выводим соответствующую ошибку и прекращаем работу программы.
Пропускаем символы переноса строк и пробелы и читаем название переменной или функции. Если в названии встречается посторонний символ, выводим соответствующую ошибку и выходим из программы.
В зависимости от того, является ли символ или ищем соответствующую функцию в списке и читаем параметры или же выполняем выражение до Если имя функции – или выполняем выражение внутри скобок.
Если функция – “while”, то выполняем блок после функции до тех пор, пока выражение истинно, или переходим на позицию после ; и переходим к шагу 7.
Если функция – то выполняем первый блок после функции, если выражение истинно. В противном случае выполняем второй блок после функции, если он есть. После этого переходим на позицию после ; и переходим к шагу 7.
Выражение может быть трех типов – арифметическое, логическое, сравнительное. В логическом выражении возможны знаки (и), (или) и (логическое отрицание). В арифметическом – В сравнительном – Между знаками расположены числа или переменные. Знаки определяют тип выражений. Возможно применение скобок внутри выражения, причем тип выражения внутри скобок может быть отличным от типа вне скобок. Пример подобного выражения: ((3+4*(5&!6)-10*20)>=(1+2*3-(5|6))). В логических выражениях возвращается 1, если оно истинно, или 0, если ложно.
В функциях при встрече завершаем чтение параметров и выполняем функцию. Количество заданных параметров для вызываемой функции должно совпадать с количеством параметров соответствующей функции из списка. После этого передаем изменяющимся переменным их новые значения. После должно идти После выполнения переходим на шаг 7.
Если встречаем переходим на символ после блока в следующем блоке. Если блоков не осталось, завершаем выполнение функции.
После выхода из функции main выводим значения переменных.

Структуры, использующиеся в программе

struct sfile //Структура для списка файлов программ
{
char path[200];
sfile *next;
};

struct symb //Просто символ. Используется в тексте программы, именах различных объектов
{
char v;
symb *next,*prev;
int col,row;
sfile *file;
};

struct svar //Переменная
{
symb *name;
long ival; //Значение, если тип - целый
svar *next;
};

struct svararr //Список переменных, необходимых для передачи значений одной и той же переменной из одной функции в другую
{
svar *v1,*v2;
svararr *next;
};

struct sblock //Структура, описывающая блок
{
int type; //0 - обычный блок, 1 - цикл
symb *start, *finish;
sblock *next;
};

struct scalc //Структура, необходимая для вычисления выражений
{
int val1,val2;
char zn1,zn2; //отрицать или нет, больше/меньше/равно
scalc *next;
};

struct sfunc //Указатели на функции. Для быстрого перемещения по коду программы
{
symb *name;
symb *start;
svar *fvar;
sfunc *next;
sblock *block;
svararr *vararr;
scalc *calc;
};

Функции, использующиеся в программе

void errorout(char *errmsg, symb *s); //Вывод сообщения об ошибке
void delsymb(symb *&fsymb); //Удаление строки
void delblock(sblock *&fblock); //Удаление стека блоков
void delcalc(scalc *&fcalc); //Удаление стека для вычислений
void delvar(svar *&fvar); //Удаление набора переменных
void delvararr(svararr *&fva); //Удаление массива переменных
void delfile(sfile *&ffile); //Удаление списка файлов
void symbtochar(symb *first,char *&res); //Преобразование из списка символов в строку
void delfunc(sfunc *&ffunc); //Удаление списка функций
void strcopy(symb *source, symb *&dest); //Копирование списка символов в другой
int strcomp(symb *fs1, symb *fs2); //Сравнение строк, вторая строка - список символов
int strcompchar(symb *fs1, char *fs2); //Сравнение строк, вторая строка - массив символов
int funccheck(sfunc *ff1, symb *s2); //Проверка на повторение процедур
int varcheck(svar *ff1, symb *s2); //Проверка на повторение переменных
void addvar(svar *&fvar, symb *&name, int intval); //Назначаем значение переменной, или //добавляем новую, если нет
int findvar(svar *fvar, symb *name, int &intval); //Поиск переменной из списка и возвращение //её значения
void inpinclude(char *filename); //Ввод кода из файла
void execute(sfunc *&stf, char *funame, svar *&fvar); // Выполнение первой из стека функции

Части кода программы

Код выполнения выражения

case 2: case 4: case 5: //Выполняем выражение
switch (state2)
{
case 6: //Ищем блок, соответствующий циклу
if (f->v!=';') //После блока должно идти ;
{
errorout("Wrong symbol instead of ;",c);
delsymb(fleft);
delfunc(stf);
delfunc(ffunc);
delfile(ffile);
delsymb(fscode);
exit(0);
}
if (m==1) //Если условие выполняется, выполняем операторы из блока
{
sblock *bl=new sblock;
bl->type=1;
bl->start=s;
bl->finish=f;
bl->next=stf->block;
stf->block=bl;
}
else
c=f; //Пропускаем блок
state2=0;
state=0;
}
break;
case 0: case 5: //Читаем часть выражения или знак после > или <
if (state2==5&&(c->v=='='||c->v=='>')) //Меняем оператор сравнения
{
if (state2==0&&c->v=='!'&&(stf->calc->zn1=='0'||stf->calc->zn1=='&')) //Если выражение //логическое, отрицаем следующую часть
stf->calc->zn1='!';
else
if (c->v=='-'&&stf->calc->zn1=='0') //Если выражение арифметическое, берем //следующую часть с противоположным знаком
stf->calc->zn1='-';
else
if (c->v>='0'&&c->v<='9') //Читаем число
{
m=c->v-'0';
state2=1;
}$
else
if (c->v>='a'&&c->v<='z'||c->v>='A'&&c->v<='Z'||c->v=='_') //Читаем имя переменной
{
fright=new symb;
fright->v=c->v;
fright->next=0;
tright=fright;
state2=2;
}
else
if (c->v=='(') //Открываем скобку, вычисляем выражение внутри {
Читаем число
m=m*10+c->v-'0';
else
if (state2==2&&(c->v>='a'&&c->v<='z'||c->v>='A'&&c->v<='Z'||c->v=='_'||c->v>='0'&&c->v<='9')) //Читаем имя переменной
{
tright->next=new symb;
tright=tright->next;
tright->v=c->v;
tright->next=0;
}
else
{
if (state2==2) //Если использовалась переменная, берем значение
{
int p=findvar(fvar,fright,m);
delsymb(tright);
if (p==0)
{
Если выражение арифметическое, //вычисляем в зависимости от знака
{
if (stf->calc->zn2=='0')
stf->calc->zn2='*';
if (stf->calc->zn2=='*') //Умножаем или делим число на уже полученное //произведение/частное остальных множителей в группе
stf->calc->val2*=m;
else
if (stf->calc->zn2=='%')
stf->calc->val2%=m;
else
stf->calc->val2/=m;
if (c->v=='*'||c->v=='/'||c->v=='%')
stf->calc->zn2=c->v; //Меняем знак, если надо
if (stf->calc->zn1=='0')
stf->calc->zn1='+';
if (c->v=='+'||c->v=='-'||c->v==')'||c->v==';') //Складываем произведение или частное //группы с остальными группами в выражении
{
if (stf->calc->zn1=='+')
stf->calc->val1+=stf->calc->val2;
else
stf->calc->val1-=stf->calc->val2;
stf->calc->zn2='*';
stf->calc->zn1='+';
if (c->v=='-') //Меняем знак, если надо
stf->calc->zn1='-';
stf->calc->val2=1;
}
state2=0;
}
else
if ((c->v=='>'||c->v=='<'||c->v=='=')&&stf->calc->zn1=='0')//Делаем выражение //сравнительного типа
{
stf->calc->val1=m;
stf->calc->zn1=c->v;
state2=5;
m=0;
}
else
if ((stf->calc->zn1=='='||stf->calc->zn1=='>'||stf->calc->zn1=='<'||stf->calc->zn1=='('||stf->calc->zn1==')'||stf->calc->zn1=='x')&&(c->v==')'||c->v==';')) //Если выражение сравнительное //и мы достигли ) или ;
{
stf->calc->val2=m;
m=0;
switch (stf->calc->zn1)
{
case if (stf->calc->val1==stf->calc->val2)
m=1;
break;
case if
}
else
if ((c->v==';'||c->v==')'||c->v=='&'||c->v=='|')&&(stf->calc->zn1=='0'||stf->calc->zn1=='&'||stf->calc->zn1=='!')) //Если выражение логическое
{
if (stf->calc->zn1=='!') //Отрицаем выражение, если надо
if (m!=0)
m=0;
else
m=1;
if (m!=0)
m=1;
stf->calc->val2*=m; //Выполняем логическое умножение для группы множителей
state2=0;
m=0;
if (c->v=='|'||c->v==')'||c->v==';') //Логически складываем группы
{
stf->calc->val1+=stf->calc->val2;
stf->calc->val2=1;
if (stf->calc->val1!=0)
stf->calc->val1=1;
}
}
else
{
errorout("Wrong symbol in expression",c);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delsymb(fleft);
delfile(ffile);
exit(0);
}
if (c->v==')'||c->v==';') //Передача значения выражения
{
m=stf->calc->val1;
scalc *c1=stf->calc->next;
delete stf->calc;
stf->calc=c1;
if (c1==0&&c->v==';'&&state==2) //Добавляем переменную, если оператор - //вычисление выражения
{
addvar(fvar,fleft,m);
state=0;
state2=0;
}
else
if (c1==0&&c->v==')'&&state==4) // Ищем блоки, если это оператор - while или ifs
state2=4;
else
if (c1==0&&c->v==')'&&state==5)
state2=6;
else
if (c1!=0&&c->v==')') //Если еще осталось что вычислить, передаем значение //выражения
state2=3;
else
{
errorout("Wrong symbol in expression",c);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delsymb(fleft);
delfile(ffile);
exit(0);
}
}
}
break;
case 4: //Ищем блоки, необходимые для условия
delsymb(fleft);
symb *s1,*s2,*f,*s;
s=c;
;
}
else
if (s->v==';'&&st==1&&k==0) //Если для условия есть только 1 блок
st=4;
else
if (st!=0&&s->v=='}')
k--;
if (k==0&&st==2)
st=3;
s=s->next;
}
if (s==0) // Отсутствует второй блок или ; после }
{
errorout("New block or ; needed",s);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delsymb(fleft);
delfile(ffile);
exit(0);
}
if (st==3&&s->v!=';') //После блока должно идти ;
{
errorout("Wrong symbol in text",s);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delsymb(fleft);
delfile(ffile);
exit(0);
}
f=s; //Создаем соответствующий блок
sblock *bl=new sblock;
bl->type=0;
bl->finish=f;
bl->next=stf->block;
if (m!=0)
bl->start=s1;
else
if (st==3)
bl->start=s2;
if (st==4&&m!=0||st==3) //Если необходимо, переставляем указатель внутрь блок
{
stf->block=bl;
c=stf->block->start;
}
else
{
delete bl;
c=f;
}
state=0;
state2=0;
break;
}
break;

Код чтения параметров функции и выполнения

case 3: //Чтение параметров функции и выполнение
switch (state2)
{
case -1:
if (c->v==';'&&v3==0) //Заканчиваем чтение оператора
{
state=0;
state2=0;
}
else
{
errorout("Wrong symbol instead of ;",c);
delsymb(fleft);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delfile(ffile);
delvar(bufvar);
exit(0);
}
break;
case 0:
if (c->v==')'&&v3==0&&l==0) //Если параметров нет
{
char *fname=0;
symbtochar(fleft,fname);
execute(stf,fname,bufvar); //Выполняем функцию
state2=-1;
delsymb(fleft);
svararr *l=stf->vararr;
while (l!=0)
{
l->v1->ival=l->v2->ival;
l=l->next;
}
delvar(bufvar);
delvararr(tfunc->vararr);
}
else
if ((c->v>='a'&&c->v<='z'||c->v>='A'&&c->v<='Z'||c->v=='_')&&v3!=0) //Начинаем чтение //имени переменной
{
state2=1;
fright=new symb;
fright->v=c->v;
fright->next=0;
tright=fright;
l=1;
}
else
if (c->v>='0'&&c->v<='9'&&v3!=0&&v3->ival==0) //Читаем число в качестве параметра
{
state2=3;
m=c->v-'0';
l=1;
}
else
{
errorout("Wrong symbol in function parameters",c);
delsymb(fleft);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delvar(bufvar);
delfile(ffile);
exit(0);
}
break;
case 1:
if (c->v>='a'&&c->v<='z'||c->v>='A'&&c->v<='Z'||c->v=='_'||c->v>='0'&&c->v<='9') //Продолжаем чтение имени переменной
{
tright->next=new symb;
tright=tright->next;
tright->next=0;
tright->v=c->v;
}
else
if (c->v==','||c->v==')') //Заканчиваем чтение имени переменной
{
svar *v4=fvar;
while (v4!=0&&strcomp(v4->name,fright)==0)
v4=v4->next;
if (v4==0) //Переменная не найдена
{
errorout("Non-exist variable in function parameters",c);
delvar(bufvar);
delsymb(fleft);
delsymb(fright);
delfunc(stf);
delfunc(ffunc);
delfile(ffile);
delsymb(fscode);
exit(0);
}
if (bufvar==0) //Добавляем в новый список переменных для вызываемой функции
{
bufvar=new svar;
tekvar=bufvar;
}
else
{
tekvar->next=new svar;
tekvar=tekvar->next;
}
tekvar->ival=v4->ival;
tekvar->next=0;
strcopy(v3->name,tekvar->name);
delsymb(fright);
state2=0;
if (v3->ival==1) //Если необходимо изменять значение переменной после вызова функции, добавляем адрес в список
{
if (stf->vararr==0)
{
stf->vararr=new svararr;
tva=stf->vararr;
}
else
{
tva->next=new svararr;
tva=tva->next;
}
tva->v1=v4;
tva->v2=tekvar;
tva->next=0;
}
v3=v3->next;
if (c->v==')')//Заканчиваем ввод параметров
{
if (v3!=0)
{
errorout("Not enough parameters",c);
delvar(bufvar);
delsymb(fleft);
delsymb(fright);
delfunc(stf);
delfunc(ffunc);
delfile(ffile);
delsymb(fscode);
exit(0);
}
char *fname=0;
symbtochar(fleft,fname);
execute(stf,fname,bufvar); //Выполняем функцию
state2=-1;
delsymb(fleft);
svararr *l=stf->vararr;
while (l!=0)
{
l->v1->ival=l->v2->ival;
l=l->next;
}
delvar(bufvar);
delvararr(tfunc->vararr);
state2=-1;
}
}
else
{
errorout("Wrong symbol in function parameters",c);
delvar(bufvar);
delsymb(fleft);
delsymb(fright);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delfile(ffile);
exit(0);
}
break;
case 3:
if (c->v>='0'&&c->v<='9') //Читаем число
m=m*10+c->v-'0';
else
if (c->v==','||c->v==')') //Заканчиваем чтение числа
{
if (bufvar==0) //Добавляем значение в список переменных
{
bufvar=new svar;
tekvar=bufvar;
}
else
{
tekvar->next=new svar;
tekvar=tekvar->next;
}
tekvar->ival=m;
tekvar->next=0;
strcopy(v3->name,tekvar->name);
state2=0;
v3=v3->next;
if (c->v==')') //Заканчиваем чтение параметра
{
if (v3!=0)
{
errorout("Not enough parameters",c);
delvar(bufvar);
delsymb(fleft);
delsymb(fright);
delfunc(stf);
delfunc(ffunc);
delfile(ffile);
delsymb(fscode);
exit(0);
}
state2=-1;
char *fname=0;
symbtochar(fleft,fname);
execute(stf,fname,bufvar); //Выполняем функцию
state2=-1;
delsymb(fleft);
svararr *l=stf->vararr;
while (l!=0)
{
l->v1->ival=l->v2->ival;
l=l->next;
}
delvar(bufvar);
delvararr(tfunc->vararr);
}
}
else
{
errorout("Wrong symbol in function parameters",c);
delvar(bufvar);
delsymb(fleft);
delfunc(stf);
delfunc(ffunc);
delsymb(fscode);
delfile(ffile);
exit(0);
}
break;
}
break;

Примеры программ

Вычисление НОД двух чисел
NOD(&result,a1,a2)
{
[Функция, вычисляющая НОД двух чисел]
while((a1>0)&(a2>0))
{
if(a1>a2)
{
a1=a1%a2;
}
{
a2=a2%a1;
};
};
result=a1+a2;
}
main(res,a,b)
{
NOD(res,a,b);
}

Рекурсивное вычисление НОД
NOD(&result,a1,a2)
{
[Функция, вычисляющая НОД двух чисел]
if((a1>0)&(a2>0))
{
if(a1>a2)
{
a1=a1-a2;
NOD(result,a1,a2);
}
{
a2=a2-a1;
NOD(result,a1,a2);
};
}
{
result=a1+a2;
};
}
main(res,a,b)
{
NOD(res,a,b);
}

Вычисление квадратного корня из целого числа

sqrt(k,&cel,&dr)
{
cel=0;
while((cel*cel)<=k)
{
cel=cel+1;
};
cel=cel-1;
des=1;
l=4;
dr=0;
while(l>0)
{
dr=dr*10;
des=des*10;
while(((dr+cel*des)*(dr+cel*des))<=(k*des*des))
{
dr=dr+1;
};
dr=dr-1;
l=l-1;
};
}

main(a)
{
cel=0;
dr=0;
sqrt(a,cel,dr);
}

Описания ошибок, которые могут возникнуть в ходе работы программы

Код программы
Ошибка
Описание

123a()
{
}

main()
{
}
Wrong first symbol of function name at 1:1 in prog1.rp
Название функции начинается не с того символа (оно должно начинаться с латинской буквы или знака подчеркивания)

f1:a()
{
}

main()
{
}
Wrong symbol in function name at 1:2 in prog1.rp
В названии функции присутствует запрещенный символ (вместо него должна быть цифра, латинская буква или знак подчеркивания)

_Aaa123(%)
{
}

main()
{
}
Wrong symbol in parameter name at 1:8 in prog1.rp
Параметр функции начинается не с того символа (а должно оно начинаться с или латинской буквы)

_Aaa123(&_aAa123,_aAa123)
{
}

main()
{
}
Forbidden using variable name twice at 1:12 in prog1.rp
У функции встречаются два параметра с одинаковыми именами

_Aaa123(&_aAa123)
{

main()
{
}
Unfinished block of function at 7:2 in prog1.rp
Количество и для функции не совпадает(надо закрыть все незакрытые блоки в функции)

_Aaa123(&_aAa123)
{
}
_Aaa123(&_aAa123)
{
}
main()
{
}

Forbidden using function name twice at 5:8 in prog1.rp
В коде встречаются две функции с одинаковыми именами

Текст отсутствует
Problem with opening program file prog1.rp
Файл с кодом недоступен

Текст отсутствует
Problem with opening include file
Файл с списком включаемых файлов недоступен

Текст отсутствует
Problem with opening variable file
Файл с списком значений параметров отсутствует

Текст отсутствует
There is too many values in variable file
В файле значений переменных указано слишком много переменных

Текст отсутствует
There is not enough values in variable file
В файле значений переменных указано недостаточно переменных

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ ?NOD(res,a1,a2);}
Wrong symbol as operator first symbol at 19:2 in prog1.rp
Имя функции или переменной начинается не с того символа

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ N?OD(res,a1,a2);}
Wrong symbol in operator left part at 19:3 in prog1.rp
В имени функции находится запрещенный символ

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ a3=5; NOD(res,a1,a2,a3);}

Wrong symbol in function parameters at 14:16 in prog1.rp
В параметрах функции обнаружен посторонний символ – в этом случае тут вводится лишний параметр

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ NOD(res,a?,a2);}
Wrong symbol in function parameters at 13:11 in prog1.rp
В параметрах функции обнаружен посторонний символ

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ NOD(res,a2);}
Not enough parameters at 12:13 in prog1.rp
Введено недостаточно параметров для запуска функции

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ NOD(res,a,a2);}
Non-exist variable in function parameters at 12:12 in prog1.rp
Введена несуществующая переменная в качестве параметра

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}

main(res,a1,a2)
{ NOD(15,a1,a2);}

Wrong symbol in function parameters at 12:7 in prog1.rp
В качестве должна быть введена переменная, а не число

NOD(&result,a1,a2)
{
while((a1>0)&(a2>0))
{ if(a1>a2)
{ a1=a1%a2; }
{ a2=a2%a1; };
};
result=a1+a2;
}
main(res,a1,a2)
{ NOD(res,a1,a2)}
Wrong symbol instead of ; at 12:17 in prog1.rp
После должна идти точка с запятой

main(res,a1,a2)
{ NOD(res,a1,a2);}
Attempt to execute non-exist function at 2:6 in prog1.rp
Нельзя вызывать неописанные функции

main(res,a1,a2)
{
res=a1+a;
}
Operation with non-exist variable at 3:10 in prog1.rp
В выражении используется неописанная функция

main(res,a1,a2)
{
res=a1+a2&6;
}
Wrong symbol in expression at 3:11 in prog1.rp
В выражении используется запрещенный символ – в выражении арифметического типа используется логическая операция

main(res,a1,a2)
{
res=((a1+a2);
}
Wrong symbol in expression at 3:14 in prog1.rp
В выражении используется запрещенный символ – лишняя открывающая скобка

main(res,a1,a2)
{
res=(a1+a2));
}
Wrong symbol in expression at 3:13 in prog1.rp
В выражении используется запрещенный символ – лишняя закрывающая скобка

main(res,a1,a2)
{
res=a1+ф;
}
Wrong symbol in expression at 3:9 in prog1.rp

выражении используется запрещенный символ

main(res,a1,a2)
{
if(a1>a2)
res=a1;
}
Wrong symbol in text at 4:3 in prog1.rp
Отсутствуют скобки, необходимые для условия(все, что касается условий, касается и цикла)

main(res,a1,a2)
{
if(a1>a2)
{
res=a1;
}
}
New block or ; needed
Отсутствует второй блок или ;, необходимые для условия

main(res,a1,a2)
{
if(a1>a2)
{
res=a1;
}
{
}
{
};
}
Wrong symbol in text at 8:2 in prog1.rp
После второго блока условия должна быть точка с запятой

main(res,a1,a2)
{
if(a1>a2)
{
res=a1;
}
фы
{
};
}
Wrong symbol in text at 7:1 in prog1.rp
Запрещенный символ между блоками