Copied: xerces/c/trunk/swig/perl/Xerces.pm (from r374831, xerces/xerces-p/trunk/Xerces.pm) URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/Xerces.pm?p2=xerces/c/trunk/swig/perl/Xerces.pm&p1=xerces/xerces-p/trunk/Xerces.pm&r1=374831&r2=379076&rev=379076&view=diff ============================================================================== --- xerces/xerces-p/trunk/Xerces.pm (original) +++ xerces/c/trunk/swig/perl/Xerces.pm Mon Feb 20 02:42:41 2006 @@ -14,7 +14,7 @@ # limitations under the License. # -# This file was created automatically by SWIG 1.3.28. +# This file was created automatically by SWIG 1.3.29. # Don't modify this file, modify the SWIG interface instead. package XML::Xerces; require Exporter; @@ -26,7 +26,7 @@ @EXPORT = qw( ); package XML::Xerces; -# use strict; +use strict; use Carp; use vars qw(@EXPORT_OK $VERSION %REMEMBER); @EXPORT_OK = qw(error); @@ -872,7 +872,7 @@ } package XML::Xerces::XMLCatalogResolver; -# use strict; +use strict; use Carp; use vars qw($VERSION @ISA @@ -1054,9 +1054,16 @@ @ISA = qw( XML::Xerces ); %OWNER = (); %ITERATORS = (); +*fgFileMgr = *XML::Xercesc::XMLPlatformUtils_fgFileMgr; +*fgMutexMgr = *XML::Xercesc::XMLPlatformUtils_fgMutexMgr; +*fgAtomicOpMgr = *XML::Xercesc::XMLPlatformUtils_fgAtomicOpMgr; +*fgXMLChBigEndian = *XML::Xercesc::XMLPlatformUtils_fgXMLChBigEndian; *Initialize = *XML::Xercesc::XMLPlatformUtils_Initialize; *Terminate = *XML::Xercesc::XMLPlatformUtils_Terminate; *panic = *XML::Xercesc::XMLPlatformUtils_panic; +*makeFileMgr = *XML::Xercesc::XMLPlatformUtils_makeFileMgr; +*makeMutexMgr = *XML::Xercesc::XMLPlatformUtils_makeMutexMgr; +*makeAtomicOpMgr = *XML::Xercesc::XMLPlatformUtils_makeAtomicOpMgr; sub DESTROY { return unless $_[0]->isa('HASH'); my $self = tied(%{$_[0]}); @@ -1255,6 +1262,7 @@ *File_CouldNotGetBasePathName = *XML::Xercesc::XMLExcepts_File_CouldNotGetBasePathName; *File_BasePathUnderflow = *XML::Xercesc::XMLExcepts_File_BasePathUnderflow; *Gen_ParseInProgress = *XML::Xercesc::XMLExcepts_Gen_ParseInProgress; +*Gen_ParsingAborted = *XML::Xercesc::XMLExcepts_Gen_ParsingAborted; *Gen_NoDTDValidator = *XML::Xercesc::XMLExcepts_Gen_NoDTDValidator; *Gen_CouldNotOpenDTD = *XML::Xercesc::XMLExcepts_Gen_CouldNotOpenDTD; *Gen_CouldNotOpenExtEntity = *XML::Xercesc::XMLExcepts_Gen_CouldNotOpenExtEntity; @@ -1612,6 +1620,7 @@ *XSer_GrammarPool_NotEmpty = *XML::Xercesc::XMLExcepts_XSer_GrammarPool_NotEmpty; *XSer_StringPool_NotEmpty = *XML::Xercesc::XMLExcepts_XSer_StringPool_NotEmpty; *XSer_Storer_NewerThan_Loader = *XML::Xercesc::XMLExcepts_XSer_Storer_NewerThan_Loader; +*VALUE_QName_Invalid2 = *XML::Xercesc::XMLExcepts_VALUE_QName_Invalid2; *F_HighBounds = *XML::Xercesc::XMLExcepts_F_HighBounds; *E_LowBounds = *XML::Xercesc::XMLExcepts_E_LowBounds; *E_HighBounds = *XML::Xercesc::XMLExcepts_E_HighBounds; @@ -1867,6 +1876,7 @@ *fgXercesIgnoreAnnotations = *XML::Xercesc::XMLUni_fgXercesIgnoreAnnotations; *fgXercesDisableDefaultEntityResolution = *XML::Xercesc::XMLUni_fgXercesDisableDefaultEntityResolution; *fgXercesSkipDTDValidation = *XML::Xercesc::XMLUni_fgXercesSkipDTDValidation; +*fgXercesEntityResolver = *XML::Xercesc::XMLUni_fgXercesEntityResolver; *fgSAX2CoreValidation = *XML::Xercesc::XMLUni_fgSAX2CoreValidation; *fgSAX2CoreNameSpaces = *XML::Xercesc::XMLUni_fgSAX2CoreNameSpaces; *fgSAX2CoreNameSpacePrefixes = *XML::Xercesc::XMLUni_fgSAX2CoreNameSpacePrefixes; @@ -1874,15 +1884,27 @@ *fgDOMCDATASections = *XML::Xercesc::XMLUni_fgDOMCDATASections; *fgDOMComments = *XML::Xercesc::XMLUni_fgDOMComments; *fgDOMCharsetOverridesXMLEncoding = *XML::Xercesc::XMLUni_fgDOMCharsetOverridesXMLEncoding; +*fgDOMCheckCharacterNormalization = *XML::Xercesc::XMLUni_fgDOMCheckCharacterNormalization; *fgDOMDatatypeNormalization = *XML::Xercesc::XMLUni_fgDOMDatatypeNormalization; +*fgDOMDisallowDoctype = *XML::Xercesc::XMLUni_fgDOMDisallowDoctype; +*fgDOMElementContentWhitespace = *XML::Xercesc::XMLUni_fgDOMElementContentWhitespace; +*fgDOMErrorHandler = *XML::Xercesc::XMLUni_fgDOMErrorHandler; *fgDOMEntities = *XML::Xercesc::XMLUni_fgDOMEntities; +*fgDOMIgnoreUnknownCharacterDenormalization = *XML::Xercesc::XMLUni_fgDOMIgnoreUnknownCharacterDenormalization; *fgDOMInfoset = *XML::Xercesc::XMLUni_fgDOMInfoset; *fgDOMNamespaces = *XML::Xercesc::XMLUni_fgDOMNamespaces; *fgDOMNamespaceDeclarations = *XML::Xercesc::XMLUni_fgDOMNamespaceDeclarations; +*fgDOMNormalizeCharacters = *XML::Xercesc::XMLUni_fgDOMNormalizeCharacters; +*fgDOMResourceResolver = *XML::Xercesc::XMLUni_fgDOMResourceResolver; +*fgDOMSchemaLocation = *XML::Xercesc::XMLUni_fgDOMSchemaLocation; +*fgDOMSchemaType = *XML::Xercesc::XMLUni_fgDOMSchemaType; +*fgDOMSplitCDATASections = *XML::Xercesc::XMLUni_fgDOMSplitCDATASections; *fgDOMSupportedMediatypesOnly = *XML::Xercesc::XMLUni_fgDOMSupportedMediatypesOnly; +*fgDOMValidate = *XML::Xercesc::XMLUni_fgDOMValidate; *fgDOMValidateIfSchema = *XML::Xercesc::XMLUni_fgDOMValidateIfSchema; -*fgDOMValidation = *XML::Xercesc::XMLUni_fgDOMValidation; -*fgDOMWhitespaceInElementContent = *XML::Xercesc::XMLUni_fgDOMWhitespaceInElementContent; +*fgDOMWellFormed = *XML::Xercesc::XMLUni_fgDOMWellFormed; +*fgDOMXMLSchemaType = *XML::Xercesc::XMLUni_fgDOMXMLSchemaType; +*fgDOMDTDType = *XML::Xercesc::XMLUni_fgDOMDTDType; *fgDOMWRTCanonicalForm = *XML::Xercesc::XMLUni_fgDOMWRTCanonicalForm; *fgDOMWRTDiscardDefaultContent = *XML::Xercesc::XMLUni_fgDOMWRTDiscardDefaultContent; *fgDOMWRTEntities = *XML::Xercesc::XMLUni_fgDOMWRTEntities; @@ -1895,6 +1917,7 @@ *fgDOMXMLDeclaration = *XML::Xercesc::XMLUni_fgDOMXMLDeclaration; *fgXercescInterfacePSVITypeInfo = *XML::Xercesc::XMLUni_fgXercescInterfacePSVITypeInfo; *fgXercescInterfaceDOMDocumentTypeImpl = *XML::Xercesc::XMLUni_fgXercescInterfaceDOMDocumentTypeImpl; +*fgXercescInterfaceDOMMemoryManager = *XML::Xercesc::XMLUni_fgXercescInterfaceDOMMemoryManager; *fgXercescDefaultLocale = *XML::Xercesc::XMLUni_fgXercescDefaultLocale; *fgDefErrMsg = *XML::Xercesc::XMLUni_fgDefErrMsg; *fgValueZero = *XML::Xercesc::XMLUni_fgValueZero; @@ -2041,8 +2064,6 @@ *getFullName = *XML::Xercesc::XMLElementDecl_getFullName; *getCreateReason = *XML::Xercesc::XMLElementDecl_getCreateReason; *getId = *XML::Xercesc::XMLElementDecl_getId; -*getDOMTypeInfoUri = *XML::Xercesc::XMLElementDecl_getDOMTypeInfoUri; -*getDOMTypeInfoName = *XML::Xercesc::XMLElementDecl_getDOMTypeInfoName; *isDeclared = *XML::Xercesc::XMLElementDecl_isDeclared; *isExternal = *XML::Xercesc::XMLElementDecl_isExternal; *getMemoryManager = *XML::Xercesc::XMLElementDecl_getMemoryManager; @@ -2277,8 +2298,6 @@ *getCreateReason = *XML::Xercesc::XMLAttDef_getCreateReason; *isExternal = *XML::Xercesc::XMLAttDef_isExternal; *getMemoryManager = *XML::Xercesc::XMLAttDef_getMemoryManager; -*getDOMTypeInfoUri = *XML::Xercesc::XMLAttDef_getDOMTypeInfoUri; -*getDOMTypeInfoName = *XML::Xercesc::XMLAttDef_getDOMTypeInfoName; *setDefaultType = *XML::Xercesc::XMLAttDef_setDefaultType; *setId = *XML::Xercesc::XMLAttDef_setId; *setProvided = *XML::Xercesc::XMLAttDef_setProvided; @@ -2543,8 +2562,6 @@ *getKey = *XML::Xercesc::DTDElementDecl_getKey; *getAttDef = *XML::Xercesc::DTDElementDecl_getAttDef; *getModelType = *XML::Xercesc::DTDElementDecl_getModelType; -*getDOMTypeInfoName = *XML::Xercesc::DTDElementDecl_getDOMTypeInfoName; -*getDOMTypeInfoUri = *XML::Xercesc::DTDElementDecl_getDOMTypeInfoUri; *addAttDef = *XML::Xercesc::DTDElementDecl_addAttDef; *setModelType = *XML::Xercesc::DTDElementDecl_setModelType; *getObjectType = *XML::Xercesc::DTDElementDecl_getObjectType; @@ -2739,8 +2756,6 @@ *getFullName = *XML::Xercesc::DTDAttDef_getFullName; *reset = *XML::Xercesc::DTDAttDef_reset; *getElemId = *XML::Xercesc::DTDAttDef_getElemId; -*getDOMTypeInfoName = *XML::Xercesc::DTDAttDef_getDOMTypeInfoName; -*getDOMTypeInfoUri = *XML::Xercesc::DTDAttDef_getDOMTypeInfoUri; *setElemId = *XML::Xercesc::DTDAttDef_setElemId; *setName = *XML::Xercesc::DTDAttDef_setName; sub DISOWN { @@ -2902,18 +2917,6 @@ *getComplexTypeInfo = *XML::Xercesc::SchemaElementDecl_getComplexTypeInfo; *isGlobalDecl = *XML::Xercesc::SchemaElementDecl_isGlobalDecl; *getSubstitutionGroupElem = *XML::Xercesc::SchemaElementDecl_getSubstitutionGroupElem; -*getValidity = *XML::Xercesc::SchemaElementDecl_getValidity; -*getValidationAttempted = *XML::Xercesc::SchemaElementDecl_getValidationAttempted; -*getTypeType = *XML::Xercesc::SchemaElementDecl_getTypeType; -*getTypeUri = *XML::Xercesc::SchemaElementDecl_getTypeUri; -*getTypeName = *XML::Xercesc::SchemaElementDecl_getTypeName; -*getTypeAnonymous = *XML::Xercesc::SchemaElementDecl_getTypeAnonymous; -*isTypeDefinitionUnion = *XML::Xercesc::SchemaElementDecl_isTypeDefinitionUnion; -*getMemberTypeUri = *XML::Xercesc::SchemaElementDecl_getMemberTypeUri; -*getMemberTypeAnonymous = *XML::Xercesc::SchemaElementDecl_getMemberTypeAnonymous; -*getMemberTypeName = *XML::Xercesc::SchemaElementDecl_getMemberTypeName; -*getDOMTypeInfoUri = *XML::Xercesc::SchemaElementDecl_getDOMTypeInfoUri; -*getDOMTypeInfoName = *XML::Xercesc::SchemaElementDecl_getDOMTypeInfoName; *setElemId = *XML::Xercesc::SchemaElementDecl_setElemId; *setModelType = *XML::Xercesc::SchemaElementDecl_setModelType; *setPSVIScope = *XML::Xercesc::SchemaElementDecl_setPSVIScope; @@ -2924,15 +2927,8 @@ *setMiscFlags = *XML::Xercesc::SchemaElementDecl_setMiscFlags; *setDefaultValue = *XML::Xercesc::SchemaElementDecl_setDefaultValue; *setComplexTypeInfo = *XML::Xercesc::SchemaElementDecl_setComplexTypeInfo; -*setXsiComplexTypeInfo = *XML::Xercesc::SchemaElementDecl_setXsiComplexTypeInfo; -*setXsiSimpleTypeInfo = *XML::Xercesc::SchemaElementDecl_setXsiSimpleTypeInfo; *setAttWildCard = *XML::Xercesc::SchemaElementDecl_setAttWildCard; *setSubstitutionGroupElem = *XML::Xercesc::SchemaElementDecl_setSubstitutionGroupElem; -*setValidity = *XML::Xercesc::SchemaElementDecl_setValidity; -*setValidationAttempted = *XML::Xercesc::SchemaElementDecl_setValidationAttempted; -*updateValidityFromElement = *XML::Xercesc::SchemaElementDecl_updateValidityFromElement; -*updateValidityFromAttribute = *XML::Xercesc::SchemaElementDecl_updateValidityFromAttribute; -*reset = *XML::Xercesc::SchemaElementDecl_reset; *addIdentityConstraint = *XML::Xercesc::SchemaElementDecl_addIdentityConstraint; *getIdentityConstraintCount = *XML::Xercesc::SchemaElementDecl_getIdentityConstraintCount; *getIdentityConstraintAt = *XML::Xercesc::SchemaElementDecl_getIdentityConstraintAt; @@ -3178,18 +3174,6 @@ *getFullName = *XML::Xercesc::SchemaAttDef_getFullName; *reset = *XML::Xercesc::SchemaAttDef_reset; -*getValidity = *XML::Xercesc::SchemaAttDef_getValidity; -*getValidationAttempted = *XML::Xercesc::SchemaAttDef_getValidationAttempted; -*getTypeType = *XML::Xercesc::SchemaAttDef_getTypeType; -*getTypeUri = *XML::Xercesc::SchemaAttDef_getTypeUri; -*getTypeName = *XML::Xercesc::SchemaAttDef_getTypeName; -*getTypeAnonymous = *XML::Xercesc::SchemaAttDef_getTypeAnonymous; -*isTypeDefinitionUnion = *XML::Xercesc::SchemaAttDef_isTypeDefinitionUnion; -*getMemberTypeUri = *XML::Xercesc::SchemaAttDef_getMemberTypeUri; -*getMemberTypeAnonymous = *XML::Xercesc::SchemaAttDef_getMemberTypeAnonymous; -*getMemberTypeName = *XML::Xercesc::SchemaAttDef_getMemberTypeName; -*getDOMTypeInfoUri = *XML::Xercesc::SchemaAttDef_getDOMTypeInfoUri; -*getDOMTypeInfoName = *XML::Xercesc::SchemaAttDef_getDOMTypeInfoName; *getElemId = *XML::Xercesc::SchemaAttDef_getElemId; *getAttName = *XML::Xercesc::SchemaAttDef_getAttName; *getDatatypeValidator = *XML::Xercesc::SchemaAttDef_getDatatypeValidator; @@ -3200,14 +3184,10 @@ *setElemId = *XML::Xercesc::SchemaAttDef_setElemId; *setAttName = *XML::Xercesc::SchemaAttDef_setAttName; *setDatatypeValidator = *XML::Xercesc::SchemaAttDef_setDatatypeValidator; -*setAnyDatatypeValidator = *XML::Xercesc::SchemaAttDef_setAnyDatatypeValidator; *setBaseAttDecl = *XML::Xercesc::SchemaAttDef_setBaseAttDecl; *setPSVIScope = *XML::Xercesc::SchemaAttDef_setPSVIScope; -*setMembertypeValidator = *XML::Xercesc::SchemaAttDef_setMembertypeValidator; *setNamespaceList = *XML::Xercesc::SchemaAttDef_setNamespaceList; *resetNamespaceList = *XML::Xercesc::SchemaAttDef_resetNamespaceList; -*setValidity = *XML::Xercesc::SchemaAttDef_setValidity; -*setValidationAttempted = *XML::Xercesc::SchemaAttDef_setValidationAttempted; *setEnclosingCT = *XML::Xercesc::SchemaAttDef_setEnclosingCT; sub DISOWN { my $self = shift; @@ -3458,6 +3438,7 @@ *NAMESPACE_ERR = *XML::Xercesc::DOMException_NAMESPACE_ERR; *INVALID_ACCESS_ERR = *XML::Xercesc::DOMException_INVALID_ACCESS_ERR; *VALIDATION_ERR = *XML::Xercesc::DOMException_VALIDATION_ERR; +*TYPE_MISMATCH_ERR = *XML::Xercesc::DOMException_TYPE_MISMATCH_ERR; *getMessage = *XML::Xercesc::DOMException_getMessage; *swig_code_get = *XML::Xercesc::DOMException_code_get; *swig_code_set = *XML::Xercesc::DOMException_code_set; @@ -3510,13 +3491,12 @@ *DOCUMENT_TYPE_NODE = *XML::Xercesc::DOMNode_DOCUMENT_TYPE_NODE; *DOCUMENT_FRAGMENT_NODE = *XML::Xercesc::DOMNode_DOCUMENT_FRAGMENT_NODE; *NOTATION_NODE = *XML::Xercesc::DOMNode_NOTATION_NODE; -*TREE_POSITION_PRECEDING = *XML::Xercesc::DOMNode_TREE_POSITION_PRECEDING; -*TREE_POSITION_FOLLOWING = *XML::Xercesc::DOMNode_TREE_POSITION_FOLLOWING; -*TREE_POSITION_ANCESTOR = *XML::Xercesc::DOMNode_TREE_POSITION_ANCESTOR; -*TREE_POSITION_DESCENDANT = *XML::Xercesc::DOMNode_TREE_POSITION_DESCENDANT; -*TREE_POSITION_EQUIVALENT = *XML::Xercesc::DOMNode_TREE_POSITION_EQUIVALENT; -*TREE_POSITION_SAME_NODE = *XML::Xercesc::DOMNode_TREE_POSITION_SAME_NODE; -*TREE_POSITION_DISCONNECTED = *XML::Xercesc::DOMNode_TREE_POSITION_DISCONNECTED; +*DOCUMENT_POSITION_DISCONNECTED = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_DISCONNECTED; +*DOCUMENT_POSITION_PRECEDING = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_PRECEDING; +*DOCUMENT_POSITION_FOLLOWING = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_FOLLOWING; +*DOCUMENT_POSITION_CONTAINS = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_CONTAINS; +*DOCUMENT_POSITION_CONTAINED_BY = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_CONTAINED_BY; +*DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = *XML::Xercesc::DOMNode_DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC; *getNodeName = *XML::Xercesc::DOMNode_getNodeName; *getNodeValue = *XML::Xercesc::DOMNode_getNodeValue; *getNodeType = *XML::Xercesc::DOMNode_getNodeType; @@ -3564,13 +3544,13 @@ *setUserData = *XML::Xercesc::DOMNode_setUserData; *getUserData = *XML::Xercesc::DOMNode_getUserData; *getBaseURI = *XML::Xercesc::DOMNode_getBaseURI; -*compareTreePosition = *XML::Xercesc::DOMNode_compareTreePosition; +*compareDocumentPosition = *XML::Xercesc::DOMNode_compareDocumentPosition; *getTextContent = *XML::Xercesc::DOMNode_getTextContent; *setTextContent = *XML::Xercesc::DOMNode_setTextContent; -*lookupNamespacePrefix = *XML::Xercesc::DOMNode_lookupNamespacePrefix; +*lookupPrefix = *XML::Xercesc::DOMNode_lookupPrefix; *isDefaultNamespace = *XML::Xercesc::DOMNode_isDefaultNamespace; *lookupNamespaceURI = *XML::Xercesc::DOMNode_lookupNamespaceURI; -*getInterface = *XML::Xercesc::DOMNode_getInterface; +*getFeature = *XML::Xercesc::DOMNode_getFeature; *release = *XML::Xercesc::DOMNode_release; *__eq__ = *XML::Xercesc::DOMNode___eq__; *__ne__ = *XML::Xercesc::DOMNode___ne__; @@ -3611,7 +3591,7 @@ *setValue = *XML::Xercesc::DOMAttr_setValue; *getOwnerElement = *XML::Xercesc::DOMAttr_getOwnerElement; *isId = *XML::Xercesc::DOMAttr_isId; -*getTypeInfo = *XML::Xercesc::DOMAttr_getTypeInfo; +*getSchemaTypeInfo = *XML::Xercesc::DOMAttr_getSchemaTypeInfo; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -3680,7 +3660,7 @@ *setIdAttribute = *XML::Xercesc::DOMElement_setIdAttribute; *setIdAttributeNS = *XML::Xercesc::DOMElement_setIdAttributeNS; *setIdAttributeNode = *XML::Xercesc::DOMElement_setIdAttributeNode; -*getTypeInfo = *XML::Xercesc::DOMElement_getTypeInfo; +*getSchemaTypeInfo = *XML::Xercesc::DOMElement_getSchemaTypeInfo; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -3715,12 +3695,9 @@ *getPublicId = *XML::Xercesc::DOMEntity_getPublicId; *getSystemId = *XML::Xercesc::DOMEntity_getSystemId; *getNotationName = *XML::Xercesc::DOMEntity_getNotationName; -*getActualEncoding = *XML::Xercesc::DOMEntity_getActualEncoding; -*setActualEncoding = *XML::Xercesc::DOMEntity_setActualEncoding; -*getEncoding = *XML::Xercesc::DOMEntity_getEncoding; -*setEncoding = *XML::Xercesc::DOMEntity_setEncoding; -*getVersion = *XML::Xercesc::DOMEntity_getVersion; -*setVersion = *XML::Xercesc::DOMEntity_setVersion; +*getInputEncoding = *XML::Xercesc::DOMEntity_getInputEncoding; +*getXmlEncoding = *XML::Xercesc::DOMEntity_getXmlEncoding; +*getXmlVersion = *XML::Xercesc::DOMEntity_getXmlVersion; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -3878,7 +3855,7 @@ } *splitText = *XML::Xercesc::DOMText_splitText; -*getIsWhitespaceInElementContent = *XML::Xercesc::DOMText_getIsWhitespaceInElementContent; +*getIsElementContentWhitespace = *XML::Xercesc::DOMText_getIsElementContentWhitespace; *getWholeText = *XML::Xercesc::DOMText_getWholeText; *replaceWholeText = *XML::Xercesc::DOMText_replaceWholeText; *isIgnorableWhitespace = *XML::Xercesc::DOMText_isIgnorableWhitespace; @@ -4461,9 +4438,10 @@ *MODE_SYNCHRONOUS = *XML::Xercesc::DOMImplementationLS_MODE_SYNCHRONOUS; *MODE_ASYNCHRONOUS = *XML::Xercesc::DOMImplementationLS_MODE_ASYNCHRONOUS; -*createDOMBuilder = *XML::Xercesc::DOMImplementationLS_createDOMBuilder; -*createDOMWriter = *XML::Xercesc::DOMImplementationLS_createDOMWriter; -*createDOMInputSource = *XML::Xercesc::DOMImplementationLS_createDOMInputSource; +*createLSParser = *XML::Xercesc::DOMImplementationLS_createLSParser; +*createLSSerializer = *XML::Xercesc::DOMImplementationLS_createLSSerializer; +*createLSInput = *XML::Xercesc::DOMImplementationLS_createLSInput; +*createLSOutput = *XML::Xercesc::DOMImplementationLS_createLSOutput; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -4497,7 +4475,7 @@ *hasFeature = *XML::Xercesc::DOMImplementation_hasFeature; *createDocumentType = *XML::Xercesc::DOMImplementation_createDocumentType; -*getInterface = *XML::Xercesc::DOMImplementation_getInterface; +*getFeature = *XML::Xercesc::DOMImplementation_getFeature; sub createDocument { if (UNIVERSAL::isa($_[3],"XML::Xerces::DOMDocumentType")) { $_[3]->DISOWN(); @@ -4541,6 +4519,7 @@ } *getDOMImplementation = *XML::Xercesc::DOMImplementationSource_getDOMImplementation; +*getDOMImplementationList = *XML::Xercesc::DOMImplementationSource_getDOMImplementationList; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -4562,6 +4541,7 @@ %OWNER = (); %ITERATORS = (); *getDOMImplementation = *XML::Xercesc::DOMImplementationRegistry_getDOMImplementation; +*getDOMImplementationList = *XML::Xercesc::DOMImplementationRegistry_getDOMImplementationList; *addSource = *XML::Xercesc::DOMImplementationRegistry_addSource; sub DESTROY { return unless $_[0]->isa('HASH'); @@ -4619,37 +4599,6 @@ } -############# Class : XML::Xerces::DOMEntityResolver ############## - -package XML::Xerces::DOMEntityResolver; -use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); [EMAIL PROTECTED] = qw( XML::Xerces ); -%OWNER = (); -%ITERATORS = (); -sub DESTROY { - return unless $_[0]->isa('HASH'); - my $self = tied(%{$_[0]}); - return unless defined $self; - delete $ITERATORS{$self}; - if (exists $OWNER{$self}) { - XML::Xercesc::delete_DOMEntityResolver($self); - delete $OWNER{$self}; - } -} - -sub DISOWN { - my $self = shift; - my $ptr = tied(%$self); - delete $OWNER{$ptr}; -} - -sub ACQUIRE { - my $self = shift; - my $ptr = tied(%$self); - $OWNER{$ptr} = 1; -} - - ############# Class : XML::Xerces::DOMDocument ############## package XML::Xerces::DOMDocument; @@ -4706,14 +4655,12 @@ } *getElementById = *XML::Xercesc::DOMDocument_getElementById; -*getActualEncoding = *XML::Xercesc::DOMDocument_getActualEncoding; -*setActualEncoding = *XML::Xercesc::DOMDocument_setActualEncoding; -*getEncoding = *XML::Xercesc::DOMDocument_getEncoding; -*setEncoding = *XML::Xercesc::DOMDocument_setEncoding; -*getStandalone = *XML::Xercesc::DOMDocument_getStandalone; -*setStandalone = *XML::Xercesc::DOMDocument_setStandalone; -*getVersion = *XML::Xercesc::DOMDocument_getVersion; -*setVersion = *XML::Xercesc::DOMDocument_setVersion; +*getInputEncoding = *XML::Xercesc::DOMDocument_getInputEncoding; +*getXmlEncoding = *XML::Xercesc::DOMDocument_getXmlEncoding; +*getXmlStandalone = *XML::Xercesc::DOMDocument_getXmlStandalone; +*setXmlStandalone = *XML::Xercesc::DOMDocument_setXmlStandalone; +*getXmlVersion = *XML::Xercesc::DOMDocument_getXmlVersion; +*setXmlVersion = *XML::Xercesc::DOMDocument_setXmlVersion; *getDocumentURI = *XML::Xercesc::DOMDocument_getDocumentURI; *setDocumentURI = *XML::Xercesc::DOMDocument_setDocumentURI; *getStrictErrorChecking = *XML::Xercesc::DOMDocument_getStrictErrorChecking; @@ -4721,7 +4668,7 @@ *renameNode = *XML::Xercesc::DOMDocument_renameNode; *adoptNode = *XML::Xercesc::DOMDocument_adoptNode; *normalizeDocument = *XML::Xercesc::DOMDocument_normalizeDocument; -*getDOMConfiguration = *XML::Xercesc::DOMDocument_getDOMConfiguration; +*getDOMConfig = *XML::Xercesc::DOMDocument_getDOMConfig; *createEntity = *XML::Xercesc::DOMDocument_createEntity; *createDocumentType = *XML::Xercesc::DOMDocument_createDocumentType; *createNotation = *XML::Xercesc::DOMDocument_createNotation; @@ -4759,14 +4706,10 @@ *getLineNumber = *XML::Xercesc::DOMLocator_getLineNumber; *getColumnNumber = *XML::Xercesc::DOMLocator_getColumnNumber; -*getOffset = *XML::Xercesc::DOMLocator_getOffset; -*getErrorNode = *XML::Xercesc::DOMLocator_getErrorNode; +*getByteOffset = *XML::Xercesc::DOMLocator_getByteOffset; +*getUtf16Offset = *XML::Xercesc::DOMLocator_getUtf16Offset; +*getRelatedNode = *XML::Xercesc::DOMLocator_getRelatedNode; *getURI = *XML::Xercesc::DOMLocator_getURI; -*setLineNumber = *XML::Xercesc::DOMLocator_setLineNumber; -*setColumnNumber = *XML::Xercesc::DOMLocator_setColumnNumber; -*setOffset = *XML::Xercesc::DOMLocator_setOffset; -*setErrorNode = *XML::Xercesc::DOMLocator_setErrorNode; -*setURI = *XML::Xercesc::DOMLocator_setURI; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -4780,9 +4723,9 @@ } -############# Class : XML::Xerces::DOMInputSource ############## +############# Class : XML::Xerces::DOMLSResourceResolver ############## -package XML::Xerces::DOMInputSource; +package XML::Xerces::DOMLSResourceResolver; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( XML::Xerces ); %OWNER = (); @@ -4793,23 +4736,55 @@ return unless defined $self; delete $ITERATORS{$self}; if (exists $OWNER{$self}) { - XML::Xercesc::delete_DOMInputSource($self); + XML::Xercesc::delete_DOMLSResourceResolver($self); delete $OWNER{$self}; } } -*getEncoding = *XML::Xercesc::DOMInputSource_getEncoding; -*getPublicId = *XML::Xercesc::DOMInputSource_getPublicId; -*getSystemId = *XML::Xercesc::DOMInputSource_getSystemId; -*getBaseURI = *XML::Xercesc::DOMInputSource_getBaseURI; -*setEncoding = *XML::Xercesc::DOMInputSource_setEncoding; -*setPublicId = *XML::Xercesc::DOMInputSource_setPublicId; -*setSystemId = *XML::Xercesc::DOMInputSource_setSystemId; -*setBaseURI = *XML::Xercesc::DOMInputSource_setBaseURI; -*makeStream = *XML::Xercesc::DOMInputSource_makeStream; -*setIssueFatalErrorIfNotFound = *XML::Xercesc::DOMInputSource_setIssueFatalErrorIfNotFound; -*getIssueFatalErrorIfNotFound = *XML::Xercesc::DOMInputSource_getIssueFatalErrorIfNotFound; -*release = *XML::Xercesc::DOMInputSource_release; +*resolveResource = *XML::Xercesc::DOMLSResourceResolver_resolveResource; +sub DISOWN { + my $self = shift; + my $ptr = tied(%$self); + delete $OWNER{$ptr}; +} + +sub ACQUIRE { + my $self = shift; + my $ptr = tied(%$self); + $OWNER{$ptr} = 1; +} + + +############# Class : XML::Xerces::DOMLSInput ############## + +package XML::Xerces::DOMLSInput; +use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); [EMAIL PROTECTED] = qw( XML::Xerces ); +%OWNER = (); +%ITERATORS = (); +sub DESTROY { + return unless $_[0]->isa('HASH'); + my $self = tied(%{$_[0]}); + return unless defined $self; + delete $ITERATORS{$self}; + if (exists $OWNER{$self}) { + XML::Xercesc::delete_DOMLSInput($self); + delete $OWNER{$self}; + } +} + +*getByteStream = *XML::Xercesc::DOMLSInput_getByteStream; +*getEncoding = *XML::Xercesc::DOMLSInput_getEncoding; +*getPublicId = *XML::Xercesc::DOMLSInput_getPublicId; +*getSystemId = *XML::Xercesc::DOMLSInput_getSystemId; +*getBaseURI = *XML::Xercesc::DOMLSInput_getBaseURI; +*setEncoding = *XML::Xercesc::DOMLSInput_setEncoding; +*setPublicId = *XML::Xercesc::DOMLSInput_setPublicId; +*setSystemId = *XML::Xercesc::DOMLSInput_setSystemId; +*setBaseURI = *XML::Xercesc::DOMLSInput_setBaseURI; +*setIssueFatalErrorIfNotFound = *XML::Xercesc::DOMLSInput_setIssueFatalErrorIfNotFound; +*getIssueFatalErrorIfNotFound = *XML::Xercesc::DOMLSInput_getIssueFatalErrorIfNotFound; +*release = *XML::Xercesc::DOMLSInput_release; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -4827,7 +4802,7 @@ package XML::Xerces::Wrapper4InputSource; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); [EMAIL PROTECTED] = qw( XML::Xerces::DOMInputSource XML::Xerces ); [EMAIL PROTECTED] = qw( XML::Xerces::DOMLSInput XML::Xerces ); %OWNER = (); %ITERATORS = (); sub new { @@ -4852,7 +4827,7 @@ } } -*makeStream = *XML::Xercesc::Wrapper4InputSource_makeStream; +*getByteStream = *XML::Xercesc::Wrapper4InputSource_getByteStream; *getEncoding = *XML::Xercesc::Wrapper4InputSource_getEncoding; *getPublicId = *XML::Xercesc::Wrapper4InputSource_getPublicId; *getSystemId = *XML::Xercesc::Wrapper4InputSource_getSystemId; @@ -4877,16 +4852,16 @@ } -############# Class : XML::Xerces::Wrapper4DOMInputSource ############## +############# Class : XML::Xerces::Wrapper4DOMLSInput ############## -package XML::Xerces::Wrapper4DOMInputSource; +package XML::Xerces::Wrapper4DOMLSInput; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( XML::Xerces::InputSource XML::Xerces ); %OWNER = (); %ITERATORS = (); sub new { my $pkg = shift; - my $self = XML::Xercesc::new_Wrapper4DOMInputSource(@_); + my $self = XML::Xercesc::new_Wrapper4DOMLSInput(@_); bless $self, $pkg if defined($self); } @@ -4896,20 +4871,20 @@ return unless defined $self; delete $ITERATORS{$self}; if (exists $OWNER{$self}) { - XML::Xercesc::delete_Wrapper4DOMInputSource($self); + XML::Xercesc::delete_Wrapper4DOMLSInput($self); delete $OWNER{$self}; } } -*makeStream = *XML::Xercesc::Wrapper4DOMInputSource_makeStream; -*getEncoding = *XML::Xercesc::Wrapper4DOMInputSource_getEncoding; -*getPublicId = *XML::Xercesc::Wrapper4DOMInputSource_getPublicId; -*getSystemId = *XML::Xercesc::Wrapper4DOMInputSource_getSystemId; -*getIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMInputSource_getIssueFatalErrorIfNotFound; -*setEncoding = *XML::Xercesc::Wrapper4DOMInputSource_setEncoding; -*setPublicId = *XML::Xercesc::Wrapper4DOMInputSource_setPublicId; -*setSystemId = *XML::Xercesc::Wrapper4DOMInputSource_setSystemId; -*setIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMInputSource_setIssueFatalErrorIfNotFound; +*makeStream = *XML::Xercesc::Wrapper4DOMLSInput_makeStream; +*getEncoding = *XML::Xercesc::Wrapper4DOMLSInput_getEncoding; +*getPublicId = *XML::Xercesc::Wrapper4DOMLSInput_getPublicId; +*getSystemId = *XML::Xercesc::Wrapper4DOMLSInput_getSystemId; +*getIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMLSInput_getIssueFatalErrorIfNotFound; +*setEncoding = *XML::Xercesc::Wrapper4DOMLSInput_setEncoding; +*setPublicId = *XML::Xercesc::Wrapper4DOMLSInput_setPublicId; +*setSystemId = *XML::Xercesc::Wrapper4DOMLSInput_setSystemId; +*setIssueFatalErrorIfNotFound = *XML::Xercesc::Wrapper4DOMLSInput_setIssueFatalErrorIfNotFound; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -4923,9 +4898,9 @@ } -############# Class : XML::Xerces::DOMBuilder ############## +############# Class : XML::Xerces::DOMLSParser ############## -package XML::Xerces::DOMBuilder; +package XML::Xerces::DOMLSParser; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( XML::Xerces ); %OWNER = (); @@ -4936,51 +4911,32 @@ return unless defined $self; delete $ITERATORS{$self}; if (exists $OWNER{$self}) { - XML::Xercesc::delete_DOMBuilder($self); + XML::Xercesc::delete_DOMLSParser($self); delete $OWNER{$self}; } } -*ACTION_REPLACE = *XML::Xercesc::DOMBuilder_ACTION_REPLACE; -*ACTION_APPEND_AS_CHILDREN = *XML::Xercesc::DOMBuilder_ACTION_APPEND_AS_CHILDREN; -*ACTION_INSERT_AFTER = *XML::Xercesc::DOMBuilder_ACTION_INSERT_AFTER; -*ACTION_INSERT_BEFORE = *XML::Xercesc::DOMBuilder_ACTION_INSERT_BEFORE; -*getErrorHandler = *XML::Xercesc::DOMBuilder_getErrorHandler; -*getEntityResolver = *XML::Xercesc::DOMBuilder_getEntityResolver; -*getFilter = *XML::Xercesc::DOMBuilder_getFilter; -sub setErrorHandler { - my ($self,$handler) = @_; - my $callback = XML::Xerces::PerlErrorCallbackHandler->new($handler); - $XML::Xerces::REMEMBER{tied(% {$self})}->{__ERROR_HANDLER} = $callback; - - return XML::Xercesc::DOMBuilder_setErrorHandler($self,$callback); -} - -sub setEntityResolver { - my ($self,$handler) = @_; - my $callback = XML::Xerces::PerlEntityResolverHandler->new($handler); - $XML::Xerces::REMEMBER{tied(% {$self})}->{__ENTITY_RESOLVER} = $callback; - - return XML::Xercesc::DOMBuilder_setEntityResolver($self,$callback); -} - -*setFilter = *XML::Xercesc::DOMBuilder_setFilter; -*setFeature = *XML::Xercesc::DOMBuilder_setFeature; -*getFeature = *XML::Xercesc::DOMBuilder_getFeature; -*canSetFeature = *XML::Xercesc::DOMBuilder_canSetFeature; -*parse = *XML::Xercesc::DOMBuilder_parse; -*parseURI = *XML::Xercesc::DOMBuilder_parseURI; -*parseWithContext = *XML::Xercesc::DOMBuilder_parseWithContext; -*getProperty = *XML::Xercesc::DOMBuilder_getProperty; -*setProperty = *XML::Xercesc::DOMBuilder_setProperty; -*release = *XML::Xercesc::DOMBuilder_release; -*resetDocumentPool = *XML::Xercesc::DOMBuilder_resetDocumentPool; -*loadGrammar = *XML::Xercesc::DOMBuilder_loadGrammar; -*getGrammar = *XML::Xercesc::DOMBuilder_getGrammar; -*getRootGrammar = *XML::Xercesc::DOMBuilder_getRootGrammar; -*getURIText = *XML::Xercesc::DOMBuilder_getURIText; -*resetCachedGrammarPool = *XML::Xercesc::DOMBuilder_resetCachedGrammarPool; -*getSrcOffset = *XML::Xercesc::DOMBuilder_getSrcOffset; +*ACTION_APPEND_AS_CHILDREN = *XML::Xercesc::DOMLSParser_ACTION_APPEND_AS_CHILDREN; +*ACTION_REPLACE_CHILDREN = *XML::Xercesc::DOMLSParser_ACTION_REPLACE_CHILDREN; +*ACTION_INSERT_BEFORE = *XML::Xercesc::DOMLSParser_ACTION_INSERT_BEFORE; +*ACTION_INSERT_AFTER = *XML::Xercesc::DOMLSParser_ACTION_INSERT_AFTER; +*ACTION_REPLACE = *XML::Xercesc::DOMLSParser_ACTION_REPLACE; +*getDomConfig = *XML::Xercesc::DOMLSParser_getDomConfig; +*getAsync = *XML::Xercesc::DOMLSParser_getAsync; +*getBusy = *XML::Xercesc::DOMLSParser_getBusy; +*setFilter = *XML::Xercesc::DOMLSParser_setFilter; +*parse = *XML::Xercesc::DOMLSParser_parse; +*parseURI = *XML::Xercesc::DOMLSParser_parseURI; +*parseWithContext = *XML::Xercesc::DOMLSParser_parseWithContext; +*abort = *XML::Xercesc::DOMLSParser_abort; +*release = *XML::Xercesc::DOMLSParser_release; +*resetDocumentPool = *XML::Xercesc::DOMLSParser_resetDocumentPool; +*loadGrammar = *XML::Xercesc::DOMLSParser_loadGrammar; +*getGrammar = *XML::Xercesc::DOMLSParser_getGrammar; +*getRootGrammar = *XML::Xercesc::DOMLSParser_getRootGrammar; +*getURIText = *XML::Xercesc::DOMLSParser_getURIText; +*resetCachedGrammarPool = *XML::Xercesc::DOMLSParser_resetCachedGrammarPool; +*getSrcOffset = *XML::Xercesc::DOMLSParser_getSrcOffset; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -5113,9 +5069,9 @@ } -############# Class : XML::Xerces::DOMWriter ############## +############# Class : XML::Xerces::DOMLSSerializer ############## -package XML::Xerces::DOMWriter; +package XML::Xerces::DOMLSSerializer; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( XML::Xerces ); %OWNER = (); @@ -5126,30 +5082,21 @@ return unless defined $self; delete $ITERATORS{$self}; if (exists $OWNER{$self}) { - XML::Xercesc::delete_DOMWriter($self); + XML::Xercesc::delete_DOMLSSerializer($self); delete $OWNER{$self}; } } -*canSetFeature = *XML::Xercesc::DOMWriter_canSetFeature; -*setFeature = *XML::Xercesc::DOMWriter_setFeature; -*getFeature = *XML::Xercesc::DOMWriter_getFeature; -*setEncoding = *XML::Xercesc::DOMWriter_setEncoding; -*setNewLine = *XML::Xercesc::DOMWriter_setNewLine; -sub setErrorHandler { - my ($self,$handler) = @_; - my $callback = XML::Xerces::PerlErrorCallbackHandler->new($handler); - $XML::Xerces::REMEMBER{tied(% {$self})}->{__ERROR_HANDLER} = $callback; - - return XML::Xercesc::DOMWriter_setErrorHandler($self,$callback); -} - -*setFilter = *XML::Xercesc::DOMWriter_setFilter; -*getEncoding = *XML::Xercesc::DOMWriter_getEncoding; -*getNewLine = *XML::Xercesc::DOMWriter_getNewLine; -*writeNode = *XML::Xercesc::DOMWriter_writeNode; -*writeToString = *XML::Xercesc::DOMWriter_writeToString; -*release = *XML::Xercesc::DOMWriter_release; +*getDomConfig = *XML::Xercesc::DOMLSSerializer_getDomConfig; +*setEncoding = *XML::Xercesc::DOMLSSerializer_setEncoding; +*setNewLine = *XML::Xercesc::DOMLSSerializer_setNewLine; +*setFilter = *XML::Xercesc::DOMLSSerializer_setFilter; +*getEncoding = *XML::Xercesc::DOMLSSerializer_getEncoding; +*getNewLine = *XML::Xercesc::DOMLSSerializer_getNewLine; +*write = *XML::Xercesc::DOMLSSerializer_write; +*writeToURI = *XML::Xercesc::DOMLSSerializer_writeToURI; +*writeToString = *XML::Xercesc::DOMLSSerializer_writeToString; +*release = *XML::Xercesc::DOMLSSerializer_release; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -5163,9 +5110,9 @@ } -############# Class : XML::Xerces::DOMWriterFilter ############## +############# Class : XML::Xerces::DOMLSSerializerFilter ############## -package XML::Xerces::DOMWriterFilter; +package XML::Xerces::DOMLSSerializerFilter; use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS); @ISA = qw( XML::Xerces::DOMNodeFilter XML::Xerces ); %OWNER = (); @@ -5176,14 +5123,13 @@ return unless defined $self; delete $ITERATORS{$self}; if (exists $OWNER{$self}) { - XML::Xercesc::delete_DOMWriterFilter($self); + XML::Xercesc::delete_DOMLSSerializerFilter($self); delete $OWNER{$self}; } } -*acceptNode = *XML::Xercesc::DOMWriterFilter_acceptNode; -*getWhatToShow = *XML::Xercesc::DOMWriterFilter_getWhatToShow; -*setWhatToShow = *XML::Xercesc::DOMWriterFilter_setWhatToShow; +*acceptNode = *XML::Xercesc::DOMLSSerializerFilter_acceptNode; +*getWhatToShow = *XML::Xercesc::DOMLSSerializerFilter_getWhatToShow; sub DISOWN { my $self = shift; my $ptr = tied(%$self); @@ -6581,6 +6527,10 @@ *DEBUG_UTF8_OUT = *XML::Xercesc::DEBUG_UTF8_OUT; *DEBUG_UTF8_IN = *XML::Xercesc::DEBUG_UTF8_IN; +*XMLPlatformUtils_fgFileMgr = *XML::Xercesc::XMLPlatformUtils_fgFileMgr; +*XMLPlatformUtils_fgMutexMgr = *XML::Xercesc::XMLPlatformUtils_fgMutexMgr; +*XMLPlatformUtils_fgAtomicOpMgr = *XML::Xercesc::XMLPlatformUtils_fgAtomicOpMgr; +*XMLPlatformUtils_fgXMLChBigEndian = *XML::Xercesc::XMLPlatformUtils_fgXMLChBigEndian; *XMLUni_fgAnyString = *XML::Xercesc::XMLUni_fgAnyString; *XMLUni_fgAttListString = *XML::Xercesc::XMLUni_fgAttListString; *XMLUni_fgCommentString = *XML::Xercesc::XMLUni_fgCommentString; @@ -6762,6 +6712,7 @@ *XMLUni_fgXercesIgnoreAnnotations = *XML::Xercesc::XMLUni_fgXercesIgnoreAnnotations; *XMLUni_fgXercesDisableDefaultEntityResolution = *XML::Xercesc::XMLUni_fgXercesDisableDefaultEntityResolution; *XMLUni_fgXercesSkipDTDValidation = *XML::Xercesc::XMLUni_fgXercesSkipDTDValidation; +*XMLUni_fgXercesEntityResolver = *XML::Xercesc::XMLUni_fgXercesEntityResolver; *XMLUni_fgSAX2CoreValidation = *XML::Xercesc::XMLUni_fgSAX2CoreValidation; *XMLUni_fgSAX2CoreNameSpaces = *XML::Xercesc::XMLUni_fgSAX2CoreNameSpaces; *XMLUni_fgSAX2CoreNameSpacePrefixes = *XML::Xercesc::XMLUni_fgSAX2CoreNameSpacePrefixes; @@ -6769,15 +6720,27 @@ *XMLUni_fgDOMCDATASections = *XML::Xercesc::XMLUni_fgDOMCDATASections; *XMLUni_fgDOMComments = *XML::Xercesc::XMLUni_fgDOMComments; *XMLUni_fgDOMCharsetOverridesXMLEncoding = *XML::Xercesc::XMLUni_fgDOMCharsetOverridesXMLEncoding; +*XMLUni_fgDOMCheckCharacterNormalization = *XML::Xercesc::XMLUni_fgDOMCheckCharacterNormalization; *XMLUni_fgDOMDatatypeNormalization = *XML::Xercesc::XMLUni_fgDOMDatatypeNormalization; +*XMLUni_fgDOMDisallowDoctype = *XML::Xercesc::XMLUni_fgDOMDisallowDoctype; +*XMLUni_fgDOMElementContentWhitespace = *XML::Xercesc::XMLUni_fgDOMElementContentWhitespace; +*XMLUni_fgDOMErrorHandler = *XML::Xercesc::XMLUni_fgDOMErrorHandler; *XMLUni_fgDOMEntities = *XML::Xercesc::XMLUni_fgDOMEntities; +*XMLUni_fgDOMIgnoreUnknownCharacterDenormalization = *XML::Xercesc::XMLUni_fgDOMIgnoreUnknownCharacterDenormalization; *XMLUni_fgDOMInfoset = *XML::Xercesc::XMLUni_fgDOMInfoset; *XMLUni_fgDOMNamespaces = *XML::Xercesc::XMLUni_fgDOMNamespaces; *XMLUni_fgDOMNamespaceDeclarations = *XML::Xercesc::XMLUni_fgDOMNamespaceDeclarations; +*XMLUni_fgDOMNormalizeCharacters = *XML::Xercesc::XMLUni_fgDOMNormalizeCharacters; +*XMLUni_fgDOMResourceResolver = *XML::Xercesc::XMLUni_fgDOMResourceResolver; +*XMLUni_fgDOMSchemaLocation = *XML::Xercesc::XMLUni_fgDOMSchemaLocation; +*XMLUni_fgDOMSchemaType = *XML::Xercesc::XMLUni_fgDOMSchemaType; +*XMLUni_fgDOMSplitCDATASections = *XML::Xercesc::XMLUni_fgDOMSplitCDATASections; *XMLUni_fgDOMSupportedMediatypesOnly = *XML::Xercesc::XMLUni_fgDOMSupportedMediatypesOnly; +*XMLUni_fgDOMValidate = *XML::Xercesc::XMLUni_fgDOMValidate; *XMLUni_fgDOMValidateIfSchema = *XML::Xercesc::XMLUni_fgDOMValidateIfSchema; -*XMLUni_fgDOMValidation = *XML::Xercesc::XMLUni_fgDOMValidation; -*XMLUni_fgDOMWhitespaceInElementContent = *XML::Xercesc::XMLUni_fgDOMWhitespaceInElementContent; +*XMLUni_fgDOMWellFormed = *XML::Xercesc::XMLUni_fgDOMWellFormed; +*XMLUni_fgDOMXMLSchemaType = *XML::Xercesc::XMLUni_fgDOMXMLSchemaType; +*XMLUni_fgDOMDTDType = *XML::Xercesc::XMLUni_fgDOMDTDType; *XMLUni_fgDOMWRTCanonicalForm = *XML::Xercesc::XMLUni_fgDOMWRTCanonicalForm; *XMLUni_fgDOMWRTDiscardDefaultContent = *XML::Xercesc::XMLUni_fgDOMWRTDiscardDefaultContent; *XMLUni_fgDOMWRTEntities = *XML::Xercesc::XMLUni_fgDOMWRTEntities; @@ -6790,6 +6753,7 @@ *XMLUni_fgDOMXMLDeclaration = *XML::Xercesc::XMLUni_fgDOMXMLDeclaration; *XMLUni_fgXercescInterfacePSVITypeInfo = *XML::Xercesc::XMLUni_fgXercescInterfacePSVITypeInfo; *XMLUni_fgXercescInterfaceDOMDocumentTypeImpl = *XML::Xercesc::XMLUni_fgXercescInterfaceDOMDocumentTypeImpl; +*XMLUni_fgXercescInterfaceDOMMemoryManager = *XML::Xercesc::XMLUni_fgXercescInterfaceDOMMemoryManager; *XMLUni_fgXercescDefaultLocale = *XML::Xercesc::XMLUni_fgXercescDefaultLocale; *XMLUni_fgDefErrMsg = *XML::Xercesc::XMLUni_fgDefErrMsg; *XMLUni_fgValueZero = *XML::Xercesc::XMLUni_fgValueZero;
Modified: xerces/c/trunk/swig/perl/samples/SAX2Count.pl URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/samples/SAX2Count.pl?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/samples/SAX2Count.pl (original) +++ xerces/c/trunk/swig/perl/samples/SAX2Count.pl Mon Feb 20 02:42:41 2006 @@ -107,17 +107,17 @@ package main; my $parser = XML::Xerces::XMLReaderFactory::createXMLReader(); eval { - $parser->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreNameSpaces", $namespace); + $parser->setFeature($XML::Xerces::XMLUni::fgSAX2CoreNameSpaces, $namespace); if ($validate eq $XML::Xerces::SAX2XMLReader::Val_Auto) { - $parser->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreValidation", 1); - $parser->setFeature("$XML::Xerces::XMLUni::fgXercesDynamic", 1); + $parser->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 1); + $parser->setFeature($XML::Xerces::XMLUni::fgXercesDynamic, 1); } elsif ($validate eq $XML::Xerces::SAX2XMLReader::Val_Never) { - $parser->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreValidation", 0); + $parser->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 0); } elsif ($validate eq $XML::Xerces::SAX2XMLReader::Val_Always) { - $parser->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreValidation", 1); - $parser->setFeature("$XML::Xerces::XMLUni::fgXercesDynamic", 0); + $parser->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 1); + $parser->setFeature($XML::Xerces::XMLUni::fgXercesDynamic, 0); } - $parser->setFeature("$XML::Xerces::XMLUni::fgXercesSchema", $schema); + $parser->setFeature($XML::Xerces::XMLUni::fgXercesSchema, $schema); }; error ($@) if $@; Modified: xerces/c/trunk/swig/perl/t/DOMBuilder.t URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/t/DOMBuilder.t?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/t/DOMBuilder.t (original) +++ xerces/c/trunk/swig/perl/t/DOMBuilder.t Mon Feb 20 02:42:41 2006 @@ -1,6 +1,6 @@ # Before `make install' is performed this script should be runnable # with `make test'. After `make install' it should work as `perl -# DOMParser.t' +# DOMLSParser.t' ######################### We start with some black magic to print on failure. @@ -9,7 +9,7 @@ use Carp; # use blib; use XML::Xerces qw(error); -use Test::More tests => 15; +use Test::More tests => 12; use Config; use lib 't'; @@ -39,24 +39,7 @@ </contributors>]; my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS'); -my $DOM = $impl->createDOMBuilder($XML::Xerces::DOMImplementationLS::MODE_SYNCHRONOUS,''); -SKIP: { - skip "DOMErrorHandler not implemented", 1; - $DOM->setErrorHandler(XML::Xerces::PerlErrorHandler->new()); - pass('setErrorHandler'); -} -if ($DOM->canSetFeature("$XML::Xerces::XMLUni::fgDOMValidation", 1)) { - $DOM->setFeature("$XML::Xerces::XMLUni::fgDOMValidation", 1); - pass('validation=>1'); -} else { - fail('validation=>1'); -} -if ($DOM->canSetFeature("$XML::Xerces::XMLUni::fgDOMValidateIfSchema", 0)) { - $DOM->setFeature("$XML::Xerces::XMLUni::fgDOMValidateIfSchema", 0); - pass('validate_if_schema=>1'); -} else { - fail('validate_if_schema=>1'); -} +my $DOM = $impl->createLSParser($XML::Xerces::DOMImplementationLS::MODE_SYNCHRONOUS,''); my $doc = eval{$DOM->parseURI($PERSONAL_FILE_NAME)}; ok((not $@),'parseURI'); Modified: xerces/c/trunk/swig/perl/t/DOMElement.t URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/t/DOMElement.t?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/t/DOMElement.t (original) +++ xerces/c/trunk/swig/perl/t/DOMElement.t Mon Feb 20 02:42:41 2006 @@ -123,3 +123,18 @@ eval{$element->setAttributeNS(undef,'foo','foo')}; ok($@, "setAttributeNS - undef uri fails"); + +$document = <<XML; +<root> +<a> +<t:a/> +</a> +</root> +XML + +$DOM->parse(XML::Xerces::MemBufInputSource->new($document)); + +my $doc = $DOM->getDocument(); +ok($doc->getElementsByTagName('a')->getLength == 1); +ok($doc->getElementsByTagNameNS('http://example.org/', 'a')->getLength == 2); +ok($doc->getElementsByTagNameNS('http://example.com/test', 'root')->getLength == 1); Modified: xerces/c/trunk/swig/perl/t/DOMWriter.t URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/t/DOMWriter.t?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/t/DOMWriter.t (original) +++ xerces/c/trunk/swig/perl/t/DOMWriter.t Mon Feb 20 02:42:41 2006 @@ -22,7 +22,7 @@ ######################### End of black magic. # Create a couple of identical test documents -my $document = q[<?xml version="1.0" encoding="UTF-8" standalone="no" ?><contributors> +my $document = q[<?xml version="1.0" encoding="UTF-16" standalone="no" ?><contributors> <person Role="manager"> <name>Mike Pogue</name> <email>[EMAIL PROTECTED]</email> @@ -38,19 +38,17 @@ </contributors>]; my $dom = XML::Xerces::XercesDOMParser->new(); -my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS'); -my $writer = $impl->createDOMWriter(); -# $writer->setNewLine(0); -# $writer->setEncoding(0); my $handler = XML::Xerces::PerlErrorHandler->new(); $dom->setErrorHandler($handler); eval{$dom->parse(XML::Xerces::MemBufInputSource->new($document))}; XML::Xerces::error($@) if $@; -my $target = XML::Xerces::MemBufFormatTarget->new(); my $doc = $dom->getDocument(); -$writer->writeNode($target,$doc); -my $output = $target->getRawBuffer(); +my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS'); +my $writer = $impl->createLSSerializer(); +# $writer->setNewLine(0); +# $writer->setEncoding("UTF-8"); +my $output = $writer->writeToString($doc); ok($output, "output written"); is($output, $document, "got expected document"); Modified: xerces/c/trunk/swig/perl/t/SAX2XMLReader.t URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/t/SAX2XMLReader.t?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/t/SAX2XMLReader.t (original) +++ xerces/c/trunk/swig/perl/t/SAX2XMLReader.t Mon Feb 20 02:42:41 2006 @@ -9,11 +9,11 @@ use Carp; # use blib; use XML::Xerces qw(error); -use Test::More tests => 16; +use Test::More tests => 23; use Config; use lib 't'; -use TestUtils qw($PERSONAL_FILE_NAME); +use TestUtils qw($PERSONAL_FILE_NAME $SCHEMA_FILE_NAME $PERSONAL_SCHEMA_INVALID_FILE_NAME); use vars qw($loaded $error); use strict; @@ -69,35 +69,35 @@ $SAX->setContentHandler($CONTENT_HANDLER); $SAX->setErrorHandler(XML::Xerces::PerlErrorHandler->new()); eval { - $SAX->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreValidation", 1); - $SAX->setFeature("$XML::Xerces::XMLUni::fgXercesDynamic", 0); + $SAX->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 1); + $SAX->setFeature($XML::Xerces::XMLUni::fgXercesDynamic, 0); }; ok((not $@),'setting validate=>yes, dynamic=>no') or diag("Here's the error: $@"); -eval{$SAX->parse(XML::Xerces::MemBufInputSource->new($document, 'foo'))}; +my $is = XML::Xerces::MemBufInputSource->new($document, 'foo'); +eval{$SAX->parse($is)}; ok($@,'no dtd'); $SAX = XML::Xerces::XMLReaderFactory::createXMLReader(); $SAX->setContentHandler($CONTENT_HANDLER); $SAX->setErrorHandler(XML::Xerces::PerlErrorHandler->new()); eval { - $SAX->setFeature("$XML::Xerces::XMLUni::fgSAX2CoreValidation", 1); - $SAX->setFeature("$XML::Xerces::XMLUni::fgXercesDynamic", 1); + $SAX->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 1); + $SAX->setFeature($XML::Xerces::XMLUni::fgXercesDynamic, 1); }; ok((not $@),'setting dynamic=>yes') or diag("Here's the error: $@"); - # reset the counts $CONTENT_HANDLER->reset_document(); eval{$SAX->parse(XML::Xerces::MemBufInputSource->new($document, 'foo'))}; ok((not $@),'membuf parse'); -ok($CONTENT_HANDLER->{elements} == 10,'elements'); -ok($CONTENT_HANDLER->{chars} == 141,'chars'); -ok($CONTENT_HANDLER->{ws} == 0,'ws'); +is($CONTENT_HANDLER->{elements}, 10,'elements'); +is($CONTENT_HANDLER->{chars}, 141,'chars'); +is($CONTENT_HANDLER->{ws}, 0,'ws'); # test the overloaded parse version $SAX->parse($PERSONAL_FILE_NAME); @@ -164,6 +164,15 @@ use vars qw(@ISA); @ISA = qw(XML::Xerces::PerlErrorHandler); sub warning { + my $LINE = $_[1]->getLineNumber; + my $COLUMN = $_[1]->getColumnNumber; + my $MESSAGE = $_[1]->getMessage; + $::error = <<"EOE"; +WARNING: +LINE: $LINE +COLUMN: $COLUMN +MESSAGE: $MESSAGE +EOE } sub error { @@ -216,3 +225,90 @@ eval {$SAX->parse(XML::Xerces::MemBufInputSource->new($document))}; ok($@,'fatal error in parse'); + +# +# Test setProperty() +# +$SAX = XML::Xerces::XMLReaderFactory::createXMLReader(); +$SAX->setErrorHandler(XML::Xerces::PerlErrorHandler->new()); + +# setProperty(): fgXercesSchemaExternalSchemaLocation +eval { + $SAX->setProperty($XML::Xerces::XMLUni::fgXercesSchemaExternalSchemaLocation, "nowhere"); +}; +ok((not $@),'setProperty(): fgXercesSchemaExternalSchemaLocation') + or diag("Here's the error: $@"); + +# setProperty(): fgXercesSchemaExternalNoNameSpaceSchemaLocation +eval { + $SAX->setProperty($XML::Xerces::XMLUni::fgXercesSchemaExternalNoNameSpaceSchemaLocation, "nowhere"); +}; +ok((not $@),'setProperty(): fgXercesSchemaExternalNoNameSpaceSchemaLocation') + or diag("Here's the error: $@"); + +# setProperty(): fgXercesScannerName +eval { + $SAX->setProperty($XML::Xerces::XMLUni::fgXercesScannerName, "BADNAME"); +}; +ok((not $@),'setProperty(): fgXercesScannerName') + or diag("Here's the error: $@"); + +# setProperty(): fgXercesSecurityManager +eval { + $SAX->setProperty($XML::Xerces::XMLUni::fgXercesSecurityManager, "BADNAME"); +}; +$error = $@; +ok($error,'setProperty(): fgXercesSecurityManager - throws exception'); +isa_ok($@,'XML::Xerces::SAXNotSupportedException'); + +# setProperty(): bogus +eval { + $SAX->setProperty("bogus", "BADNAME"); +}; +$error = $@; +ok($@,'setProperty(): bogus - throws exception'); +isa_ok($@,'XML::Xerces::SAXNotRecognizedException'); + +$document = q[<?xml version="1.0" encoding="UTF-8" standalone="yes"?> +<contributors xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance";> + <person Role="manager"> + <name>Mike Pogue</name> + <email>[EMAIL PROTECTED]</email> + </person> + <person Role="developer"> + <name>Tom Watson</name> + <email>[EMAIL PROTECTED]</email> + </person> + <person Role="tech writer"> + <name>Susan Hardenbrook</name> + <email>[EMAIL PROTECTED]</email> + </person> +</contributors>]; + +$SAX = XML::Xerces::XMLReaderFactory::createXMLReader(); + +$CONTENT_HANDLER = MyContentHandler->new(); +$SAX->setContentHandler($CONTENT_HANDLER); + +$SAX->setFeature($XML::Xerces::XMLUni::fgSAX2CoreNameSpaces, 1); +$SAX->setFeature($XML::Xerces::XMLUni::fgXercesSchema, 1); +$SAX->setFeature($XML::Xerces::XMLUni::fgSAX2CoreValidation, 1); +$SAX->setFeature($XML::Xerces::XMLUni::fgXercesDynamic, 1); + +$SAX->setProperty($XML::Xerces::XMLUni::fgXercesSchemaExternalNoNameSpaceSchemaLocation, 'this_file_does_not_exist'); + +$SAX->setErrorHandler(MyErrorHandler->new()); +$::error = ''; + +$is = eval{XML::Xerces::MemBufInputSource->new($document)}; +eval {$SAX->parse($is)}; +ok($::error, "parse with fgXercesSchemaExternalNoNameSpaceSchemaLocation set to invalid file throws warning"); + +$SAX->setProperty($XML::Xerces::XMLUni::fgXercesSchemaExternalNoNameSpaceSchemaLocation, $SCHEMA_FILE_NAME); +$SAX->setErrorHandler(XML::Xerces::PerlErrorHandler->new()); + +# $is = eval{XML::Xerces::LocalFileInputSource->new($PERSONAL_SCHEMA_INVALID_FILE_NAME)}; +eval {$SAX->parse($is)}; +ok($@, "parse invalid doc with fgXercesSchemaExternalNoNameSpaceSchemaLocation set"); +like($@, qr/Unknown element 'contributors'/, 'invalid document error'); + Modified: xerces/c/trunk/swig/perl/t/TestUtils.pm URL: http://svn.apache.org/viewcvs/xerces/c/trunk/swig/perl/t/TestUtils.pm?rev=379076&r1=374831&r2=379076&view=diff ============================================================================== --- xerces/c/trunk/swig/perl/t/TestUtils.pm (original) +++ xerces/c/trunk/swig/perl/t/TestUtils.pm Mon Feb 20 02:42:41 2006 @@ -10,6 +10,7 @@ $PERSONAL $PUBLIC_RESOLVER_FILE_NAME $SYSTEM_RESOLVER_FILE_NAME + $PERSONAL_SCHEMA_INVALID_FILE_NAME $PERSONAL_SCHEMA_FILE_NAME $SCHEMA_FILE_NAME $SAMPLE_DIR @@ -35,6 +36,7 @@ $SYSTEM_RESOLVER_FILE_NAME $SCHEMA_FILE_NAME $PERSONAL_SCHEMA_FILE_NAME + $PERSONAL_SCHEMA_INVALID_FILE_NAME $PERSONAL_DTD_NAME $PERSONAL_NO_DOCTYPE_FILE_NAME $PERSONAL_NO_DOCTYPE @@ -70,6 +72,8 @@ $PERSONAL_DTD_NAME =~ s/\.xml/\.dtd/; $PERSONAL_SCHEMA_FILE_NAME = $PERSONAL_FILE_NAME; $PERSONAL_SCHEMA_FILE_NAME =~ s/\.xml/-schema.xml/; + $PERSONAL_SCHEMA_INVALID_FILE_NAME = $PERSONAL_SCHEMA_FILE_NAME; + $PERSONAL_SCHEMA_INVALID_FILE_NAME =~ s/-schema/-schema-invalid/; $SCHEMA_FILE_NAME = $PERSONAL_FILE_NAME; $SCHEMA_FILE_NAME =~ s/\.xml/.xsd/; $CATALOG = $PERSONAL_FILE_NAME; --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
