#!/usr/bin/php

<?php /**
 POKUD CHCES STAHNOUT HTML SOUBORY Z WIKI I BEZ PROMAZAVANI, SPUST ME S PARAMETREM "download"
*/ ?>

\documentclass[12pt]{book}
\usepackage{geometry}                % See geometry.pdf to learn the layout options. There are lots.
\geometry{letterpaper}                   % ... or a4paper or a5paper or ...
%\geometry{landscape}                % Activate for for rotated page geometry
\usepackage[parfill]{parskip}    % Activate to begin paragraphs with an empty line rather than an indent
\usepackage{graphicx}
\usepackage{graphics}
\usepackage{amssymb}
\usepackage{czech}
\usepackage{wrapfig}
\usepackage{hyperref}
\usepackage{fontspec,xltxtra,xunicode}
\usepackage{lettrine}
\usepackage{color}

\hypersetup[unicode]{
 pdftitle={Lawrence Lessig: Svobodná kultura},
 pdfauthor={wiki.root.cz, Aleš Janda, XeLaTeX},
 pdfsubject={Svobodná kultura},
 pdfkeywords={Svobodná kultura,Free culture,copyright,autorský zákon},
 pdfproducer={Aleš Janda, XeLaTeX},
 bookmarks=true,colorlinks=true,breaklinks=true,urlcolor=black,citecolor=blue,linkcolor=black,unicode=true
}

\clubpenalty 5000
\widowpenalty 10000
\hyphenpenalty 1000
\tolerance 10000

\defaultfontfeatures{Mapping=tex-text}
\setromanfont[Scale=1.25,Mapping=tex-text]{Georgia}
\setsansfont[Scale=MatchLowercase,Mapping=tex-text]{DejaVuSans}
% \setmonofont[Scale=MatchLowercase]{Kirsty}

\newfontfamily{\UvodniNadpis}[Scale=2.52]{LMSans17}

\begin{document}

\vspace*{360pt}
\definecolor{NadpisBarva}{rgb}{0.6,0,0.2}
\thispagestyle{empty}
{\par\def\baselinestretch{5}\textbf{\Large\color{NadpisBarva}\UvodniNadpis{\MakeUppercase{Svobodná kultura}}}}
\vspace{15pt}
{\par\def\baselinestretch{1}\small\UvodniNadpis{Lawrence Lessig}}
\newpage
\thispagestyle{empty}

\def\baselinestretch{1.4}\small
\hfuzz 20pt
\vfuzz 20pt

\tableofcontents % vytvoří obsah podle souboru priklad.toc
\newpage % provede odstránkování

\def\baselinestretch{1.4}

\parindent=20pt

<?php
  function CisloNaNazev($cislo) { return 'FC1-'.$cislo; }

  function StahniObrazek($url,$pripona) {
    $hash = md5($url);
    if (!File_Exists('img/'.$hash.'.eps')) {
      Copy($url,'img/'.$hash.$pripona);
      System('convert img/'.$hash.$pripona.' img/'.$hash.'.eps');
    }
    return $hash;
  }


  define('STRANKA_S_POZNAMKAMI',25);
  $GLOBALS['stranky'] = Array(
   1 => 'chapter*',
   2 => 'chapter*',
   3 => 'part',
    4 => 'chapter',
    5 => 'chapter',
    6 => 'chapter',
    7 => 'chapter',
    8 => 'chapter',
   9 => 'part',
    10 => 'chapter',
    11 => 'chapter',
    12 => 'chapter',
    13 => 'chapter',
    14 => 'chapter',
   15 => 'part',
    16 => 'chapter',
    17 => 'chapter',
   18 => 'part',
    19 => 'chapter',
    20 => 'chapter',
   21 => 'chapter*',
   22 => 'chapter*',
    23 => 'section*',
    24 => 'section*',
   25 => null,
   26 => 'chapter*',
   28 => 'chapter*',
  );

  define('FALESNY_PART',21);		//ktera kapitole se ma dat do rejstriku jako part, ale do textu jako chapter

  @MkDir('img');
  @MkDir('html');

  $gradky = Array();
  $gpoznamky = Array();
  $gpoznamky['global'] = Array();

  foreach ($GLOBALS['stranky'] as $cislo_stranky => $typ_stranky) {
    $radky = Array();
    $poznamky = Array();
    $typ = 'zacatek';
    $pozice_globalnich_poznamek = 0;       //pro kapitolu s poznámkami, při každém <h2> se inkrementuje
    $posledni_poznamka_odkaz = null;

    $nazev_souboru = 'html/'.CisloNaNazev($cislo_stranky);
    if (@$GLOBALS['argv'][1] == 'download' || !File_Exists($nazev_souboru)) File_Put_Contents($nazev_souboru,iconv('iso-8859-2','utf-8',File_Get_Contents('http://wiki.root.cz/Main/'.CisloNaNazev($cislo_stranky))));
    foreach (File($nazev_souboru) as $radek) {
      switch ($typ) {
        case 'zacatek':
          if (StrPos($radek,'<div id=\'wikitext\'>') !== false) {
            if ($cislo_stranky == STRANKA_S_POZNAMKAMI) $typ = 'poznamkytext';
            else $typ = 'text';
          }
          break;

        case 'text':
          if (StrPos($radek,'Disk\'>Diskuse k') !== false || StrPos($radek,'\'>Kapitola ') !== false  || StrPos($radek,'\'>Předchozí kapitola</a>') !== false) { $typ = 'zatextem'; break; }
          $radek = Trim($radek);
          if (PReg_Match('/^(.*)<h1><strong>([^<]*)<\/strong><\/h1>/',$radek,$shody)) {
            $nazev = $shody[2];
            if ($typ_stranky == 'chapter' && PReg_Match('/^Kapitola [^\:]*\: (.*)$/',$nazev,$shody2)) $nazev = $shody2[1];
            $radek = $shody[1].'\\'.$typ_stranky.'{'.$nazev.'}'.(SubStr($typ_stranky,-1) == '*' ? "\n".($typ_stranky == 'section*' ? '\markright{\MakeUppercase{'.$nazev.'}}' : '\markboth{\MakeUppercase{'.$nazev.'}}{\MakeUppercase{'.$nazev.'}}').'\addcontentsline{toc}{'.($cislo_stranky == FALESNY_PART ? 'part' : SubStr($typ_stranky,0,-1)).'}{'.$nazev.'}' : '').SubStr($radek,StrLen($shody[0]));
          }
          $radek = PReg_Replace('/<h2( ? style=\'text\-align: center;\')?>([^<]*)<\/h2>/','\\section'.(SubStr($typ_stranky,-1) == '*' ? '*' : '').'{\2}',$radek);
          $radek = PReg_Replace('/<h3( ? style=\'text\-align: center;\')?>([^<]*)<\/h3>/','\\subsection'.(SubStr($typ_stranky,-1) == '*' ? '*' : '').'{\2}',$radek);
          $radky[] = $radek;
          break;

        case 'zatextem':
          if (StrPos($radek,'<h3>Poznámky editora:</h3>') !== false) $typ = 'poznamkydole';
          break;

        case 'poznamkydole':      //poznamky dole (napr. u uvodu)
          $radek = Trim($radek);
          if (StrPos($radek,'</div>') !== false) { $typ = 'konec'; break; }
          if (PReg_Match('/^.*<li><a name=\'([a-zA-Z0-9_\-]*)\' id=\'[^\']*\'><\/a>/',$radek,$shody)) {
            $poznamky[$shody[1]] = SubStr($radek,StrLen($shody[0]));
          }
          break;

        case 'poznamkytext':      //text globalnich poznamek v kapitole s poznamkami
          if (StrPos($radek,'\'>Předchozí kapitola</a>') !== false) { $typ = 'zatextem'; break; }
          $radek = Trim($radek);
          if (StrPos($radek,'<h2') !== false) {
            $pozice_globalnich_poznamek++;
            $gpoznamky['global'][$pozice_globalnich_poznamek] = Array();
            UnSet($posledni_poznamka_odkaz);
            $posledni_poznamka_odkaz = null;
          }
          else if (StrPos($radek,'<a name=\'') !== false) {
            UnSet($posledni_poznamka_odkaz);
            $posledni_poznamka_odkaz = null;
          }
          else if ($pozice_globalnich_poznamek > 0 && PReg_Match('/^<p( class=\'vspace\')?>([0-9]+). (.*)$/',$radek,$shody)) {
            $gpoznamky['global'][$pozice_globalnich_poznamek][$shody[2]] = $shody[3];
            $posledni_poznamka_odkaz = &$gpoznamky['global'][$pozice_globalnich_poznamek][$shody[2]];
          }
          else if ($posledni_poznamka_odkaz !== null) {       //navazuje na predchozi radek
            $posledni_poznamka_odkaz = RTrim($posledni_poznamka_odkaz.' '.$radek);
          }
          break;

        case 'konec':
          break;
      }
    }
    $gradky[CisloNaNazev($cislo_stranky)] = $radky;
    $gpoznamky[CisloNaNazev($cislo_stranky)] = $poznamky;
    UnSet($posledni_poznamka_odkaz);
  }

  $pozice_globalnich_poznamek = 1;

  foreach ($GLOBALS['stranky'] as $cislo_stranky => $typ_stranky) {
    if ($typ_stranky === null) continue;
    echo '% Stránka '.$cislo_stranky."\n";
    $pouzita_alespon_jedna_globalni_poznamka = false;
    $radky = $gradky[CisloNaNazev($cislo_stranky)];
    foreach ($radky as $index_radku => $radek) {

      for ($zmena = true; $zmena; ) {		//bude se to cyklit tak dlouho, dokud se bude jeste neco menit (pro vychytani vsech vnorenych elementu)
        $zmena = false;

                                     //vyrobím poznámky do footnote
        while (PReg_Match('/^(.*)<a href=\'#([a-zA-Z0-9_\-]*)\'>([^<]*)<\/a>/',$radek,$shody)) {
          $radek = $shody[1].$shody[3].'\footnote{'.$gpoznamky[CisloNaNazev($cislo_stranky)][$shody[2]].'}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<a class=\'urllink\' href=\'[^\']*'.Str_Replace('-','\-',CisloNaNazev(STRANKA_S_POZNAMKAMI)).'(#[a-zA-Z0-9_\-]*)?\' rel=\'nofollow\'>([0-9]+)<\/a>/',$radek,$shody)) {
          $radek = $shody[1].'\footnote{'.$gpoznamky['global'][$pozice_globalnich_poznamek][$shody[3]].'}'.SubStr($radek,StrLen($shody[0]));
          $pouzita_alespon_jedna_globalni_poznamka = true;
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<a class=\'urllink\' href=\'([^\']+)\' rel=\'nofollow\'>([^<]*)<\/a>/',$radek,$shody)) {  //jinak prevedu odkaz
          $radek = $shody[1].'\href{'.$shody[2].'}{\textsf{'.$shody[3].'}}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<a class=\'wikilink\' href=\'[^\']*'.Str_Replace('-','\-',CisloNaNazev(STRANKA_S_POZNAMKAMI)).'(#[a-zA-Z0-9_\-]*)?\'>([0-9]+)<\/a>/',$radek,$shody)) {
          $radek = $shody[1].'\footnote{'.$gpoznamky['global'][$pozice_globalnich_poznamek][$shody[3]].'}'.SubStr($radek,StrLen($shody[0]));
          $pouzita_alespon_jedna_globalni_poznamka = true;
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<a class=\'wikilink\' href=\'([^\']+)\'>([^<]*)<\/a>/',$radek,$shody)) {  //jinak prevedu odkaz
          $radek = $shody[1].'\href{'.$shody[2].'}{\textsf{'.$shody[3].'}}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<strong>([^<]*)<\/strong>/',$radek,$shody)) {    //tucny text
          $radek = $shody[1].'\textbf{'.$shody[2].'}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<em>([^<]*)<\/em>/',$radek,$shody)) {    //zvyrazneny text
          $radek = $shody[1].'\textit{'.$shody[2].'}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<div class=\'indent\'>([^<]*)(<\/div>)?$/',$radek,$shody)) {  //horizontalni odsazeni
          $radek = $shody[1].'\leftskip=30pt\parindent=0pt '.$shody[2].'\par \leftskip=0pt\parindent=20pt';
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<div class=\'vspace\'>([^<]*)<\/div>/',$radek,$shody)) {  //odstranim vertikalni odsazeni
          $radek = $shody[1].$shody[2].SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<span class=\'wikiword\'>([^<]*)<\/span>/',$radek,$shody)) {
          $radek = $shody[1].$shody[2].SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        $radek = Str_Replace('<p>','',$radek);
        $radek = Str_Replace('<p class=\'vspace\'>','',$radek);
        $radek = Str_Replace('</p>','',$radek);


                //tabulky
        while (PReg_Match('/^(.*)<table[^>]*><tr[^>]*><th[^>]*>([^<]*)<\/th><th[^>]*>([^<]*)<\/th><th[^>]*>([^<]*)<\/th><\/tr>/',$radek,$shody)) {         //zacatek tabulky se tremi sloupci
          $radek = $shody[1].'\begin{table}[ht]{\begin{center}\small\begin{tabular}{|c|c|c|}\hline'."\n".'\bfseries '.$shody[2].' & \bfseries '.$shody[3].' & \bfseries '.$shody[4].' \\\\ \hline'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<tr[^>]*><td[^>]*>([^<]*)<\/td><td[^>]*>([^<]*)<\/td><td[^>]*>([^<]*)<\/td><\/tr>/',$radek,$shody)) {         //telo tabulky se tremi sloupci
          $radek = ''.$shody[1].$shody[2].' & '.$shody[3].' & '.$shody[4].' \\\\ \hline'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<table[^>]*><tr[^>]*><th[^>]*>([^<]*)<\/th><th[^>]*>([^<]*)<\/th><th[^>]*>([^<]*)<\/th><th[^>]*>([^<]*)<\/th><\/tr>/',$radek,$shody)) {         //zacatek tabulky se ctyrmi sloupci
          $radek = $shody[1].'\begin{table}[ht]{\begin{center}\scriptsize\begin{tabular}{|c|c|c|c|}\hline'."\n".'\bfseries '.$shody[2].' & \bfseries '.$shody[3].' & \bfseries '.$shody[4].' & \bfseries '.$shody[5].' \\\\ \hline'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<tr[^>]*><td[^>]*>([^<]*)<\/td><td[^>]*>([^<]*)<\/td><td[^>]*>([^<]*)<\/td><td[^>]*>([^<]*)<\/td><\/tr>/',$radek,$shody)) {         //telo tabulky se ctyrmi sloupci
          $radek = ''.$shody[1].$shody[2].' & '.$shody[3].' & '.$shody[4].' & '.$shody[5].' \\\\ \hline'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<\/table>/',$radek,$shody)) {         //konec tabulky
          $radek = $shody[1].'\end{tabular}\end{center}}\end{table}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<ol><li>/',$radek,$shody)) {         //zacatek vyctoveho seznamu
          $radek = $shody[1].'{\baselineskip=9pt\begin{enumerate}'."\n".'\item '.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<\/li><li>/',$radek,$shody)) {         //dalsi polozka seznamu
          $radek = $shody[1].'\item '.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<\/li><\/ol>/',$radek,$shody)) {         //konec seznamu
          $radek = $shody[1].'\end{enumerate}}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }

        while (PReg_Match('/^(.*)<div ? style=\'text\-align: center;\'><img src=\'([^\']+)(\.[a-z]+)\' alt=\'([^\']*)\' title=\'([^\']*)\' \/>/',$radek,$shody)) {         //obrazek
          $hash = StahniObrazek($shody[2].$shody[3],$shody[3]);
          $radek = $shody[1].'\begin{figure}[ht]{\includegraphics[scale=0.6]{img/'.$hash.'.eps}\end{figure}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
        while (PReg_Match('/^(.*)<div><span class=\'frame rfloat\'> <a [^>]*><img src=\'([^\']+)(\.[a-z]+)\' alt=\'([^\']*)\' title=\'([^\']*)\' \/><\/a><\/span><\/div>/',$radek,$shody)) {         //obrazek
          $hash = StahniObrazek($shody[2].$shody[3],$shody[3]);
          $radek = $shody[1].'\begin{wrapfigure}{r}{0.3\textwidth}\begin{center}{\includegraphics[scale=0.6]{img/'.$hash.'.eps}\end{center}\end{wrapfigure}'.SubStr($radek,StrLen($shody[0]));
          $zmena = true;
        }
      }

      while (PReg_Match('/^([^"]*)"([^"]*)"/',$radek,$shody)) {		//uvozovky na české, kde nejsou...
        $radek = $shody[1].'„'.$shody[2].'“'.SubStr($radek,StrLen($shody[0]));
      }

      if ($index_radku == 1) {      //prvni radek kapitoly, vyrobim inicialu
        if (PReg_Match('/^[a-zA-Z]/',$radek) || Ord($radek) >= 128) $radek = '\lettrine{'.MB_SubStr($radek,0,1).'}{}'.MB_SubStr($radek,1);
      }

      $radek = PReg_Replace('/<p class=\'vspace\' ? style=\'text\-align: center;\'>(<code>)? ?\*\*\*(<\/code>)?/','\begin{center}{\large\textbf{* * *}}\end{center}',$radek);
      $radek = Str_Replace('</div>',"\n",$radek);      //obcas tam zustavaji po predchozim radku (indent)

      $radek = Str_Replace('&copy;','©',$radek);
      $radek = Str_Replace('&#169;','©',$radek);
      $radek = Str_Replace('&#224;','à',$radek);
      $radek = Str_Replace('&#8211;','–',$radek);
      $radek = Str_Replace('&#8212;','—',$radek);
      $radek = Str_Replace('&#8216;','‘',$radek);
      $radek = Str_Replace('&#8217;','’',$radek);
      $radek = Str_Replace('&#8218;','‚',$radek);
      $radek = Str_Replace('&#8220;','“',$radek);
      $radek = Str_Replace('&#8221;','”',$radek);
      $radek = Str_Replace('&#8222;','„',$radek);
      $radek = Str_Replace('&#8230;','…',$radek);
      $radek = Str_Replace('&amp;','\&',$radek);
      $radek = Str_Replace('#','\#',$radek);
      $radek = Str_Replace('$','\$',$radek);
      $radek = Str_Replace('%','\%',$radek);
      $radek = Str_Replace(' - ',' -- ',$radek);

      $radek = PReg_Replace('/  +/',' ',$radek);   //vice mezer za sebou prevedu na jednu
      $radek = PReg_Replace('/([0-9]{4}) \-\- ([0-9]{4})/','\1-\2',$radek);  //typograficka oprava rozmezi let
      $radek = PReg_Replace('/([0-9]) ([0-9]{3})/','\1\,\2',$radek);  //uzka mezera u oddeleni cislovek
      $radek = PReg_Replace('/([0-9]) ([0-9]{3})/','\1\,\2',$radek);  //a jeste jeden pruchod (pro miliony)
      $radek = PReg_Replace('/ ((ke?)|(o)|(s)|(u)|(ve?)|(ze?)|) ([^\{,.])/',' \1~\8',$radek);  //pevne mezery za jednopismennymi predlozkami

      $radky[$index_radku] = $radek;
    }

    $text = Implode("\n",$radky);
    echo $text."\n";

    if ($pouzita_alespon_jedna_globalni_poznamka) $pozice_globalnich_poznamek++;
  }
?>

\newpage
\thispagestyle{empty}
\vspace*{480pt}
\begin{center}
{\scriptsize
Svobodná kultura (v originále \textit{Free Culture}) -- Lawrence Lessig, 2004\\
Překlad kolektiv dobrovolníků na \href{http://wiki.root.cz}{wiki.root.cz} (2007-2010)\\
Sazba a skript pro automatický převod z wiki do \XeLaTeX{}u -- Aleš Janda, 2010\\
Generováno <?php $mesice = Array(1 => 'ledna','února','března','dubna','května','června','července','srpna','září','října','listopadu','prosince'); $datum = Time(); echo Date('j',$datum).'. '.$mesice[Date('n',$datum)+0].' '.Date('Y',$datum).' v '.Date('H:i',$datum); ?>.
}
\end{center}

\end{document}