diff --git a/test-file/pret-pas_test.tex b/test-file/pret-pas_test.tex index aad23a8..c02732d 100644 --- a/test-file/pret-pas_test.tex +++ b/test-file/pret-pas_test.tex @@ -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 \ No newline at end of file