Commit upstream/0.03 - libencode-jis2k-perl

+11

-2

Changes less more

0	0	#
1		# $Id: Changes,v 0.2 2005/05/12 07:00:10 dankogai Exp $
	1	# $Id: Changes,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	# Revision history for Perl extension Encode::JIS2K.
3	3	#
4		$Revision: 0.2 $ $Date: 2005/05/12 07:00:10 $
	4	$Revision: 0.03 $ $Date: 2015/06/05 03:57:30 $
	5	! Makefile.PL
	6	fix RT#67531 & RT#104967
	7	https://rt.cpan.org/Ticket/Display.html?id=67531
	8	https://rt.cpan.org/Ticket/Display.html?id=104967
	9	! lib/Encode/JIS2K/2022JP3.pm
	10	fix RT#73401
	11	https://rt.cpan.org/Ticket/Display.html?id=73401
	12
	13	0.02 2005/05/12 07:00:10
5	14	! lib/Encode/JIS2K/2022JP3.pm
6	15	find_encoding('iso-2022-jp-3')->name returns 'Canon', not 'iso-2022-jp-3'.
7	16	Debugged by Hirata Keisuke tahi@gb3.so-net.ne.jp

+1

-1

JIS2K.pm less more

0	0	package Encode::JIS2K;
1		our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
	1	our $VERSION = sprintf "%d.%02d", q$Revision: 0.03 $ =~ /(\d+)/g;
2	2
3	3	use Encode;
4	4	use XSLoader;

+1

-0

MANIFEST less more

19	19	ucm/x0213-1.ucm UCM
20	20	ucm/x0213-2.ucm UCM
21	21	META.yml Module meta-data (added by MakeMaker)
	22	META.json Module JSON meta-data (added by MakeMaker)

+41

-0

META.json less more

	0	{
	1	"abstract" : "unknown",
	2	"author" : [
	3	"unknown"
	4	],
	5	"dynamic_config" : 1,
	6	"generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001",
	7	"license" : [
	8	"unknown"
	9	],
	10	"meta-spec" : {
	11	"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
	12	"version" : "2"
	13	},
	14	"name" : "Encode-JIS2K",
	15	"no_index" : {
	16	"directory" : [
	17	"t",
	18	"inc"
	19	]
	20	},
	21	"prereqs" : {
	22	"build" : {
	23	"requires" : {
	24	"ExtUtils::MakeMaker" : "0"
	25	}
	26	},
	27	"configure" : {
	28	"requires" : {
	29	"ExtUtils::MakeMaker" : "0"
	30	}
	31	},
	32	"runtime" : {
	33	"requires" : {
	34	"Encode" : "1.41"
	35	}
	36	}
	37	},
	38	"release_status" : "stable",
	39	"version" : "0.03"
	40	}

+21

-10

META.yml less more

0		# http://module-build.sourceforge.net/META-spec.html
1		#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
2		name: Encode-JIS2K
3		version: 0.02
4		version_from: JIS2K.pm
5		installdirs: site
	0	---
	1	abstract: unknown
	2	author:
	3	- unknown
	4	build_requires:
	5	ExtUtils::MakeMaker: '0'
	6	configure_requires:
	7	ExtUtils::MakeMaker: '0'
	8	dynamic_config: 1
	9	generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001'
	10	license: unknown
	11	meta-spec:
	12	url: http://module-build.sourceforge.net/META-spec-v1.4.html
	13	version: '1.4'
	14	name: Encode-JIS2K
	15	no_index:
	16	directory:
	17	- t
	18	- inc
6	19	requires:
7		Encode: 1.41
8
9		distribution_type: module
10		generated_by: ExtUtils::MakeMaker version 6.17
	20	Encode: '1.41'
	21	version: '0.03'

+20

-13

Makefile.PL less more

0	0	#
1		# $Id: Makefile.PL,v 0.1 2005/05/12 06:59:25 dankogai Exp $
	1	# $Id: Makefile.PL,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	#
3	3	use 5.7.2;
4	4	use strict;

16	16	);
17	17
18	18
	19	# from perlvar
	20	use Config; # first appeared in 5.00307
	21	my $secure_perl_path = $Config{perlpath};
	22	if ($^O ne 'VMS') {
	23	my $secure_perl_path .= $Config{_exe}
	24	unless $secure_perl_path =~ m/$Config{_exe}$/i;
	25	}
	26	die "can't determine path to the perl I'm running under"
	27	unless ($secure_perl_path);
	28	use File::Basename qw(dirname);
	29	my $dpath = dirname $secure_perl_path;
19	30	my ($enc2xs, $encode_h) = ();
20		PATHLOOP:
21		for my $d (split /:/, $ENV{PATH}){
22		for my $f (qw/enc2xs enc2xs5.7.3/){
23		my $path = File::Spec->catfile($d, $f);
24		-x $path and $enc2xs = $path and last PATHLOOP;
25		}
26		}
	31	my $enc2xs_fpath = File::Spec->catfile($dpath, 'enc2xs');
	32	$enc2xs = $enc2xs_fpath
	33	if (-x $enc2xs_fpath);
27	34	$enc2xs or die "enc2xs not found!";
28	35	print "enc2xs is $enc2xs\n";
29	36	my %encode_h = ();

73	80	$self->{'C'} = ["$name.c"];
74	81	# $self->{'H'} = [$self->catfile($self->updir,'encode.h')];
75	82	my %xs;
76		foreach my $table (keys %tables) {
	83	foreach my $table (sort keys %tables) {
77	84	push (@{$self->{'C'}},"$table.c");
78	85	# Do NOT add $table.h etc. to H_FILES unless we own up as to how they
79	86	# get built.

91	98	#define U8 U8
92	99	#include "encode.h"
93	100	END
94		foreach my $table (keys %tables) {
	101	foreach my $table (sort keys %tables) {
95	102	print XS qq[#include "${table}.h"\n];
96	103	}
97	104	print XS <<"END";

120	127	BOOT:
121	128	{
122	129	END
123		foreach my $table (keys %tables) {
	130	foreach my $table (sort keys %tables) {
124	131	print XS qq[#include "${table}.exh"\n];
125	132	}
126	133	print XS "}\n";

134	141	my $dir = "."; # $self->catdir('Encode');
135	142	my $str = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
136	143	$str .= "$name.c : $name.xs ";
137		foreach my $table (keys %tables)
	144	foreach my $table (sort keys %tables)
138	145	{
139	146	$str .= " $table.c";
140	147	}
141	148	$str .= "\n\n";
142	149	$str .= "$name\$(OBJ_EXT) : $name.c\n\n";
143	150
144		foreach my $table (keys %tables)
	151	foreach my $table (sort keys %tables)
145	152	{
146	153	my $numlines = 1;
147	154	my $lengthsofar = length($str);

+2

-2

lib/Encode/JIS2K/2022JP3.pm less more

0		package Encode::JIS7::2022JP3;
	0	package Encode::JIS2K::2022JP3;
1	1	use strict;
2	2
3		our $VERSION = do { my @r = (q$Revision: 0.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
	3	our $VERSION = do { my @r = (q$Revision: 0.03 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
4	4
5	5	use Encode qw(:fallbacks);
6	6

+1

-1

ucm/euc-jp2k.ucm less more

0	0	#
1		# $Id: euc-jp2k.ucm,v 0.1 2005/05/12 06:59:40 dankogai Exp $
	1	# $Id: euc-jp2k.ucm,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	#
3	3	<code_set_name> "euc-jisx0213"
4	4	<mb_cur_min> 1

+1

-1

ucm/sjis-2k.ucm less more

0	0	#
1		# $Id: sjis-2k.ucm,v 0.1 2005/05/12 06:59:41 dankogai Exp $
	1	# $Id: sjis-2k.ucm,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	#
3	3	<code_set_name> "shiftjisx0213"
4	4	<mb_cur_min> 1

+1

-1

ucm/x0213-1.ucm less more

0	0	#
1		# $Id: x0213-1.ucm,v 0.1 2005/05/12 06:59:43 dankogai Exp $
	1	# $Id: x0213-1.ucm,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	#
3	3	<code_set_name> "jis0213-1-raw"
4	4	<mb_cur_min> 1

+1

-1

ucm/x0213-2.ucm less more

0	0	#
1		# $Id: x0213-2.ucm,v 0.1 2005/05/12 06:59:44 dankogai Exp $
	1	# $Id: x0213-2.ucm,v 0.03 2015/06/05 03:57:30 dankogai Exp dankogai $
2	2	#
3	3	<code_set_name> "jis0213-2-raw"
4	4	<mb_cur_min> 1