Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
% tests/test3.tex:
% This file:
%   http://angg.twu.net/dednat5/tests/test3.tex.html
%   http://angg.twu.net/dednat5/tests/test3.tex
%                (find-dn5file "tests/test3.tex")
% Author: Eduardo Ochs <eduardoochs@gmail.com>
% Version: 2011may09
% License: GPL3
%
% To compile this file and display the result I use this:
%   (defun c () (interactive) (find-sh "make test3.veryclean; make test3.dvi"))
%   (defun d () (interactive) (find-dvipage "~/dednat5/tests/test3.dvi"))
% See:
%   (find-dn5 "tests/Makefile" "test3")
%   http://angg.twu.net/dednat5/tests/test3.pdf
% This file tests:
%   (find-dn5 "diagmiddle.lua")


% (find-angg ".emacs" "eejump-plists" "453")
% (find-dn4 "experimental.lua" "splitdist")

\documentclass{article}
\input test3.dnt % (find-fline "test3.dnt")
\begin{document}

%L dofile "../diagmiddle.lua"   -- (find-dn5 "diagmiddle.lua")
%:*|->*\mapsto *
%L forths["<="] = function () pusharrow("<=") end

A diagram:
%
%D diagram foo
%D 2Dx     100     +20
%D 2D 100 a,b <=== a
%D 2D      -       -
%D 2D      |  <->  |
%D 2D      v       v
%D 2D +20  c ==> b|->c
%D 2D
%D (( a,b a c b|->c
%D    @ 0 @ 1 <=
%D    @ 0 @ 2 |-> @ 1 @ 3 |->
%D    @ 2 @ 3 =>
%D    @ 0 @ 3 harrownodes nil 20 nil |->
%D ))
%D enddiagram
%D
$$\diag{foo}$$

%L print("hello")

\ifx\FOO\relax
Yes
\fi


\end{document}


% dump-to: tests
%[==[
%]==]

% Local Variables:
% coding:             raw-text-unix
% ee-anchor-format:   "«%s»"
% End: