#include <brickforge.webml>

#
# <FILELIST pattern="..." dir="..." [recursive] [clean]>
#
# A wml version of the Unix find command
#
<define-tag filelist whitespace=delete>
	<preserve pattern dir recursive />
	<set-var %attributes />
	<defvar recursive 0 />

	<div class="filelist"><ul>
	<perl>
	{
		use File::Find;

		local @pattern   = split ( "\\|", "<get-var pattern />" );
		local $recursive = '<var-exists recursive />';
		local $clean     = '<var-exists clean />';
		my    $dir       = '<get-var ROOTSRC /><get-var dir />';

		foreach ( @pattern ) {
			$_ = glob2pat ( $_ );
		}


		#say ( "\nFIND in $dir  (recursive: $recursive, pattern: ". join("|", @pattern) . "\n" );

		local @files = ();
		find ( \&check_file, $dir );

		my $odd = 0;

		foreach ( sort { split ('/',$a) - split ('/',$b) || $a cmp $b } @files ) {
			my $abs = $_;
			s,^$dir,,;
			s,^/,,g;
		
			my $aclass = $odd ? "filelist-odd" : "filelist-even";

			<perl:print><li><a class=$aclass href=$abs>$_</a></li></perl:print>

			$odd = 1 - $odd;
		}

		sub check_file {
			return if $clean && ( m/~$/ || m/\.bak$/ );
		
			foreach my $p ( @pattern ) {
				push ( @files, $File::Find::name ) if m/$p/ && ! -d;
				
				#say ( "FOUND $File::Find::name\n" ) if m/$p/;

				$File::Find::prune = 1 if !/\./ && -d && !$recursive;
			}
		}

		sub glob2pat {
			my $globstr = shift;
			my %patmap = (
				'*' => '.*',
				'?' => '.',
				'[' => '[',
				']' => ']',
			);
			$globstr =~ s{(.)} { $patmap{$1} || "\Q$1" }ge;
			return '^' . $globstr . '$';
		}
	}
	</perl>
	</ul></div>
	<br />

	<restore pattern dir recursive />
</define-tag>




<title><de: Infos zum WML Code /><en: About the WML Code /></title>

<de>
Momentan kein deutscher Text vorhanden (<a href="<get-var WML_SRC_BASENAME />.en.html">englische Version</a>)
</de>

<en>
<p>These pages are generated via <a href="http://www.thewml.org" rel="external"><strong>WML</strong></a>. 
Since there are not many useful examples 
of this powerful website generation tool available, I have decided to publish
the source code and the build system of this site here:</p>

<h3>The build system</h3>
<p>The build system consists of traditional <a href="http://www.gnu.org/software/make" rel="external"><strong>GNU-make</strong></a> Makefiles and some additional
WML magic to automatically create dependencies.</p>

<filelist dir="/" recursive pattern=".wmlrc|Makefile|Rules.make" />

<h3>The templates</h3>
<filelist dir="/include" pattern="*.webml" />

<h3>The WML page sources</h3>
<filelist dir="/" recursive pattern="*.webml" />

<h3>The navigation menu</h3>
<p>The structure and the lables are recursivly generated from the <em>buttons</em> 
files in each directory. The labels can also be localized (see <strong>Multilingual</strong> below)</p>

<filelist dir="/" recursive pattern="buttons" /> 

<h3>Multilingual</h3>
Everything enclosed in a language tag
(e.g. <tt>&lt;de&gt;.. text ..&lt;/de&gt;</tt>) will only be copied into the
output file for the specified language. Everything else is copied into all
output files.<br />
Even the navigation bar is generated for every language.

</en>