Michael Van Canneyt wrote:
On Fri, 11 Jan 2008, willem wrote:
I try to generate xml with fpdoc, but I get an error message
FPDoc - Free Pascal Documentation Tool
Version 2.2.0 [2007/08/30]
(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, [EMAIL PROTECTED]
Invalid format "XML-STRUCT" specified
Writing 9 pages...
Done.
The pages are html in stead of xml.
Obviously. Read the error message.
What is the command-line you are using ?
Michael.
makeskel --package=regexdna --input=regexdna.pas --output=regexdna.xml
fpdoc --format=xml-struct --package=regexdna --input=regexdna.xml
The output is now :
MakeSkel - FPDoc skeleton XML description file generator
Version 2.2.0 [2007/08/30]
(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, [EMAIL PROTECTED]
Done.
FPDoc - Free Pascal Documentation Tool
Version 2.2.0 [2007/08/30]
(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, [EMAIL PROTECTED]
Invalid format "XML-STRUCT" specified
regexdna.xml(1,1): Expected "unit" at token "<"
Writing 1 pages...
Done.
A code snippet is here :
{Gentoo : Intel® Pentium® 4
Computer Language Benchmarks Game
The Computer Language Benchmarks Game
http://shootout.alioth.debian.org
regex-dna benchmark using libpcre
contributed by Vitaly Trifonov
*}
unit regexdna;
{$Mode objfpc}
{$INLINE ON}
{$IFNDEF DEBUG}
{$CHECKPOINTER OFF}
{$RANGECHECKS OFF}
{$OVERFLOWCHECKS OFF}
{$IOCHECKS OFF}
{$ENDIF}
interface
uses sysutils;
(****************************** pcre wrap
*****************************)
const
libpcre = 'pcre';
PCRE_CASELESS = $00000001;
type
pcre = Pointer;
pcre_extra = Pointer;
PPChar = ^PChar;
implementation
function pcre_compile( const pattern: PChar;
options: Integer;
const errptr: PPChar;
erroffset: PInteger;
const tableptr: PChar ): pcre; cdecl; external
libpcre;
function pcre_exec( const code: pcre;
const extra: pcre_extra;
const subject: PChar;
length, startoffset, options: Integer;
ovector: PInteger;
ovecsize: Integer ): Integer; cdecl; external libpcre;
function pcre_study( const external_re: pcre;
options: integer;
errorptr: PPChar ): pcre_extra; cdecl; external
libpcre;
(***************************************************************************)
const
patt: array[0..10] of PChar =
('B','D','H','K','M','N','R','S','V','W','Y');
repl: array[0..10] of PChar = ('(c|g|t)', '(a|g|t)', '(a|c|t)', '(g|t)',
'(a|c)','(a|c|g|t)', '(a|g)', '(c|g)', '(a|c|g)', '(a|t)', '(c|t)');
<?xml version="1.0" encoding="ISO-8859-1"?>
<fpdoc-descriptions>
<package name="regexdna">
<!--
====================================================================
regexdna
====================================================================
-->
<module name="regexdna">
<short></short>
<descr>
</descr>
<!-- unresolved type reference Visibility: default -->
<element name="sysutils">
<short></short>
<descr>
</descr>
<seealso>
</seealso>
</element>
Regards Wim
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
