[lazarus] PASDOC

Marc Weustink weus at quicknet.nl
Tue Mar 7 13:15:43 EST 2000


At 12:42 07-03-2000 +0100, Michael Van Canneyt wrote:

>I had a look at the code.
>
>Have a look at the 'uses' clause:
>
>  SysUtils, Windows, Messages, Classes, Controls, mwPasLexTypes, mwPasLex,
>   mwSimplePasParTypes, Dialogs;
>
>To be usable by Free Pascal, this should be reduced to
>
>   SysUtils,Classes,  mwPasLexTypes, mwPasLex, mwSimplePasParTypes,
>
>Windows, messages, controls and dialogs have no place in a parser.
>The same is true for the mwpaslex unit. But I assume you don't need them,
>that they are inserted by Delphi by default.
>
>Then, Free Pascal gets stuck on mwpaslextypes :
>
>function ptTokenName(Value: TptTokenKind): string;
>begin
>   result := GetEnumName(TypeInfo(TptTokenKind), Integer(Value));
>end;
>
>I assume the typinfo call is something of Delphi 5 ? the call doesn't
>exist in Free Pascal.

TypeInfo is also part of Delphi 4 system unit.


>(Florian: Apparently this should become an internal function of
>Free Pascal, since I see no other way of doing this)

In Delphi it is as well


>There are some more errors; the
>
>   inherited;
>construct is not provided. In Free pascal you must write the call again
>explicitly, with it's arguments.

We came accross this with porting the editor, it should be no problem to 
include some ifdefs

Marc







More information about the Lazarus mailing list