1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
(*
* Summary: XML Schemastron implementation
* Description: interface to the XML Schematron validity checking.
*
* Copy: See Copyright for the status of this software.
*
* Author: Daniel Veillard
*)
{$IFDEF LIBXML_SCHEMATRON_ENABLED}
{$IFDEF CONST}
XML_SCHEMATRON_OUT_QUIET = 1 shl 0; (* quiet no report *)
XML_SCHEMATRON_OUT_TEXT = 1 shl 1; (* build a textual report *)
XML_SCHEMATRON_OUT_XML = 1 shl 2; (* output SVRL *)
XML_SCHEMATRON_OUT_ERROR = 1 shl 3; (* output via xmlStructuredErrorFunc *)
XML_SCHEMATRON_OUT_FILE = 1 shl 8; (* output to a file descriptor *)
XML_SCHEMATRON_OUT_BUFFER = 1 shl 9; (* output to a buffer *)
XML_SCHEMATRON_OUT_IO = 1 shl 10; (* output to I/O mechanism *)
{$ENDIF}
{$IFDEF POINTER}
xmlSchematronPtr = ^xmlSchematron;
xmlSchematronParserCtxtPtr = ^xmlSchematronParserCtxt;
xmlSchematronValidCtxtPtr = ^xmlSchematronValidCtxt;
{$ENDIF}
{$IFDEF TYPE}
xmlSchematronValidOptions = type cint;
(**
* The schemas related types are kept internal
*)
xmlSchematron = record end;
(**
* A schemas validation context
*)
xmlSchematronValidityErrorFunc = procedure(ctx: pointer; msg: pchar); cdecl; varargs;
xmlSchematronValidityWarningFunc = procedure(ctx: pointer; msg: pchar); cdecl; varargs;
xmlSchematronParserCtxt = record end;
xmlSchematronValidCtxt = record end;
{$ENDIF}
{$IFDEF FUNCTION}
(*
* Interfaces for parsing.
*)
function xmlSchematronNewParserCtxt(URL: pchar): xmlSchematronParserCtxtPtr; EXTDECL; external xml2lib;
function xmlSchematronNewMemParserCtxt(buffer: pchar; size: cint): xmlSchematronParserCtxtPtr; EXTDECL; external xml2lib;
function xmlSchematronNewDocParserCtxt(doc: xmlDocPtr): xmlSchematronParserCtxtPtr; EXTDECL; external xml2lib;
procedure xmlSchematronFreeParserCtxt(ctxt: xmlSchematronParserCtxtPtr); EXTDECL; external xml2lib;
(*****
external xml2lib void EXTDECL
xmlSchematronSetParserErrors(xmlSchematronParserCtxtPtr ctxt,
xmlSchematronValidityErrorFunc err,
xmlSchematronValidityWarningFunc warn,
void *ctx);
external xml2lib int EXTDECL
xmlSchematronGetParserErrors(xmlSchematronParserCtxtPtr ctxt,
xmlSchematronValidityErrorFunc * err,
xmlSchematronValidityWarningFunc * warn,
void **ctx);
external xml2lib int EXTDECL
xmlSchematronIsValid (xmlSchematronValidCtxtPtr ctxt);
*****)
function xmlSchematronParse(ctxt: xmlSchematronParserCtxtPtr): xmlSchematronPtr; EXTDECL; external xml2lib;
procedure xmlSchematronFree(schema: xmlSchematronPtr); EXTDECL; external xml2lib;
(*
* Interfaces for validating
*)
procedure xmlSchematronSetValidStructuredErrors(ctxt: xmlSchematronValidCtxtPtr; serror: xmlStructuredErrorFunc; ctx: pointer); EXTDECL; external xml2lib;
(******
external xml2lib void EXTDECL
xmlSchematronSetValidErrors (xmlSchematronValidCtxtPtr ctxt,
xmlSchematronValidityErrorFunc err,
xmlSchematronValidityWarningFunc warn,
void *ctx);
external xml2lib int EXTDECL
xmlSchematronGetValidErrors (xmlSchematronValidCtxtPtr ctxt,
xmlSchematronValidityErrorFunc *err,
xmlSchematronValidityWarningFunc *warn,
void **ctx);
external xml2lib int EXTDECL
xmlSchematronSetValidOptions(xmlSchematronValidCtxtPtr ctxt,
int options);
external xml2lib int EXTDECL
xmlSchematronValidCtxtGetOptions(xmlSchematronValidCtxtPtr ctxt);
external xml2lib int EXTDECL
xmlSchematronValidateOneElement (xmlSchematronValidCtxtPtr ctxt,
xmlNodePtr elem);
*******)
function xmlSchematronNewValidCtxt(schema: xmlSchematronPtr; options: cint): xmlSchematronValidCtxtPtr; EXTDECL; external xml2lib;
procedure xmlSchematronFreeValidCtxt(ctxt: xmlSchematronValidCtxtPtr); EXTDECL; external xml2lib;
function xmlSchematronValidateDoc(ctxt: xmlSchematronValidCtxtPtr; instance: xmlDocPtr): cint; EXTDECL; external xml2lib;
{$ENDIF}
{$ENDIF} (* LIBXML_SCHEMATRON_ENABLED *)
|
