jasons 2002/08/27 12:41:35
Modified: perl postSource.pl
Log:
* postSource.pl (Repository):
transcoder initialization removed
removed STRLEN hack
Revision Changes Path
1.20 +0 -46 xml-xerces/perl/postSource.pl
Index: postSource.pl
===================================================================
RCS file: /home/cvs/xml-xerces/perl/postSource.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- postSource.pl 28 Mar 2002 07:57:09 -0000 1.19
+++ postSource.pl 27 Aug 2002 19:41:35 -0000 1.20
@@ -17,58 +17,12 @@
substitute_line($_);
- # we add the two IDOM_Node operators
- # two transcoders
- if (/XS\(SWIG_init\)/) {
- print TEMP;
- while (<FILE>) {
- print TEMP;
- last if /Install commands/;
- }
- print TEMP <<'TEXT';
- // we create the global transcoder for UTF-8 to UTF-16
- XMLTransService::Codes failReason;
- XMLPlatformUtils::Initialize(); // first we must create the transservice
- UTF8_ENCODING = XMLString::transcode("UTF-8");
- UTF8_TRANSCODER =
- XMLPlatformUtils::fgTransService->makeNewTranscoderFor(UTF8_ENCODING,
- failReason,
- 1024);
- if (! UTF8_TRANSCODER) {
- croak("ERROR: XML::Xerces: INIT: Could not create UTF-8 transcoder");
- }
-
-
- ISO_8859_1_ENCODING = XMLString::transcode("ISO-8859-1");
- ISO_8859_1_TRANSCODER =
- XMLPlatformUtils::fgTransService->makeNewTranscoderFor(ISO_8859_1_ENCODING,
- failReason,
- 1024);
- if (! ISO_8859_1_TRANSCODER) {
- croak("ERROR: XML::Xerces: INIT: Could not create ISO-8859-1 transcoder");
- }
-
-TEXT
- next;
- }
-
# need to cast this properly
if (/XS\(_wrap_XMLValidator_checkContent/) {
fix_method_source(\*FILE,
\*TEMP,
'arg0->checkContent',
" result = (int )arg0->checkContent(arg1,(QName
**const)arg2,arg3);\n",
- 0
- );
- next FILE;
- }
-
- # need to keep the STRLEN macro for other archetectures
- if (/XS\(_wrap_new_MemBufInputSource/) {
- fix_method_source(\*FILE,
- \*TEMP,
- 'unsigned int arg2',
- " STRLEN arg2;\n",
0
);
next FILE;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
