Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Xavier Bachelot
lemonldap-ng
Commits
60a18f12
Commit
60a18f12
authored
Jan 16, 2017
by
Yadd
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Remove old Doxygen files
parent
c4f5a0d1
Changes
9
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
0 additions
and
2437 deletions
+0
-2437
COPYING
COPYING
+0
-6
Doxyfile
Doxyfile
+0
-1421
Makefile
Makefile
+0
-14
debian/copyright
debian/copyright
+0
-6
scripts/DoxyGen/Filter.pm
scripts/DoxyGen/Filter.pm
+0
-202
scripts/DoxyGen/PerlFilter.pm
scripts/DoxyGen/PerlFilter.pm
+0
-473
scripts/DoxyGen/SQLFilter.pm
scripts/DoxyGen/SQLFilter.pm
+0
-126
scripts/doxygenfilter
scripts/doxygenfilter
+0
-119
scripts/findMsg.pl
scripts/findMsg.pl
+0
-70
No files found.
COPYING
View file @
60a18f12
...
...
@@ -115,12 +115,6 @@ Files: doc/media/icons/flags/*
Copyright: Mark James
License: CC-3
Files: scripts/doxygenfilter scripts/DoxyGen/Filter.pm
scripts/DoxyGen/SQLFilter.pm
Copyright: 2002, Bart Schuller
2006, Phinex Informatik AG <tom.aeby@phinex.ch>
License: Artistic or GPL-1+
Files: doc/lib/tpl/default/images/* doc/lib/images/*
doc/lib/plugins/note/images/* doc/media/wiki/dokuwiki-128.png
Copyright: 2004-2012 Andreas Gohr <andi@splitbrain.org>
...
...
Doxyfile
deleted
100644 → 0
View file @
c4f5a0d1
This diff is collapsed.
Click to expand it.
Makefile
View file @
60a18f12
...
...
@@ -242,8 +242,6 @@ all: configure common handler manager portal
@
echo
'Other targets :'
@
echo
" * Partial build :"
@
echo
" - portal, manager, handler"
@
echo
" * Doxygen documentation"
@
echo
" - doxygen (to build Doxygen documentation in doc/devel/)"
@
echo
@
echo
'Other targets launched by "make install" :'
@
echo
" * Perl libraries install :"
...
...
@@ -962,18 +960,6 @@ manager_cpan: manager_conf
documentation
:
@
cd
doc/
&&
../scripts/doc.pl
doxygen
:
clean
$(PERL)
-i
-pe
's/^(PROJECT_NUMBER\s*=\s*)\d.*$$/$
${1}
'
$(VERSION)
'/'
Doxyfile
COLLABORATIVE_GRAPH
=
1 doxygen Doxyfile
mkdir
doc/devel/tmp
mv
doc/devel/html/inherit
*
doc/devel/tmp/
COLLABORATIVE_GRAPH
=
0 doxygen Doxyfile
mv
-f
doc/devel/tmp/
*
doc/devel/html/
rm
-rf
doc/devel/tmp
$(PERL)
-i
-pe
's/Graphical Class Hierarchy/Class Collaboration Graph/'
doc/devel/html/inherits.html doc/devel/html/tree.html
# Some files are not generated
for
i
in
doc/devel/html/
*
dot
;
do
dot
-T
png
-o
$
${
i
/.dot/.png
}
$$
i
;
rm
-f
$$
i
;
done
diff
:
debian-diff
# TODO: change this
...
...
debian/copyright
View file @
60a18f12
...
...
@@ -115,12 +115,6 @@ Files: doc/media/icons/flags/*
Copyright: Mark James
License: CC-3
Files: scripts/doxygenfilter scripts/DoxyGen/Filter.pm
scripts/DoxyGen/SQLFilter.pm
Copyright: 2002, Bart Schuller
2006, Phinex Informatik AG <tom.aeby@phinex.ch>
License: Artistic or GPL-1+
Files: doc/lib/tpl/default/images/* doc/lib/images/*
doc/lib/plugins/note/images/* doc/media/wiki/dokuwiki-128.png
Copyright: 2004-2012 Andreas Gohr <andi@splitbrain.org>
...
...
scripts/DoxyGen/Filter.pm
deleted
100644 → 0
View file @
c4f5a0d1
# =======================================================================
# Doxygen Pre-Processor for Perl
# Copyright (C) 2002 Bart Schuller
# Copyright (C) 2006 Phinex Informatik AG
# All Rights Reserved
#
# Doxygen Filter is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# Larry Wall's 'Artistic License' for perl can be found in
# http://www.perl.com/pub/a/language/misc/Artistic.html
#
# =======================================================================
#
# Author: Aeby Thomas, Phinex Informatik AG,
# Based on DoxygenFilter from Bart Schuller
# E-Mail: tom.aeby@phinex.ch
#
# Phinex Informatik AG
# Thomas Aeby
# Kirchweg 52
# 1735 Giffers
#
# =======================================================================
#
# @(#) $Id: Filter.pm,v 1.2 2006/01/31 16:53:52 aeby Exp $
#
# Revision History:
#
# $Log: Filter.pm,v $
# Revision 1.2 2006/01/31 16:53:52 aeby
# added copyright info
#
#
# =======================================================================
## @file
# implementation of DoxyGen::Filter.
## @class
# Filter from non-C++ syntax API docs to Doxygen-compatible syntax.
# This class is meant to be used as a filter for the
# <a href="http://www.doxygen.org/">Doxygen</a> documentation tool.
package
DoxyGen::
Filter
;
use
warnings
;
use
strict
;
## @cmethod object new($outfh)
# create a filter object.
# @param outfh optional output filehandle; defaults to STDOUT
# @return filter object
sub
new
{
my
$class
=
shift
;
my
$outfh
=
shift
||
\
*STDOUT
;
return
bless
{
outfh
=>
$outfh
},
$class
;
}
## @method virtual void filter($infh)=0
# do the filtering.
# @param infh input filehandle, normally STDIN
sub
filter
{
die
"
subclass responsibility
";
}
## @method protected string protection($sig)
# Return the protection of a method/function signature.
# @param sig the method signature
# @return Either "Public" or "Private".
sub
protection
{
my
(
$self
,
$sig
)
=
@_
;
return
$sig
=~
/^(private|protected)/
?
"
\u
$1
"
:
'
Public
';
}
## @method void start($command)
# start a doc comment.
# Outputs the start of a javadoc comment.
# @param command the javadoc command
sub
start
{
my
$self
=
shift
;
my
$command
=
shift
;
$self
->
print
("
/**
$command
\n
");
return
$self
;
}
## @method void end()
# end a doc comment.
# Outputs the end of a javadoc comment.
sub
end
{
my
$self
=
shift
;
$self
->
print
("
*/
\n
");
return
$self
;
}
## @method void push($section)
# Start a diversion to a section.
# @param section The name of the section to divert all output to.
# @see pop(), print(), flush()
sub
push
{
my
(
$self
,
$section
)
=
@_
;
$self
->
{
current_section
}
=
$section
;
return
$self
;
}
## @method void pop()
# End a diversion to a section.
# @see push(), flush()
sub
pop
{
my
(
$self
)
=
@_
;
delete
$self
->
{
current_section
};
return
$self
;
}
## @method void print(@args)
# print a string to the output handle.
# If a diversion to a specific section is in effect: saves the text under
# that section.
# @param args the strings to be printed
# @see push(), flush()
sub
print
{
my
$self
=
shift
;
return
unless
@_
;
if
(
my
$section
=
$self
->
{
current_section
}
)
{
CORE::
push
@
{
$self
->
{
sections
}{
$section
}
},
@_
;
}
else
{
my
$outfh
=
$self
->
{
outfh
};
print
$outfh
@_
;
}
return
$self
;
}
## @method void more(@args)
# process the follow-up lines after the initial apidoc line.
# @param args the lines to be processed
sub
more
{
my
$self
=
shift
;
$self
->
print
(
@
_
);
return
$self
;
}
my
@order
=
(
'
Public Initialization Methods
',
'
Public Initialization Functions
',
'
Public Class Methods
',
'
Public Authentication Process Methods
',
'
Public Running Methods
',
'
Public Running Functions
',
'
Public Object Methods
',
'
Public Functions
',
'
Protected Initialization Methods
',
'
Protected Initialization Functions
',
'
Protected Class Methods
',
'
Protected Authentication Process Methods
',
'
Protected Running Methods
',
'
Protected Running Functions
',
'
Protected Object Methods
',
'
Protected Functions
',
'
Private Initialization Methods
',
'
Private Initialization Functions
',
'
Private Class Methods
',
'
Private Authentication Process Methods
',
'
Private Running Methods
',
'
Private Running Functions
',
'
Private Object Methods
',
'
Private Functions
',
);
## @method void flush()
# Flush the saved sections. Should be called at the end of a class.
# @see push(), print()
sub
flush
{
my
$self
=
shift
;
my
$sections
=
$self
->
{
sections
};
foreach
(
@order
)
{
next
unless
$sections
->
{
$_
};
$self
->
start
("
\@
name
$_
\n
")
->
end
;
$self
->
start
("
\@
{
")
->
end
;
$self
->
print
("
\n
");
$self
->
print
(
@
{
$sections
->
{
$_
}
}
);
$self
->
print
("
\n
");
$self
->
start
("
\@
}
")
->
end
;
$self
->
print
("
\n
");
}
delete
$self
->
{
sections
};
return
$self
;
}
1
;
__END__
=head1 NAME
Doxygen::Filter - use DoxyGen with Perl and other languages.
=head1 DESCRIPTION
Filter from non-C++ syntax API docs to Doxygen-compatible syntax.
This class is meant to be used as a filter for the
Doxygen (http://www.doxygen.org/) documentation tool
scripts/DoxyGen/PerlFilter.pm
deleted
100644 → 0
View file @
c4f5a0d1
# =======================================================================
# Doxygen Pre-Processor for Perl
# Copyright (C) 2002 Bart Schuller
# Copyright (C) 2006 Phinex Informatik AG
# All Rights Reserved
#
# Doxygen Filter is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# Larry Wall's 'Artistic License' for perl can be found in
# http://www.perl.com/pub/a/language/misc/Artistic.html
#
# =======================================================================
#
# Author: Aeby Thomas, Phinex Informatik AG,
# Based on DoxygenFilter from Bart Schuller
# E-Mail: tom.aeby@phinex.ch
#
# Phinex Informatik AG
# Thomas Aeby
# Kirchweg 52
# 1735 Giffers
#
# =======================================================================
#
# @(#) $Id: PerlFilter.pm,v 1.4 2006/01/31 17:46:06 aeby Exp $
#
# Revision History:
#
# $Log: PerlFilter.pm,v $
# Revision 1.4 2006/01/31 17:46:06 aeby
# filter(): avoid warnings about uninitialized values
# analyze_sub(): added some more argument recognition patterns
#
# Revision 1.3 2006/01/31 16:53:52 aeby
# added copyright info
#
#
# =======================================================================
## @file
# implementation of DoxyGen::PerlFilter.
#
## @class
# Filter from perl syntax API docs to Doxygen-compatible syntax.
# This class is meant to be used as a filter for the
# <a href="http://www.doxygen.org/">Doxygen</a> documentation tool.
package
DoxyGen::
PerlFilter
;
use
warnings
;
use
strict
;
use
base
qw(DoxyGen::Filter)
;
my
$id
=
__PACKAGE__
;
## @method void filter($infh)
# Do the filtering.
# @param infh input filehandle, normally STDIN
sub
filter
{
my
(
$self
,
$infile
)
=
@_
;
open
(
my
$infh
,
$infile
);
my
$current_class
=
"";
my
$file
=
[]
;
my
$endMark
=
1
;
my
(
$cc
,
$cl
,
$lc
,
$ll
)
=
(
0
,
0
,
0
,
0
);
while
(
<
$infh
>
)
{
$endMark
=
0
if
(
/^\s*use\s+AutoLoader/
);
last
if
(
$endMark
and
/^__END__$/
);
#next if (/^$/);
$cc
=
(
/^\s*#/
?
1
:
0
);
$lc
=
(
/[\{\}\[\];]\s*$/
?
1
:
0
);
if
(
$cc
or
$cl
or
$ll
or
not
(
@$file
)
)
{
push
(
@$file
,
$_
);
}
else
{
$file
->
[
$#
{
$file
}
]
=~
s/[\r\n]/ /g
;
$file
->
[
$#
{
$file
}
]
.=
$_
;
}
$cl
=
$cc
;
$ll
=
$lc
;
$cl
++
if
(
/\s#/
);
}
#print STDERR @$file;
$self
->
file_contents
(
$file
);
my
$objcontext
=
grep
(
/^\s*use\s+base\s/
,
@$file
)
||
grep
(
/\@ISA/
,
@$file
)
||
grep
(
/^\s*bless/
,
@$file
)
||
grep
(
/^\s*sub\s+new\s/
,
@$file
)
||
grep
(
/\$self/
,
@$file
);
push
(
@$file
,
""
);
# in order to have a delimiting empty line at EOF
for
(
my
$line
=
0
;
$line
<=
$#$file
;
)
{
$_
=
$file
->
[
$line
++
];
last
if
(
$endMark
and
/^__END__$/
);
if
(
/^##\s*\@(\S+)\s*(.*)/
)
{
my
(
$command
,
$args
)
=
(
$
1
,
$
2
);
my
@more
;
while
(
$_
=
$file
->
[
$line
++
]
)
{
if
(
/^#\s?(.+)/s
)
{
push
@more
,
$
1
;
}
else
{
last
;
}
}
if
(
$command
eq
'
file
'
)
{
$args
||=
$infile
;
$self
->
start
("
\@
$command
$args
");
$self
->
more
(
@more
);
$self
->
end
;
}
elsif
(
$command
eq
'
class
'
)
{
$objcontext
=
1
;
unless
(
$args
)
{
(
$args
)
=
/package\s(.*);/
;
}
if
(
$current_class
)
{
$self
->
flush
;
$self
->
print
("
};
\n
");
}
$current_class
=
$args
;
die
"
$line
$command
$args
"
unless
(
$args
);
$self
->
emit_class
(
$args
,
$line
,
[
"
\@
$command
$args
",
@more
,
"
\@
nosubgrouping
"
]
);
}
elsif
(
$command
eq
'
imethod
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Initialization Methods
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
apmethod
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Authentication Process Methods
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
rmethod
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Running Methods
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
cmethod
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Class Methods
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
ifn
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Initialization Functions
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
rfn
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Running Functions
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
fn
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Functions
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
method
'
)
{
unless
(
$args
)
{
(
$args
)
=
$self
->
analyze_sub
(
$line
-
1
);
}
$args
=
$self
->
munge_parameters
(
$args
);
$self
->
push
(
$self
->
protection
(
$args
)
.
'
Object Methods
'
);
$self
->
start
("
\@
fn
$args
")
->
more
(
@more
)
->
end
;
$self
->
print
(
$args
,
"
;
\n
"
);
$self
->
pop
;
}
elsif
(
$command
eq
'
enum
'
)
{
$self
->
start
("
\@
$command
$args
");
$self
->
more
(
@more
);
$self
->
end
;
$self
->
print
("
$command
$args
;
\n
");
}
else
{
$self
->
start
("
\@
$command
$args
");
$self
->
more
(
@more
);
$self
->
end
;
}
# We ate a line when we got the rest of the comment lines
redo
if
defined
$_
;
}
elsif
(
/^use\s+([\w:]+)/
)
{
my
$inc
=
$
1
;
#$inc =~ s/::/\//g;
$self
->
print
("
#include
\"
$inc
.pm
\"\n
");
}
elsif
(
/^package\s+([\w:]+)/
)
{
if
(
$current_class
)
{
$self
->
flush
;
$self
->
print
("
};
\n
");
}
next
unless
(
$objcontext
);
$current_class
=
$
1
;
$self
->
emit_class
(
$current_class
,
$line
);
}
elsif
(
/^sub\s+([\w:]+)/
)
{
my
(
$proto
,
$name
,
@args
)
=
$self
->
analyze_sub
(
$line
-
1
);
if
(
$current_class
&&
@args
&&
(
$args
[
0
]
eq
"
\$
self
"
)
)
{
$self
->
push
(
$self
->
protection
(
$proto
)
.
'
Object Methods
'
);
$proto
=~
s/\$self,*\s*//
;
}
elsif
(
$current_class
&&
@args
&&
(
$args
[
0
]
eq
"
\$
self
"
)
)
{
$self
->
push
(
$self
->
protection
(
$proto
)
.
'
Initialization Methods
'
);
$proto
=~
s/\$self,*\s*//
;
}
elsif
(
$current_class
&&
(
(
@args
&&
(
$args
[
0
]
eq
"
\$
class
"
)
)
||
(
$name
eq
"
new
"
)
)
)
{
$self
->
push
(
$self
->
protection
(
$proto
)
.
'
Class Methods
'
);
}
else
{
$self
->
push
(
$self
->
protection
(
$proto
)
.
'
Functions
'
);
}
$proto
=
$self
->
munge_parameters
(
$proto
);
$self
->
print
(
$proto
,
"
;
\n
"
);
$self
->
pop
;
}
}
$self
->
flush
();
if
(
$current_class
)
{
$self
->
print
("
};
\n
");
}
}
## @method @ analyze_sub( int line )
# analyzes a subroutine declaration starting at the given line. Tries
# to determine whicht arguments it takes.
#
# @param line The line number at which the sub starts
# @return A function prototype, the name of the function and a
# list of arguments it takes
sub
analyze_sub
{
my
(
$self
,
$line
)
=
@_
;
my
$file
=
$self
->
file_contents
();
$file
->
[
$line
]
=~
/^sub\s+(.*)\{/
;
my
$name
=
$
1
;
my
$proto
;
my
@args
;
if
(
$name
=~
/^(.*)\s*\((.*)\)/
)
{
$name
=
$
1
;
$proto
=
$
2
;
}
else
{
my
$forward
=
5
;
for
(
my
$i
=
0
;
$forward
&&
(
$i
+
$line
<=
$#$file
)
&&
!
$proto
;
$i
++
)
{
$_
=
$file
->
[
$i
+
$line
];
if
(
/^\s*my\s*\((.*)\)\s*=\s*\@_/
)
{
$proto
=
$
1
;
}
elsif
(
/^\s*(local|my)\s*([^\s]*)\s*=\s*shift\s*;/
)
{
push
(
@args
,
$
2
);
}
elsif
(
/^\s*(local|my)\s*([^\s]*)\s*=\s*\$_\[\s*(\d+)\s*]/
)
{
$args
[
$
3
]
=
$
2
;
}
elsif
(
/shift\s*->\s*[a-z0-9_]+\(/
)
{
# assuming anonymously used shifted value is $self
push
(
@args
,
'
$self
'
);
}
elsif
(
/^\s*\n/
||
/^\s*#/
)
{
;
}
elsif
(
/}/
)
{
$forward
=
0
;
}
else
{
$forward
--
;
}
}
}
if
(
$proto
)
{
$proto
=~
s/\s+//g
;
$proto
=~
s/,/, /g
;
@args
=
split
(
"
,
",
$proto
);
}
$name
=~
s/\s+$//
;
my
$protection
=
"";
if
(
substr
(
$name
,
0
,
1
)
eq
"
_
"
)
{
$protection
=
"
protected
";
}
return
(
"
$protection
retval
$name
(
"
.
join
(
"
,
",
@args
)
.
"
)
",
$name
,
@args
);
}
## @method emit_class( string class, int line, arrayref doc )
# Emit one class definition. If the doc parameter is defined,
# emits the array as a comment just before the class definition,
# otherwise, only the class definition is emitted.
#
# @param class the name of the class
# @param line the current line number
# @param doc (optional) an array with comment lines
sub
emit_class
{
my
(
$self
,
$class
,
$line
,
$doc
)
=
@_
;
my
(
@current_isa
,
@current_priv_isa
,
@current_include
,
%links
);
my
$file
=
$self
->
file_contents
();
while
(
$_
=
$file
->
[
$line
++
]
)
{