I haven't worked through the ptopu.pp unit at all, just spotted the
problem in the output generated. I'll have a look during the week to
see if I can find at fix the bug. Just thought it would be done
faster by however is maintaining the code.
I sure do understand the time issue working on open-source projects.
Mine is limited too, so no worries. If I get stuck, I'll email you in
private.
Regards,
- Graeme -
On 3/19/07, Michael Van Canneyt <[EMAIL PROTECTED]> wrote:
On Mon, 19 Mar 2007, Graeme Geldenhuys wrote:
> Hi,
>
> I saved the default settings of 'ptop' to a file using the following
>
> ptop -g ptop.cfg
>
> Now using that config file with the -c parameter and not specifying it
> at all should give me the same results, but it does! Anybody that can
> shed some light on this. I'm in the process of creating a Borland
> Object Pascal coding standards config file and came across this
> stumbling block.
>
> Here is how I used the ptop application with the defaults and defaults
> generated config file:
>
> 1) ptop test3.pp test3_out.pp
> 2) ptop -c ptop.cfg test3.pp test3_out.pp
>
>
> Here is the content of the test3.pp file
>
> -------------------[ test3.pp ]--------------------------
> procedure TestTryProc;
> begin
>
> try ShowMessage ('Start'); try ShowMessage ('trying');
> try ShowMessage ('still trying');
> finally ShowMessage ('going...'); end;
> except ShowMessage ('except'); end;
> finally ShowMessage ('Finally!'); end;
>
> end;
> -------------------[ end ]--------------------------
>
>
> Here is the output of 1) above. Notice the difference in indentation
> of the try/finally and try/except blocks in 1) and 2).
I don't have much time at the moment, and it has been a long time since I
looked at the ptopu unit. The unit was originally intended for TP code,
and try/finally/end did not exist back then. The support I added for this
was a quick hack. I'm sorry to say that at the moment I don't have time to
look at the config file problem, so you'll have to do some testing :/
If you mail me in private, I can try to help.
Michael.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
--
Graeme Geldenhuys
There's no place like S34° 03.168' E018° 49.342'
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
