Revision history for Perl extension Xdgmime.
+1.0 Fri Jun 11 11:16:07 2021
+ - updated by running h2xs 1.23 with options
+ -P -v 1.0 -F -DHAVE_MMAP -M '^XDG_' -t PV -Ofan Xdgmime xdgmime.h
+
0.01 Fri Jun 1 10:46:21 2012
- original version; created by h2xs 1.23 with options
xdgmime.h
-use 5.010001;
+use 5.032001;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
NAME => 'Xdgmime',
- VERSION_FROM => 'lib/Xdgmime.pm', # finds $VERSION
+ VERSION_FROM => 'lib/Xdgmime.pm', # finds $VERSION, requires EU::MM from perl >= 5.5
PREREQ_PM => {}, # e.g., Module::Name => 1.1
- ($] >= 5.005 ? ## Add these new keywords supported since 5.005
- (ABSTRACT_FROM => 'lib/Xdgmime.pm', # retrieve abstract from module
- AUTHOR => 'root <root@>') : ()),
+ ABSTRACT_FROM => 'lib/Xdgmime.pm', # retrieve abstract from module
+ AUTHOR => 'stoiko ivanov <siv@>',
+ #LICENSE => 'perl',
+ #Value must be from legacy list of licenses here
+ #https://metacpan.org/pod/Module::Build::API
LIBS => [''], # e.g., '-lm'
DEFINE => '-DHAVE_MMAP', # e.g., '-DHAVE_SOMETHING'
INC => '-I.', # e.g., '-I. -I/usr/include/other'
- # Un-comment this if you add C files to link with later:
OBJECT => '$(O_FILES)', # link all the C files too
);
if (eval {require ExtUtils::Constant; 1}) {
# files to replace their "fallback" counterparts before distributing your
# changes.
my @names = (qw(XDG_MIME_TYPE_EMPTY XDG_MIME_TYPE_TEXTPLAIN
- XDG_MIME_TYPE_UNKNOWN _xdg_mime_mime_type_equal
- _xdg_mime_mime_type_subclass _xdg_mime_unalias_mime_type
- xdg_mime_dump xdg_mime_get_generic_icon xdg_mime_get_icon
- xdg_mime_get_max_buffer_extents xdg_mime_get_mime_parents
- xdg_mime_get_mime_type_for_data
- xdg_mime_get_mime_type_for_file
- xdg_mime_get_mime_type_from_file_name
- xdg_mime_get_mime_types_from_file_name
- xdg_mime_is_valid_mime_type xdg_mime_list_mime_parents
- xdg_mime_media_type_equal xdg_mime_mime_type_equal
- xdg_mime_mime_type_subclass xdg_mime_register_reload_callback
- xdg_mime_remove_callback xdg_mime_shutdown xdg_mime_type_empty
- xdg_mime_type_textplain xdg_mime_type_unknown
- xdg_mime_unalias_mime_type));
+ XDG_MIME_TYPE_UNKNOWN));
ExtUtils::Constant::WriteConstants(
NAME => 'Xdgmime',
NAMES => \@names,
- DEFAULT_TYPE => 'IV',
+ DEFAULT_TYPE => 'PV',
C_FILE => 'const-c.inc',
XS_FILE => 'const-xs.inc',
);
-Xdgmime version 0.01
-====================
+Xdgmime version 1.0
+===================
The README is used to introduce the module and provide instructions on
how to install the module, any machine dependencies it may have (for
Put the correct copyright and licence information here.
-Copyright (C) 2012 by root
+Copyright (C) 2021 by stoiko ivanov
This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.10.1 or,
+it under the same terms as Perl itself, either Perl version 5.32.1 or,
at your option, any later version of Perl 5 you may have available.
+#define PERL_NO_GET_CONTEXT
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
package Xdgmime;
-use 5.010001;
+use 5.032001;
use strict;
use warnings;
use Carp;
XDG_MIME_TYPE_EMPTY
XDG_MIME_TYPE_TEXTPLAIN
XDG_MIME_TYPE_UNKNOWN
- _xdg_mime_mime_type_equal
- _xdg_mime_mime_type_subclass
- _xdg_mime_unalias_mime_type
xdg_mime_dump
- xdg_mime_get_generic_icon
- xdg_mime_get_icon
xdg_mime_get_max_buffer_extents
- xdg_mime_get_mime_parents
xdg_mime_get_mime_type_for_data
xdg_mime_get_mime_type_for_file
xdg_mime_get_mime_type_from_file_name
- xdg_mime_get_mime_types_from_file_name
xdg_mime_is_valid_mime_type
xdg_mime_list_mime_parents
xdg_mime_media_type_equal
xdg_mime_mime_type_equal
xdg_mime_mime_type_subclass
- xdg_mime_register_reload_callback
- xdg_mime_remove_callback
xdg_mime_shutdown
- xdg_mime_type_empty
- xdg_mime_type_textplain
- xdg_mime_type_unknown
- xdg_mime_unalias_mime_type
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
XDG_MIME_TYPE_EMPTY
XDG_MIME_TYPE_TEXTPLAIN
XDG_MIME_TYPE_UNKNOWN
- _xdg_mime_mime_type_equal
- _xdg_mime_mime_type_subclass
- _xdg_mime_unalias_mime_type
xdg_mime_dump
- xdg_mime_get_generic_icon
- xdg_mime_get_icon
xdg_mime_get_max_buffer_extents
- xdg_mime_get_mime_parents
xdg_mime_get_mime_type_for_data
xdg_mime_get_mime_type_for_file
xdg_mime_get_mime_type_from_file_name
- xdg_mime_get_mime_types_from_file_name
xdg_mime_is_valid_mime_type
xdg_mime_list_mime_parents
xdg_mime_media_type_equal
xdg_mime_mime_type_equal
xdg_mime_mime_type_subclass
- xdg_mime_register_reload_callback
- xdg_mime_remove_callback
xdg_mime_shutdown
- xdg_mime_type_empty
- xdg_mime_type_textplain
- xdg_mime_type_unknown
- xdg_mime_unalias_mime_type
);
-our $VERSION = '0.01';
+our $VERSION = '1.0';
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
# Preloaded methods go here.
-# Autoload methods go after =cut, and are processed by the autosplit program.
+# Autoload methods go after __END__, and are processed by the autosplit program.
1;
__END__
-# Below is stub documentation for your module. You'd better edit it!
-
-=head1 NAME
-
-Xdgmime - Perl extension for blah blah blah
-
-=head1 SYNOPSIS
-
- use Xdgmime;
- blah blah blah
-
-=head1 DESCRIPTION
-
-Stub documentation for Xdgmime, created by h2xs. It looks like the
-author of the extension was negligent enough to leave the stub
-unedited.
-
-Blah blah blah.
-
-=head2 EXPORT
-
-None by default.
-
-=head2 Exportable constants
-
- XDG_MIME_TYPE_EMPTY
- XDG_MIME_TYPE_TEXTPLAIN
- XDG_MIME_TYPE_UNKNOWN
- _xdg_mime_mime_type_equal
- _xdg_mime_mime_type_subclass
- _xdg_mime_unalias_mime_type
- xdg_mime_dump
- xdg_mime_get_generic_icon
- xdg_mime_get_icon
- xdg_mime_get_max_buffer_extents
- xdg_mime_get_mime_parents
- xdg_mime_get_mime_type_for_data
- xdg_mime_get_mime_type_for_file
- xdg_mime_get_mime_type_from_file_name
- xdg_mime_get_mime_types_from_file_name
- xdg_mime_is_valid_mime_type
- xdg_mime_list_mime_parents
- xdg_mime_media_type_equal
- xdg_mime_mime_type_equal
- xdg_mime_mime_type_subclass
- xdg_mime_register_reload_callback
- xdg_mime_remove_callback
- xdg_mime_shutdown
- xdg_mime_type_empty
- xdg_mime_type_textplain
- xdg_mime_type_unknown
- xdg_mime_unalias_mime_type
-
-
-
-=head1 SEE ALSO
-
-Mention other useful documentation such as the documentation of
-related modules or operating system documentation (such as man pages
-in UNIX), or any relevant external documentation such as RFCs or
-standards.
-
-If you have a mailing list set up for your module, mention it here.
-
-If you have a web site set up for your module, mention it here.
-
-=head1 AUTHOR
-
-root, E<lt>root@E<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2012 by root
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.10.1 or,
-at your option, any later version of Perl 5 you may have available.
-
-
-=cut
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Xdgmime.t'
+# Before 'make install' is performed this script should be runnable with
+# 'make test'. After 'make install' it should work as 'perl Xdgmime.t'
#########################
# change 'tests => 2' to 'tests => last_test_to_print';
-use Test::More tests => 1;
+use strict;
+use warnings;
+use Test::More tests => 2;
BEGIN { use_ok('Xdgmime') };
+
+my $fail = 0;
+foreach my $constname (qw(
+ XDG_MIME_TYPE_EMPTY XDG_MIME_TYPE_TEXTPLAIN XDG_MIME_TYPE_UNKNOWN)) {
+ next if (eval "my \$a = $constname; 1");
+ if ($@ =~ /^Your vendor has not defined Xdgmime macro $constname/) {
+ print "# pass: $@";
+ } else {
+ print "# fail: $@";
+ $fail = 1;
+ }
+
+}
+
+ok( $fail == 0 , 'Constants' );
+#########################
+
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.