jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleaned up expat wrapper

Browse source
This commit is contained in:
Araq 2014-09-19 00:59:11 +02:00
commit 137ade4f6e
1 changed files with 76 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

152
lib/wrappers/expat.nim
View file

@ -77,8 +77,8 @@ type
type type
TContent*{.pure, final.} = object TContent*{.pure, final.} = object
typ*: TContent_Type typ*: TContentType
quant*: TContent_Quant quant*: TContentQuant
name*: cstring name*: cstring
numchildren*: cint numchildren*: cint
children*: ptr TContent children*: ptr TContent
@ -93,7 +93,7 @@ type
TElementDeclHandler* = proc (userData: pointer, name: cstring, TElementDeclHandler* = proc (userData: pointer, name: cstring,
model: ptr TContent){.cdecl.} model: ptr TContent){.cdecl.}
proc SetElementDeclHandler*(parser: PParser, eldecl: TElementDeclHandler){. proc setElementDeclHandler*(parser: PParser, eldecl: TElementDeclHandler){.
cdecl, importc: "XML_SetElementDeclHandler", dynlib: expatDll.} cdecl, importc: "XML_SetElementDeclHandler", dynlib: expatDll.}
# The Attlist declaration handler is called for *each* attribute. So # The Attlist declaration handler is called for *each* attribute. So
# a single Attlist declaration with multiple attributes declared will # a single Attlist declaration with multiple attributes declared will
@ -106,10 +106,10 @@ proc SetElementDeclHandler*(parser: PParser, eldecl: TElementDeclHandler){.
type type
TAttlistDeclHandler* = proc (userData: pointer, elname: cstring, TAttlistDeclHandler* = proc (userData: pointer, elname: cstring,
attname: cstring, att_type: cstring, attname: cstring, attType: cstring,
dflt: cstring, isrequired: cint){.cdecl.} dflt: cstring, isrequired: cint){.cdecl.}
proc SetAttlistDeclHandler*(parser: PParser, attdecl: TAttlistDeclHandler){. proc setAttlistDeclHandler*(parser: PParser, attdecl: TAttlistDeclHandler){.
cdecl, importc: "XML_SetAttlistDeclHandler", dynlib: expatDll.} cdecl, importc: "XML_SetAttlistDeclHandler", dynlib: expatDll.}
# The XML declaration handler is called for *both* XML declarations # The XML declaration handler is called for *both* XML declarations
# and text declarations. The way to distinguish is that the version # and text declarations. The way to distinguish is that the version
@ -124,20 +124,20 @@ type
TXmlDeclHandler* = proc (userData: pointer, version: cstring, TXmlDeclHandler* = proc (userData: pointer, version: cstring,
encoding: cstring, standalone: cint){.cdecl.} encoding: cstring, standalone: cint){.cdecl.}
proc SetXmlDeclHandler*(parser: PParser, xmldecl: TXmlDeclHandler){.cdecl, proc setXmlDeclHandler*(parser: PParser, xmldecl: TXmlDeclHandler){.cdecl,
importc: "XML_SetXmlDeclHandler", dynlib: expatDll.} importc: "XML_SetXmlDeclHandler", dynlib: expatDll.}
type type
TMemory_Handling_Suite*{.pure, final.} = object TMemory_Handling_Suite*{.pure, final.} = object
malloc_fcn*: proc (size: int): pointer{.cdecl.} mallocFcn*: proc (size: int): pointer{.cdecl.}
realloc_fcn*: proc (p: pointer, size: int): pointer{.cdecl.} reallocFcn*: proc (p: pointer, size: int): pointer{.cdecl.}
free_fcn*: proc (p: pointer){.cdecl.} freeFcn*: proc (p: pointer){.cdecl.}
# Constructs a new parser; encoding is the encoding specified by the # Constructs a new parser; encoding is the encoding specified by the
# external protocol or NULL if there is none specified. # external protocol or NULL if there is none specified.
# #
proc ParserCreate*(encoding: cstring): PParser{.cdecl, proc parserCreate*(encoding: cstring): PParser{.cdecl,
importc: "XML_ParserCreate", dynlib: expatDll.} importc: "XML_ParserCreate", dynlib: expatDll.}
# Constructs a new parser and namespace processor. Element type # Constructs a new parser and namespace processor. Element type
# names and attribute names that belong to a namespace will be # names and attribute names that belong to a namespace will be
@ -151,7 +151,7 @@ proc ParserCreate*(encoding: cstring): PParser{.cdecl,
# triplets (see XML_SetReturnNSTriplet). # triplets (see XML_SetReturnNSTriplet).
# #
proc ParserCreateNS*(encoding: cstring, namespaceSeparator: char): PParser{. proc parserCreateNS*(encoding: cstring, namespaceSeparator: char): PParser{.
cdecl, importc: "XML_ParserCreateNS", dynlib: expatDll.} cdecl, importc: "XML_ParserCreateNS", dynlib: expatDll.}
# Constructs a new parser using the memory management suite referred to # Constructs a new parser using the memory management suite referred to
# by memsuite. If memsuite is NULL, then use the standard library memory # by memsuite. If memsuite is NULL, then use the standard library memory
@ -163,7 +163,7 @@ proc ParserCreateNS*(encoding: cstring, namespaceSeparator: char): PParser{.
# the given suite. # the given suite.
# #
proc ParserCreate_MM*(encoding: cstring, memsuite: ptr TMemory_Handling_Suite, proc parserCreateMM*(encoding: cstring, memsuite: ptr TMemoryHandlingSuite,
namespaceSeparator: cstring): PParser{.cdecl, namespaceSeparator: cstring): PParser{.cdecl,
importc: "XML_ParserCreate_MM", dynlib: expatDll.} importc: "XML_ParserCreate_MM", dynlib: expatDll.}
# Prepare a parser object to be re-used. This is particularly # Prepare a parser object to be re-used. This is particularly
@ -176,7 +176,7 @@ proc ParserCreate_MM*(encoding: cstring, memsuite: ptr TMemory_Handling_Suite,
# Added in Expat 1.95.3. # Added in Expat 1.95.3.
# #
proc ParserReset*(parser: PParser, encoding: cstring): bool{.cdecl, proc parserReset*(parser: PParser, encoding: cstring): bool{.cdecl,
importc: "XML_ParserReset", dynlib: expatDll.} importc: "XML_ParserReset", dynlib: expatDll.}
# atts is array of name/value pairs, terminated by 0; # atts is array of name/value pairs, terminated by 0;
# names and values are 0 terminated. # names and values are 0 terminated.
@ -230,7 +230,7 @@ type
type type
TStartDoctypeDeclHandler* = proc (userData: pointer, doctypeName: cstring, TStartDoctypeDeclHandler* = proc (userData: pointer, doctypeName: cstring,
sysid: cstring, pubid: cstring, sysid: cstring, pubid: cstring,
has_internal_subset: cint){.cdecl.} hasInternalSubset: cint){.cdecl.}
# This is called for the start of the DOCTYPE declaration when the # This is called for the start of the DOCTYPE declaration when the
# closing > is encountered, but after processing any external # closing > is encountered, but after processing any external
@ -261,12 +261,12 @@ type
type type
TEntityDeclHandler* = proc (userData: pointer, entityName: cstring, TEntityDeclHandler* = proc (userData: pointer, entityName: cstring,
is_parameter_entity: cint, value: cstring, isParameterEntity: cint, value: cstring,
value_length: cint, base: cstring, valueLength: cint, base: cstring,
systemId: cstring, publicId: cstring, systemId: cstring, publicId: cstring,
notationName: cstring){.cdecl.} notationName: cstring){.cdecl.}
proc SetEntityDeclHandler*(parser: PParser, handler: TEntityDeclHandler){.cdecl, proc setEntityDeclHandler*(parser: PParser, handler: TEntityDeclHandler){.cdecl,
importc: "XML_SetEntityDeclHandler", dynlib: expatDll.} importc: "XML_SetEntityDeclHandler", dynlib: expatDll.}
# OBSOLETE -- OBSOLETE -- OBSOLETE # OBSOLETE -- OBSOLETE -- OBSOLETE
# This handler has been superceded by the EntityDeclHandler above. # This handler has been superceded by the EntityDeclHandler above.
@ -372,7 +372,7 @@ type
type type
TSkippedEntityHandler* = proc (userData: pointer, entityName: cstring, TSkippedEntityHandler* = proc (userData: pointer, entityName: cstring,
is_parameter_entity: cint){.cdecl.} isParameterEntity: cint){.cdecl.}
# This structure is filled in by the XML_UnknownEncodingHandler to # This structure is filled in by the XML_UnknownEncodingHandler to
# provide information to the parser about encodings that are unknown # provide information to the parser about encodings that are unknown
@ -455,27 +455,27 @@ type
TUnknownEncodingHandler* = proc (encodingHandlerData: pointer, name: cstring, TUnknownEncodingHandler* = proc (encodingHandlerData: pointer, name: cstring,
info: ptr TEncoding): cint{.cdecl.} info: ptr TEncoding): cint{.cdecl.}
proc SetElementHandler*(parser: PParser, start: TStartElementHandler, proc setElementHandler*(parser: PParser, start: TStartElementHandler,
endHandler: TEndElementHandler){.cdecl, endHandler: TEndElementHandler){.cdecl,
importc: "XML_SetElementHandler", dynlib: expatDll.} importc: "XML_SetElementHandler", dynlib: expatDll.}
proc SetStartElementHandler*(parser: PParser, handler: TStartElementHandler){. proc setStartElementHandler*(parser: PParser, handler: TStartElementHandler){.
cdecl, importc: "XML_SetStartElementHandler", dynlib: expatDll.} cdecl, importc: "XML_SetStartElementHandler", dynlib: expatDll.}
proc SetEndElementHandler*(parser: PParser, handler: TEndElementHandler){.cdecl, proc setEndElementHandler*(parser: PParser, handler: TEndElementHandler){.cdecl,
importc: "XML_SetEndElementHandler", dynlib: expatDll.} importc: "XML_SetEndElementHandler", dynlib: expatDll.}
proc SetCharacterDataHandler*(parser: PParser, handler: TCharacterDataHandler){. proc setCharacterDataHandler*(parser: PParser, handler: TCharacterDataHandler){.
cdecl, importc: "XML_SetCharacterDataHandler", dynlib: expatDll.} cdecl, importc: "XML_SetCharacterDataHandler", dynlib: expatDll.}
proc SetProcessingInstructionHandler*(parser: PParser, proc setProcessingInstructionHandler*(parser: PParser,
handler: TProcessingInstructionHandler){. handler: TProcessingInstructionHandler){.
cdecl, importc: "XML_SetProcessingInstructionHandler", dynlib: expatDll.} cdecl, importc: "XML_SetProcessingInstructionHandler", dynlib: expatDll.}
proc SetCommentHandler*(parser: PParser, handler: TCommentHandler){.cdecl, proc setCommentHandler*(parser: PParser, handler: TCommentHandler){.cdecl,
importc: "XML_SetCommentHandler", dynlib: expatDll.} importc: "XML_SetCommentHandler", dynlib: expatDll.}
proc SetCdataSectionHandler*(parser: PParser, start: TStartCdataSectionHandler, proc setCdataSectionHandler*(parser: PParser, start: TStartCdataSectionHandler,
endHandler: TEndCdataSectionHandler){.cdecl, endHandler: TEndCdataSectionHandler){.cdecl,
importc: "XML_SetCdataSectionHandler", dynlib: expatDll.} importc: "XML_SetCdataSectionHandler", dynlib: expatDll.}
proc SetStartCdataSectionHandler*(parser: PParser, proc setStartCdataSectionHandler*(parser: PParser,
start: TStartCdataSectionHandler){.cdecl, start: TStartCdataSectionHandler){.cdecl,
importc: "XML_SetStartCdataSectionHandler", dynlib: expatDll.} importc: "XML_SetStartCdataSectionHandler", dynlib: expatDll.}
proc SetEndCdataSectionHandler*(parser: PParser, proc setEndCdataSectionHandler*(parser: PParser,
endHandler: TEndCdataSectionHandler){.cdecl, endHandler: TEndCdataSectionHandler){.cdecl,
importc: "XML_SetEndCdataSectionHandler", dynlib: expatDll.} importc: "XML_SetEndCdataSectionHandler", dynlib: expatDll.}
# This sets the default handler and also inhibits expansion of # This sets the default handler and also inhibits expansion of
@ -483,42 +483,42 @@ proc SetEndCdataSectionHandler*(parser: PParser,
# default handler, or to the skipped entity handler, if one is set. # default handler, or to the skipped entity handler, if one is set.
# #
proc SetDefaultHandler*(parser: PParser, handler: TDefaultHandler){.cdecl, proc setDefaultHandler*(parser: PParser, handler: TDefaultHandler){.cdecl,
importc: "XML_SetDefaultHandler", dynlib: expatDll.} importc: "XML_SetDefaultHandler", dynlib: expatDll.}
# This sets the default handler but does not inhibit expansion of # This sets the default handler but does not inhibit expansion of
# internal entities. The entity reference will not be passed to the # internal entities. The entity reference will not be passed to the
# default handler. # default handler.
# #
proc SetDefaultHandlerExpand*(parser: PParser, handler: TDefaultHandler){.cdecl, proc setDefaultHandlerExpand*(parser: PParser, handler: TDefaultHandler){.cdecl,
importc: "XML_SetDefaultHandlerExpand", dynlib: expatDll.} importc: "XML_SetDefaultHandlerExpand", dynlib: expatDll.}
proc SetDoctypeDeclHandler*(parser: PParser, start: TStartDoctypeDeclHandler, proc setDoctypeDeclHandler*(parser: PParser, start: TStartDoctypeDeclHandler,
endHandler: TEndDoctypeDeclHandler){.cdecl, endHandler: TEndDoctypeDeclHandler){.cdecl,
importc: "XML_SetDoctypeDeclHandler", dynlib: expatDll.} importc: "XML_SetDoctypeDeclHandler", dynlib: expatDll.}
proc SetStartDoctypeDeclHandler*(parser: PParser, proc setStartDoctypeDeclHandler*(parser: PParser,
start: TStartDoctypeDeclHandler){.cdecl, start: TStartDoctypeDeclHandler){.cdecl,
importc: "XML_SetStartDoctypeDeclHandler", dynlib: expatDll.} importc: "XML_SetStartDoctypeDeclHandler", dynlib: expatDll.}
proc SetEndDoctypeDeclHandler*(parser: PParser, proc setEndDoctypeDeclHandler*(parser: PParser,
endHandler: TEndDoctypeDeclHandler){.cdecl, endHandler: TEndDoctypeDeclHandler){.cdecl,
importc: "XML_SetEndDoctypeDeclHandler", dynlib: expatDll.} importc: "XML_SetEndDoctypeDeclHandler", dynlib: expatDll.}
proc SetUnparsedEntityDeclHandler*(parser: PParser, proc setUnparsedEntityDeclHandler*(parser: PParser,
handler: TUnparsedEntityDeclHandler){.cdecl, handler: TUnparsedEntityDeclHandler){.cdecl,
importc: "XML_SetUnparsedEntityDeclHandler", dynlib: expatDll.} importc: "XML_SetUnparsedEntityDeclHandler", dynlib: expatDll.}
proc SetNotationDeclHandler*(parser: PParser, handler: TNotationDeclHandler){. proc setNotationDeclHandler*(parser: PParser, handler: TNotationDeclHandler){.
cdecl, importc: "XML_SetNotationDeclHandler", dynlib: expatDll.} cdecl, importc: "XML_SetNotationDeclHandler", dynlib: expatDll.}
proc SetNamespaceDeclHandler*(parser: PParser, proc setNamespaceDeclHandler*(parser: PParser,
start: TStartNamespaceDeclHandler, start: TStartNamespaceDeclHandler,
endHandler: TEndNamespaceDeclHandler){.cdecl, endHandler: TEndNamespaceDeclHandler){.cdecl,
importc: "XML_SetNamespaceDeclHandler", dynlib: expatDll.} importc: "XML_SetNamespaceDeclHandler", dynlib: expatDll.}
proc SetStartNamespaceDeclHandler*(parser: PParser, proc setStartNamespaceDeclHandler*(parser: PParser,
start: TStartNamespaceDeclHandler){.cdecl, start: TStartNamespaceDeclHandler){.cdecl,
importc: "XML_SetStartNamespaceDeclHandler", dynlib: expatDll.} importc: "XML_SetStartNamespaceDeclHandler", dynlib: expatDll.}
proc SetEndNamespaceDeclHandler*(parser: PParser, proc setEndNamespaceDeclHandler*(parser: PParser,
endHandler: TEndNamespaceDeclHandler){.cdecl, endHandler: TEndNamespaceDeclHandler){.cdecl,
importc: "XML_SetEndNamespaceDeclHandler", dynlib: expatDll.} importc: "XML_SetEndNamespaceDeclHandler", dynlib: expatDll.}
proc SetNotStandaloneHandler*(parser: PParser, handler: TNotStandaloneHandler){. proc setNotStandaloneHandler*(parser: PParser, handler: TNotStandaloneHandler){.
cdecl, importc: "XML_SetNotStandaloneHandler", dynlib: expatDll.} cdecl, importc: "XML_SetNotStandaloneHandler", dynlib: expatDll.}
proc SetExternalEntityRefHandler*(parser: PParser, proc setExternalEntityRefHandler*(parser: PParser,
handler: TExternalEntityRefHandler){.cdecl, handler: TExternalEntityRefHandler){.cdecl,
importc: "XML_SetExternalEntityRefHandler", dynlib: expatDll.} importc: "XML_SetExternalEntityRefHandler", dynlib: expatDll.}
# If a non-NULL value for arg is specified here, then it will be # If a non-NULL value for arg is specified here, then it will be
@ -526,11 +526,11 @@ proc SetExternalEntityRefHandler*(parser: PParser,
# instead of the parser object. # instead of the parser object.
# #
proc SetExternalEntityRefHandlerArg*(parser: PParser, arg: pointer){.cdecl, proc setExternalEntityRefHandlerArg*(parser: PParser, arg: pointer){.cdecl,
importc: "XML_SetExternalEntityRefHandlerArg", dynlib: expatDll.} importc: "XML_SetExternalEntityRefHandlerArg", dynlib: expatDll.}
proc SetSkippedEntityHandler*(parser: PParser, handler: TSkippedEntityHandler){. proc setSkippedEntityHandler*(parser: PParser, handler: TSkippedEntityHandler){.
cdecl, importc: "XML_SetSkippedEntityHandler", dynlib: expatDll.} cdecl, importc: "XML_SetSkippedEntityHandler", dynlib: expatDll.}
proc SetUnknownEncodingHandler*(parser: PParser, proc setUnknownEncodingHandler*(parser: PParser,
handler: TUnknownEncodingHandler, handler: TUnknownEncodingHandler,
encodingHandlerData: pointer){.cdecl, encodingHandlerData: pointer){.cdecl,
importc: "XML_SetUnknownEncodingHandler", dynlib: expatDll.} importc: "XML_SetUnknownEncodingHandler", dynlib: expatDll.}
@ -539,7 +539,7 @@ proc SetUnknownEncodingHandler*(parser: PParser,
# corresponding markup to be passed to the default handler. # corresponding markup to be passed to the default handler.
# #
proc DefaultCurrent*(parser: PParser){.cdecl, importc: "XML_DefaultCurrent", proc defaultCurrent*(parser: PParser){.cdecl, importc: "XML_DefaultCurrent",
dynlib: expatDll.} dynlib: expatDll.}
# If do_nst is non-zero, and namespace processing is in effect, and # If do_nst is non-zero, and namespace processing is in effect, and
# a name has a prefix (i.e. an explicit namespace qualifier) then # a name has a prefix (i.e. an explicit namespace qualifier) then
@ -555,15 +555,15 @@ proc DefaultCurrent*(parser: PParser){.cdecl, importc: "XML_DefaultCurrent",
# XML_ParseBuffer has no effect. # XML_ParseBuffer has no effect.
# #
proc SetReturnNSTriplet*(parser: PParser, do_nst: cint){.cdecl, proc setReturnNSTriplet*(parser: PParser, doNst: cint){.cdecl,
importc: "XML_SetReturnNSTriplet", dynlib: expatDll.} importc: "XML_SetReturnNSTriplet", dynlib: expatDll.}
# This value is passed as the userData argument to callbacks. # This value is passed as the userData argument to callbacks.
proc SetUserData*(parser: PParser, userData: pointer){.cdecl, proc setUserData*(parser: PParser, userData: pointer){.cdecl,
importc: "XML_SetUserData", dynlib: expatDll.} importc: "XML_SetUserData", dynlib: expatDll.}
# Returns the last value set by XML_SetUserData or NULL. # Returns the last value set by XML_SetUserData or NULL.
template GetUserData*(parser: expr): expr = template getUserData*(parser: expr): expr =
(cast[ptr pointer]((parser))[] ) (cast[ptr pointer]((parser))[] )
# This is equivalent to supplying an encoding argument to # This is equivalent to supplying an encoding argument to
@ -573,14 +573,14 @@ template GetUserData*(parser: expr): expr =
# has no effect and returns XML_STATUS_ERROR. # has no effect and returns XML_STATUS_ERROR.
# #
proc SetEncoding*(parser: PParser, encoding: cstring): TStatus{.cdecl, proc setEncoding*(parser: PParser, encoding: cstring): TStatus{.cdecl,
importc: "XML_SetEncoding", dynlib: expatDll.} importc: "XML_SetEncoding", dynlib: expatDll.}
# If this function is called, then the parser will be passed as the # If this function is called, then the parser will be passed as the
# first argument to callbacks instead of userData. The userData will # first argument to callbacks instead of userData. The userData will
# still be accessible using XML_GetUserData. # still be accessible using XML_GetUserData.
# #
proc UseParserAsHandlerArg*(parser: PParser){.cdecl, proc useParserAsHandlerArg*(parser: PParser){.cdecl,
importc: "XML_UseParserAsHandlerArg", dynlib: expatDll.} importc: "XML_UseParserAsHandlerArg", dynlib: expatDll.}
# If useDTD == XML_TRUE is passed to this function, then the parser # If useDTD == XML_TRUE is passed to this function, then the parser
# will assume that there is an external subset, even if none is # will assume that there is an external subset, even if none is
@ -601,7 +601,7 @@ proc UseParserAsHandlerArg*(parser: PParser){.cdecl,
# XML_ERROR_FEATURE_REQUIRES_XML_DTD. # XML_ERROR_FEATURE_REQUIRES_XML_DTD.
# #
proc UseForeignDTD*(parser: PParser, useDTD: bool): TError{.cdecl, proc useForeignDTD*(parser: PParser, useDTD: bool): TError{.cdecl,
importc: "XML_UseForeignDTD", dynlib: expatDll.} importc: "XML_UseForeignDTD", dynlib: expatDll.}
# Sets the base to be used for resolving relative URIs in system # Sets the base to be used for resolving relative URIs in system
# identifiers in declarations. Resolving relative identifiers is # identifiers in declarations. Resolving relative identifiers is
@ -612,9 +612,9 @@ proc UseForeignDTD*(parser: PParser, useDTD: bool): TError{.cdecl,
# XML_STATUS_OK otherwise. # XML_STATUS_OK otherwise.
# #
proc SetBase*(parser: PParser, base: cstring): TStatus{.cdecl, proc setBase*(parser: PParser, base: cstring): TStatus{.cdecl,
importc: "XML_SetBase", dynlib: expatDll.} importc: "XML_SetBase", dynlib: expatDll.}
proc GetBase*(parser: PParser): cstring{.cdecl, importc: "XML_GetBase", proc getBase*(parser: PParser): cstring{.cdecl, importc: "XML_GetBase",
dynlib: expatDll.} dynlib: expatDll.}
# Returns the number of the attribute/value pairs passed in last call # Returns the number of the attribute/value pairs passed in last call
# to the XML_StartElementHandler that were specified in the start-tag # to the XML_StartElementHandler that were specified in the start-tag
@ -623,7 +623,7 @@ proc GetBase*(parser: PParser): cstring{.cdecl, importc: "XML_GetBase",
# XML_StartElementHandler. # XML_StartElementHandler.
# #
proc GetSpecifiedAttributeCount*(parser: PParser): cint{.cdecl, proc getSpecifiedAttributeCount*(parser: PParser): cint{.cdecl,
importc: "XML_GetSpecifiedAttributeCount", dynlib: expatDll.} importc: "XML_GetSpecifiedAttributeCount", dynlib: expatDll.}
# Returns the index of the ID attribute passed in the last call to # Returns the index of the ID attribute passed in the last call to
# XML_StartElementHandler, or -1 if there is no ID attribute. Each # XML_StartElementHandler, or -1 if there is no ID attribute. Each
@ -631,7 +631,7 @@ proc GetSpecifiedAttributeCount*(parser: PParser): cint{.cdecl,
# index into the atts array passed to the XML_StartElementHandler. # index into the atts array passed to the XML_StartElementHandler.
# #
proc GetIdAttributeIndex*(parser: PParser): cint{.cdecl, proc getIdAttributeIndex*(parser: PParser): cint{.cdecl,
importc: "XML_GetIdAttributeIndex", dynlib: expatDll.} importc: "XML_GetIdAttributeIndex", dynlib: expatDll.}
# Parses some input. Returns XML_STATUS_ERROR if a fatal error is # Parses some input. Returns XML_STATUS_ERROR if a fatal error is
# detected. The last call to XML_Parse must have isFinal true; len # detected. The last call to XML_Parse must have isFinal true; len
@ -643,11 +643,11 @@ proc GetIdAttributeIndex*(parser: PParser): cint{.cdecl,
# values. # values.
# #
proc Parse*(parser: PParser, s: cstring, len: cint, isFinal: cint): TStatus{. proc parse*(parser: PParser, s: cstring, len: cint, isFinal: cint): TStatus{.
cdecl, importc: "XML_Parse", dynlib: expatDll.} cdecl, importc: "XML_Parse", dynlib: expatDll.}
proc GetBuffer*(parser: PParser, len: cint): pointer{.cdecl, proc getBuffer*(parser: PParser, len: cint): pointer{.cdecl,
importc: "XML_GetBuffer", dynlib: expatDll.} importc: "XML_GetBuffer", dynlib: expatDll.}
proc ParseBuffer*(parser: PParser, len: cint, isFinal: cint): TStatus{.cdecl, proc parseBuffer*(parser: PParser, len: cint, isFinal: cint): TStatus{.cdecl,
importc: "XML_ParseBuffer", dynlib: expatDll.} importc: "XML_ParseBuffer", dynlib: expatDll.}
# Stops parsing, causing XML_Parse() or XML_ParseBuffer() to return. # Stops parsing, causing XML_Parse() or XML_ParseBuffer() to return.
# Must be called from within a call-back handler, except when aborting # Must be called from within a call-back handler, except when aborting
@ -681,7 +681,7 @@ proc ParseBuffer*(parser: PParser, len: cint, isFinal: cint): TStatus{.cdecl,
# When suspended, parsing can be resumed by calling XML_ResumeParser(). # When suspended, parsing can be resumed by calling XML_ResumeParser().
# #
proc StopParser*(parser: PParser, resumable: bool): TStatus{.cdecl, proc stopParser*(parser: PParser, resumable: bool): TStatus{.cdecl,
importc: "XML_StopParser", dynlib: expatDll.} importc: "XML_StopParser", dynlib: expatDll.}
# Resumes parsing after it has been suspended with XML_StopParser(). # Resumes parsing after it has been suspended with XML_StopParser().
# Must not be called from within a handler call-back. Returns same # Must not be called from within a handler call-back. Returns same
@ -696,7 +696,7 @@ proc StopParser*(parser: PParser, resumable: bool): TStatus{.cdecl,
# application to call XML_ResumeParser() on it at the appropriate moment. # application to call XML_ResumeParser() on it at the appropriate moment.
# #
proc ResumeParser*(parser: PParser): TStatus{.cdecl, proc resumeParser*(parser: PParser): TStatus{.cdecl,
importc: "XML_ResumeParser", dynlib: expatDll.} importc: "XML_ResumeParser", dynlib: expatDll.}
type type
TParsing* = enum TParsing* = enum
@ -712,7 +712,7 @@ type
# XXX with XML_FINISHED_OK or XML_FINISHED_ERROR replacing XML_FINISHED # XXX with XML_FINISHED_OK or XML_FINISHED_ERROR replacing XML_FINISHED
# #
proc GetParsingStatus*(parser: PParser, status: ptr TParsingStatus){.cdecl, proc getParsingStatus*(parser: PParser, status: ptr TParsingStatus){.cdecl,
importc: "XML_GetParsingStatus", dynlib: expatDll.} importc: "XML_GetParsingStatus", dynlib: expatDll.}
# Creates an XML_Parser object that can parse an external general # Creates an XML_Parser object that can parse an external general
# entity; context is a '\0'-terminated string specifying the parse # entity; context is a '\0'-terminated string specifying the parse
@ -731,7 +731,7 @@ proc GetParsingStatus*(parser: PParser, status: ptr TParsingStatus){.cdecl,
# Otherwise returns a new XML_Parser object. # Otherwise returns a new XML_Parser object.
# #
proc ExternalEntityParserCreate*(parser: PParser, context: cstring, proc externalEntityParserCreate*(parser: PParser, context: cstring,
encoding: cstring): PParser{.cdecl, encoding: cstring): PParser{.cdecl,
importc: "XML_ExternalEntityParserCreate", dynlib: expatDll.} importc: "XML_ExternalEntityParserCreate", dynlib: expatDll.}
type type
@ -763,13 +763,13 @@ type
# XML_ParseBuffer, then it has no effect and will always return 0. # XML_ParseBuffer, then it has no effect and will always return 0.
# #
proc SetParamEntityParsing*(parser: PParser, parsing: TParamEntityParsing): cint{. proc setParamEntityParsing*(parser: PParser, parsing: TParamEntityParsing): cint{.
cdecl, importc: "XML_SetParamEntityParsing", dynlib: expatDll.} cdecl, importc: "XML_SetParamEntityParsing", dynlib: expatDll.}
# If XML_Parse or XML_ParseBuffer have returned XML_STATUS_ERROR, then # If XML_Parse or XML_ParseBuffer have returned XML_STATUS_ERROR, then
# XML_GetErrorCode returns information about the error. # XML_GetErrorCode returns information about the error.
# #
proc GetErrorCode*(parser: PParser): TError{.cdecl, importc: "XML_GetErrorCode", proc getErrorCode*(parser: PParser): TError{.cdecl, importc: "XML_GetErrorCode",
dynlib: expatDll.} dynlib: expatDll.}
# These functions return information about the current parse # These functions return information about the current parse
# location. They may be called from any callback called to report # location. They may be called from any callback called to report
@ -788,17 +788,17 @@ proc GetErrorCode*(parser: PParser): TError{.cdecl, importc: "XML_GetErrorCode",
# parse event, as described above. # parse event, as described above.
# #
proc GetCurrentLineNumber*(parser: PParser): int{.cdecl, proc getCurrentLineNumber*(parser: PParser): int{.cdecl,
importc: "XML_GetCurrentLineNumber", dynlib: expatDll.} importc: "XML_GetCurrentLineNumber", dynlib: expatDll.}
proc GetCurrentColumnNumber*(parser: PParser): int{.cdecl, proc getCurrentColumnNumber*(parser: PParser): int{.cdecl,
importc: "XML_GetCurrentColumnNumber", dynlib: expatDll.} importc: "XML_GetCurrentColumnNumber", dynlib: expatDll.}
proc GetCurrentByteIndex*(parser: PParser): int{.cdecl, proc getCurrentByteIndex*(parser: PParser): int{.cdecl,
importc: "XML_GetCurrentByteIndex", dynlib: expatDll.} importc: "XML_GetCurrentByteIndex", dynlib: expatDll.}
# Return the number of bytes in the current event. # Return the number of bytes in the current event.
# Returns 0 if the event is in an internal entity. # Returns 0 if the event is in an internal entity.
# #
proc GetCurrentByteCount*(parser: PParser): cint{.cdecl, proc getCurrentByteCount*(parser: PParser): cint{.cdecl,
importc: "XML_GetCurrentByteCount", dynlib: expatDll.} importc: "XML_GetCurrentByteCount", dynlib: expatDll.}
# If XML_CONTEXT_BYTES is defined, returns the input buffer, sets # If XML_CONTEXT_BYTES is defined, returns the input buffer, sets
# the integer pointed to by offset to the offset within this buffer # the integer pointed to by offset to the offset within this buffer
@ -811,31 +811,31 @@ proc GetCurrentByteCount*(parser: PParser): cint{.cdecl,
# the handler that makes the call. # the handler that makes the call.
# #
proc GetInputContext*(parser: PParser, offset: ptr cint, size: ptr cint): cstring{. proc getInputContext*(parser: PParser, offset: ptr cint, size: ptr cint): cstring{.
cdecl, importc: "XML_GetInputContext", dynlib: expatDll.} cdecl, importc: "XML_GetInputContext", dynlib: expatDll.}
# Frees the content model passed to the element declaration handler # Frees the content model passed to the element declaration handler
proc FreeContentModel*(parser: PParser, model: ptr TContent){.cdecl, proc freeContentModel*(parser: PParser, model: ptr TContent){.cdecl,
importc: "XML_FreeContentModel", dynlib: expatDll.} importc: "XML_FreeContentModel", dynlib: expatDll.}
# Exposing the memory handling functions used in Expat # Exposing the memory handling functions used in Expat
proc MemMalloc*(parser: PParser, size: int): pointer{.cdecl, proc memMalloc*(parser: PParser, size: int): pointer{.cdecl,
importc: "XML_MemMalloc", dynlib: expatDll.} importc: "XML_MemMalloc", dynlib: expatDll.}
proc MemRealloc*(parser: PParser, p: pointer, size: int): pointer{.cdecl, proc memRealloc*(parser: PParser, p: pointer, size: int): pointer{.cdecl,
importc: "XML_MemRealloc", dynlib: expatDll.} importc: "XML_MemRealloc", dynlib: expatDll.}
proc MemFree*(parser: PParser, p: pointer){.cdecl, importc: "XML_MemFree", proc memFree*(parser: PParser, p: pointer){.cdecl, importc: "XML_MemFree",
dynlib: expatDll.} dynlib: expatDll.}
# Frees memory used by the parser. # Frees memory used by the parser.
proc ParserFree*(parser: PParser){.cdecl, importc: "XML_ParserFree", proc parserFree*(parser: PParser){.cdecl, importc: "XML_ParserFree",
dynlib: expatDll.} dynlib: expatDll.}
# Returns a string describing the error. # Returns a string describing the error.
proc ErrorString*(code: TError): cstring{.cdecl, importc: "XML_ErrorString", proc errorString*(code: TError): cstring{.cdecl, importc: "XML_ErrorString",
dynlib: expatDll.} dynlib: expatDll.}
# Return a string containing the version number of this expat # Return a string containing the version number of this expat
proc ExpatVersion*(): cstring{.cdecl, importc: "XML_ExpatVersion", proc expatVersion*(): cstring{.cdecl, importc: "XML_ExpatVersion",
dynlib: expatDll.} dynlib: expatDll.}
type type
TExpat_Version*{.pure, final.} = object TExpat_Version*{.pure, final.} = object
@ -848,7 +848,7 @@ type
# number information for this version of expat. # number information for this version of expat.
# #
proc ExpatVersionInfo*(): TExpat_Version{.cdecl, proc expatVersionInfo*(): TExpatVersion{.cdecl,
importc: "XML_ExpatVersionInfo", dynlib: expatDll.} importc: "XML_ExpatVersionInfo", dynlib: expatDll.}
# Added in Expat 1.95.5. # Added in Expat 1.95.5.
@ -863,7 +863,7 @@ type
value*: int value*: int
proc GetFeatureList*(): ptr TFeature{.cdecl, importc: "XML_GetFeatureList", proc getFeatureList*(): ptr TFeature{.cdecl, importc: "XML_GetFeatureList",
dynlib: expatDll.} dynlib: expatDll.}
# Expat follows the GNU/Linux convention of odd number minor version for # Expat follows the GNU/Linux convention of odd number minor version for
# beta/development releases and even number minor version for stable # beta/development releases and even number minor version for stable