2015-04-21 13:56:39 +02:00
/* XMLCATALOG CL command. */
/* */
/* See Copyright for the status of this software. */
/* */
/* Author: Patrick Monnerat < pm@datasphere.ch> , DATASPHERE S.A. */
/* Interface to program XMLCATLGCL */
CMD PROMPT('XML/SGML catalog tool')
/* Catalog file path. */
PARM KWD(INSTMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MIN(1) SPCVAL((*NEW '')) +
CHOICE('Stream file path') +
PROMPT ('XML/SGML catalog file')
/* Catalog kind: XML/SGML. */
PARM KWD(KIND) TYPE(*CHAR) LEN(7) VARY(*YES *INT2) +
EXPR(*YES) RSTD(*YES) DFT(*XML) +
SPCVAL((*XML '') (*SGML '--sgml')) +
PROMPT ('Catalog kind')
/* Output file. */
PARM KWD(OUTSTMF) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) DFT(*STDOUT) +
SPCVAL((*STDOUT '') (*INSTMF X'00')) +
CHOICE('*STDOUT, *INSTMF or file path') +
PROMPT ('Output stream file path')
2015-04-21 16:56:54 +02:00
/* Convert SGML to XML catalog. */
PARM KWD(CONVERT) TYPE(*CHAR) LEN(10) VARY(*YES *INT2) +
RSTD(*YES) SPCVAL((*YES '--convert') (*NO '')) +
EXPR(*YES) DFT(*NO) PMTCTL(TYPEXML) +
PROMPT ('Convert SGML to XML catalog')
2015-04-21 13:56:39 +02:00
/* SGML super catalog update. */
PARM KWD(SUPERUPD) TYPE(*CHAR) LEN(17) VARY(*YES *INT2) +
SPCVAL((*YES '') (*NO '--no-super-update')) +
2015-04-21 16:56:54 +02:00
EXPR(*YES) DFT(*YES) RSTD(*YES) PMTCTL(TYPESGML) +
2015-04-21 13:56:39 +02:00
PROMPT ('Update the SGML super catalog')
/* Verbose/debug output. */
PARM KWD(VERBOSE) TYPE(*CHAR) LEN(4) VARY(*YES *INT2) +
RSTD(*YES) SPCVAL((*YES '-v') (*NO '')) +
EXPR(*YES) DFT(*NO) +
PROMPT ('Output debugging information')
/* Interactive shell not supported. */
/* Values to delete. */
PARM KWD(DELETE) TYPE(*PNAME) LEN(256) VARY(*YES *INT2) +
CASE(*MIXED) MAX(64) EXPR(*YES) +
CHOICE('Identifier value') +
PROMPT ('Delete System/URI identifier')
/* Values to add. */
2015-04-21 16:56:54 +02:00
PARM KWD(ADD) TYPE(XMLELEM) MAX(10) PMTCTL(TYPEXML) +
2015-04-21 13:56:39 +02:00
PROMPT ('Add definition')
2015-04-21 16:56:54 +02:00
XMLELEM: ELEM TYPE(*CHAR) LEN(16) VARY(*YES *INT2) DFT(*PUBLIC) +
2015-04-21 13:56:39 +02:00
PROMPT ('Entry type') +
EXPR(*YES) RSTD(*YES) SPCVAL( +
( *PUBLIC 'public') +
( *SYSTEM 'system') +
( *URI 'uri') +
( *REWRITESYSTEM 'rewriteSystem') +
( *REWRITEURI 'rewriteURI') +
( *DELEGATEPUBLIC 'delegatePublic') +
( *DELEGATESYSTEM 'delegateSystem') +
( *DELEGATEURI 'delegateURI') +
( *NEXTCATALOG 'nextCatalog') +
)
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('Original reference/file name')
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('Replacement entity URI')
2015-04-21 16:56:54 +02:00
PARM KWD(SGMLADD) TYPE(SGMLELEM) MAX(10) +
PMTCTL(TYPESGML) PROMPT('Add SGML definition')
SGMLELEM: ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('SGML catalog file name')
ELEM TYPE(*PNAME) LEN(256) VARY(*YES *INT2) EXPR(*YES) +
CASE(*MIXED) PROMPT('SGML definition')
2015-04-21 13:56:39 +02:00
/* Entities to resolve. */
PARM KWD(ENTITY) TYPE(*PNAME) LEN(256) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MAX(150) +
PROMPT ('Resolve entity')
/* Additional catalog files. */
PARM KWD(CATALOG) TYPE(*PNAME) LEN(5000) VARY(*YES *INT2) +
CASE(*MIXED) EXPR(*YES) MAX(150) DFT(*DEFAULT) +
CHOICE('Catalog stream file path') +
PROMPT ('Additional catalog file') SPCVAL( +
( *DEFAULT '/etc/xml/catalog') +
( *NONE '') +
)
2015-04-21 16:56:54 +02:00
/* Conditional prompting. */
TYPEXML: PMTCTL CTL(KIND) COND((*EQ ''))
TYPESGML: PMTCTL CTL(KIND) COND((*NE ''))
