vndb/manned
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

s/GrottyParser/ManUtils/g

Browse source
This commit is contained in:
Yorhel 2012-07-11 11:29:15 +02:00
parent fc6064f4b8
commit fadb0a1110
6 changed files with 28 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Makefile
View file

@ -1,12 +1,12 @@
.PHONY: GrottyParser .PHONY: ManUtils
GrottyParser: lib/GrottyParser/Build ManUtils: lib/ManUtils/Build
cd lib/GrottyParser && ./Build install --install-base=inst cd lib/ManUtils && ./Build install --install-base=inst
lib/GrottyParser/Build: lib/GrottyParser/Build.PL lib/ManUtils/Build: lib/ManUtils/Build.PL
cd lib/GrottyParser && perl Build.PL cd lib/ManUtils && perl Build.PL
clean: clean:
cd lib/GrottyParser && ./Build distclean cd lib/ManUtils && ./Build distclean
rm -rf lib/GrottyParser/inst rm -rf lib/ManUtils/inst

15
lib/GrottyParser/Build.PL
View file

@ -1,15 +0,0 @@
#!/usr/bin/perl
use Module::Build;
Module::Build->new(
dist_name => 'GrottyParser',
dist_version_from => 'GrottyParser.pm',
pm_files => {
'GrottyParser.pm' => 'lib/GrottyParser.pm',
},
xs_files => {
'GrottyParser.xs' => 'lib/GrottyParser.xs',
},
)->create_build_script;

15
lib/ManUtils/Build.PL Normal file
View file

@ -0,0 +1,15 @@
#!/usr/bin/perl
use Module::Build;
Module::Build->new(
dist_name => 'ManUtils',
dist_version_from => 'ManUtils.pm',
pm_files => {
'ManUtils.pm' => 'lib/ManUtils.pm',
},
xs_files => {
'ManUtils.xs' => 'lib/ManUtils.xs',
},
)->create_build_script;

4
lib/GrottyParser/GrottyParser.pm → lib/ManUtils/ManUtils.pm
View file

@ -1,4 +1,4 @@
package GrottyParser; package ManUtils;
use strict; use strict;
use warnings; use warnings;
@ -6,7 +6,7 @@ use warnings;
our $VERSION = '0.01'; our $VERSION = '0.01';
require XSLoader; require XSLoader;
XSLoader::load('GrottyParser', $VERSION); XSLoader::load('ManUtils', $VERSION);
1; 1;

2
lib/GrottyParser/GrottyParser.xs → lib/ManUtils/ManUtils.xs
View file

@ -257,7 +257,7 @@ static void parselines(ctx_t *x) {
MODULE = GrottyParser PACKAGE = GrottyParser MODULE = ManUtils PACKAGE = ManUtils
SV * SV *
html(str) html(str)

6
www/index.pl
View file

@ -14,8 +14,8 @@ our $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/www/index\.pl$}{}; } BEGIN { ($ROOT = abs_path $0) =~ s{/www/index\.pl$}{}; }
use lib "$ROOT/lib/GrottyParser/inst/lib/perl5"; use lib "$ROOT/lib/ManUtils/inst/lib/perl5";
use GrottyParser; use ManUtils;
TUWF::set( TUWF::set(
@ -486,7 +486,7 @@ sub man {
div id => 'contents'; div id => 'contents';
my $c = $self->dbManContent($man->{hash}); my $c = $self->dbManContent($man->{hash});
pre; lit GrottyParser::html(manfmt $c); end; pre; lit ManUtils::html(manfmt $c); end;
end; end;
div id => 'locations'; div id => 'locations';