these-jcb/figures/tomGomCompiler.tex

\begin{figure}[H]

  % Define the layers to draw the diagram
  \pgfdeclarelayer{tomgombackground}
  \pgfdeclarelayer{tombackground}
  \pgfsetlayers{tomgombackground,tombackground,main}

  % Define a new shape: page with a folded corner 
  \makeatletter
  \pgfdeclareshape{flippedpage}{
    \inheritsavedanchors[from=rectangle] % this is nearly a rectangle
    \inheritanchorborder[from=rectangle]
    \inheritanchor[from=rectangle]{center}
    \inheritanchor[from=rectangle]{north}
    \inheritanchor[from=rectangle]{south}
    \inheritanchor[from=rectangle]{west}
    \inheritanchor[from=rectangle]{east}
    % ... and possibly more
    \backgroundpath{% this is new
    % store lower left in xa/ya and upper right in xb/yb
    \southwest \pgf@xa=\pgf@x \pgf@ya=\pgf@y
    \northeast \pgf@xb=\pgf@x \pgf@yb=\pgf@y
    % compute corner of ``flipped page''
    \pgf@xc=\pgf@xb \advance\pgf@xc by-5pt % this should be a parameter
    \pgf@yc=\pgf@yb \advance\pgf@yc by-5pt
    % diagonal path of the corner 
    \pgfpathmoveto{\pgfpoint{\pgf@xa}{\pgf@ya}}
    \pgfpathlineto{\pgfpoint{\pgf@xa}{\pgf@yb}}
    \pgfpathlineto{\pgfpoint{\pgf@xc}{\pgf@yb}}
    \pgfpathlineto{\pgfpoint{\pgf@xb}{\pgf@yc}}
    \pgfpathlineto{\pgfpoint{\pgf@xb}{\pgf@ya}}
    \pgfpathclose
    % add little corner
    \pgfpathmoveto{\pgfpoint{\pgf@xc}{\pgf@yb}}
    \pgfpathlineto{\pgfpoint{\pgf@xc}{\pgf@yc}}
    \pgfpathlineto{\pgfpoint{\pgf@xb}{\pgf@yc}}
    \pgfpathlineto{\pgfpoint{\pgf@xc}{\pgf@yc}}
    }
  }

  % Define block styles
  \tikzstyle{compiler}=[draw, fill=blue!20, text width=6em, text centered, minimum height=2.5em, rounded corners]
  %\tikzstyle{compiler2}=[diamond, aspect=2, draw, fill=blue!20, text centered, rounded corners=1]
  \tikzstyle{compiler2}=[diamond, aspect=2, draw, text centered, rounded corners=1]
  %\tikzstyle{code}=[draw,shape=flippedpage,text width=2.7em, text centered, minimum height=3.7em,fill=white]
  \tikzstyle{code}=[draw,shape=flippedpage,text width=3em, text centered,
  minimum height=4.2em,fill=white]
  \tikzstyle{texttitle}=[fill=white, rounded corners, draw=black!50, dashed]
  \tikzstyle{background}=[fill=yellow!20, rounded corners, draw=black!50, dashed]

  \begin{center}
  \begin{tikzpicture}
    % Draw diagram elements
    
    % Draw an invisible paper and back papers
    \node (mapping) [code] {\figcode{Ancrages algébriques}};

    \path (mapping.east)+(3,-2.5) node (datastruct)[code] 
    {\figcode{Structures \\ de \\ données \\ Java}};
    \path (mapping.west)+(-3,2.5) node (tomcode)[code] 
      {\figcode{Tom \\ + \\ Java}};
    \path (tomcode.east)+(3,0) node (tomcomp)[compiler2] 
    {\figcode{\textbf{Compilateur {\tom}}}};
    \path (mapping.east)+(3,2.5) node (javacode)[code] 
      {\figcode{Code Java}};
    \path (mapping.east)+(6,2.5) node (javacomp)[compiler2] 
    {\figcode{\textbf{Compilateur {\java}}}};
    \path (mapping.east)+(9,2.5) node (bytecode)[code]
      {\figcode{110010}\\\figcode{101110}\\\figcode{010100}};

    % Draw gom side
    \path (mapping.west)+(-3.0,-2.5) node[code] (gomsig) {\figcode{Signature} \\ \figcode{Gom}};
    \path (gomsig.east)+(3,0) node (gomcomp)[compiler2] 
    {\figcode{\textbf{Compilateur {\gom}}}};

    % Draw arrows between elements
    \path [->] (gomsig.east) edge (gomcomp);
    \path [->] (gomcomp.north) edge (mapping);
    % Use invisible mapping to avoid arrow cover back papers
    \path [->] (mapping.north) edge (tomcomp);
    \path [->] (gomcomp.east) edge (datastruct);
    %\path [draw, ->] (datastruct.east) -- ++(3,0) -- node [below] {} (javacomp);

    \draw[->] (datastruct) -- ++(3,0) -- (javacomp);
    %\path [->] (datastruct.east) edge (javacomp);

    \path [->] (tomcode.east) edge (tomcomp);
    \path [->] (tomcomp.east) edge (javacode);
    \path [->] (javacode.east) edge (javacomp);
    \path [->] (javacomp.east) edge (bytecode);

  \end{tikzpicture}
  \end{center}
  \caption{Processus de compilation d'un programme {\tom}}
\label{fig:tomGomCompiler}
\end{figure}