1 /*
2  * testRelax.c : a small tester program for RelaxNG validation
3  *
4  * See Copyright for the status of this software.
5  *
6  * Daniel.Veillard@w3.org
7  */
8 
9 #include "libxml.h"
10 #ifdef LIBXML_SCHEMAS_ENABLED
11 
12 #include <libxml/xmlversion.h>
13 #include <libxml/parser.h>
14 
15 #include <stdio.h>
16 #include <string.h>
17 #include <stdarg.h>
18 
19 
20 #ifdef HAVE_SYS_TYPES_H
21 #include <sys/types.h>
22 #endif
23 #ifdef HAVE_SYS_STAT_H
24 #include <sys/stat.h>
25 #endif
26 #ifdef HAVE_FCNTL_H
27 #include <fcntl.h>
28 #endif
29 #ifdef HAVE_UNISTD_H
30 #include <unistd.h>
31 #endif
32 #ifdef HAVE_STDLIB_H
33 #include <stdlib.h>
34 #endif
35 #ifdef HAVE_SYS_MMAN_H
36 #include <sys/mman.h>
37 /* seems needed for Solaris */
38 #ifndef MAP_FAILED
39 #define MAP_FAILED ((void *) -1)
40 #endif
41 #endif
42 
43 #include <libxml/xmlmemory.h>
44 #include <libxml/debugXML.h>
45 #include <libxml/relaxng.h>
46 
47 #ifdef LIBXML_DEBUG_ENABLED
48 static int debug = 0;
49 #endif
50 static int noout = 0;
51 static int tree = 0;
52 #ifdef HAVE_MMAP
53 static int memory = 0;
54 #endif
55 
56 
main(int argc,char ** argv)57 int main(int argc, char **argv) {
58     int i;
59     int files = 0;
60     xmlRelaxNGPtr schema = NULL;
61 
62     for (i = 1; i < argc ; i++) {
63 #ifdef LIBXML_DEBUG_ENABLED
64 	if ((!strcmp(argv[i], "-debug")) || (!strcmp(argv[i], "--debug")))
65 	    debug++;
66 	else
67 #endif
68 #ifdef HAVE_MMAP
69 	if ((!strcmp(argv[i], "-memory")) || (!strcmp(argv[i], "--memory"))) {
70 	    memory++;
71         } else
72 #endif
73 	if ((!strcmp(argv[i], "-noout")) || (!strcmp(argv[i], "--noout"))) {
74 	    noout++;
75         } else
76 	if ((!strcmp(argv[i], "-tree")) || (!strcmp(argv[i], "--tree"))) {
77 	    tree++;
78         }
79     }
80     xmlLineNumbersDefault(1);
81     xmlSubstituteEntitiesDefault(1);
82     for (i = 1; i < argc ; i++) {
83 	if (argv[i][0] != '-') {
84 	    if (schema == NULL) {
85 		xmlRelaxNGParserCtxtPtr ctxt;
86 
87 #ifdef HAVE_MMAP
88 		if (memory) {
89 		    int fd;
90 		    struct stat info;
91 		    const char *base;
92 		    if (stat(argv[i], &info) < 0)
93 			break;
94 		    if ((fd = open(argv[i], O_RDONLY)) < 0)
95 			break;
96 		    base = mmap(NULL, info.st_size, PROT_READ,
97 			        MAP_SHARED, fd, 0) ;
98 		    if (base == (void *) MAP_FAILED)
99 			break;
100 
101 		    ctxt = xmlRelaxNGNewMemParserCtxt((char *)base,info.st_size);
102 
103 		    xmlRelaxNGSetParserErrors(ctxt,
104 			    (xmlRelaxNGValidityErrorFunc) fprintf,
105 			    (xmlRelaxNGValidityWarningFunc) fprintf,
106 			    stderr);
107 		    schema = xmlRelaxNGParse(ctxt);
108 		    xmlRelaxNGFreeParserCtxt(ctxt);
109 		    munmap((char *) base, info.st_size);
110 		} else
111 #endif
112 		{
113 		    ctxt = xmlRelaxNGNewParserCtxt(argv[i]);
114 		    xmlRelaxNGSetParserErrors(ctxt,
115 			    (xmlRelaxNGValidityErrorFunc) fprintf,
116 			    (xmlRelaxNGValidityWarningFunc) fprintf,
117 			    stderr);
118 		    schema = xmlRelaxNGParse(ctxt);
119 		    xmlRelaxNGFreeParserCtxt(ctxt);
120 		}
121 		if (schema == NULL) {
122 		    printf("Relax-NG schema %s failed to compile\n", argv[i]);
123 		    files = -1;
124 		    break;
125 		}
126 #ifdef LIBXML_OUTPUT_ENABLED
127 #ifdef LIBXML_DEBUG_ENABLED
128 		if (debug)
129 		    xmlRelaxNGDump(stdout, schema);
130 #endif
131 		if (tree)
132 		    xmlRelaxNGDumpTree(stdout, schema);
133 #endif /* LIBXML_OUTPUT_ENABLED */
134 	    } else {
135 		xmlDocPtr doc;
136 
137 		doc = xmlReadFile(argv[i],NULL,0);
138 
139 		if (doc == NULL) {
140 		    fprintf(stderr, "Could not parse %s\n", argv[i]);
141 		} else {
142 		    xmlRelaxNGValidCtxtPtr ctxt;
143 		    int ret;
144 
145 		    ctxt = xmlRelaxNGNewValidCtxt(schema);
146 		    xmlRelaxNGSetValidErrors(ctxt,
147 			    (xmlRelaxNGValidityErrorFunc) fprintf,
148 			    (xmlRelaxNGValidityWarningFunc) fprintf,
149 			    stderr);
150 		    ret = xmlRelaxNGValidateDoc(ctxt, doc);
151 		    if (ret == 0) {
152 			printf("%s validates\n", argv[i]);
153 		    } else if (ret > 0) {
154 			printf("%s fails to validate\n", argv[i]);
155 		    } else {
156 			printf("%s validation generated an internal error\n",
157 			       argv[i]);
158 		    }
159 		    xmlRelaxNGFreeValidCtxt(ctxt);
160 		    xmlFreeDoc(doc);
161 		}
162 	    }
163 	    files ++;
164 	}
165     }
166     if (schema != NULL)
167 	xmlRelaxNGFree(schema);
168     if (files == 0) {
169 	printf("Usage : %s [--debug] [--noout] schemas XMLfiles ...\n",
170 	       argv[0]);
171 	printf("\tParse the HTML files and output the result of the parsing\n");
172 #ifdef LIBXML_DEBUG_ENABLED
173 	printf("\t--debug : dump a debug tree of the in-memory document\n");
174 #endif
175 	printf("\t--noout : do not print the result\n");
176 	printf("\t--tree : print the intermediate Relax-NG document tree\n");
177 #ifdef HAVE_MMAP
178 	printf("\t--memory : test the schemas in memory parsing\n");
179 #endif
180     }
181     xmlRelaxNGCleanupTypes();
182     xmlCleanupParser();
183     xmlMemoryDump();
184 
185     return(0);
186 }
187 
188 #else
189 #include <stdio.h>
main(int argc ATTRIBUTE_UNUSED,char ** argv ATTRIBUTE_UNUSED)190 int main(int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED) {
191     printf("%s : RelaxNG support not compiled in\n", argv[0]);
192     return(0);
193 }
194 #endif /* LIBXML_SCHEMAS_ENABLED */
195