#!/usr/bin/perl
#Perekodiruet vnutrennie soobsheniya TEX'a (Overfull i Underfull) 
#c ANSI v KOI8-R
#Pri ehtom esli v log-fajle bolee odnoj pustoj stroki podryad, 
#to na vyhchode budet toljko odna

#(C) Anna Shipunova. E-mail: anna@shipunov.dnttm.ru

#version 1.3, ÂÏÌÅÅ ÔÏÞÎÏ ÚÁÄÁÎÁ ÏÂÌÁÓÔØ

#BEGIN {$/=""}

while(<>){
  if((/Overfull/ || /Underfull/) .. /^$/)
  {tr/ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ/áâ÷çäåöúéêëìíîïðòóôõæèãþûýÿùøüàñÁÂ×ÇÄÅÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝßÙØÜÀÑ/;}
  print;
}

#