This never happened before when I generated fpdoc help for tiOPF. I tried
now with the latest fpdoc in Trunk (2.5.1) and I get the following errors.
I then tried with fpdoc from latest 2.4.1 branch and the same thing. The
last time I generated fpdoc help for the tiOPF project was 2009-05-28 and
then it worked fine.
Looking at the actual code, I cannot see what the problem is. FPC 2.4.1 and
FPC 2.5.1 compiles the tiOPF code without such errors.
---------[ fpdoc errors ]------------------
../Source/Core/tiVisitorDB.pas(160,16): Expected ";" at token "Identifier
deprecated"
../Source/Core/tiUtils.pas(1371,14): Expected ";" at token "of"
../Source/Core/tiStreams.pas(384,5): Syntax error at token "label"
----------------------------
Here are the actual code snippets. I marked the lines fpdoc reports the
errors on.
------------[ tiVisitorDB.pas ]-------------
// alias class will be removed soon.
TVisOwnedQrySelect = class(TtiVisitorSelect)
end deprecated; // <<-- error reported here
--------------------------------------------
------------[ tiUtils.pas ]-------------
function tiGetFileSize(AValue : string): longInt;
var f: file of Byte; // <<-- error reported here
begin
AssignFile(f, AValue);
Reset(f);
result := FileSize(f);
closeFile(f);
end;
--------------------------------------------
------------[ tiStreams.pas ]-------------
function MimeEncodeString (const s: AnsiString): AnsiString;
label // <<-- error reported here
NothingToDo;
var
l: Cardinal;
begin
if Pointer(s) = nil then
goto NothingToDo;
l := Cardinal (Pointer (Cardinal (Pointer (s)) - 4)^);
SetLength (Result, (l + 2) div 3 * 4);
if Pointer (Result) = nil then
goto NothingToDo;
MimeEncode (Pointer (s)^, l, Pointer (Result)^);
Exit; //==>
NothingToDo:
Result := '';
end;
--------------------------------------------
Regards,
- Graeme -
--
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
