# # ClanSoft Documentation: Overview theme, # Copyright (c) 1999 by Magnus Norddahl / ClanSoft & Kenneth Gangstoe. # use English; sub theme_header { my ($xml_head) = @ARG; my $html; my $image_path = "Images"; my $title = ""; $title = $1 if ($xml_head =~ /(.*?)<\/title>/si); $html .= <<END; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"> <title>$title - ClanLib Game SDK

ClanLib

END $html .= "

$title

\n\n" if ($title ne ""); return $html; } sub theme_body_filters { my @filters; push(@filters, \&filt_code); push(@filters, \&filt_codelink); push(@filters, \&filt_std); return @filters; } sub theme_body_end { my $str = <
Questions or comments, write to the ClanLib mailing list.
END2 return $str; } sub filt_code { my ($xml_body) = @ARG; while ($xml_body =~ /(.*?)<\/code>/si) { my $code = $1; $code =~ s//>/g; $code =~ s/^\n//; $xml_body =~ s/.*?<\/code>/