Pascal ptop config file for out coding conventions

format_1_2.bat

@echo off
:: formats file 1.pas, puts output to 2.pas
ptop.exe -l 255 -c "%~dp0\ptop.cfg" "%~dp0\1.pas" "%~dp0\2.pas"

ptop.cfg

end=crbefore,dindonkey,dindent,crafter,upper
[end]=if,then,else,while,with,for,record,try,finally,except,class,object,private,public,protected,published,casevar,colon,equals
begin=crbefore,dindonkey,inbytab,crafter,upper
[begin]=var,label,const,type
if=spaft,gobsym,inbytab,upper
then=dindonkey,inbytab,upper
[then]=if
else=crbefore,dindent,dindonkey,inbytab,upper
[else]=else
proc=dindonkey,spaft,upper
[proc]=var,label,const,type
var=dindonkey,inbytab,upper
[var]=var,label,const,type
of=crsupp,spbef,spaft,upper
while=spaft,gobsym,inbytab,crafter,upper
do=crsupp,spbef,upper
case=spaft,gobsym,inbytab,crafter,upper
with=spaft,gobsym,inbytab,crafter,upper
for=spaft,gobsym,inbytab,crafter,upper
repeat=inbytab,crafter,upper
until=crbefore,dindonkey,dindent,spaft,gobsym,crafter,upper
[until]=if,then,else,while,with,for,colon,equals
func=dindonkey,spaft,upper
[func]=var,label,const,type
label=blinbefore,spaft,inbytab,upper
const=blinbefore,dindonkey,inbytab,upper
[const]=var,label,const,type
type=blinbefore,dindonkey,inbytab,upper
[type]=var,label,const,type
record=inbyindent,crafter,upper
[record]=end
string=
prog=blinbefore,spaft,upper
asm=
try=crbefore,inbytab,crafter,upper
finally=crbefore,dindent,inbytab,crafter,upper
[finally]=try
except=crbefore,dindent,inbytab,crafter,upper
[except]=try
raise=
class=inbyindent,upper
object=inbyindent,upper
constructor=
destructor=
inherited=
property=
private=crbefore,dindonkey,spaft,inbytab,upper
[private]=end,private,public,protected,published
public=crbefore,dindonkey,spaft,inbytab,upper
[public]=end,private,public,protected,published
protected=crbefore,dindonkey,spaft,inbytab,upper
[protected]=end,private,public,protected,published
published=crbefore,dindonkey,spaft,inbytab,upper
[published]=end,private,public,protected,published
initialization=
finalization=
inline=
library=blinbefore,spaft,upper
interface=blinbefore,crafter,upper
implementation=blinbefore,dindonkey,crafter,upper
[implementation]=end,var,label,const,type,property
read=
write=
unit=blinbefore,spaft,upper
and=
arr=
div=
down=
file=
goto=
in=
mod=
not=
nil=
or=
set=
to=
virtual=
uses=blinbefore,spaft,upper
casevar=spaft,gobsym,inbytab,crafter,upper
ofobject=
becomes=spbef,spaft,gobsym,upper
delphicomment=crafter
dopencomment=
dclosecomment=
opencomment=crsupp,upper
closecomment=crsupp,upper
semicolon=crsupp,dindonkey,crafter,upper
[semicolon]=if,then,else,while,with,for,colon,equals
colon=inbytab,upper
equals=spbef,spaft,inbytab,upper
openparen=gobsym,upper
closeparen=
period=crsupp,upper
endoffile=
other=