czplain.bst

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Projekt:     IBP - Bakalarska prace
% Nazev prace: BibTeX styl pro CSN ISO 690 a CSN ISO 690-2
% Autor:       Radek Pysny, xpysny00
% URI:         http://www.fit.vutbr.cz/study/DP/BP.php?id=7848
%
% Soubor:      czplain.bst (vznikl upravou plain.bst)
% Datum:       Vytvoren 15. unora 2009.
%              Posledni uprava 10. kveten 2009, 16:55.
%              Adam Herout upravil pro šablonu BP/DP FIT: 31.7.2019
%              Jaroslav Dytrych uvedl do souladu s normou 
%                pro šablonu BP/DP FIT: 10.10.2019
% Popis:       Český bibliografický styl.
% Pouziti:
% Kodovani:    UTF-8
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% VOLBY PRO NASTAVENI BIBLIOGRAFICKEHO STYLU %%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% -- Maximalni pocet zpracovanych autoru.
% Pokud obsahuje polozka author seznam o vice nez opt.aa autoru, objevi se
% v bibliograficke citaci prave opt.aa autoru. Tento vycet autoru bude zakoncen
% retezcem urcenym volbou opt.etal.
% FUNCTION {opt.aa} { #3 }
% FUNCTION {opt.aa} { #4 }
FUNCTION {opt.aa} { #5 }
% FUNCTION {opt.aa} { #99 }


% -- Maximalni pocet zpracovanych editoru.
% Analogie k volbe opt.aa.
% FUNCTION {opt.ae} { #1 }
% FUNCTION {opt.ae} { #2 }
% FUNCTION {opt.ae} { #3 }
% FUNCTION {opt.ae} { #4 }
FUNCTION {opt.ae} { #5 }

% -- Oddelovac mezi jednotlivymi jmeny ve vyctu.
% Pouziva se pro spojeni jmen ve vyctu. Vyjimkou jsou posledni dve jmena, ktera
% jsou spojena pomoci retezce urceneho volbou opt.sep.ln.
FUNCTION {opt.sep.bn} { ", " }
% FUNCTION {opt.sep.bn} { " -- " }

% -- Oddelovac mezi poslednimi dvema jmeny ve vyctu.
FUNCTION {opt.sep.ln} { " a~" }
% FUNCTION {opt.sep.ln} { " -- " }

% -- Naznak nedokonceneho vyctu jmen.
% Pokud byl presazen pocet jmen danych limitujicimi volbami opt.aa nebo opt.ae.
% Dale se pouzije tehdy, kdyz je misto posledniho jmena pouzito klicove slovo
% "others".
FUNCTION {opt.etal} { "et~al." }
% FUNCTION {opt.etal} { "aj." }
% FUNCTION {opt.etal} { "a kol." }

% -- Oznaceni editora (redaktora).
% Jmena editoru jsou od autoru odlisena retezcem danym touto volbou.
FUNCTION {opt.ed} { "ed." }
% FUNCTION {opt.ed} { "(ed.)" }
% FUNCTION {opt.ed} { "(red.)" }
% FUNCTION {opt.ed} { "" }

% -- Pouzivat oznaceni editora (redaktora) za kazdym jmenem.
% Urcuje, kde se pouzije oznaceni opt.ed. Bud lze pouzit oznaceni za kazdym
% jmenem nebo jen na konci prvku.
FUNCTION {opt.ed.all} { #0 }     % pouze na konci prvku
% FUNCTION {opt.ed.all} { #1 }    % za kazdym jmenem

% -- Oddelovac mezi prvky primarni odpovednost a titul.
FUNCTION {opt.sep.a} { "." }
% FUNCTION {opt.sep.a} { ":" }

% -- Oddelovac mezi mistem a vydavatelem (popr. skolou nebo instituci).
FUNCTION {opt.sep.p} { ": " }
% FUNCTION {opt.sep.p} { " : " }
% FUNCTION {opt.sep.p} { ", " }

% -- Oddelovac mezi titulem a podtitulem.
% Je-li zadan titul i podtitul, je tento retezec pouzit jako oddelovac mezi
% temito prvky.
FUNCTION {opt.sep.t} { ": " }
% FUNCTION {opt.sep.t} { " : " }

% -- Oznaceni rozsahu u akademickych praci.
% U akademickych praci mate pomoci teto volby moznost urcit, zda-li bude rozsah
% techto praci udavan ve stranach nebo v listech.
FUNCTION {opt.pages} { "s." }    % pocet stran
% FUNCTION {opt.pages} { "l." }   % pocet listu

% -- Zacatek prvku dostupnost.
% Tento prepinac ovlivnuje text, ktery bude zobrazen pred URL adresou.
% FUNCTION {opt.url} { "" }
% FUNCTION {opt.url} { "Dostupn{\'{e}} na: " }
FUNCTION {opt.url} { "Dostupn{\'{e}} z: " }
% FUNCTION {opt.url} { "Dostupn{\'{e}} na WWW: " }

FUNCTION {opt.path} { "Path: " }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%% DEKLARACE POLOZEK A PROMENNYCH %%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Polozky, ktere jsou stylem akceptovany a zpracovany.
ENTRY
  { address
    author
    booktitle
    booksubtitle    % podtitul knihy (napr u sborniku)
    cited           % datum citace
    contributory    % podrizena odpovednost
    day
    doi
    edition
    editionnumber   % cislo edice
    editor
    howpublished    % druh nosice
    chapter
    institution
    inserts         % pocet stran priloh
    isbn            % standardni cislo
    issn            % standardni cislo
    journal
    journalsubtitle
    key
    location
    month
    note
    number
    organization
    path
    pages
    publisher
    revised         % datum revize/aktualizace
    secondarytitle  % nazev vedlejsi webove stranky
    school
    series          % název edice
    subtitle        % podtitul
    supervisor      % vedoucí (u akademické práce)
    time            % čas publikování
    title
    type
    url             % dostupnost
    version         % verze u el.dok.
    volume
    year
  }
  { }
  { label }

% Celocislene promenne. U kazde (krome konstant, ktere jsou pouze inicializovany
% ve funkci init.state.consts -- before.all, mid.sentence, after.sentence,
% after.block) jsou vyjmenovany funkce, kde dochazi ke zmenam dane promenne.
%
% output.state -- output.nonnull, output.bibitem, new.block, new.sentance
%
% ord -- is.ord
%
% ptr, i, x -- str.to.int
%
% numnames, namesleft, nameptr -- format.names, format.names.ed,
%                                 sort.format.names
INTEGERS { output.state before.all mid.sentence after.sentence after.block
           ord ptr i x numnames namesleft nameptr }

% Retezcove promenne. U kazde jsou vyjmenovany funkce, kde je promenna menena.
%
% s -- output.nonnull, format.names, format.names.ed, format.journal.issue,
%      format.thesis.info, format.thesis.range, chop.word, sort.format.names
%
% t -- output.check, dashify, str.to.int, format.names, format.names.ed,
%      format.full.date, sort.format.names, sort.format.title
%
% u -- is.ord, tie.or.connnect, comma.connect
STRINGS { s t u }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%% DEFINICE ZKRATEK -- CESKE NAZVY MESICU %%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

MACRO {jan} {"leden"}

MACRO {feb} {"únor"}

MACRO {mar} {"březen"}

MACRO {apr} {"duben"}

MACRO {may} {"květen"}

MACRO {jun} {"červen"}

MACRO {jul} {"červenec"}

MACRO {aug} {"srpen"}

MACRO {sep} {"září"}

MACRO {oct} {"říjen"}

MACRO {nov} {"listopad"}

MACRO {dec} {"prosinec"}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% MIRNE UPRAVENE FUNKCE PREVZATE Z plain.bst %%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Inicializace konstant nutnych pro spravnou funkci samotneho stylu.
%
% void init.state.consts ()
% {
%   int before.all = 0;
%   int mid.sentence = 1;
%   int adter.sentence = 2;
%   int after.block = 3;
% }
FUNCTION {init.state.consts}
{ #0 'before.all :=
  #1 'mid.sentence :=
  #2 'after.sentence :=
  #3 'after.block :=
}

% Vystup jiz formatovaneho pole, ktere je urcite neprazdne. Format vystupu je
% ovlivnen vystupnim stavem (tj. stavovou promennou output.state). Samotny
% vystup je zpozdeny (k vytisteni aktualni hodnoty dojde az pri pristim volani
% teto funkce) kvuli rozhodovani o pouzitem oddelovaci (carka nebo tecka).
%
% void output.nonnull ()
% {
%   s = pop();
%   if (output.state == mid.sentence)
%   {
%     write(pop() * " ");    // zde byla carka!!!
%   } else
%   {
%     if (output.state == after.block)
%     {
%       write(add.period(pop()));
%       flush();
%       write("\newblock ");
%     } else
%     {
%       if (output.state == before.all)
%       {
%         write(pop());
%       } else
%       {
%         write(add.period(pop()) * " ");
%       }
%     }
%   }
%   push(s);
% }
FUNCTION {output.nonnull}
{ 's :=
  output.state mid.sentence =
    { " " * write$ }                %% Uprava: Nahrada ", " za " "!
    { output.state after.block =
        { add.period$ write$
          newline$
          "\newblock " write$
        }
        { output.state before.all =
            { write$ }
            { add.period$ " " * write$ }
          if$
        }
      if$
      mid.sentence 'output.state :=
    }
  if$
  s
}

% Pri vyskytu neprazdne hodnoty na vrcholu zasobniku provede jeji vystup pomoci
% funkce output.nonnull. V opacnem pripade ji jen odstrani ze zasobniku.
%
% /** prepis do pseudokodu bez vyuziti zasobniku **/
% void output (string string.to.write)
% {
%   if (empty$(string.to.write))
%   { } else
%   {
%     output.nonnull(string.to.write);
%   }
% }
FUNCTION {output}
{ duplicate$ empty$
  { pop$ }
  { output.nonnull }
  if$
}

% Pri vyskytu neprazdne hodnoty na vrcholu zasobniku provede jeji vystup pomoci
% funkce output.nonnull. V opacnem pripade ji jen odstrani ze zasobniku
% a vypise na chybovy vystup varovani o chybejici hodnote. Pouziva se pro
% informovani uzivatele o chybejici hodnote, ktera je dle ceske normy povinna.
%
% /** prepis do pseudokodu bez vyuziti zasobniku **/
% void output.check (string type.of.field string string.to.write)
% {
%   t = type.of.field;
%   if (empty$(string.to.write))
%   {
%     warning$("empty" * t * " in " * cite$())
%   } else
%   {
%     output.nonnull(string.to.write);
%   }
% }
FUNCTION {output.check}
{ 't :=
  duplicate$ empty$
    { pop$ "empty " t * " in " * cite$ * warning$ }
    { output.nonnull }
  if$
}

% Vypise zacatek bibliograficke citace.
%
% void output.bibitem ()
% {
%   newline$();
%   write$("\bibitem{");
%   write$(cite$);
%   write$("}");
%   newline$();
%   push("");
%   int output.state = before.all;
% }
FUNCTION {output.bibitem}
{ newline$
  "\bibitem{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

% Zakonceni polozky (teckou).
%
% void fin.entry ()
% {
%   write(add.period$(pop()));
%   newline$();
% }
FUNCTION {fin.entry}
{ add.period$ write$
  newline$
}

% Zmena stavu: {mid.sentence; after.sentence} => after.block.
%
% void new.block ()
% {
%   if (output.state == before.all)
%   { } else
%   {
%     output.state = after.block;
%   }
% }
FUNCTION {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

% Zmena stavu: mid.sentence => after.sentence.
%
% void new.sentence ()
% {
%   if (output.state == after.block)
%   { } else
%   {
%     if (output.state == before.all)
%     { } else
%     {
%       output.state = after.sentence;
%     }
%   }
% }
FUNCTION {new.sentence}
{ output.state after.block =
  'skip$
  { output.state before.all =
    'skip$
    { after.sentence 'output.state := }
    if$
  }
  if$
}

% Negace vyhodnocene podminky.
%
% int not (int bool)
% {
%   if (bool)
%   {
%     return 0; // false
%   } else
%   {
%     return 1; // true
%   }
% }
FUNCTION {not}
{ { #0 }
  { #1 }
  if$
}

% Logicky soucin dvou podminek.
%
% int and (int bool1, int bool2)
% {
%   if (bool2)
%   {
%     return bool1;
%   } else
%   {
%     return 0;
%   }
% }
FUNCTION {and}
{ 'skip$
  { pop$ #0 }
  if$
}

% Logicky soucet dvou podminek.
%
% int or (int bool1, int bool2)
% {
%   if (bool2)
%   {
%     return 1;
%   } else
%   {
%     return bool1;
%   }
% }
FUNCTION {or}
{ { pop$ #1 }
  'skip$
  if$
}

% Zacatek noveho bloku pri neprazne hodnote na vrcholu zasobniku.
%
% void new.block.checka (int.or.string anything.from.the.top)
% {
%   if (empty$(anything.from.the.top))
%   { } else
%   {
%     new.block();
%   }
% }
FUNCTION {new.block.checka}
{ empty$
  'skip$
  { new.block }
  if$
}

% Zacatek noveho bloku pri 2 neprazdnych hodnotach z vrcholu zasobniku.
%
% void new.block.checkb (int.or.string anything.under.the.top,
%                           int.or.string anything.from.the.top)
% {
%   if ( (empty$(anything.from.the.top)) && (empty$(anything.under.the.top)) )
%   { } else
%   {
%     new.block();
%   }
% }
FUNCTION {new.block.checkb}
{ empty$
  swap$ empty$
  and
  'skip$
  { new.block }
  if$
}

% Zacatek nove vety pri neprazne hodnote na vrcholu zasobniku.
%
% void new.sentence.checka (int.or.string anything.from.the.top)
% {
%   if (empty$(anything.from.the.top))
%   { } else
%   {
%     new.sentence();
%   }
% }
FUNCTION {new.sentence.checka}
{ empty$
  'skip$
  { new.sentence }
  if$
}

% Zacatek nove vety pri 2 neprazdnych hodnotach z vrcholu zasobniku.
%
% void new.sentence.checkb (int.or.string anything.under.the.top,
%                           int.or.string anything.from.the.top)
% {
%   if ( (empty$(anything.from.the.top)) && (empty$(anything.under.the.top)) )
%   { } else
%   {
%     new.sentence();
%   }
% }
FUNCTION {new.sentence.checkb}
{ empty$
  swap$ empty$ and
  'skip$
  { new.sentence }
  if$
}

% Vrati hodnoty polozky (ulozene na vrcholu zasobniku) nebo prazdny retezec.
%
% int.or.string field.or.null (int.or.string anything.from.the.top)
% {
%   if (empty$(anything.from.the.top))
%   {
%     return "";
%   } else
%   {
%     return anything.from.the.top;
%   }
% }
FUNCTION {field.or.null}
{ duplicate$ empty$
  { pop$ "" }
  'skip$
  if$
}

% Vypis chybove hlasky pro pripady, kdyz jsou vyplnene dve polozky, jejichz
% pouziti se vzajemne vylucuje. Vola se s dvema argumenty -- prvni z nich je
% retezec s nazvy obou poli (kvuli vypisu chybove hlasky) a druhy je obsah
% jednoho z poli (kontrola druheho musi probehnout pred volanim teto funkce).
%
% void either.or.check (string field.names, int.or.string one.of.fields)
% {
%   if (empty$(one.of.fields))
%   { } else
%   {
%     warning$(field.names * "can't use both " * " fields in " * cite$());
%   }
% }
FUNCTION {either.or.check}
{ empty$
  { pop$ }
  { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  if$
}

% Provede zvyrazneni hodnoty na vrcholu zasobniku (uzavre ji mezi "{\em"
% a "}"). Nepouziva kurzivni korekci.
%
% string emphasize (string x)
% {
%   if (empty$(x))
%   {
%     return "";
%   } else
%   {
%     return "{\em " * x * "}";
%   }
% }
FUNCTION {emphasize}
{ duplicate$ empty$
  { pop$ "" }
  { "{\em " swap$ * "}" * }
  if$
}

FUNCTION {makebold}
{ duplicate$ empty$
  { pop$ "" }
  { "{\bf " swap$ * "}" * }
  if$
}

FUNCTION {makesmall}
{ duplicate$ empty$
  { pop$ "" }
  { "{\small " swap$ * "}" * }
  if$
}

% Nahradi kazdy vyskyt znaku '-' za dvojznak "--".
%
% string dashify (string to.dashify)
% {
%   t = to.dashify;
%   push("");
%   while (!empty$(t))
%   {
%     if (substring$(t, 1, 1) == "-")
%     {
%       if (substring$(t, 1, 2) == "--")
%       {
%         while (substring$(t, 1, 1) == "-")
%         {
%           push(pop() * "-");
%           t = substring$(t, 2, global.max$());
%         }
%       } else
%       {
%         push(pop() * "--");
%         t = substring$(t, 2, global.max$());
%       }
%     } else
%     {
%       push(pop() * substring$(t, 1, 1));
%       t = substring$(t, 2, global.max$());
%     }
%   }
% }
FUNCTION {dashify}
{ 't :=
  ""
  { t empty$ not }
  { t #1 #1 substring$ "-" =
   { t #1 #2 substring$ "--" =
     { { t #1 #1 substring$ "-" = }
      { "-" *
        t #2 global.max$ substring$ 't :=
      }
       while$
     }
     { "--" *
       t #2 global.max$ substring$ 't :=
     }
     if$
   }
   { t #1 #1 substring$ *
     t #2 global.max$ substring$ 't :=
   }
    if$
  }
  while$
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%% VLASTNI KOD -- POMOCNE FUNKCE %%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Prevod retezce na cislo. Ocekava se, ze se zavola az po testu pomoci funkce
% 'is.ord'. Na vstupu ocekava neprazdny retezec tvoreny jen cislicemi.
%
% int str.to.int (string to.convert)
% {
%   t = to.convert;
%   int x = 0;
%   int ptr = 0;
%   while (ptr text.length$(t) < )
%   {
%     push(x);
%     i = 9;
%     while (i > 0)
%     {
%       push(pop() + x);
%       i--;
%     }
%     ptr++;
%     x = chr.to.int$(substring$(t, ptr, 1)) - 48 + pop();
%   }
%   return x;
% }
FUNCTION {str.to.int}
{ 't :=
  #0 'x :=
  #0 'ptr :=
  { ptr t text.length$ < }
  { x
    #9 'i :=
    { i #0 > }
    { x +
      i #1 - 'i :=
    }
    while$
    ptr #1 + 'ptr :=
    t ptr #1 substring$ chr.to.int$ #48 - + 'x :=
  }
  while$
  x
}

% Prvni pismeno retezce na vrcholu zasobniku prevede na verzalku.
%
% string capitalize (string to.capitalize)
% {
%   if (empty$(to.capitalize))
%   { } else
%   {
%     return change.case$(substring$(to.capitalize, 1, 1), "u") *
%            substring$(to.capitalize, 2, global.max$());
%   }
% }
FUNCTION {capitalize}
{ duplicate$ empty$
  'skip$
  { duplicate$ #1 #1 substring$ "u" change.case$
    swap$ #2 global.max$ substring$ *
  }
  if$
}

% Spojuje dva retezce z vrcholu zasobniku. Tyto dva retezce jsou oddeleny
% mezerou ci nezlomitelnou mezerou. Retezec na vrcholu zasobniku je pripojen
% za druhy retezec.
%
% Pokud je jeden z retezcu prazdny, je vracen jen druhy z nich bez jakychkoliv
% uprav. Jsou-li prazdne oba retezce, je vracen taktez prazdny retezec.
%
% string tie.or.connect (string under.the.top, string from.the.top)
% {
%   string u = from.the.top;
%   if (empty$(under.the.top))
%   {
%     return u;
%   } else
%   {
%     if (empty$(u))
%     { } else
%     {
%       if (text.length$(u) < 3)
%       {
%         return under.the.top * "~" * u;
%       } else
%       {
%         return under.the.top * " " * u;
%       }
%     }
%   }
% }
FUNCTION {tie.or.connect}
{ 'u :=
  duplicate$ empty$
  { pop$ u }
  { u empty$
    'skip$
    { u text.length$ #3 <
      { "~" * u * }
      { " " * u * }
      if$
    }
    if$
  }
  if$
}

% Spojuje dva retezce z vrcholu zasobniku. Tyto dva retezce jsou oddeleny
% carkou. Retezec na vrcholu zasobniku je pripojen za druhy retezec.
%
% Pokud je jeden z retezcu prazdny, je vracen jen druhy z nich bez jakychkoliv
% uprav. Jsou-li prazdne oba retezce, je vracen taktez prazdny retezec.
%
% string comma.connect (string under.the.top, string from.the.top)
% {
%   string u = from.the.top;
%   if (empty$(under.the.top))
%   {
%     return u;
%   } else
%   {
%     if (empty$(u))
%     { } else
%     {
%       return under.the.top * ", " * u;
%     }
%   }
% }
FUNCTION {comma.connect}
{ 'u :=
  duplicate$ empty$
  { pop$ u }
  { u empty$
    'skip$
    { ", " * u * }
    if$
  }
  if$
}

% Spojuje dva retezce z vrcholu zasobniku. Tyto dva retezce jsou oddeleny mezerou.
FUNCTION {space.connect}
{ 'u :=
  duplicate$ empty$
  { pop$ u }
  { u empty$
    'skip$
    { " " * u * }
    if$
  }
  if$
}


% Otestuje, zda je hodnota na vrcholu zasobniku tvorena pouze cislicemi.
%
% int is.ord (string x)
% {
%   string u = x;
%   int ord = 1;
%   while ( (ord) && (!empty(u)) )
%   {
%     if ( (chr.to.int$(substring$(u, 1, 1)) < 48) ||
%          (chr.to.int$(substring$(u, 1, 1)) > 57) )
%     {
%       ord = 0;
%     } else
%     {
%       u = substring(s, 2, global.max$());
%     }
%   }
%   return ord;
% }
FUNCTION {is.ord}
{ 'u :=
  #1 'ord :=
  { ord
    u empty$ not
    and
  }
  { u #1 #1 substring$
    duplicate$ chr.to.int$ #48 <  % < '0'
    swap$ chr.to.int$ #57 >       % > '9'
    or
    { #0 'ord := }
    { u #2 global.max$ substring$ 'u := }
    if$
  }
  while$
  ord
}

% Formatovaci retezec pro vkladani jmen dle ceske konvence pomoci funkce
% 'format.name$'.
%
% string cz.name.format ()
% {
%   return "{{\scshape\bgroup}ll{ }{\egroup}}{, f.}{ vv}";
% }
FUNCTION {cz.name.format}
{ "{{\sc\bgroup}ll{ }{\egroup}}{, f.}{ vv}" }

% Vraci nominativ mesice.
%
% /** prepis pseudokodu do funkce pracujici s polem **/
% string get.month.n (int n)
% {
%   int month = { 1 => "leden", "únor", "březen", "duben", "květen", "červen",
%                "červenec", "srpen", "září", "říjen", "listopad", "prosinec" };
%   if ( (n > 0) && (n < 13) )
%   {
%     return month[n];
%   } else
%   {
%     warning$("Month must be between 1 and 12!");
%     return "";
%   }
% }
FUNCTION {get.month.n}
{ duplicate$ #1 =
  { "leden" swap$ pop$ }
  { duplicate$ #2 =
    { "únor" swap$ pop$ }
    { duplicate$ #3 =
      { "březen" swap$ pop$ }
      { duplicate$ #4 =
        { "duben" swap$ pop$ }
        { duplicate$ #5 =
          { "květen" swap$ pop$ }
          { duplicate$ #6 =
            { "červen" swap$ pop$ }
            { duplicate$ #7 =
              { "červenec" swap$ pop$ }
              { duplicate$ #8 =
                { "srpen" swap$ pop$ }
                { duplicate$ #9 =
                  { "září" swap$ pop$ }
                  { duplicate$ #10 =
                    { "říjen" swap$ pop$ }
                    { duplicate$ #11 =
                      { "listopad" swap$ pop$ }
                      { duplicate$ #12 =
                        { "prosinec" swap$ pop$ }
                        { "" "Month must be between 1 and 12!" warning$ }
                        if$
                      }
                      if$
                    }
                    if$
                  }
                  if$
                }
                if$
              }
              if$
            }
            if$
          }
          if$
        }
        if$
      }
      if$
    }
    if$
  }
  if$
}

% Vraci nominativ mesice s velkym prvnim pismenem.
FUNCTION {get.u.month.n}
{ duplicate$ #1 =
  { "Leden" swap$ pop$ }
  { duplicate$ #2 =
    { "Únor" swap$ pop$ }
    { duplicate$ #3 =
      { "Březen" swap$ pop$ }
      { duplicate$ #4 =
        { "Duben" swap$ pop$ }
        { duplicate$ #5 =
          { "Květen" swap$ pop$ }
          { duplicate$ #6 =
            { "Červen" swap$ pop$ }
            { duplicate$ #7 =
              { "Červenec" swap$ pop$ }
              { duplicate$ #8 =
                { "Srpen" swap$ pop$ }
                { duplicate$ #9 =
                  { "Září" swap$ pop$ }
                  { duplicate$ #10 =
                    { "Říjen" swap$ pop$ }
                    { duplicate$ #11 =
                      { "Listopad" swap$ pop$ }
                      { duplicate$ #12 =
                        { "Prosinec" swap$ pop$ }
                        { "" "Month must be between 1 and 12!" warning$ }
                        if$
                      }
                      if$
                    }
                    if$
                  }
                  if$
                }
                if$
              }
              if$
            }
            if$
          }
          if$
        }
        if$
      }
      if$
    }
    if$
  }
  if$
}

% Vraci genitiv mesice.
%
% /** prepis pseudokodu do funkce pracujici s polem **/
% string get.month.g (int n)
% {
%   int month = { 1 => "ledna", "února", "března", "dubna", "května", "června",
%                "července", "srpna", "září", "října", "listopadu", "prosince"};
%   if ( (n > 0) && (n < 13) )
%   {
%     return month[n];
%   } else
%   {
%     warning$("Month must be between 1 and 12!");
%     return "";
%   }
% }
FUNCTION {get.month.g}
{ duplicate$ #1 =
  { "ledna" swap$ pop$ }
  { duplicate$ #2 =
    { "února" swap$ pop$ }
    { duplicate$ #3 =
      { "března" swap$ pop$ }
      { duplicate$ #4 =
        { "dubna" swap$ pop$ }
        { duplicate$ #5 =
          { "května" swap$ pop$ }
          { duplicate$ #6 =
            { "června" swap$ pop$ }
            { duplicate$ #7 =
              { "července" swap$ pop$ }
              { duplicate$ #8 =
                { "srpna" swap$ pop$ }
                { duplicate$ #9 =
                  { "září" swap$ pop$ }
                  { duplicate$ #10 =
                    { "října" swap$ pop$ }
                    { duplicate$ #11 =
                      { "listopadu" swap$ pop$ }
                      { duplicate$ #12 =
                        { "prosince" swap$ pop$ }
                        { "" "Month must be between 1 and 12!" warning$ }
                        if$
                      }
                      if$
                    }
                    if$
                  }
                  if$
                }
                if$
              }
              if$
            }
            if$
          }
          if$
        }
        if$
      }
      if$
    }
    if$
  }
  if$
}

% Provede vystup. Je urcen jen pro vypsani primarni odpovednosti. Umoznuje
% pouziti volby 'opt.sep.a', ktera dovoluje pouzit jiny oddelovac mezi poli
% primarni odpovednosti a nazvu titulu. Dle zazitych zvyklosti v CR je jim ':'.
%
% Pouzivat pouze na zacatku bibliograficke citace! Jinde muze zpusobit prohozeni
% prvku.
%
% void output.authors (string formatted.authors)
% {
%   if (substring$(formatted.authors, #-1, #1) == opt.sep.a())
%   {
%     write$(formatted.authors);
%     newline$();
%     write("\newblock ");
%   } else
%   {
%     write$(formatted.authors * opt.sep.a());
%     newline$();
%     write("\newblock ");
%   }
% }
FUNCTION {output.authors}
{
  duplicate$ #-1 #1 substring$ opt.sep.a =
  { write$ newline$ "\newblock " write$ }
  { opt.sep.a *
    write$ newline$ "\newblock " write$
  }
  if$
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%% VLASTNI KOD -- FORMATOVACI FUNKCE %%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Formatovani jmen (pro primarni odpovednost).
%
% string format.names (string names)
% {
%   string s = names;
%   int numnames = num.names$(s);
%   int namesleft = numnames;
%   int nameptr = 1;
%   while ( (namesleft > 0) && (nameptr <= opt.aa()) )
%   {
%     t = format.name$(s, nameptr, cz.name.format());
%     if (nameptr == 1)
%     {
%       push(t);
%     } else
%     {
%       if (namesleft > 1)
%       {
%         push(pop() * opt.sep.bn() * t);
%       } else
%       {
%         if (purify$(t) == "others")
%         {
%           push(tie.or.connect(pop(), opt.etal()));
%         } else
%         {
%           push(pop() * opt.sep.ln() * t);
%         }
%       }
%     }
%     nameptr++;
%     namesleft--;
%   }
%   if (nameledt > 0)
%   {
%     push(tie.or.connect(pop(), opt.etal()));
%   }
%   return pop();
% }
FUNCTION {format.names}
{ 's :=                             % s <= polozka se jmeny
  s num.names$ 'numnames :=         % numnames <= pocet jmen v polozce
  numnames 'namesleft :=            % poznamena si pocet zbyvajicich jmen
  #1 'nameptr :=                    % nameptr <= ukazatel na prvni ze jmen
  { namesleft #0 >
    nameptr opt.aa > not
    and
  }
  { % cyklus zpracovani jednotlivych jmen
    s nameptr cz.name.format format.name$ 't :=
    nameptr #1 =
    { t }                           % prvni jmeno
    { namesleft #1 >                % dalsi jmena
      { opt.sep.bn t * * }
      { t purify$
        "others" =                  % kdyz po ocisteni zbyde klic. sl. "others"
        { opt.etal tie.or.connect } % vytiskne et al.
        { opt.sep.ln * t * }        % jinak posledni inicialy po spojce "a"
        if$
      }
      if$
    }
    if$
    nameptr #1 + 'nameptr :=        % posun ukazatele na dalsi jmeno
    namesleft #1 - 'namesleft :=    % snizeni poctu zbyvajicich jmen
  }
  while$
  namesleft #0 >                    % mozne pridani opt.etal
  { opt.etal tie.or.connect }
  'skip$
  if$
}


% Formatovani jmen editoru.
%
% string format.names.ed (string names)
% {
%   string s = names;
%   int numnames = num.names$(s);
%   int namesleft = numnames;
%   int nameptr = 1;
%   while ( (namesleft > 0) && (nameptr <= opt.aa()) )
%   {
%     t = format.name$(s, nameptr, cz.name.format());
%     if (nameptr == 1)
%     {
%       if (opt.ed.all())
%       {
%         push(tie.or.connect(t, opt.ed());
%       } else
%       {
%         push(t);
%       }
%     } else
%     {
%       if (namesleft > 1)
%       {
%         if (opt.ed.all())
%         {
%           push(tie.or.connect(pop() * opt.sep.bn() * t, opt.ed());
%         } else
%         {
%           push(pop() * opt.sep.bn() * t);
%         }
%       } else
%       {
%         if (purify$(t) == "others")
%         {
%           push(tie.or.connect(pop(), opt.etal()));
%         } else
%         {
%           if (opt.ed.all())
%           {
%             push(tie.or.connect(pop() * opt.sep.ln() * t, opt.ed());
%           } else
%           {
%             push(pop() * opt.sep.ln() * t);
%           }
%         }
%       }
%     }
%     nameptr++;
%     namesleft--;
%   }
%   if (nameledt > 0)
%   {
%     push(tie.or.connect(pop(), opt.etal()));
%   }
%   if (opt.ed.all())
%   {
%     return pop();
%   } else
%   {
%     return tie.or.connect(pop(), ", " * opt.ed());
%   }
% }
FUNCTION {format.names.ed}
{ 's :=                             % s <= polozka se jmeny
  s num.names$ 'numnames :=         % numnames <= pocet jmen v polozce
  numnames 'namesleft :=            % poznamena si pocet zbyvajicich jmen
  #1 'nameptr :=                    % nameptr <= ukazatel na prvni ze jmen
  { namesleft #0 >
    nameptr opt.ae > not
    and
  }
  { % cyklus zpracovani jednotlivych jmen
    s nameptr cz.name.format format.name$ 't :=
    nameptr #1 =                    % prvni jmeno
    { t
      opt.ed.all
      { opt.ed tie.or.connect }
      'skip$
      if$
    }
    { namesleft #1 >                % dalsi jmena
      { opt.sep.bn t * *
        opt.ed.all
        { opt.ed tie.or.connect }
        'skip$
        if$
      }
      { t purify$
        "others" =                  % kdyz po ocisteni zbyde klic. sl. "others"
        { opt.etal tie.or.connect } % vytiskne et al.
        { opt.sep.ln t * *          % jinak posledni inicialy po spojce "a"
          opt.ed.all
          { opt.ed tie.or.connect }
          'skip$
          if$
        }
        if$
      }
      if$
    }
    if$
    nameptr #1 + 'nameptr :=        % posun ukazatele na dalsi jmeno
    namesleft #1 - 'namesleft :=    % snizeni poctu zbyvajicich jmen
  }
  while$
  namesleft #0 >                    % mozne pripojeni opt.etal
  { opt.etal tie.or.connect }
  'skip$
  if$
  opt.ed.all                        % mozne pridani opt.ed na konec prvku
  'skip$
  { ", " * opt.ed tie.or.connect }
  if$
}

% Formatovani jmen autoru.
% Pokud je neprazdna polozka 'author', provede formatovani jmen pomoci funkce
% 'format.names'.
%
% string format.authors ()
% {
%   if (empty$(author))
%   {
%     return "";
%   } else
%   {
%     return format.names(author);
%   }
% }
FUNCTION {format.authors}
{ author empty$
  { "" }
  { author format.names }
  if$
}

% Formatovani jmena vedouciho.
FUNCTION {format.supervisor}
{ supervisor empty$
  { "" }
  { "Vedoucí práce " supervisor format.names *}
  if$
}

% Formatovani jmen editoru.
% Pokud je neprazdna polozka 'editor', provede formatovani jmen pomoci funkce
% 'format.names.ed'.
%
% string format.editors ()
% {
%   if (empty$(editor))
%   {
%     return "";
%   } else
%   {
%     return format.names.ed(editor);
%   }
% }
FUNCTION {format.editors}
{ editor empty$
  { "" }
  { editor format.names.ed }
  if$
}

% Formatovani polozky primarni odpovednosti.
% Je-li zadana polozka 'author', provede jeji formatovani pomoci funkce
% 'format.authors'. Pokud je polozka 'author' prazdna, provede formatovani
% pomoci funkce 'format.editors'.
%
% void author.or.editor ()
% {
%   if (empty$(author))
%   {
%     if (empty$(format.editors()))
%     {
%       warning$("empty author and editor in " * cite$());
%     } else
%     {
%       output.authors(format.editors());
%     }
%   } else
%   {
%     output.authors(format.authors());
%   }
% }
FUNCTION {author.or.editor}
{ author empty$
  { format.editors
    duplicate$ empty$
    { pop$
      "empty author and editor in " cite$ * warning$
    }
    { output.authors }
    if$
  }
  { format.authors
    output.authors
  }
  if$
}

% Formatovani nazvu (napr. casopisu, zurnalu atp.).
% Pri zadane polozce 'subtitle' provede ji pripoji k obsahu polozky 'title'
% pomoci ": ". V nazvu je pak provedena zmena velikosti pismen.
%
% string format.title ()
% {
%   if (empty$(subtitle))
%   {
%     return capitalize(title);
%   } else
%   {
%     return capitalize(title) * opt.sep.t() * subtitle;
%   }
% }
FUNCTION {format.title}
{ subtitle empty$
  { title capitalize }
  { title capitalize
    opt.sep.t * subtitle *
  }
  if$
}
%%FUNCTION {format.title}
%%{ subtitle empty$
%%    { title "t" change.case$ }
%%    { title "t" change.case$ 
%%      opt.sep.t * subtitle "t" change.case$ *
%%    }
%%  if$
%%}


% Formatovani nazvu monograficke publikace.
% Pri zadane polozce 'subtitle' provede ji pripoji k obsahu polozky 'title'
% pomoci ": ". Pricemz na obe casti se provede zmena velikosti pismen
% a zvyrazneni. Pokud je polozka 'subtitle' prazdna, je provedena jen zmena
% velikosti pismen a jeji zvyrazneni.
%
% string format.btitle ()
% {
%   return emphasize(format.title());
% }
FUNCTION {format.btitle}
{ format.title emphasize
}

% Formatovani nazvu (napr. sbornik).
% Pri zadane polozce 'booksubtitle' provede ji pripoji k obsahu polozky
% 'booktitle' pomoci ": ". V nazvu je pak provedena zmena velikosti pismen
% a zvyrazneni kurzivou.
%
% string format.from.btitle ()
% {
%   if (empty$(booktitle))
%   {
%     warning$(empty booktitle in " * cite$());
%     push("");
%   } else
%   {
%     push(capitalize(booktitle));
%     if (empty$(booksubtitle))
%     { } else
%     {
%       push(pop() * opt.sep.t * booksubtitle);
%     }
%   }
%   return emphasize(pop());
% }
FUNCTION {format.from.btitle}
{ booktitle empty$
  { "empty booktitle in " cite$ * warning$
    ""
  }
  { booktitle capitalize
    booksubtitle empty$
    'skip$
    { opt.sep.t * booksubtitle * }
    if$
  }
  if$
  emphasize
}

% Formatovani druhu nosice.
%
% string format.howpublished ()
% {
%   if (empty$(howpublished))
%   {
%     return "";
%   } else
%   {
%     if (change.case(howpublished, "l") == "cd")
%     {
%       push("CD-ROM");
%     } else
%     {
%       if (change.case(howpublished, "l") == "online")
%       {
%         push("Online");
%       } else
%       {
%         push(howpublished);
%       }
%     }
%     return "" * pop() * "";
%   }
% }
FUNCTION {format.howpublished}
{ howpublished empty$
  { "" }
  { howpublished "l" change.case$ "cd" =
    { "CD-ROM" }
    { howpublished "l" change.case$ "online" =
      { "Online" }
      { howpublished }
      if$
    }
    if$
    "" swap$ * "" *
  }
  if$
}

% Formatovani vydani
%
% string format.edition ()
% {
%   if (empty$(edition))
%   {
%     push("");
%   } else
%   {
%     if (is.ord(edition))
%     {
%       push(edition * ". vyd.");
%     } else
%     {
%       push(edition);
%     }
%   }
%   if (!empty$(version))
%   {
%     push(comma.connect(pop(), version));
%   }
%   return pop();
% }
FUNCTION {format.edition}
{ edition empty$
    { "" }
    { edition is.ord
        { edition ". vyd." * }
        { edition }
      if$
    }
  if$
  howpublished empty$
    'skip$
    { version empty$
        'skip$
        { version comma.connect }
      if$
    }
  if$
}

% Formatovani mesice a roku
%
% string format.date ()
% {
%   if (empty$(month))
%   {
%     if (empty$(year))
%     {
%       warning$("empty year in " * cite$());
%       return "";
%     } else
%     {
%       return year;
%     }
%   } else
%   {
%     if (empty$(year))
%     {
%       warning$("just month (empty year) in " * cite$());
%       return "";
%     } else
%     {
%       if (is.ord(month))
%       {
%         return get.month.n(str.to.int(month)) * " " * year;
%       } else
%       {
%         return month * " " * year;
%       }
%     }
%   }
% }
FUNCTION {format.date}
{ month empty$
    { year empty$
        { "" 
          "empty year in " cite$ * warning$ }
        { year }
      if$
    }
  { year empty$
      { "" 
        "just month (empty year) in " cite$ * warning$ }
      { month duplicate$ is.ord
          { str.to.int get.month.n " " * year * }
          { " " * year * }
        if$
      }
    if$
  }
  if$
}

% Formatovani mesice a roku s genitivem měsíce
FUNCTION {format.date.g}
{ month empty$
    { year empty$
        { "" 
          "empty year in " cite$ * warning$ }
        { year }
      if$
    }
  { year empty$
      { "" 
        "just month (empty year) in " cite$ * warning$ }
      { month duplicate$ is.ord
          { str.to.int get.month.g " " * year * }
          { " " * year * }
        if$
      }
    if$
  }
  if$
}

% Formatovani mesice a roku, kde mesic zacina velkym pismenem
FUNCTION {format.u.date}
{ month empty$
    { year empty$
        { "" 
          "empty year in " cite$ * warning$ }
        { year }
      if$
    }
    { year empty$
        { "" 
          "just month (empty year) in " cite$ * warning$ 
        }
        { month duplicate$ is.ord
            { str.to.int get.u.month.n " " * year * }
            { " " * year * }
          if$
        }
      if$
    }
  if$
}

% Rozpoznani a prevod data z formatu '!yyyy-mm-dd'.
%
% string format.full.date (string date)
% {
%   string t = date;
%   if (text.length$(t) == 10)
%   {
%     if ( (is.ord(substring$(t, 1, 4))) && (substring$(t, 5, 1) == "-") &&
%          (is.ord(substring$(t, 6, 2))) && (substring$(t, 8, 1) == "-") &&
%          (is.ord(substring$(t, 9, 2))) )
%     {
%       if (substring$(t, 9, 1) == "0")
%       {
%         if (substring$(t, 10, 1) == "0")
%         {
%           warning$("day must be between 1 and 31 in " * cite$());
%         } else { }
%         push(substring$(t, 10, 1) * ".~");
%       } else
%       {
%         if ( ((chr.to.int$(substring$(t, 9, 1)) - 48) > 3) ||
%              ((substring$(t, 9, 1) == "3") &&
%               ((chr.to.int$(substring$(t, 10, 1)) - 48) > 1)) )
%         {
%           pop();
%           push(t);
%           warning$("day must be between 1 and 31 in " * cite$());
%         } else { }
%         push(substring$(t, 9, 2) * ".~");
%       }
%       if (substring$(t, 6, 1) == "0")
%       {
%         if (substring$(t, 7, 1) == "0")
%         {
%           pop();
%           push(t);
%           warning$("month must be between 1 and 12 in " * cite$());
%         } else
%         {
%           return pop() * get.month.g(chr.to.int$(substring$(t, 7, 1)) - 48) *
%                  " " * substring$(t, 1, 4));
%         }
%       } else
%       {
%         if ( (substring$(t, 6, 1) == "1") &&
%              ((chr.to.int$(substring$(t, 7, 1)) - 48) < 3) )
%         {
%           return pop() * get.month.g(chr.to.int$(substring$(t, 7, 1))
%                  - 48 + 10) * " " * substring$(t, 1, 4));
%         } else
%         {
%           pop();
%           push(t);
%           warning$("month must be between 1 and 12 in " * cite$());
%         }
%       }
%     } else
%     {
%       return t;
%     }
%   } else
%   {
%     return t;
%   }
% }
FUNCTION {format.full.date}
{ 't :=
  t text.length$ #11 =
  { t #1 #1 substring$ "!" =
    t #2 #4 substring$ is.ord
    t #6 #1 substring$ "-" =
    t #7 #2 substring$ is.ord
    t #9 #1 substring$ "-" =
    t #10 #2 substring$ is.ord
    and and and and and
    { t #10 #1 substring$ "0" =
      { t #11 #1 substring$ "0" =
        { "day must be between 1 and 31 in " cite$ * warning$ }
        'skip$
        if$
        t #11 #1 substring$ ".~" *
      }
      { t #10 #1 substring$ chr.to.int$ #48 - #3 >
        t #10 #1 substring$ "3" =
        t #11 #1 substring$ chr.to.int$ #48 - #1 >
        and or
        { pop$ t "day must be between 1 and 31 in " cite$ * warning$ }
        'skip$
        if$
        t #10 #2 substring$ ".~" *
      }
      if$
      t #7 #1 substring$ "0" =
      { t #8 #1 substring$ "0" =
        { pop$ t "month must be between 1 and 12 in " cite$ * warning$ }
        { t #8 #1 substring$ chr.to.int$ #48 - get.month.g *
          " " * t #2 #4 substring$ *
        }
        if$
      }
      { t #7 #1 substring$ "1" =
        t #8 #1 substring$ chr.to.int$ #48 - #3 <
        and
        { t #8 #1 substring$ chr.to.int$ #48 - #10 + get.month.g *
          " " * t #2 #4 substring$ *
        }
        { pop$ t "month must be between 1 and 12 in " cite$ * warning$ }
        if$
      }
      if$
    }
    { t }
    if$
  }
  { t }
  if$
}

% Predani udaju z data revize elektronickeho dokumentu.
%
% string format.revised ()
% {
%   if (empty$(howpublished))
%   {
%     return "";
%   } else
%   {
%     if (empty$(revised))
%     {
%        return "";
%     } else
%     {
%       return revised;
%     }
%   }
% }
FUNCTION {format.revised}
{ howpublished empty$
  { "" }
  { revised empty$
    { "" }
    { revised }
    if$
  }
  if$
}

% Formatovani udaju z data citace elektronickeho dokumentu.
%
FUNCTION {format.cited}
{ cited empty$
    { "" }
    { cited format.full.date
      "[Citováno " swap$ * "]" *
%      "[vid. " swap$ * "]" *
    }
  if$
}

% Formatovani nakladatelskych udaju.
%
% string format.publish.info ()
% {
%   if ( (empty$(address)) && (empty$(publisher)) )
%   {
%     string s = "";
%   } else
%   {
%     if (empty$(address))
%     {
%       s = "[b.m.]: ";
%     } else
%     {
%       s = address * ": ";
%     }
%     if (empty$(publisher))
%     {
%       s = s * "[b.n.]";
%     } else
%     {
%       s = s * publisher;
%     }
%   }
%   return s;
% }
FUNCTION {format.publish.info}
{ address empty$
  publisher empty$
  and
  { "" }
  { address empty$
    { "" }
    { address opt.sep.p * }
    if$
    publisher empty$
    { "[b.n.]" * }
    { publisher * }
    if$
  }
  if$
}


% Formatuje rozsah stran publikace.
%
% string format.range ()
% {
%   if (empty$(pages))
%   {
%     return "";
%   } else
%   {
%     return tie.or.connect(pages, "s.");
%   }
% }
FUNCTION {format.range}
{ pages empty$
    { "" }
    { pages "s." tie.or.connect }
  if$
}

% Formatovani edice a svazku sborníku konference.
%
% string format.cvolume ()
% {
%   if (empty$(volume))
%   { 
%     push("");
%   } else
%   {
%     if (is.ord(volume))
%     {
%       push("sv. " * volume);
%     } else
%     {
%       push(volume);
%     }
%   }
%   if (empty$(number))
%   {
%     return pop();
%   } else
%   {
%     if (is.ord(number))
%     {
%       return comma.connect(pop(), "č. " * number);
%     } else
%     {
%       return comma.connect(pop(), number);
%     }
%   }
% }
FUNCTION {format.cvolume}
{ volume empty$
  { "" }
  { volume is.ord
    { "sv. " volume * }
    { volume }
    if$
  }
  if$
  number empty$
  { 
    "" comma.connect
  }
  { number is.ord
    { "č. " number * comma.connect }
    { number comma.connect }
    if$
  }
  if$
}


% Formatovani edice a čísla edice knihy ci sborníku konference.
%
% string format.cseries ()
% {
%   if (empty$(series))
%   {
%     return "";
%   } else
%   {
%     push(capitalize(series));
%     if (empty$(editionnumber))
%     { } else
%     {
%       if (is.ord(editionnumber))
%       {
%         return comma.connect(pop(), "č. " * editionnumber);
%       } else
%       {
%         return comma.connect(pop(), editionnumber);
%       }
%     }
%   }
% }
FUNCTION {format.cseries}
{ series empty$
  { "" }
  { series capitalize
    editionnumber empty$
    'skip$
    { editionnumber is.ord
      { "č. " editionnumber * comma.connect }
      { editionnumber comma.connect }
      if$
    }
    if$
  }
  if$
}


% Format dostupnosti.
%
% string format.url ()
% {
%   if (empty$(url))
%   {
%     return "";
%   } else
%   {
%     return tie.or.connect(opt.url(), "\small{\url{" * url * ".}}");
%   }
% }
FUNCTION {format.url}
{ url empty$
  { "" }
  { opt.url "{\small\url{" url * "}}" * tie.or.connect }
  if$
}

% Format cesty.
%
% string format.pah ()
% {
%   if (empty$(path))
%   {
%     return "";
%   } else
%   {
%     return opt.path * path;
%   }
% }
FUNCTION {format.path}
{ path empty$
  { "" }
  { opt.path path * }
  if$
}

% Format ISBN.
%
% string format.isbn ()
% {
%   if (empty$(isbn))
%   {
%     return "";
%   } else
%   {
%     return "ISBN " * isbn;
%   }
% }
FUNCTION {format.isbn}
{ isbn empty$
  { "" }
  { "ISBN " isbn * }
  if$
}

% Format nazvu serialove publikace.
%
% string format.journal ()
% {
%   if (empty$(journal))
%   {
%     return "";
%   } else
%   {
%     return emphasize(journal);
%   }
% }
FUNCTION {format.journal}
{ journal empty$
  { "" }
  { journalsubtitle empty$
      { journal capitalize emphasize }
      { journal capitalize emphasize
        opt.sep.t * journalsubtitle emphasize *}
    if$
  }
  if$
}

% Format nazvu lokace ve zdrojovem dokumentu.
%
% string format.pages ()
% {
%   if (empty$(pages))
%   {
%     return "";
%   } else
%   {
%     return "s.~" * dashify(pages);
%   }
% }
FUNCTION {format.pages}
{ pages empty$
  { "" }
  { "s.~" pages dashify * }
  if$
}

FUNCTION {format.chapter}
{ chapter empty$
  { "" }
  { "kap.~" chapter * }
  if$
}

% Formatovani data vydani, rocniku a cisla publikace + datum revize/aktualizace
%   + darum citace + lokace ve zdrojovem dokumentu (rozsah stran).
%
% string format.journal.issue ()
% {
%   string s;
%   if (empty$(format.u.date()))
%   {
%     s = "";
%   } else
%   {
%     s = format.u.date();
%   }
%   if (!empty$(volume))
%   {
%     if (is.ord(volume))
%     {
%       s = comma.connect(s, "sv.~" * volume);
%     } else
%     {
%       s = comma.connect(s, volume);
%     }
%   }
%   if (empty$(number))
%   {
%     warning$("empty number in " * cite$);
%   } else
%   {
%     if (is.ord(number))
%     {
%       s = comma.connect(s, "č.~" * number);
%     } else
%     {
%       s = comma.connect(s, number);
%     }
%   }
%   if (s == "")
%   {
%     warning$("empty journal issue info in " * cite$);
%     return "";
%   } else
%   {
%     return s;
%   }
% }
FUNCTION {format.journal.issue}
{ format.u.date 
  duplicate$ empty$
  { pop$ "" 's := }
  { 's := }
  if$
  volume empty$
  'skip$
  { volume is.ord
    { "sv.~" volume *
      s swap$ comma.connect 's :=
    }
    { s volume comma.connect 's := }
    if$
  }
  if$
  number empty$
  { "empty number in " cite$ * warning$ }
  { number is.ord
    { "č.~" number *
      s swap$ comma.connect 's :=
    }
    { s number comma.connect 's := }
    if$
  }
  if$
  s empty$
  { "empty journal issue info in " cite$ * warning$
    ""
  }
  { s }
  if$
}

% Format ISSN.
%
% string format.issn ()
% {
%   if (empty$(issn))
%   {
%     return "";
%   } else
%   {
%     return "ISBN " * issn;
%   }
% }
FUNCTION {format.issn}
{ issn empty$
  { "" }
  { "ISSN " issn * }
  if$
}

% Format DOI.
%
% string format.doi ()
% {
%   if (empty$(doi))
%   {
%     return "";
%   } else
%   {
%     return "DOI: " * doi;
%   }
% }
FUNCTION {format.doi}
{ doi empty$
  { "" }
  { "DOI: " doi * }
  if$
}

% Formatuje cislo svazku -- presne urceni casti pro @InBook.
%
% string format.vol ()
% {
%   if (empty$(volume))
%   {
%     push("");
%   } else
%   {
%     if (is.ord(volume))
%     {
%       push("sv.~" * volume);
%     } else
%     {
%       push(volume);
%     }
%   }
%   return capitalize(pop());
% }
FUNCTION {format.vol}
{ volume empty$
  { "" }
  { volume is.ord
    { "sv.~" volume * }
    { volume }
    if$
  }
  if$
  capitalize
}

% Formatuje zakladni informace (primarni odpovednost a titul) o sborniku pro
% bibliograficke citaci clanku ve sborniku.
%
% In <primarni odpovendost> opt.sep.a() <titul sborniku>.
%
% Pokud je <titul sborniku> prazdny, netiskne se nic.
%
% void conference.basics ()
% {
%   if (empty$(editor))
%   {
%     if (empty$(organization))
%     {
%       warning$("empty editor and organization in " * cite$());
%       push("");
%     } else
%     {
%       if ((substring$(organization, -1, 1) == opt.sep.a())
%       {
%         push(capitalize(organization));
%       } else
%       {
%         push(capitalize(organization * opt.sep.a()));
%       }
%     }
%   } else
%   {
%     if ((substring$(format.editors(), -1, 1) == opt.sep.a())
%     {
%       push(format.editors());
%     } else
%     {
%       push(capitalize(format.editors() * opt.sep.a()));
%     }
%   }
%   push(tie.or.connect("In:", pop()));
%   if (empty$(format.from.btitle()))
%   {
%     pop();
%     push("");
%   } else
%   {
%     push(pop() * format.from.btitle());
%   }
%   return pop();
% }
FUNCTION {conference.basics}
{ editor empty$
  { organization empty$
    { "empty editor and organization in " cite$ * warning$
      ""
    }
    { organization capitalize
      duplicate$ #-1 #1 substring$ opt.sep.a =
      'skip$
      { opt.sep.a * }
      if$
    }
    if$
  }
  { format.editors
    duplicate$ #-1 #1 substring$ opt.sep.a =
    'skip$
    { opt.sep.a * }
    if$
  }
  if$
  "In:" swap$ tie.or.connect
  format.from.btitle
  duplicate$ empty$
  { pop$ }
  { tie.or.connect }
  if$
}


% Formatuje informace o akademicke (diplomova, dizertacni atp.) praci.
% Odlisuje se od beznych nakladatelskych informaci pouzitymi polozkami.
%
% string format.thesis.info ()
% {
%   string s = "";
%   if ( (empty$(address)) && (empty$(location)) && (empty$(school)) )
%   {
%     warning$("empty address and school in " * cite$());
%   } else
%   {
%     if (empty$(address))
%     {
%     } else
%     {
%       s = address;
%     }
%     if (empty$(location))
%     {
%     } else
%     {
%       s = location;
%     }
%     if (empty$(year))
%     {
%       warning$("empty year in " * cite$());
%     } else
%     {
%       if (empty$(s))
%       {
%         s = year;
%       } else
%       {
%         s = comma.connect(s, year);
%       }
%     }
%   }
%   return s;
% }
FUNCTION {format.thesis.info}
{ "" 's :=
  address empty$
  location empty$
  school empty$
  and
  and
    { "empty address and school in " cite$ * warning$ }
    { address empty$
        'skip$
        { address 's := }
      if$
      location empty$
        'skip$
        { location 's := }
      if$
      year empty$
        { "empty year in " cite$ * warning$ }
        { s empty$
            { year 's := }
            { s year comma.connect 's := }
          if$
        }
      if$
    }
  if$
  s
}

% Formatuje informace o skole v akademicke (diplomova, dizertacni atp.) praci.
%
% string format.thesis.school ()
% {
%   string s = "";
%   if (empty$(school))
%   {
%     warning$("empty school in " * cite$());
%   } else
%   {
%     if (empty$(s))
%     {
%       s = school;
%     } else
%     {
%       s = s * ". " * school;
%     }
%   }
%   return s;
% }
FUNCTION {format.thesis.school}
{ "" 's :=
  school empty$
    { "empty school in " cite$ * warning$  }
    { s empty$
        { school 's := }
        { s ". " * school * 's := }
      if$
    }
  if$
  s
}


% Formatuje pocet stran a priloh u akademickych praci.
%
% string format.thesis.range ()
% {
%   if ( (empty$(format.range())) && (!empty$(inserts)) )
%   {
%     return format.range();
%   } else
%   {
%     if (is.ord(inserts))
%     {
%       return comma.connect(format.range(), inserts * " příl.");
%     } else
%     {
%       return comma.connect(format.range(), inserts);
%     }
%   }
% }
FUNCTION {format.thesis.range}
{ pages empty$
  { "" 's := }
  { pages opt.pages tie.or.connect 's := }
  if$
  s empty$
  { "" }
  { inserts empty$
    { s }
    { s inserts opt.pages tie.or.connect " příl." * comma.connect }
    if$
  }
  if$
}

% Formatuje typ akademicke prace.
%
% string format.thesis.type (string basic.thesis.type)
% {
%   if (empty$(type))
%   {
%     return basic.thesis.type;
%   } else
%   {
%     return capitalize(type);
%   }
% }
FUNCTION {format.thesis.type}
{ type empty$
  'skip$
  { pop$ type capitalize }
  if$
}


% Fromatuje typ a cislo technicke zpravy
%
% string format.report.type ()
% {
%   if (empty$(type))
%   {
%     push("");
%   } else
%   {
%     push(type);
%   }
%   if (empty$(number))
%   {
%   } else
%   {
%     space.connect(pop(), number);
%   }
% }
FUNCTION {format.report.type}
{ type empty$
    { "" }
    { type }
  if$
  number empty$
    'skip$
    { number space.connect }
  if$
}


% Kontrola prazdnosti vsech policek pouzitych pro @MISC zaznam.
%
% int empty.misc.check ()
% {
%   if ( (empty$(author)) && (empty$(title)) && 
%        (empty$(howpublished)) && (empty$(month)) && (empty$(year)) &&
%        (empty$(note)) && (!empty$(key)) )
%   {
%     warning$("all misc relevant fields are empty in " * cite$());
%     return 1;
%   } else
%   {
%     return 0;
%   }
% }
FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and and
  key empty$ not and
  { "all misc relevant fields are empty in " cite$ * warning$
    #1
  }
  { #0 }
  if$
}


% Formatuje misto a instituci technicke zpravy.
%
% string format.report.details ()
% {
%   if ( empty$(institution) )
%   {
%     if ( empty$(address) && empty$(organization) )
%     {
%       return "";
%     } else
%     {
%       if (empty$(address))
%       {
%         push("");
%       } else
%       {
%         push(opt.sep.a() * " " * address * opt.sep.p());
%       }
%       if (empty$(organization))
%       {
%         warning$("empty organization in " * cite$());
%       } else
%       {
%         return pop() * organization;
%       }
%     }
%   } else
%   {
%     if ( empty$(address) && empty$(institution) )
%     {
%       return "";
%     } else
%     {
%       if (empty$(address))
%       {
%%         push("[b.m.]");
%         push("");
%       } else
%       {
%         push(opt.sep.a() * " " * address * opt.sep.p());
%       }
%       if (empty$(institution))
%       {
%         warning$("institution is empty in " * cite$());
%       } else
%       {
%         return pop() * institution;
%       }
%     }
%   }
% }
FUNCTION {format.report.details}
{ institution empty$
  {
    address empty$
    organization empty$
    and
      { "" }
      { address empty$
          { "" }
          { address }
        if$
        organization empty$
          { "empty organization in " cite$ * warning$ }
          { address empty$
              { organization * }
              { opt.sep.p * organization * }
            if$
          }
        if$
      }
    if$
  }
  {
    address empty$
    institution empty$
    and
      { "" }
      { address empty$
          { "" }
          { address }
        if$
        institution empty$
          { "empty institution in " cite$ * warning$ }
          { address empty$
              { institution * }
              { opt.sep.p * institution * }
            if$
          }
        if$
      }
    if$
  }
  if$
}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%% VLASTNI KOD -- FUNKCE PRO ZPRACOVANI ZAZNAMU %%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Zpracuje zaznamy typu @Article.
% Bibliograficke citace clanku v serialovych publikaci (casopiseckych clanku).
%
% Povinne polozky:   author, title, journal, edition, year, volume, number, pages, issn
% Volitelne polozky: subtitle, journalsubtitle, publisher, address, contributory, url*, month, note, doi
% Polozky el. dok.:  howpublished*, revised*, cited*, version
%
% * Povinna polozka pro el. dok.
FUNCTION {article}
{ output.bibitem
  format.authors
  duplicate$ empty$
  { pop$
    "empty author in " cite$ * warning$
  }
  { output.authors }
  if$
  new.block %% primarni odpovednost (povinna)
  format.title "title" output.check
  new.block %% titul (povinny)
  format.journal "journal" output.check
  new.block
  format.howpublished output
  new.block
  format.edition "edition" output.check
  new.block %% vydani (povinne)
  contributory capitalize output
  new.block %% podrizena odpovednost (volitelna)
  format.publish.info output
  new.block
  format.journal.issue
  format.pages comma.connect
  format.revised comma.connect
  format.cited comma.connect output
  new.block %% lokace ve zdrojovem dokumentu (povinna)
  format.cseries output
  new.block
  format.doi output
  new.block
  format.issn output %% standardni cislo ISSN (volitelne)
  new.block
  note output
  new.block %% poznamky (volitelne)
  howpublished empty$
  { format.url output }
  { format.url "url" output.check
    year empty$
    revised empty$
    and
    { "empty year and revised in " cite$ * warning$ }
    'skip$
    if$
  }
  if$
  fin.entry
}% @Article

% Zpracuje zaznamy typu @Book.
% Bibliograficke citace monografickych publikaci (knih).
%
% Povinne polozky:   author nebo editor, title, edition, address, publisher, year, isbn
% Volitelne polozky: subtitle, contributory, month, pages, series, number nebo volume, note, url*
% Polozky el. dok.:  howpublished*, revised*, cited*, version
%
% * Povinna polozka pro el. dok.
FUNCTION {book}
{ output.bibitem
  author.or.editor
  new.block %% primarni odpovednost (povinna)
  format.btitle "book title" output.check
  new.block
  format.howpublished output
  new.block %% nazev (povinny) a druh nosice (povinny u el. dok.)
  format.edition capitalize "edition" output.check
  new.block %% vydani (povinne)
  contributory capitalize output
  new.block %% podrizena odpovednost (volitelna)
  format.publish.info
  format.date comma.connect
  format.revised comma.connect
  format.cited tie.or.connect
  capitalize output
  new.block %% nakladatelske udaje (volitelne), datum vydani (povinne),
            %% datum revize/aktualizace a citace (povinne u el. dok.)
  format.range output
  new.block %% rozsah (volitelny)
  format.cseries output
  new.block %% edice (volitelna)
  format.isbn "isbn" output.check
  new.block
  note capitalize output
  new.block %% poznamky (volitelne)
  howpublished empty$
  { format.url output }
  { format.url "url" output.check
    year empty$
    revised empty$
    and
    { "empty year and revised in " cite$ * warning$ }
    'skip$
    if$
  }
  if$
  fin.entry %% standardni cislo ISBN (povinne)
}% @Book

% @Booklet je pouhy odkaz na @Book.
FUNCTION {booklet} { book }

% Zpracuje zaznamy typu @Conference, @InProceedings, @InCollection a @InBook.
% Bibliograficke citace monografickych publikaci (knih).
%
% Povinne polozky:   author, title, editor nebo organization, booktitle,
%       edition, address, publisher, year, pages, isbn or issn.
% Volitelne polozky: subtitle, booksubtitle, contributory, month, series, editionnumber, number, volume, note, chapter, doi, url*.
% Polozky el. dok.:  howpublished*, revised*, cited*, version.
%
% * Povinna polozka pro el. dok.
FUNCTION {conference}
{ output.bibitem
  author.or.editor
  new.block %% primarni odpovednost (povinna)
  format.title "title" output.check
  new.block %% titul prispevku
  conference.basics
  new.block
  format.howpublished tie.or.connect output
  new.block %% primarni odpovednost a titul sborniku
%  format.edition "edition" output.check
  format.edition output
  new.block %% vydani
  contributory capitalize output
  new.block %% podrizena odpovednost (volitelna)
  format.publish.info
  format.date capitalize comma.connect
  format.cvolume comma.connect
  format.chapter comma.connect
  format.pages comma.connect
  format.revised comma.connect
  format.cited tie.or.connect
  capitalize output
  new.block %% nakladatelske udaje, datum vydani, revize/aktualizace a citace
  format.cseries output
  new.block %% edice (pokud je cislovana, tak i jeji cislo nebo svazek)
  format.doi output
  new.block
  isbn empty$
    { issn empty$
        { "empty isbn and issn in " cite$ * warning$ }
        { format.issn output }
      if$
    }
    { format.isbn output }
  if$
  new.block %% standardni cislo ISBN nebo ISSN (povinne)
  note capitalize output
  new.block %% poznamky
  howpublished empty$
    { format.url output }
    { format.url "url" output.check
      year empty$
      revised empty$
      and
        { "empty year and revised in " cite$ * warning$ }
        'skip$
      if$
    }
  if$
  fin.entry
} % @Conference a @InProceedings, @InCollection a @InBook

% @InProceedings je pouhy odkaz na @Conference.
FUNCTION {inproceedings} { conference }
FUNCTION {incollection} { conference }
FUNCTION {inbook} { conference }

% Zpracuje zaznamy typu @Proceedings.
% 
% Bibliograficke citace monografickych publikaci (knih).
%
% Povinne polozky:   author nebo editor, title, edition, year, isbn or issn.
% Volitelne polozky: subtitle, contributory, address, publisher, month, series, number nebo volume, note, doi, url*.
% Polozky el. dok.:  howpublished*, revised*, cited*, version.
%
% * Povinna polozka pro el. dok.
FUNCTION {proceedings}
{ output.bibitem
  author.or.editor
  new.block %% primarni odpovednost (povinna)
  format.btitle
  new.block
  format.howpublished tie.or.connect output
  new.block %% primarni odpovednost a titul sborniku
%  format.edition "edition" output.check
  format.edition output
  new.block %% vydani
  contributory capitalize output
  new.block %% podrizena odpovednost (volitelna)
  format.publish.info
  format.date capitalize comma.connect
  format.cvolume comma.connect
  format.chapter comma.connect
  format.pages comma.connect
  format.revised comma.connect
  format.cited tie.or.connect
  capitalize output
  new.block %% nakladatelske udaje, datum vydani, revize/aktualizace a citace
  format.cseries output
  new.block %% edice (pokud je cislovana, tak i jeji cislo nebo svazek)
  format.doi output
  new.block
  isbn empty$
    { issn empty$
        { "empty isbn and issn in " cite$ * warning$ }
        { format.issn output }
      if$
    }
    { format.isbn output }
  if$
  new.block %% standardni cislo ISBN nebo ISSN (povinne)
  note capitalize output
  new.block %% poznamky
  howpublished empty$
    { format.url output }
    { format.url "url" output.check
      year empty$
      revised empty$
      and
        { "empty year and revised in " cite$ * warning$ }
        'skip$
      if$
    }
  if$
  fin.entry
} % @Proceedings

% Zpracuje zaznamy typu @Misc, @Webpage a @Website.
%
% Povinne polozky:   Alespon jedna z volitelnych!
% Volitelne polozky: author, secondarytitle, title, subtitle, howpublished, contributory, edition, month, doi, issn
%       year, revised*, cited, note, url, version, path
%
% Pozn.: Protestuje, pokud neni vyplneny rok. Nemel by tedy volat format.date...
FUNCTION {misc}
{ empty.misc.check
  'skip$
  { output.bibitem
    format.authors
    duplicate$ empty$
    { pop$
    }
    { output.authors }
    if$
    new.block
    secondarytitle output
    new.block
    format.btitle "title" output.check
	new.block
    format.howpublished output
    new.block
    contributory capitalize output
    new.block %% podrizena odpovednost (volitelna)
    format.edition output
    new.block
    format.publish.info
    edition empty$
    address empty$
    publisher empty$
    and
    and
      { 
        output
        day empty$
        { format.u.date capitalize output }
        { day ". " * format.date.g * output }
        if$
      }
      { 
        day empty$
        { format.date comma.connect output }
        { day ". " * format.date.g * comma.connect output }
        if$
      }
    if$
    time output
    revised empty$
      'skip$
      { 
        new.block
        format.revised output
      }
    if$
%   format.cited makesmall output
    new.block
    format.doi output
    new.block
    format.issn output %% standardni cislo ISSN (volitelne)
    new.block
    note capitalize makesmall output
    new.block
    howpublished empty$
    { format.url output }
    { format.url "url" output.check
      year empty$
      revised empty$
      and
      { "empty year and revised in " cite$ * warning$ }
      'skip$
      if$
    }
    if$
    new.block
	format.cited makesmall output
	new.block
    format.path output
    fin.entry
  }
  if$
}%@Misc a @Webpage a @Website
% @Webpage a @Website sou pouhe odkazy na @Misc.
FUNCTION {webpage} { misc }
FUNCTION {website} { misc }


% Zpracuje zaznamy typu @Manual, @TechReport a @Unpublished.
%
% Povinne polozky:   author, title, edition, address, organization nebo institution, month, year, revised
% Volitelne polozky:  note, number, url*
% Polozky el. dok.:  howpublished*, cited*
FUNCTION {techreport}
{ output.bibitem
  author.or.editor
  new.block %% primarni odpovednost (povinna)
  format.btitle "title" output.check
  new.block
  format.howpublished output
  new.block
  format.report.type
  format.edition capitalize comma.connect output
  new.block
  contributory capitalize output
  new.block %% podrizena odpovednost (volitelna)
  format.report.details
  format.date comma.connect
  format.revised comma.connect
  format.cited tie.or.connect
  capitalize output
  new.block %% udeja o vydavajici instituci (volitelne) a datum vydani (povinne)
  format.range output
  new.block %% rozsah (volitelny)
  note capitalize output
  new.block %% poznamka (volitelna)
  format.url output
  new.block %% dostupnost (volitelna)
  fin.entry
}%@Manual, @TechReport a @Unpublished
FUNCTION {manual} { techreport }
FUNCTION {unpublished} { techreport }


% Zpracuje zaznamy typu @BachelorsThesis, @MastersThesis a @PhdThesis.
% Bibliograficke citace akademickych praci (bakalarske, diplomove a dizertacni).
%
% Zakladni verze -- v choose.thesis ma hodnotu #0.
%
% Povinne polozky:   author, title, address nebo location, school, year, type
% Volitelne polozky: subtitle, pages, inserts, note, url, isbn, howpublished
FUNCTION {thesis}
{ output.bibitem
  format.authors
  duplicate$ empty$
    { pop$
      "empty author in " cite$ * warning$
    }
    { output.authors }
  if$
  new.block %% primarni odpovednost (povinna)
  format.btitle "title" output.check
  new.block
  format.howpublished output
  new.block %% titul (povinny)
  format.thesis.info capitalize output
  new.block %% misto a rok {povinne)
  format.cited makesmall output
  new.block %% cited
  format.thesis.range output
  new.block %% rozsah akademicke prace a jejich priloh (volitelne)
  type$ "l" change.case$
  duplicate$ "bachelorsthesis" =
    { pop$ "Bakalářská práce" }
    { "mastersthesis" =
        { "Diplomová práce" }
        { "Disertační práce" }
      if$
    }
  if$
  format.thesis.type output
  new.block %% typ akademicke prace (volitelny -- pouzije se implicitni)
  format.thesis.school output
  new.block
  format.isbn output
  new.block
  format.supervisor output
  note capitalize output
  new.block
  format.url output
  fin.entry %% standardni cislo ISBN (volitelne)
}%@BachelorsThesis, @MastersThesis a @PhdThesis

% Zaznamy typu @BachelorsThesis jsou zpracovany funkci thesis.
FUNCTION {bachelorsthesis}{ thesis }

% Zaznamy typu @MastersThesis jsou zpracovany funkci thesis.
FUNCTION {mastersthesis} { thesis }

% Zaznamy typu @PhdThesis jsou zpracovany funkci thesis.
FUNCTION {phdthesis} { thesis }

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%% MIRNE UPRAVENE FUNKCE PREVZATE Z plain.bst %%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% nacteni bibliograficke databaze
READ

% Pripravi hodnotu pro razeni -- aplikuje vestavenou funkci purify$ a prevede
% na minusky.
FUNCTION {sortify}
{ purify$
  "l" change.case$
}

% Deklarace dalsi celociselne promenne.
INTEGERS { len }

% Vrati pouze cast predane hodnoty.
FUNCTION {chop.word}
{ 's :=
  'len :=
  s #1 len substring$ =
    { s len #1 + global.max$ substring$ }
    's
  if$
}

% Piprava jmen na razeni.
FUNCTION {sort.format.names}
{ 's :=
  #1 'nameptr :=
  ""
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { nameptr #1 >
  { "   " * }
  'skip$
      if$
%       s nameptr "{vv{ } }{ll{ }}{  ff{ }}{  jj{ }}" format.name$ 't :=
      s nameptr "{ll{ }}{  ff{ }}{  vv{ }}" format.name$ 't :=  %% Zamena!
      nameptr numnames = t "others" = and
  { opt.etal * }
  { t sortify * }
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

% Priprava titulu na serazeni.
FUNCTION {sort.format.title}
{ 't :=
  "A " #2
    "An " #3
      "The " #4 t chop.word
    chop.word
  chop.word
  sortify
  #1 global.max$ substring$
}

% Serazeni dle autora.
FUNCTION {author.sort}
{ key empty$
    { author empty$
      editor empty$
      and
        { "to sort, need author or key in " cite$ * warning$
          ""
        }
        { author empty$
            { editor sort.format.names }
            { author sort.format.names }
          if$
        }
      if$
    }
    { key sortify }
  if$
}
% Dytrych: Původní funkce upřednostní jméno před klíčem a ten pak nelze použít k opravě českého řazení.
% FUNCTION {author.sort}
% { author empty$
%     { key empty$
%   { "to sort, need author or key in " cite$ * warning$
%     ""
%   }
%   { key sortify }
%       if$
%     }
%     { author sort.format.names }
%   if$
% }

% Serazeni dle editora.
FUNCTION {author.editor.sort}
{ key empty$
    { author empty$
  { editor empty$
      { "to sort, need author, editor, or key in " cite$ * warning$
        ""
      }
      { editor sort.format.names }
    if$
  }
  { author sort.format.names }
      if$
    }
    { key sortify }
  if$
}
% FUNCTION {author.editor.sort}
% { author empty$
%     { editor empty$
%   { key empty$
%       { "to sort, need author, editor, or key in " cite$ * warning$
%         ""
%       }
%       { key sortify }
%     if$
%   }
%   { editor sort.format.names }
%       if$
%     }
%     { author sort.format.names }
%   if$
% }

% Serazeni dle autora, editora nebo organizace. Jedna se o nevyuzitou funkci.
FUNCTION {author.organization.sort}
{ author empty$
    { organization empty$
  { key empty$
      { "to sort, need author, organization, or key in " cite$ * warning$
        ""
      }
      { key sortify }
    if$
  }
  { "The " #4 organization chop.word sortify }
      if$
    }
    { author sort.format.names }
  if$
}

% Serazeni dle editora ci organizace. Jedna se o nevyuzitou funkci.
FUNCTION {editor.organization.sort}
{ editor empty$
    { organization empty$
  { key empty$
      { "to sort, need editor, organization, or key in " cite$ * warning$
        ""
      }
      { key sortify }
    if$
  }
  { "The " #4 organization chop.word sortify }
      if$
    }
    { editor sort.format.names }
  if$
}

% Priprava na razeni.
%
% Funkce je zmenena oproti puvodnimu zneni v plain.bst.
FUNCTION {presort}
{ type$ "book" =
  type$ "inbook" =
  or
  { author.editor.sort }
  { author.sort }
  if$
  "    " *
  year field.or.null sortify *
  "    " *
  title field.or.null
  sort.format.title *
  #1 entry.max$ substring$
  'sort.key$ :=
}

% Provede pripravu pred razenim.
ITERATE {presort}

% Provede serazeni.
SORT

% Deklarace retezcove promenne pro urceni nejdelsiho navesti do soupisu bib.cit.
STRINGS { longest.label }

% Deklarace pomocnych ciselnych promennych.
INTEGERS { number.label longest.label.width }

% Inicializace pomocnych promennych.
FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
  #1 'number.label :=
  #0 'longest.label.width :=
}

% Predani nejdelsiho navesti.
FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
  number.label #1 + 'number.label :=
  label width$ longest.label.width >
    { label 'longest.label :=
      label width$ 'longest.label.width :=
    }
    'skip$
  if$
}

% Provede inicializaci pomocnych promennych.
EXECUTE {initialize.longest.label}

% Vybere nejdelsi navesti.
ITERATE {longest.label.pass}

% Tato funkce se stara o prvni radky, ktere se objevi ve vystupnim souboru.
%
% Tato funkce je rozsirena o podminenou definici prikazu \url{}.
FUNCTION {begin.bib}
{ "\makeatletter" write$ newline$
%%%  "\@ifundefined{url}"
%%%    "{\def\url#1{{\tt $<$#1$>$}}}" *
%%%    "{\DeclareUrlCommand\url{\def\UrlLeft{<} \def\UrlRight{>} \urlstyle{tt}}}" *
%%%    write$ newline$
  "\makeatother" write$ newline$
  preamble$ empty$
    'skip$
    { preamble$ write$ newline$ }
  if$
  "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
}

% Funkce zapise posledni radky do vystupniho souboru -- uzavre prostredi
% thebibliography.
FUNCTION {end.bib}
{ newline$
  "\end{thebibliography}" write$ newline$
}

% Vlozi do vystupniho souboru zacatek prostredi thebibliography.
EXECUTE {begin.bib}

% Provede inicilizaci potrebnych konstant.
EXECUTE {init.state.consts}

% Zpracovani vsech citovanych zaznamu.
ITERATE {call.type$}

% Uzavre prostredi thebibliography.
EXECUTE {end.bib}