"""
Processor that calls Pascal Mimeview processor

Version: 0.0.1 (2006-09-10)

Example:
{{{
#!pascal
procedure Example(const A, B : byte);
begin
	if (A=B) then for i:=0 to 25 do begin
	    WriteLn('Example');
	end;
end;
}}}

SHadoW
shadow(at)mapik(dot)net
"""

from trac.mimeview import Mimeview

def execute(hdf, text, env):
    return Mimeview(env).render(None, 'text/x-pascal', text)