|
Packit |
423ecb |
/**
|
|
Packit |
423ecb |
*** XMLLINT command response program.
|
|
Packit |
423ecb |
***
|
|
Packit |
423ecb |
*** See Copyright for the status of this software.
|
|
Packit |
423ecb |
***
|
|
Packit |
423ecb |
*** Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
|
|
Packit |
423ecb |
**/
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
#include <stdio.h>
|
|
Packit |
423ecb |
#include <stdlib.h>
|
|
Packit |
423ecb |
#include <string.h>
|
|
Packit |
423ecb |
#include <qshell.h>
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Variable-length string, with 16-bit length. */
|
|
Packit |
423ecb |
typedef struct {
|
|
Packit |
423ecb |
short len;
|
|
Packit |
423ecb |
char string[5000];
|
|
Packit |
423ecb |
} vary2;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Variable-length string, with 32-bit length. */
|
|
Packit |
423ecb |
typedef struct {
|
|
Packit |
423ecb |
int len;
|
|
Packit |
423ecb |
char string[5000];
|
|
Packit |
423ecb |
} vary4;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Multiple occurrence parameter list. */
|
|
Packit |
423ecb |
#define paramlist(itemsize, itemtype) \
|
|
Packit |
423ecb |
_Packed struct { \
|
|
Packit |
423ecb |
short len; \
|
|
Packit |
423ecb |
union { \
|
|
Packit |
423ecb |
char _pad[itemsize]; \
|
|
Packit |
423ecb |
itemtype param; \
|
|
Packit |
423ecb |
} item[1]; \
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Arguments from CL command. */
|
|
Packit |
423ecb |
typedef struct {
|
|
Packit |
423ecb |
char * pgm; /* Program name. */
|
|
Packit |
423ecb |
vary2 * stmf; /* XML file name or URL. */
|
|
Packit |
423ecb |
vary2 * dtd; /* DTD location or public identifier. */
|
|
Packit |
423ecb |
char * dtdvalid; /* *DTDURL or *DTDFPI. */
|
|
Packit |
423ecb |
vary2 * schema; /* Schema file name or URL. */
|
|
Packit |
423ecb |
vary2 * schemakind; /* --schema/--relaxng/--schematron. */
|
|
Packit |
423ecb |
vary2 * outstmf; /* Output stream file name. */
|
|
Packit |
423ecb |
vary2 * xpath; /* XPath filter. */
|
|
Packit |
423ecb |
vary2 * pattern; /* Reader filter pattern. */
|
|
Packit |
423ecb |
paramlist(5000 + 2, vary2) * path; /* Path for resources. */
|
|
Packit |
423ecb |
vary2 * pretty; /* Pretty-print style. */
|
|
Packit |
423ecb |
unsigned long * maxmem; /* Maximum dynamic memory. */
|
|
Packit |
423ecb |
vary2 * encoding; /* Output encoding. */
|
|
Packit |
423ecb |
paramlist(20 + 2, vary2) * options; /* Other options. */
|
|
Packit |
423ecb |
} arguments;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Definition of QSHELL program. */
|
|
Packit |
423ecb |
extern void qshell(vary4 * cmd);
|
|
Packit |
423ecb |
#pragma linkage(qshell, OS)
|
|
Packit |
423ecb |
#pragma map(qshell, "QSHELL/QZSHQSHC")
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4nappend(vary4 * dst, const char * src, size_t len)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
if (len > sizeof(dst->string) - dst->len)
|
|
Packit |
423ecb |
len = sizeof(dst->string) - dst->len;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (len) {
|
|
Packit |
423ecb |
memcpy(dst->string + dst->len, src, len);
|
|
Packit |
423ecb |
dst->len += len;
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4append(vary4 * dst, const char * src)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
vary4nappend(dst, src, strlen(src));
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4arg(vary4 * dst, const char * arg)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
vary4nappend(dst, " ", 1);
|
|
Packit |
423ecb |
vary4append(dst, arg);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4varg(vary4 * dst, vary2 * arg)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
vary4nappend(dst, " ", 1);
|
|
Packit |
423ecb |
vary4nappend(dst, arg->string, arg->len);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4vescape(vary4 * dst, vary2 * arg)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
int i;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
for (i = 0; i < arg->len; i++)
|
|
Packit |
423ecb |
if (arg->string[i] == '\'')
|
|
Packit |
423ecb |
vary4nappend(dst, "'\"'\"'", 5);
|
|
Packit |
423ecb |
else
|
|
Packit |
423ecb |
vary4nappend(dst, arg->string + i, 1);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
static void
|
|
Packit |
423ecb |
vary4vargquote(vary4 * dst, vary2 * arg)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
vary4nappend(dst, " '", 2);
|
|
Packit |
423ecb |
vary4vescape(dst, arg);
|
|
Packit |
423ecb |
vary4nappend(dst, "'", 1);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
int
|
|
Packit |
423ecb |
main(int argsc, arguments * args)
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
{
|
|
Packit |
423ecb |
vary4 cmd;
|
|
Packit |
423ecb |
int i;
|
|
Packit |
423ecb |
char textbuf[20];
|
|
Packit |
423ecb |
char * lang;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* find length of library name. */
|
|
Packit |
423ecb |
for (i = 0; i < 10 && args->pgm[i] && args->pgm[i] != '/'; i++)
|
|
Packit |
423ecb |
;
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Store program name in command buffer. */
|
|
Packit |
423ecb |
cmd.len = 0;
|
|
Packit |
423ecb |
vary4append(&cmd, "/QSYS.LIB/");
|
|
Packit |
423ecb |
vary4nappend(&cmd, args->pgm, i);
|
|
Packit |
423ecb |
vary4append(&cmd, ".LIB/XMLLINT.PGM");
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Map command arguments to standard xmllint argument vector. */
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->dtd && args->dtd->len) {
|
|
Packit |
423ecb |
if (args->dtdvalid && args->dtdvalid[4] == 'F')
|
|
Packit |
423ecb |
vary4arg(&cmd, "--dtdvalidfpi");
|
|
Packit |
423ecb |
else
|
|
Packit |
423ecb |
vary4arg(&cmd, "--dtdvalid");
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->dtd);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->schema && args->schema->len) {
|
|
Packit |
423ecb |
vary4varg(&cmd, args->schemakind);
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->schema);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->outstmf && args->outstmf->len) {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--output");
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->outstmf);
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->encoding && args->encoding->len) {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--encoding");
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->encoding);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->xpath && args->xpath->len) {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--xpath");
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->xpath);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->pattern && args->pattern->len) {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--pattern");
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->pattern);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->path && args->path->len) {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--path '");
|
|
Packit |
423ecb |
vary4vescape(&cmd, &args->path->item[0].param);
|
|
Packit |
423ecb |
for (i = 1; i < args->path->len; i++) {
|
|
Packit |
423ecb |
vary4nappend(&cmd, ":", 1);
|
|
Packit |
423ecb |
vary4vescape(&cmd, &args->path->item[i].param);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
vary4nappend(&cmd, "'", 1);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->pretty && args->pretty->len &&
|
|
Packit |
423ecb |
args->pretty->string[0] != '0') {
|
|
Packit |
423ecb |
vary4arg(&cmd, "--pretty");
|
|
Packit |
423ecb |
vary4varg(&cmd, args->pretty);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
if (args->maxmem && *args->maxmem) {
|
|
Packit |
423ecb |
snprintf(textbuf, sizeof textbuf, "%lu", *args->maxmem);
|
|
Packit |
423ecb |
vary4arg(&cmd, "--maxmem");
|
|
Packit |
423ecb |
vary4arg(&cmd, textbuf);
|
|
Packit |
423ecb |
}
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
for (i = 0; i < args->options->len; i++)
|
|
Packit |
423ecb |
vary4varg(&cmd, &args->options->item[i].param);
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
vary4vargquote(&cmd, args->stmf);
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Execute the shell command. */
|
|
Packit |
423ecb |
qshell(&cmd);
|
|
Packit |
423ecb |
|
|
Packit |
423ecb |
/* Terminate. */
|
|
Packit |
423ecb |
exit(0);
|
|
Packit |
423ecb |
}
|