Re: AW: AW: AW: AW: AW: HTML::Parser 3.11 and ActiveState Perl 5.19
Gisle Aas (gisle@activestate.com)
14 Sep 2000 20:30:54 +0200
I just love those Microsoft generated subject lines, so I could not
get myself to change it :-)
Anyway, I just upload HTML-Parser-3.12. This is the differences since
3.11.
(I now see that the spelling fixes to HTML::Entities that was provided
by David Dyck, did not get into the Changes file. I'll make sure it
is mentioned in the 3.13 release.)
Regards,
Gisle
Index: Changes
===================================================================
RCS file: /home/cvs/aas/perl/mods/html-parser/Changes,v
retrieving revision 2.66
retrieving revision 2.67
diff -u -p -u -r2.66 -r2.67
--- Changes 2000/08/22 10:03:40 2.66
+++ Changes 2000/09/14 18:19:16 2.67
@@ -1,3 +1,13 @@
+2000-09-14 Gisle Aas <gisle@ActiveState.com>
+
+ Release 3.12
+
+ Some tweaks to get it to compile with "Optimierender Microsoft (R)
+ 32-Bit C/C++-Compiler, Version 12.00.8168, fuer x86."
+ Patch by Matthias Waldorf <matthias.waldorf@zoom.de>
+
+
+
2000-08-22 Gisle Aas <gisle@ActiveState.com>
Release 3.11
Index: Parser.pm
===================================================================
RCS file: /home/cvs/aas/perl/mods/html-parser/Parser.pm,v
retrieving revision 2.116
retrieving revision 2.117
diff -u -p -u -r2.116 -r2.117
--- Parser.pm 2000/08/22 10:01:18 2.116
+++ Parser.pm 2000/09/14 18:12:49 2.117
@@ -9,7 +9,7 @@ package HTML::Parser;
use strict;
use vars qw($VERSION @ISA);
-$VERSION = '3.11'; # $Date: 2000/08/22 10:01:18 $
+$VERSION = '3.12'; # $Date: 2000/09/14 18:12:49 $
require HTML::Entities;
Index: Parser.xs
===================================================================
RCS file: /home/cvs/aas/perl/mods/html-parser/Parser.xs,v
retrieving revision 2.88
retrieving revision 2.89
diff -u -p -u -r2.88 -r2.89
--- Parser.xs 2000/03/13 11:27:24 2.88
+++ Parser.xs 2000/09/14 18:20:32 2.89
@@ -1,4 +1,4 @@
-/* $Id: Parser.xs,v 2.88 2000/03/13 11:27:24 gisle Exp $
+/* $Id: Parser.xs,v 2.89 2000/09/14 18:20:32 gisle Exp $
*
* Copyright 1999-2000, Gisle Aas.
* Copyright 1999-2000, Michael A. Chase.
@@ -50,7 +50,9 @@ newSVpvn(char *s, STRLEN len)
#endif /* not perl5.004_05 */
#endif /* perl5.004_XX */
-
+#ifndef MEMBER_TO_FPTR
+ #define MEMBER_TO_FPTR(x) (x)
+#endif
/*
* Include stuff. We include .c files instead of linking them,
@@ -79,11 +81,11 @@ static SV*
check_handler(SV* h)
{
if (SvROK(h)) {
- SV* ref = SvRV(h);
- if (SvTYPE(ref) == SVt_PVCV)
+ SV* myref = SvRV(h);
+ if (SvTYPE(myref) == SVt_PVCV)
return newSVsv(h);
- if (SvTYPE(ref) == SVt_PVAV)
- return SvREFCNT_inc(ref);
+ if (SvTYPE(myref) == SVt_PVAV)
+ return SvREFCNT_inc(myref);
croak("Only code or array references allowed as handler");
}
return SvOK(h) ? newSVsv(h) : 0;
@@ -153,7 +155,7 @@ magic_free_pstate(pTHX_ SV *sv, MAGIC *m
}
-MGVTBL vtbl_free_pstate = {0, 0, 0, 0, magic_free_pstate};
+MGVTBL vtbl_free_pstate = {0, 0, 0, 0, MEMBER_TO_FPTR(magic_free_pstate)};
Index: hparser.c
===================================================================
RCS file: /home/cvs/aas/perl/mods/html-parser/hparser.c,v
retrieving revision 2.44
retrieving revision 2.45
diff -u -p -u -r2.44 -r2.45
--- hparser.c 2000/06/28 11:35:05 2.44
+++ hparser.c 2000/09/14 18:20:32 2.45
@@ -1,4 +1,4 @@
-/* $Id: hparser.c,v 2.44 2000/06/28 11:35:05 gisle Exp $
+/* $Id: hparser.c,v 2.45 2000/09/14 18:20:32 gisle Exp $
*
* Copyright 1999-2000, Gisle Aas
* Copyright 1999-2000, Michael A. Chase
@@ -401,7 +401,7 @@ argspec_compile(SV* src)
while (s < end) {
if (isHNAME_FIRST(*s)) {
char *name = s;
- enum argcode a = ARG_SELF;
+ int a = ARG_SELF;
char temp;
char **arg_name;
Index: lib/HTML/Entities.pm
===================================================================
RCS file: /home/cvs/aas/perl/mods/html-parser/lib/HTML/Entities.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -u -r1.15 -r1.16
--- lib/HTML/Entities.pm 1999/11/11 09:12:20 1.15
+++ lib/HTML/Entities.pm 2000/08/29 11:55:13 1.16
@@ -1,6 +1,6 @@
package HTML::Entities;
-# $Id: Entities.pm,v 1.15 1999/11/11 09:12:20 gisle Exp $
+# $Id: Entities.pm,v 1.16 2000/08/29 11:55:13 gisle Exp $
=head1 NAME
@@ -17,7 +17,7 @@ HTML::Entities - Encode or decode string
=head1 DESCRIPTION
This module deals with encoding and decoding of strings with HTML
-character entites. The module provides the following functions:
+character entities. The module provides the following functions:
=over 4
@@ -27,7 +27,7 @@ This routine replaces HTML entities foun
corresponding ISO-8859/1 character. Unrecognized entities are left
alone.
-=item endode_entities($string, [$unsafe_chars])
+=item encode_entities($string, [$unsafe_chars])
This routine replaces unsafe characters in $string with their entity
representation. A second argument can be given to specify which
@@ -73,7 +73,7 @@ require Exporter;
@EXPORT = qw(encode_entities decode_entities);
@EXPORT_OK = qw(%entity2char %char2entity);
-$VERSION = sprintf("%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.16 $ =~ /(\d+)\.(\d+)/);
sub Version { $VERSION; }
require HTML::Parser; # for fast XS implemented decode_entities