Преведно-ориентированный язык

Преве́дно-ориенти́рованный язы́к — специальный язык, используемый падонками для обращения с молитвами к Великому Медведу. Впоследствии использован фирмами НекроСофт и Багланд для написания компьютерных программ.

Рекоммендован для всеобщего изучения Малым Медведом.

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

Object Preved

превед Анегдоднах;

амонявзядъ ПреведГУИ, МедведПервыйнах, Лез32, Учаснеги;

типапревед
   ТэМойМедвед = Я (ТэМедвед)
   комрад
      ПапаМедвед: ТэМедвед;
      МамаМедвед: ТэМедвед;
   бублиг
      кагдила Родид(Папа, Мама: ТэМедвед);
      кагдила Писец; папойвыдан;
      кагдила Идинах(Куданах: ТэУрл); папойвыдан;
   кончел;

кагдила ТэМойМедвед.Родид(Папа, Мама: ТэМедвед);
начел
   ПапаМедвед:=Папа;
   МамаМедвед:=Мама; // Пох шобзнал!
кончел;

кагдила ТэМойМедвед.Писец;
начел
   Ахтунг('Низя убид мой Медвед!!!','Идите фтопку',ИКОН_ИДИНАХ);
кончел;

// Пох карочи праграма

типа
   моймедвед: ТэМойМедвед:
   мужыг: ТэУчаснег;
   тъйодка: ТэУчаснег;
   лез: ТэЛез32;

начел
   ёпт
      лез:=ТэЛез32.Родид([йолки,соснынах,дубы,бирьозы,трава,поляно]);
      моймедвед:=ТэМойМедвед.Родид(livejournal,ru_preved);
         // Пох низабаяниваимые канстанты!
      моймедвед.Идинах(лез.Туданах('поляно'));
      мужыг:=ТэУчаснег.Родид();
      тъйодка:=ТэУчаснег.Родид();
     ежели мужыг===тъйодка тоды
      начел
         // Неправельный тъйодка, тъйодка=мужыг, медвед не может идти!
           пидар.всего++';       
           моймедвед.неИдёд';
           тъйодка:=ТэУчаснег.Родид();           
      кончел;
      лез.Вставить(мужыг,Туданах('поляно'));
      лез.Вставить(тъйодка,Туданах('поляно'));
      мужыг.Вставить(тъйодка);
      ежели мужыг.Нивставляет тоды
      начел
         // Пох и здесь пидарасынах!
         Ахтунг('У вас в системе неправельный мужыг, '+
            'пастафьте себе пакет Учаснег-dev-2.1.11',            
            'Ахтунгбля',ИКОН_АХТУНГ);
         бамбить;
      кончел;
      моймедвед.Идёд;
      мужыг.Reposition; // Пох идинственая албанская команда в "Преведе"…
      моймедвед.Подняд(моймедвед.Рука.Л);
      моймедвед.Подняд(моймедвед.Рука.П);
      моймедвед.Сказад('ПРЕВЕД!');
   ухёпт
      Ахтунг('Шотозафигня случилосо с праграмай, вазможна, '+
         'ваш камог кетайского праизводства… Смините моск!',
         'Ужоснах',ИКОН_АХТУНГ);
   кончел;
кончел. // Всёнах, писец

Preved++

#фтыкай <ёстрим>
#фтыкай <дууст/перформанс.хпп> // типа иди учить дууст.орк

баян <типанейм Медвед, типанейм Учаснег> класс Превед: виртуал бублиг Дууст::Перформанс<Учаснег>
{
превед:
  Учаснег м,ж;
  Медвед медвед;
бублиг:

  Превед(Учаснег мужыг, Учаснег тётка, Медвед м_медвед = Медвед()): м(мужыг), ж(тётка), медвед(м_медвед) 
  {
     ифф(!ж.пушбэк(м)) // если м нисмог впушбэк ж
         сру стд::экзепшн("Ахтунг! У вас ф системе неправельный мужыг,пастафьте сибе пакед Учаснег-dev-2.1.11");
  }
  ~Превед();
};

ПРВД и ЖабаСкрипт

<ПРВД>
 <БАШКА>
	<херувидеш менед-самтакой="шоце-таке" шоце="пысьмо/првд;  штырлыц="форточка1251" />
	<херувидеш атыкто="тыузнаешеёпо" шоце="превед,медвед,менед" />
	<пшёлна кито="морда моя" куда="/держыморд.мрд" />
	<пшёлна кито="комубабло" куда="менед://жжж.некразовд.гом/папамедвед.првд" />
        <?пох 
        какбе Ахтунг($Медвед)
         {
        есля $Медвед !== 'Превед' то $Медвед=$Ццуко
        пиши '"$Ццуко" - идинах'
         }
        ?>
	<ахтунг>Премерр дакумента ПРВД</ахтунг>
	<скрипит кито="ЖабаСкрипт" гиде="гиде-то-там">
	 фунцыклируй пример_скрипения(шотаке)
	  {
	   есля(шотаке=='закачалась') паказать(дакумент.всё.ахтунг+' закачалась харашо и жаба скрипит тожа неплоха');
	   есля(шотаке=='нажал') дакумент.всё.первыйнах.напись="О,великий ПРЕВЕД!";
	  }
	</скрипит>
 </БАШКА>
 <ВСЕТУТ наканец="пример_скрипения('закачалась')">
	<забор гиде="усиридин"><Ж><М><кросавчег какой="#МЕДВЕД" вес="36">Превед планед!</кросавчег></М></Ж></забор>
        <типун типа="батон" цыфирь="первыйнах" напись="нажми!" нажамшы="пример_скрипения('нажал')">
 </ВСЕТУТ>
 </ПРВД>

Ссылки

• Полностью работающий код, NecroSoft Visual Medved 8 only