Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
<code pascal>
  procedure zatrid(s: Seznam; co: integer);
  var
    novaKrabicka,
    ukazovatko: UkPrvek;
  begin
    {vytvoreni krabicky - budeme ji potrebovat za vsech okolnosti}
    new(novaKrabicka);
    novaKrabicka^.info := co;
    novaKrabicka^.next := nil;
    novaKrabicka^.prev := nil;
    
    {seznam je prazdny => vytvorime 1prvkovy seznam obsahujici jen novou krabicku}
    if s.zacatek = nil then begin
      s.zacatek := novaKrabicka;
      s.konec := novaKrabicka;

    {pridavany prvek je mensi nez vsechny dosavadni prvky seznamu}
    end else if co < s.zacatek^.info then begin
      novaKrabicka^.next := s.zacatek;
      s.zacatek^.prev := novaKrabicka;
      s.zacatek := novaKrabicka;

    {pridavame do neprazdneho jinam nez na zacatek}
    end else begin
 
      {doskaceme bud k prvnimu prvku, ktery je vetsi nez pridavany prvek,...}
      {...nebo na konec seznamu (je-li pridavany prvek vetsi nez vsechny dosavadni prvky seznamu)}
      ukazovatko := s.zacatek;
      while ukazovatko <> nil and ukazovatko^.info < co do
        ukazovatko := ukazovatko^.next;

      {pridavany prvek je vetsi nez vsechny dosavadni prvky seznamu => pridame ho na konec}
      if ukazovatko = nil then begin
        novaKrabicka^.prev := s.konec;
        s.konec^.next := novaKrabicka;
        s.konec := novaKrabicka;

      {pridavame jinam nez na konec}
      end else begin
        novaKrabicka^.next := ukazovatko;
        novaKrabicka^.prev := ukazovatko^.prev;
        ukazovatko^.prev^.next := novaKrabicka;
        ukazovatko^.prev := novaKrabicka;
      end;

    end;

  end;
</code>