kc3-lang/libxml2/xmlcatalog.c

• Show log

  Commit

• Hash : 8625db28
  Author :
  Date : 2024-08-19T20:02:47
  

  xmlcatalog: Improved fix for #699
  

Download

• xmlcatalog.c

• /*
   * xmlcatalog.c : a small utility program to handle XML catalogs
   *
   * See Copyright for the status of this software.
   *
   * daniel@veillard.com
   */
  
  #include "libxml.h"
  
  #include <string.h>
  #include <stdio.h>
  #include <stdarg.h>
  #include <stdlib.h>
  
  #ifdef _WIN32
    #include <fcntl.h>
    #include <io.h>
  #else
    #include <unistd.h>
  #endif
  
  #ifdef HAVE_LIBREADLINE
  #include <readline/readline.h>
  #ifdef HAVE_LIBHISTORY
  #include <readline/history.h>
  #endif
  #endif
  
  #include <libxml/xmlmemory.h>
  #include <libxml/uri.h>
  #include <libxml/catalog.h>
  #include <libxml/parser.h>
  
  #ifndef STDIN_FILENO
    #define STDIN_FILENO 0
  #endif
  
  #if defined(LIBXML_CATALOG_ENABLED) && defined(LIBXML_OUTPUT_ENABLED)
  static int shell = 0;
  static int sgml = 0;
  static int noout = 0;
  static int create = 0;
  static int add = 0;
  static int del = 0;
  static int convert = 0;
  static int no_super_update = 0;
  static int verbose = 0;
  static char *filename = NULL;
  
  
  #ifndef XML_SGML_DEFAULT_CATALOG
  #define XML_SGML_DEFAULT_CATALOG SYSCONFDIR "/sgml/catalog"
  #endif
  
  /************************************************************************
   *									*
   *			Shell Interface					*
   *									*
   ************************************************************************/
  /**
   * xmlShellReadline:
   * @prompt:  the prompt value
   *
   * Read a string
   *
   * Returns a pointer to it or NULL on EOF the caller is expected to
   *     free the returned string.
   */
  static char *
  xmlShellReadline(const char *prompt) {
      char buf[501];
      char *ret;
      int len;
  
  #ifdef HAVE_LIBREADLINE
      if (isatty(STDIN_FILENO)) {
          char *line_read;
  
          /* Get a line from the user. */
          line_read = readline (prompt);
  
  #ifdef HAVE_LIBHISTORY
          /* If the line has any text in it, save it on the history. */
          if (line_read && *line_read)
             add_history (line_read);
  #endif
  
          return (line_read);
      }
  #endif
  
      if (prompt != NULL)
         fprintf(stdout, "%s", prompt);
      fflush(stdout);
      if (!fgets(buf, 500, stdin))
          return(NULL);
      buf[500] = 0;
      len = strlen(buf);
      ret = (char *) malloc(len + 1);
      if (ret != NULL) {
         memcpy (ret, buf, len + 1);
      }
      return(ret);
  }
  
  static void usershell(void) {
      char *cmdline = NULL, *cur;
      int nbargs;
      char command[100];
      char arg[400];
      char *argv[20];
      int i, ret;
      xmlChar *ans;
  
      while (1) {
  	cmdline = xmlShellReadline("> ");
  	if (cmdline == NULL)
  	    return;
  
  	/*
  	 * Parse the command itself
  	 */
  	cur = cmdline;
  	nbargs = 0;
  	while ((*cur == ' ') || (*cur == '\t')) cur++;
  	i = 0;
  	while ((*cur != ' ') && (*cur != '\t') &&
  	       (*cur != '\n') && (*cur != '\r')) {
  	    if (*cur == 0)
  		break;
  	    command[i++] = *cur++;
  	}
  	command[i] = 0;
  	if (i == 0) {
  	    free(cmdline);
  	    continue;
  	}
  
  	/*
  	 * Parse the argument string
  	 */
  	memset(arg, 0, sizeof(arg));
  	while ((*cur == ' ') || (*cur == '\t')) cur++;
  	i = 0;
  	while ((*cur != '\n') && (*cur != '\r') && (*cur != 0)) {
  	    if (*cur == 0)
  		break;
  	    arg[i++] = *cur++;
  	}
  	arg[i] = 0;
  
  	/*
  	 * Parse the arguments
  	 */
  	i = 0;
  	nbargs = 0;
  	cur = arg;
  	memset(argv, 0, sizeof(argv));
  	while (*cur != 0) {
  	    while ((*cur == ' ') || (*cur == '\t')) cur++;
  	    if (*cur == '\'') {
  		cur++;
  		argv[i] = cur;
  		while ((*cur != 0) && (*cur != '\'')) cur++;
  		if (*cur == '\'') {
  		    *cur = 0;
  		    nbargs++;
  		    i++;
  		    cur++;
  		}
  	    } else if (*cur == '"') {
  		cur++;
  		argv[i] = cur;
  		while ((*cur != 0) && (*cur != '"')) cur++;
  		if (*cur == '"') {
  		    *cur = 0;
  		    nbargs++;
  		    i++;
  		    cur++;
  		}
  	    } else {
  		argv[i] = cur;
  		while ((*cur != 0) && (*cur != ' ') && (*cur != '\t'))
  		    cur++;
  		*cur = 0;
  		nbargs++;
  		i++;
  		cur++;
  	    }
  	}
  
  	/*
  	 * start interpreting the command
  	 */
  	if (!strcmp(command, "exit") ||
  	    !strcmp(command, "quit") ||
  	    !strcmp(command, "bye")) {
  	    free(cmdline);
  	    break;
  	}
  
  	if (!strcmp(command, "public")) {
  	    if (nbargs != 1) {
  		printf("public requires 1 arguments\n");
  	    } else {
  		ans = xmlCatalogResolvePublic((const xmlChar *) argv[0]);
  		if (ans == NULL) {
  		    printf("No entry for PUBLIC %s\n", argv[0]);
  		} else {
  		    printf("%s\n", (char *) ans);
  		    xmlFree(ans);
  		}
  	    }
  	} else if (!strcmp(command, "system")) {
  	    if (nbargs != 1) {
  		printf("system requires 1 arguments\n");
  	    } else {
  		ans = xmlCatalogResolveSystem((const xmlChar *) argv[0]);
  		if (ans == NULL) {
  		    printf("No entry for SYSTEM %s\n", argv[0]);
  		} else {
  		    printf("%s\n", (char *) ans);
  		    xmlFree(ans);
  		}
  	    }
  	} else if (!strcmp(command, "add")) {
  	    if ((nbargs != 3) && (nbargs != 2)) {
  		printf("add requires 2 or 3 arguments\n");
  	    } else {
  		if (argv[2] == NULL)
  		ret = xmlCatalogAdd(BAD_CAST argv[0], NULL,
  				    BAD_CAST argv[1]);
  		else
  		    ret = xmlCatalogAdd(BAD_CAST argv[0], BAD_CAST argv[1],
  					BAD_CAST argv[2]);
  		if (ret != 0)
  		    printf("add command failed\n");
  	    }
  	} else if (!strcmp(command, "del")) {
  	    if (nbargs != 1) {
  		printf("del requires 1\n");
  	    } else {
  		ret = xmlCatalogRemove(BAD_CAST argv[0]);
  		if (ret <= 0)
  		    printf("del command failed\n");
  
  	    }
  	} else if (!strcmp(command, "resolve")) {
  	    if (nbargs != 2) {
  		printf("resolve requires 2 arguments\n");
  	    } else {
  		ans = xmlCatalogResolve(BAD_CAST argv[0],
  			                BAD_CAST argv[1]);
  		if (ans == NULL) {
  		    printf("Resolver failed to find an answer\n");
  		} else {
  		    printf("%s\n", (char *) ans);
  		    xmlFree(ans);
  		}
  	    }
  	} else if (!strcmp(command, "dump")) {
  	    if (nbargs != 0) {
  		printf("dump has no arguments\n");
  	    } else {
  		xmlCatalogDump(stdout);
  	    }
  	} else if (!strcmp(command, "debug")) {
  	    if (nbargs != 0) {
  		printf("debug has no arguments\n");
  	    } else {
  		verbose++;
  		xmlCatalogSetDebug(verbose);
  	    }
  	} else if (!strcmp(command, "quiet")) {
  	    if (nbargs != 0) {
  		printf("quiet has no arguments\n");
  	    } else {
  		if (verbose > 0)
  		    verbose--;
  		xmlCatalogSetDebug(verbose);
  	    }
  	} else {
  	    if (strcmp(command, "help")) {
  		printf("Unrecognized command %s\n", command);
  	    }
  	    printf("Commands available:\n");
  	    printf("\tpublic PublicID: make a PUBLIC identifier lookup\n");
  	    printf("\tsystem SystemID: make a SYSTEM identifier lookup\n");
  	    printf("\tresolve PublicID SystemID: do a full resolver lookup\n");
  	    printf("\tadd 'type' 'orig' 'replace' : add an entry\n");
  	    printf("\tdel 'values' : remove values\n");
  	    printf("\tdump: print the current catalog state\n");
  	    printf("\tdebug: increase the verbosity level\n");
  	    printf("\tquiet: decrease the verbosity level\n");
  	    printf("\texit:  quit the shell\n");
  	}
  	free(cmdline); /* not xmlFree here ! */
      }
  }
  
  /************************************************************************
   *									*
   *			Main						*
   *									*
   ************************************************************************/
  static void usage(const char *name) {
      /* split into 2 printf's to avoid overly long string (gcc warning) */
      printf("\
  Usage : %s [options] catalogfile entities...\n\
  \tParse the catalog file (void specification possibly expressed as \"\"\n\
  \tappoints the default system one) and query it for the entities\n\
  \t--sgml : handle SGML Super catalogs for --add and --del\n\
  \t--shell : run a shell allowing interactive queries\n\
  \t--create : create a new catalog\n\
  \t--add 'type' 'orig' 'replace' : add an XML entry\n\
  \t--add 'entry' : add an SGML entry\n", name);
      printf("\
  \t--del 'values' : remove values\n\
  \t--noout: avoid dumping the result on stdout\n\
  \t         used with --add or --del, it saves the catalog changes\n\
  \t         and with --sgml it automatically updates the super catalog\n\
  \t--no-super-update: do not update the SGML super catalog\n\
  \t-v --verbose : provide debug information\n");
  }
  int main(int argc, char **argv) {
      int i;
      int ret;
      int exit_value = 0;
  
  #ifdef _WIN32
      _setmode(_fileno(stdin), _O_BINARY);
      _setmode(_fileno(stdout), _O_BINARY);
      _setmode(_fileno(stderr), _O_BINARY);
  #endif
  
      if (argc <= 1) {
  	usage(argv[0]);
  	return(1);
      }
  
      LIBXML_TEST_VERSION
      for (i = 1; i < argc ; i++) {
  	if (!strcmp(argv[i], "-"))
  	    break;
  
  	if (argv[i][0] != '-')
  	    break;
  	if ((!strcmp(argv[i], "-verbose")) ||
  	    (!strcmp(argv[i], "-v")) ||
  	    (!strcmp(argv[i], "--verbose"))) {
  	    verbose++;
  	    xmlCatalogSetDebug(verbose);
  	} else if ((!strcmp(argv[i], "-noout")) ||
  	    (!strcmp(argv[i], "--noout"))) {
              noout = 1;
  	} else if ((!strcmp(argv[i], "-shell")) ||
  	    (!strcmp(argv[i], "--shell"))) {
  	    shell++;
              noout = 1;
  	} else if ((!strcmp(argv[i], "-sgml")) ||
  	    (!strcmp(argv[i], "--sgml"))) {
  	    sgml++;
  	} else if ((!strcmp(argv[i], "-create")) ||
  	    (!strcmp(argv[i], "--create"))) {
  	    create++;
  	} else if ((!strcmp(argv[i], "-convert")) ||
  	    (!strcmp(argv[i], "--convert"))) {
  	    convert++;
  	} else if ((!strcmp(argv[i], "-no-super-update")) ||
  	    (!strcmp(argv[i], "--no-super-update"))) {
  	    no_super_update++;
  	} else if ((!strcmp(argv[i], "-add")) ||
  	    (!strcmp(argv[i], "--add"))) {
  	    if (sgml)
  		i += 2;
  	    else
  		i += 3;
  	    add++;
  	} else if ((!strcmp(argv[i], "-del")) ||
  	    (!strcmp(argv[i], "--del"))) {
  	    i += 1;
  	    del++;
  	} else {
  	    fprintf(stderr, "Unknown option %s\n", argv[i]);
  	    usage(argv[0]);
  	    return(1);
  	}
      }
  
      for (i = 1; i < argc; i++) {
  	if ((!strcmp(argv[i], "-add")) ||
  	    (!strcmp(argv[i], "--add"))) {
  	    if (sgml)
  		i += 2;
  	    else
  		i += 3;
  	    continue;
  	} else if ((!strcmp(argv[i], "-del")) ||
  	    (!strcmp(argv[i], "--del"))) {
  	    i += 1;
  
  	    /* No catalog entry specified */
  	    if (i == argc || (sgml && i + 1 == argc)) {
  		fprintf(stderr, "No catalog entry specified to remove from\n");
  		usage (argv[0]);
  		return(1);
  	    }
  
  	    continue;
  	} else if (argv[i][0] == '-')
  	    continue;
  
  	if (filename == NULL && argv[i][0] == '\0') {
  	    /* Interpret empty-string catalog specification as
  	       a shortcut for a default system catalog. */
  	    xmlInitializeCatalog();
  	} else {
  	    filename = argv[i];
  	    ret = xmlLoadCatalog(argv[i]);
  	    if ((ret < 0) && (create)) {
  		xmlCatalogAdd(BAD_CAST "catalog", BAD_CAST argv[i], NULL);
  	    }
  
              /*
               * Catalogs are loaded lazily. Make sure that dumping works
               * by the issuing a dummy request that forces the catalog to
               * be loaded.
               */
              xmlCatalogResolvePublic(BAD_CAST "");
  	}
  	break;
      }
  
      if (convert)
          ret = xmlCatalogConvert();
  
      if ((add) || (del)) {
  	for (i = 1; i < argc ; i++) {
  	    if (!strcmp(argv[i], "-"))
  		break;
  
  	    if (argv[i][0] != '-')
  		continue;
  	    if (strcmp(argv[i], "-add") && strcmp(argv[i], "--add") &&
  		strcmp(argv[i], "-del") && strcmp(argv[i], "--del"))
  		continue;
  
  	    if (sgml) {
  		/*
  		 * Maintenance of SGML catalogs.
  		 */
  		xmlCatalogPtr catal = NULL;
  		xmlCatalogPtr super = NULL;
  
  		catal = xmlLoadSGMLSuperCatalog(argv[i + 1]);
  
  		if ((!strcmp(argv[i], "-add")) ||
  		    (!strcmp(argv[i], "--add"))) {
  		    if (catal == NULL)
  			catal = xmlNewCatalog(1);
  		    xmlACatalogAdd(catal, BAD_CAST "CATALOG",
  					 BAD_CAST argv[i + 2], NULL);
  
  		    if (!no_super_update) {
  			super = xmlLoadSGMLSuperCatalog(XML_SGML_DEFAULT_CATALOG);
  			if (super == NULL)
  			    super = xmlNewCatalog(1);
  
  			xmlACatalogAdd(super, BAD_CAST "CATALOG",
  					     BAD_CAST argv[i + 1], NULL);
  		    }
  		} else {
  		    if (catal != NULL)
  			ret = xmlACatalogRemove(catal, BAD_CAST argv[i + 2]);
  		    else
  			ret = -1;
  		    if (ret < 0) {
  			fprintf(stderr, "Failed to remove entry from %s\n",
  				argv[i + 1]);
  			exit_value = 1;
  		    }
  		    if ((!no_super_update) && (noout) && (catal != NULL) &&
  			(xmlCatalogIsEmpty(catal))) {
  			super = xmlLoadSGMLSuperCatalog(
  				   XML_SGML_DEFAULT_CATALOG);
  			if (super != NULL) {
  			    ret = xmlACatalogRemove(super,
  				    BAD_CAST argv[i + 1]);
  			    if (ret < 0) {
  				fprintf(stderr,
  					"Failed to remove entry from %s\n",
  					XML_SGML_DEFAULT_CATALOG);
  				exit_value = 1;
  			    }
  			}
  		    }
  		}
  		if (noout) {
  		    FILE *out;
  
  		    if (xmlCatalogIsEmpty(catal)) {
  			remove(argv[i + 1]);
  		    } else {
  			out = fopen(argv[i + 1], "wb");
  			if (out == NULL) {
  			    fprintf(stderr, "could not open %s for saving\n",
  				    argv[i + 1]);
  			    exit_value = 2;
  			    noout = 0;
  			} else {
  			    xmlACatalogDump(catal, out);
  			    fclose(out);
  			}
  		    }
  		    if (!no_super_update && super != NULL) {
  			if (xmlCatalogIsEmpty(super)) {
  			    remove(XML_SGML_DEFAULT_CATALOG);
  			} else {
  			    out = fopen(XML_SGML_DEFAULT_CATALOG, "wb");
  			    if (out == NULL) {
  				fprintf(stderr,
  					"could not open %s for saving\n",
  					XML_SGML_DEFAULT_CATALOG);
  				exit_value = 2;
  				noout = 0;
  			    } else {
  
  				xmlACatalogDump(super, out);
  				fclose(out);
  			    }
  			}
  		    }
  		} else {
  		    xmlACatalogDump(catal, stdout);
  		}
  		i += 2;
  
                  xmlFreeCatalog(catal);
                  xmlFreeCatalog(super);
  	    } else {
  		if ((!strcmp(argv[i], "-add")) ||
  		    (!strcmp(argv[i], "--add"))) {
  			if ((argv[i + 3] == NULL) || (argv[i + 3][0] == 0))
  			    ret = xmlCatalogAdd(BAD_CAST argv[i + 1], NULL,
  						BAD_CAST argv[i + 2]);
  			else
  			    ret = xmlCatalogAdd(BAD_CAST argv[i + 1],
  						BAD_CAST argv[i + 2],
  						BAD_CAST argv[i + 3]);
  			if (ret != 0) {
  			    printf("add command failed\n");
  			    exit_value = 3;
  			}
  			i += 3;
  		} else if ((!strcmp(argv[i], "-del")) ||
  		    (!strcmp(argv[i], "--del"))) {
  		    ret = xmlCatalogRemove(BAD_CAST argv[i + 1]);
  		    if (ret < 0) {
  			fprintf(stderr, "Failed to remove entry %s\n",
  				argv[i + 1]);
  			exit_value = 1;
  		    }
  		    i += 1;
  		}
  	    }
  	}
  
      } else if (shell) {
  	usershell();
      } else {
  	for (i++; i < argc; i++) {
  	    xmlURIPtr uri;
  	    xmlChar *ans;
  
  	    uri = xmlParseURI(argv[i]);
  	    if (uri == NULL) {
  		ans = xmlCatalogResolvePublic((const xmlChar *) argv[i]);
  		if (ans == NULL) {
  		    printf("No entry for PUBLIC %s\n", argv[i]);
  		    exit_value = 4;
  		} else {
  		    printf("%s\n", (char *) ans);
  		    xmlFree(ans);
  		}
  	    } else {
                  xmlFreeURI(uri);
  		ans = xmlCatalogResolveSystem((const xmlChar *) argv[i]);
  		if (ans == NULL) {
  		    printf("No entry for SYSTEM %s\n", argv[i]);
  		    ans = xmlCatalogResolveURI ((const xmlChar *) argv[i]);
  		    if (ans == NULL) {
  			printf ("No entry for URI %s\n", argv[i]);
  		        exit_value = 4;
  		    } else {
  		        printf("%s\n", (char *) ans);
  			xmlFree (ans);
  		    }
  		} else {
  		    printf("%s\n", (char *) ans);
  		    xmlFree(ans);
  		}
  	    }
  	}
      }
      if ((!sgml) && ((add) || (del) || (create) || (convert))) {
  	if (noout && filename && *filename) {
  	    FILE *out;
  
  	    out = fopen(filename, "wb");
  	    if (out == NULL) {
  		fprintf(stderr, "could not open %s for saving\n", filename);
  		exit_value = 2;
  		noout = 0;
  	    } else {
  		xmlCatalogDump(out);
  	    }
  	} else {
  	    xmlCatalogDump(stdout);
  	}
      }
  
      /*
       * Cleanup and check for memory leaks
       */
      xmlCleanupParser();
      return(exit_value);
  }
  #else
  int main(int argc ATTRIBUTE_UNUSED, char **argv ATTRIBUTE_UNUSED) {
      fprintf(stderr, "libxml was not compiled with catalog and output support\n");
      return(1);
  }
  #endif
  

Download