- Updated the test file

This commit is contained in:
Stefan Müller 2010-10-02 15:21:17 +02:00
parent 1fcff0a80e
commit 790f4465ff
1 changed files with 12 additions and 8 deletions

View File

@ -1,13 +1,15 @@
\installprettytype[PAS][PAS] \installprettytype[PAS][PAS]
%\setupcolors[state=start]
%\setuptyping[option=color]
\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line] \definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line]
%\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line, palet=] %\definetyping[PAS][option=PAS, escape=yes, tab=4, numbering=line, palet=]
\setuplinenumbering[location=text] \setuplinenumbering[location=text]
\starttext \starttext
The first block shows all features of the Pascal pretty printer
\startPAS \startPAS
{ Comment } { Comment }
(* An alternative comment *)
{$R- compiler directive } {$R- compiler directive }
procedure TForm1.Button1.Click(Sender: TObject); procedure TForm1.Button1.Click(Sender: TObject);
var // Delphi Comment var // Delphi Comment
@ -23,6 +25,8 @@ begin
end; end;
\stopPAS \stopPAS
The next block shows some (more or less usefull) special cases.
\startPAS \startPAS
My_Variable := _for; My_Variable := _for;
45My_Variable := _Variable45; 45My_Variable := _Variable45;
@ -30,17 +34,17 @@ normal asm green for end normal For END
normal aSM green foR eNd normal For END normal aSM green foR eNd normal For END
&for asm green &for asm green
end normal / normal end normal / normal
{bold'bold}normal'blue {blue slanted'slanted}normal'blue
normal'blue{blue}blue'Normal'blue normal'blue{blue}blue'Normal'blue
asm green'gr{ee}n'{bold bold}green end asm green'gr{ee}n'{blue slanted}green end
{asm bold end} {asm slanted end}
normal'blue'Normal'Blue'nOrmal'bLue'noRmal normal'blue'Normal'Blue'nOrmal'bLue'noRmal
normal {bold*) still bold normal {slanted*) still slanted
still comment still comment
comment (* ends} normal comment (* ends} normal
normal (*bold} still bold normal (*slanted} still slanted
still comment still comment
comment { ends*) normal comment { ends*) normal
normal {bold blue} normal {$bold red} normal normal {slanted blue} normal {$slanted red} normal
\stopPAS \stopPAS
\stoptext \stoptext