os400/libxmlrpg/debugXML.rpgle

   1       * Summary: Tree debugging APIs
   2       * Description: Interfaces to a set of routines used for debugging the tree
   3       *              produced by the XML parser.
   4       *
   5       * Copy: See Copyright for the status of this software.
   6       *
   7       * Author: Patrick Monnerat <pm@datasphere.ch>, DATASPHERE S.A.
   8
   9       /if not defined(DEBUG_XML__)
  10       /define DEBUG_XML__
  11
  12       /include "libxmlrpg/xmlversion"
  13       /include "libxmlrpg/tree"
  14
  15       /if defined(LIBXML_DEBUG_ENABLED)
  16
  17       /include "libxmlrpg/xpath"
  18
  19       * The standard Dump routines.
  20
  21      d xmlDebugDumpString...
  22      d                 pr                  extproc('xmlDebugDumpString')
  23      d  output                         *   value                                FILE *
  24      d  str                            *   value options(*string)               const xmlChar *
  25
  26      d xmlDebugDumpAttr...
  27      d                 pr                  extproc('xmlDebugDumpAttr')
  28      d  output                         *   value                                FILE *
  29      d  attr                               value like(xmlAttrPtr)
  30      d  depth                        10i 0 value
  31
  32      d xmlDebugDumpAttrList...
  33      d                 pr                  extproc('xmlDebugDumpAttrList')
  34      d  output                         *   value                                FILE *
  35      d  attr                               value like(xmlAttrPtr)
  36      d  depth                        10i 0 value
  37
  38      d xmlDebugDumpOneNode...
  39      d                 pr                  extproc('xmlDebugDumpOneNode')
  40      d  output                         *   value                                FILE *
  41      d  node                               value like(xmlNodePtr)
  42      d  depth                        10i 0 value
  43
  44      d xmlDebugDumpNode...
  45      d                 pr                  extproc('xmlDebugDumpNode')
  46      d  output                         *   value                                FILE *
  47      d  node                               value like(xmlNodePtr)
  48      d  depth                        10i 0 value
  49
  50      d xmlDebugDumpNodeList...
  51      d                 pr                  extproc('xmlDebugDumpNodeList')
  52      d  output                         *   value                                FILE *
  53      d  node                               value like(xmlNodePtr)
  54      d  depth                        10i 0 value
  55
  56      d xmlDebugDumpDocumentHead...
  57      d                 pr                  extproc('xmlDebugDumpDocumentHead')
  58      d  output                         *   value                                FILE *
  59      d  doc                                value like(xmlDocPtr)
  60
  61      d xmlDebugDumpDocument...
  62      d                 pr                  extproc('xmlDebugDumpDocument')
  63      d  output                         *   value                                FILE *
  64      d  doc                                value like(xmlDocPtr)
  65
  66      d xmlDebugDumpDTD...
  67      d                 pr                  extproc('xmlDebugDumpDTD')
  68      d  output                         *   value                                FILE *
  69      d  dtd                                value like(xmlDtdPtr)
  70
  71      d xmlDebugDumpEntities...
  72      d                 pr                  extproc('xmlDebugDumpEntities')
  73      d  output                         *   value                                FILE *
  74      d  doc                                value like(xmlDocPtr)
  75
  76       ****************************************************************
  77       *                                                              *
  78       *                      Checking routines                       *
  79       *                                                              *
  80       ****************************************************************
  81
  82      d xmlDebugCheckDocument...
  83      d                 pr            10i 0 extproc('xmlDebugCheckDocument')
  84      d  output                         *   value                                FILE *
  85      d  doc                                value like(xmlDocPtr)
  86
  87       ****************************************************************
  88       *                                                              *
  89       *                      XML shell helpers                       *
  90       *                                                              *
  91       ****************************************************************
  92
  93      d xmlLsOneNode    pr                  extproc('xmlLsOneNode')
  94      d  output                         *   value                                FILE *
  95      d  node                               value like(xmlNodePtr)
  96
  97      d xmlLsCountNode  pr            10i 0 extproc('xmlLsCountNode')
  98      d  node                               value like(xmlNodePtr)
  99
 100      d xmlBoolToText   pr              *   extproc('xmlBoolToText')             const char *
 101      d  boolval                      10i 0 value
 102
 103       ****************************************************************
 104       *                                                              *
 105       *       The XML shell related structures and functions         *
 106       *                                                              *
 107       ****************************************************************
 108
 109       /if defined(LIBXML_XPATH_ENABLED)
 110
 111       * xmlShellReadlineFunc:
 112       * @prompt:  a string prompt
 113       *
 114       * This is a generic signature for the XML shell input function.
 115       *
 116       * Returns a string which will be freed by the Shell.
 117
 118      d xmlShellReadlineFunc...
 119      d                 s               *   based(######typedef######)
 120      d                                     procptr
 121
 122       * xmlShellCtxt:
 123       *
 124       * A debugging shell context.
 125       * TODO: add the defined function tables.
 126
 127      d xmlShellCtxtPtr...
 128      d                 s               *   based(######typedef######)
 129
 130      d xmlSchellCtxt   ds                  based(xmlShellCtxtPtr)
 131      d                                     align qualified
 132      d  filename                       *                                        char *
 133      d  doc                                like(xmlDocPtr)
 134      d  node                               like(xmlNodePtr)
 135      d  pctxt                              like(xmlXPathContextPtr)
 136      d  loaded                       10i 0
 137      d  output                         *                                        FILE *
 138      d  input                              like(xmlShellReadlineFunc)
 139
 140       * xmlShellCmd:
 141       * @ctxt:  a shell context
 142       * @arg:  a string argument
 143       * @node:  a first node
 144       * @node2:  a second node
 145       *
 146       * This is a generic signature for the XML shell functions.
 147       *
 148       * Returns an int, negative returns indicating errors.
 149
 150      d xmlShellCmd     s               *   based(######typedef######)
 151      d                                     procptr
 152
 153      d xmlShellPrintXPathError...
 154      d                 pr                  extproc('xmlShellPrintXPathError')
 155      d  errorType                    10i 0 value
 156      d  arg                            *   value options(*string)               const char *
 157
 158      d xmlShellPrintXPathResult...
 159      d                 pr                  extproc('xmlShellPrintXPathResult')
 160      d  list                               value like(xmlXPathObjectPtr)
 161
 162      d xmlShellList    pr            10i 0 extproc('xmlShellList')
 163      d  ctxt                               value like(xmlShellCtxtPtr)
 164      d  arg                            *   value options(*string)               char *
 165      d  node                               value like(xmlNodePtr)
 166      d  node2                              value like(xmlNodePtr)
 167
 168      d xmlShellBase    pr            10i 0 extproc('xmlShellBase')
 169      d  ctxt                               value like(xmlShellCtxtPtr)
 170      d  arg                            *   value options(*string)               char *
 171      d  node                               value like(xmlNodePtr)
 172      d  node2                              value like(xmlNodePtr)
 173
 174      d xmlShellDir     pr            10i 0 extproc('xmlShellDir')
 175      d  ctxt                               value like(xmlShellCtxtPtr)
 176      d  arg                            *   value options(*string)               char *
 177      d  node                               value like(xmlNodePtr)
 178      d  node2                              value like(xmlNodePtr)
 179
 180      d xmlShellLoad    pr            10i 0 extproc('xmlShellLoad')
 181      d  ctxt                               value like(xmlShellCtxtPtr)
 182      d  filename                       *   value options(*string)               char *
 183      d  node                               value like(xmlNodePtr)
 184      d  node2                              value like(xmlNodePtr)
 185
 186       /if defined(LIBXML_OUTPUT_ENABLED)
 187      d xmlShellPrintNode...
 188      d                 pr                  extproc('xmlShellPrintNode')
 189      d  node                               value like(xmlNodePtr)
 190
 191      d xmlShellCat     pr            10i 0 extproc('xmlShellCat')
 192      d  ctxt                               value like(xmlShellCtxtPtr)
 193      d  arg                            *   value options(*string)               char *
 194      d  node                               value like(xmlNodePtr)
 195      d  node2                              value like(xmlNodePtr)
 196
 197      d xmlShellWrite   pr            10i 0 extproc('xmlShellWrite')
 198      d  ctxt                               value like(xmlShellCtxtPtr)
 199      d  filename                       *   value options(*string)               char *
 200      d  node                               value like(xmlNodePtr)
 201      d  node2                              value like(xmlNodePtr)
 202
 203      d xmlShellSave    pr            10i 0 extproc('xmlShellSave')
 204      d  ctxt                               value like(xmlShellCtxtPtr)
 205      d  filename                       *   value options(*string)               char *
 206      d  node                               value like(xmlNodePtr)
 207      d  node2                              value like(xmlNodePtr)
 208       /endif                                                                    LIBXML_OUTPUT_ENABLD
 209
 210       /if defined(LIBXML_VALID_ENABLED)
 211      d xmlShellValidate...
 212      d                 pr            10i 0 extproc('xmlShellValidate')
 213      d  ctxt                               value like(xmlShellCtxtPtr)
 214      d  dtd                            *   value options(*string)               char *
 215      d  node                               value like(xmlNodePtr)
 216      d  node2                              value like(xmlNodePtr)
 217       /endif                                                                    LIBXML_VALID_ENABLED
 218
 219      d xmlShellDu      pr            10i 0 extproc('xmlShellDu')
 220      d  ctxt                               value like(xmlShellCtxtPtr)
 221      d  arg                            *   value options(*string)               char *
 222      d  tree                               value like(xmlNodePtr)
 223      d  node2                              value like(xmlNodePtr)
 224
 225      d xmlShellPwd     pr            10i 0 extproc('xmlShellPwd')
 226      d  ctxt                               value like(xmlShellCtxtPtr)
 227      d  buffer                         *   value options(*string)               char *
 228      d  node                               value like(xmlNodePtr)
 229      d  node2                              value like(xmlNodePtr)
 230
 231       * The Shell interface.
 232
 233      d xmlShell        pr                  extproc('xmlShell')
 234      d  doc                                value like(xmlDocPtr)
 235      d  filename                       *   value options(*string)               char *
 236      d  input                              value like(xmlShellReadlineFunc)
 237      d  output                         *   value                                FILE *
 238
 239       /endif                                                                    LIBXML_XPATH_ENABLED
 240       /endif                                                                    LIBXML_DEBUG_ENABLED
 241       /endif                                                                    DEBUG_XML__