- Updated the test file
This commit is contained in:
parent
1fcff0a80e
commit
790f4465ff
|
@ -1,13 +1,15 @@
|
|||
\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, palet=]
|
||||
\setuplinenumbering[location=text]
|
||||
|
||||
\starttext
|
||||
|
||||
The first block shows all features of the Pascal pretty printer
|
||||
|
||||
\startPAS
|
||||
{ Comment }
|
||||
(* An alternative comment *)
|
||||
{$R- compiler directive }
|
||||
procedure TForm1.Button1.Click(Sender: TObject);
|
||||
var // Delphi Comment
|
||||
|
@ -23,6 +25,8 @@ begin
|
|||
end;
|
||||
\stopPAS
|
||||
|
||||
The next block shows some (more or less usefull) special cases.
|
||||
|
||||
\startPAS
|
||||
My_Variable := _for;
|
||||
45My_Variable := _Variable45;
|
||||
|
@ -30,17 +34,17 @@ normal asm green for end normal For END
|
|||
normal aSM green foR eNd normal For END
|
||||
&for asm green
|
||||
end normal / normal
|
||||
{bold'bold}normal'blue
|
||||
{blue slanted'slanted}normal'blue
|
||||
normal'blue{blue}blue'Normal'blue
|
||||
asm green'gr{ee}n'{bold bold}green end
|
||||
{asm bold end}
|
||||
asm green'gr{ee}n'{blue slanted}green end
|
||||
{asm slanted end}
|
||||
normal'blue'Normal'Blue'nOrmal'bLue'noRmal
|
||||
normal {bold*) still bold
|
||||
normal {slanted*) still slanted
|
||||
still comment
|
||||
comment (* ends} normal
|
||||
normal (*bold} still bold
|
||||
normal (*slanted} still slanted
|
||||
still comment
|
||||
comment { ends*) normal
|
||||
normal {bold blue} normal {$bold red} normal
|
||||
normal {slanted blue} normal {$slanted red} normal
|
||||
\stopPAS
|
||||
\stoptext
|
Loading…
Reference in New Issue