Big OpenVMS patch: - nanohttp.c parser.[ch] tree.[ch] xmlIO.[ch] xmllint.c

Big OpenVMS patch:
- nanohttp.c parser.[ch] tree.[ch] xmlIO.[ch] xmllint.c xpath.c
  parserInternals.h vms/build_libxml.com vms/config.vms Makefile.am:
  integrated a set of OpenVMS changes from Howard Taylor
  <Howard.Taylor@pacoast.com>
Daniel

18 files changed, 365 insertions, 9 deletions

diff --git a/ChangeLog b/ChangeLog
index cd208e30..6be86ccc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+Sat Nov 25 10:41:37 CET 2000 Daniel Veillard <Daniel.Veillard@w3.org>
+
+	* nanohttp.c parser.[ch] tree.[ch] xmlIO.[ch] xmllint.c xpath.c
+	  parserInternals.h vms/build_libxml.com vms/config.vms Makefile.am:
+	  integrated a set of OpenVMS changes from Howard Taylor
+	  <Howard.Taylor@pacoast.com>
+
 Sat Nov 25 01:21:01 CET 2000 Daniel Veillard <Daniel.Veillard@w3.org>
 
 	* tree.[ch] xmlIO.c: added xmlDocDumpMemoryEnc() from John Kroll
diff --git a/Makefile.am b/Makefile.am
index cf209932..1e711fe4 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -384,7 +384,8 @@ confexec_DATA = xmlConf.sh
 EXTRA_DIST = xmlConf.sh.in libxml.spec.in libxml.spec libxml.m4 \
              example/Makefile.am example/gjobread.c example/gjobs.xml \
 	     $(man_MANS) libxml-2.0.pc.in xmlversion.h.in \
-	     win32/README.MSDev win32/Makefile.mingw win32/libxml2/libxml2.dsp
+	     win32/README.MSDev win32/Makefile.mingw win32/libxml2/libxml2.dsp \
+	     vms/build_libxml.com vms/config.vms
 
 pkgconfigdir = $(libdir)/pkgconfig
 pkgconfig_DATA = libxml-2.0.pc
diff --git a/include/libxml/parser.h b/include/libxml/parser.h
index ac398b7c..95e529d2 100644
--- a/include/libxml/parser.h
+++ b/include/libxml/parser.h
@@ -306,7 +306,12 @@ LIBXML_DLL_IMPORT extern xmlSAXHandler sgmlDefaultSAXHandler;
  * entity substitution default behaviour.
  */
 
+#ifdef VMS
+LIBXML_DLL_IMPORT extern int xmlSubstituteEntitiesDefaultVal;
+#define xmlSubstituteEntitiesDefaultValue xmlSubstituteEntitiesDefaultVal
+#else
 LIBXML_DLL_IMPORT extern int xmlSubstituteEntitiesDefaultValue;
+#endif
 LIBXML_DLL_IMPORT extern int xmlGetWarningsDefaultValue;
 
 
diff --git a/include/libxml/parserInternals.h b/include/libxml/parserInternals.h
index 646738cb..6588bd6c 100644
--- a/include/libxml/parserInternals.h
+++ b/include/libxml/parserInternals.h
@@ -4,6 +4,10 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - truncated declaration of xmlParseElementChildrenContentDecl 
+ * for VMS
+ *
  */
 
 #ifndef __XML_PARSER_INTERNALS_H__
@@ -204,8 +208,14 @@ int			xmlParseAttributeType	(xmlParserCtxtPtr ctxt,
 void			xmlParseAttributeListDecl(xmlParserCtxtPtr ctxt);
 xmlElementContentPtr	xmlParseElementMixedContentDecl
 						(xmlParserCtxtPtr ctxt);
+#ifdef VMS
+xmlElementContentPtr	xmlParseElementChildrenContentD
+						(xmlParserCtxtPtr ctxt);
+#define xmlParseElementChildrenContentDecl	xmlParseElementChildrenContentD
+#else
 xmlElementContentPtr	xmlParseElementChildrenContentDecl
 						(xmlParserCtxtPtr ctxt);
+#endif
 int			xmlParseElementContentDecl(xmlParserCtxtPtr ctxt,
 						 xmlChar *name,
 						 xmlElementContentPtr *result);
diff --git a/include/libxml/tree.h b/include/libxml/tree.h
index 5e09f64f..7b19d090 100644
--- a/include/libxml/tree.h
+++ b/include/libxml/tree.h
@@ -5,6 +5,9 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - added redefinition of xmlBufferWriteChar for VMS
+ *
  */
 
 #ifndef __XML_TREE_H__
@@ -609,8 +612,14 @@ int		xmlRemoveNode		(xmlNodePtr node); /* TODO */
 /*
  * Internal, don't use
  */
+#ifdef VMS
+void		xmlBufferWriteXmlCHAR	(xmlBufferPtr buf,
+					 const xmlChar *string);
+#define 	xmlBufferWriteCHAR 	xmlBufferWriteXmlCHAR
+#else
 void		xmlBufferWriteCHAR	(xmlBufferPtr buf,
 					 const xmlChar *string);
+#endif
 void		xmlBufferWriteChar	(xmlBufferPtr buf,
 					 const char *string);
 void		xmlBufferWriteQuotedString(xmlBufferPtr buf,
diff --git a/include/libxml/xmlIO.h b/include/libxml/xmlIO.h
index ff0114d5..eaf4022a 100644
--- a/include/libxml/xmlIO.h
+++ b/include/libxml/xmlIO.h
@@ -4,6 +4,8 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 15 Nov 2000 ht - modified for VMS
  */
 
 #ifndef __XML_IO_H__
@@ -75,9 +77,17 @@ void	xmlRegisterDefaultInputCallbacks	(void);
 xmlParserInputBufferPtr
 	xmlAllocParserInputBuffer		(xmlCharEncoding enc);
 
+#ifdef VMS
+xmlParserInputBufferPtr
+	xmlParserInputBufferCreateFname		(const char *URI,
+                                                 xmlCharEncoding enc);
+#define xmlParserInputBufferCreateFilename xmlParserInputBufferCreateFname
+#else
 xmlParserInputBufferPtr
 	xmlParserInputBufferCreateFilename	(const char *URI,
                                                  xmlCharEncoding enc);
+#endif
+
 xmlParserInputBufferPtr
 	xmlParserInputBufferCreateFile		(FILE *file,
                                                  xmlCharEncoding enc);
diff --git a/nanohttp.c b/nanohttp.c
index beecbed2..e80b88b8 100644
--- a/nanohttp.c
+++ b/nanohttp.c
@@ -61,6 +61,12 @@
 #include <strings.h>
 #endif
 
+#ifdef VMS
+#include <stropts>
+#define SOCKLEN_T unsigned int
+#define SOCKET int
+#endif
+
 #include <libxml/xmlmemory.h>
 #include <libxml/parser.h> /* for xmlStr(n)casecmp() */
 #include <libxml/nanohttp.h>
@@ -662,7 +668,7 @@ xmlNanoHTTPConnectAttempt(struct in_addr ia, int port)
 #if defined(VMS)
     {
 	int enable = 1;
-	status = IOCTL(s, FIONBIO, &enable);
+	status = ioctl(s, FIONBIO, &enable);
     }
 #else /* VMS */
     if ((status = fcntl(s, F_GETFL, 0)) != -1) {
diff --git a/parser.c b/parser.c
index 16929b68..c3ea2a3c 100644
--- a/parser.c
+++ b/parser.c
@@ -28,6 +28,9 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - truncated definitions of xmlSubstituteEntitiesDefaultValue
+ * and xmlDoValidityCheckingDefaultValue for VMS
  */
 
 #ifdef WIN32
@@ -80,8 +83,15 @@
  */
 int xmlGetWarningsDefaultValue = 1;
 int xmlParserDebugEntities = 0;
+#ifdef VMS
+int xmlSubstituteEntitiesDefaultVal = 0;
+#define xmlSubstituteEntitiesDefaultValue xmlSubstituteEntitiesDefaultVal 
+int xmlDoValidityCheckingDefaultVal = 0;
+#define xmlDoValidityCheckingDefaultValue xmlDoValidityCheckingDefaultVal
+#else
 int xmlSubstituteEntitiesDefaultValue = 0;
 int xmlDoValidityCheckingDefaultValue = 0;
+#endif
 int xmlPedanticParserDefaultValue = 0;
 int xmlKeepBlanksDefaultValue = 1;
 
@@ -3882,7 +3892,12 @@ xmlParseElementMixedContentDecl(xmlParserCtxtPtr ctxt) {
  *          hierarchy.
  */
 xmlElementContentPtr
-xmlParseElementChildrenContentDecl(xmlParserCtxtPtr ctxt) {
+#ifdef VMS
+xmlParseElementChildrenContentD
+#else
+xmlParseElementChildrenContentDecl
+#endif
+(xmlParserCtxtPtr ctxt) {
     xmlElementContentPtr ret = NULL, cur = NULL, last = NULL, op = NULL;
     xmlChar *elem;
     xmlChar type = 0;
diff --git a/parser.h b/parser.h
index ac398b7c..95e529d2 100644
--- a/parser.h
+++ b/parser.h
@@ -306,7 +306,12 @@ LIBXML_DLL_IMPORT extern xmlSAXHandler sgmlDefaultSAXHandler;
  * entity substitution default behaviour.
  */
 
+#ifdef VMS
+LIBXML_DLL_IMPORT extern int xmlSubstituteEntitiesDefaultVal;
+#define xmlSubstituteEntitiesDefaultValue xmlSubstituteEntitiesDefaultVal
+#else
 LIBXML_DLL_IMPORT extern int xmlSubstituteEntitiesDefaultValue;
+#endif
 LIBXML_DLL_IMPORT extern int xmlGetWarningsDefaultValue;
 
 
diff --git a/parserInternals.h b/parserInternals.h
index 646738cb..6588bd6c 100644
--- a/parserInternals.h
+++ b/parserInternals.h
@@ -4,6 +4,10 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - truncated declaration of xmlParseElementChildrenContentDecl 
+ * for VMS
+ *
  */
 
 #ifndef __XML_PARSER_INTERNALS_H__
@@ -204,8 +208,14 @@ int			xmlParseAttributeType	(xmlParserCtxtPtr ctxt,
 void			xmlParseAttributeListDecl(xmlParserCtxtPtr ctxt);
 xmlElementContentPtr	xmlParseElementMixedContentDecl
 						(xmlParserCtxtPtr ctxt);
+#ifdef VMS
+xmlElementContentPtr	xmlParseElementChildrenContentD
+						(xmlParserCtxtPtr ctxt);
+#define xmlParseElementChildrenContentDecl	xmlParseElementChildrenContentD
+#else
 xmlElementContentPtr	xmlParseElementChildrenContentDecl
 						(xmlParserCtxtPtr ctxt);
+#endif
 int			xmlParseElementContentDecl(xmlParserCtxtPtr ctxt,
 						 xmlChar *name,
 						 xmlElementContentPtr *result);
diff --git a/tree.c b/tree.c
index 4e3f44a4..1d6c3a1f 100644
--- a/tree.c
+++ b/tree.c
@@ -4,6 +4,11 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - Changed the name of function xmlBufferWriteChar under VMS
+ * as it was similar to xmlBufferWriteCHAR when compiling without case
+ * sensitivity.
+ *  
  */
 
 #ifdef WIN32
@@ -4623,11 +4628,16 @@ xmlBufferCCat(xmlBufferPtr buf, const char *str) {
  * @buf:  the XML buffer
  * @string:  the string to add
  *
- * routine which manage and grows an output buffer. This one add
+ * routine which manages and grows an output buffer. This one adds
  * xmlChars at the end of the buffer.
  */
 void
-xmlBufferWriteCHAR(xmlBufferPtr buf, const xmlChar *string) {
+#ifdef VMS
+xmlBufferWriteXmlCHAR
+#else
+xmlBufferWriteCHAR
+#endif
+(xmlBufferPtr buf, const xmlChar *string) {
     xmlBufferCat(buf, string);
 }
 
diff --git a/tree.h b/tree.h
index 5e09f64f..7b19d090 100644
--- a/tree.h
+++ b/tree.h
@@ -5,6 +5,9 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - added redefinition of xmlBufferWriteChar for VMS
+ *
  */
 
 #ifndef __XML_TREE_H__
@@ -609,8 +612,14 @@ int		xmlRemoveNode		(xmlNodePtr node); /* TODO */
 /*
  * Internal, don't use
  */
+#ifdef VMS
+void		xmlBufferWriteXmlCHAR	(xmlBufferPtr buf,
+					 const xmlChar *string);
+#define 	xmlBufferWriteCHAR 	xmlBufferWriteXmlCHAR
+#else
 void		xmlBufferWriteCHAR	(xmlBufferPtr buf,
 					 const xmlChar *string);
+#endif
 void		xmlBufferWriteChar	(xmlBufferPtr buf,
 					 const char *string);
 void		xmlBufferWriteQuotedString(xmlBufferPtr buf,
diff --git a/vms/build_libxml.com b/vms/build_libxml.com
new file mode 100755
index 00000000..0c7622aa
--- /dev/null
+++ b/vms/build_libxml.com
@@ -0,0 +1,60 @@
+$! BUILD_LIBXML.COM

+$!

+$! Build the LIBXML object library

+$!

+$! Ensure the logical name LIBXML is defined to point to the LIBXML source 

+$! directory. This procedure creates an object library LIBXML.OLB in the LIBXML

+$! directory. After the library is built, you can link LIBXML routines into

+$! your code with the command  $ LINK your_modules,LIBXML:LIBXML.OLB/LIBRARY

+$! 

+$!	

+$!------------------------------------------------------------------------------

+$ cc_command = "CC/DEBUG/NOOPT"

+$ lib_command = "LIBRARY/REPLACE LIBXML.OLB"

+$!

+$ exit_status = 1

+$ saved_default = f$environment("default")

+$ on error then goto ERROR_OUT 

+$ set def libxml

+$ if f$search("DEBUG.DIR").eqs."" then create/dir [.DEBUG]

+$ if f$search("LIBXML.OLB").eqs."" then library/create LIBXML.OLB

+$!

+$ call COMPILE DEBUGXML.C       

+$ call COMPILE ENCODING.C       

+$ call COMPILE ENTITIES.C       

+$ call COMPILE ERROR.C          

+$ call COMPILE HTMLPARSER.C     

+$ call COMPILE HTMLTREE.C       

+$ call COMPILE NANOFTP.C        

+$ call COMPILE NANOHTTP.C       

+$ call COMPILE PARSER.C         

+$ call COMPILE SAX.C            

+$ call COMPILE TREE.C           

+$ call COMPILE URI.C            

+$ call COMPILE VALID.C          

+$ call COMPILE XLINK.C          

+$ call COMPILE XMLIO.C          

+$ call COMPILE XMLLINT.C        

+$ call COMPILE XMLMEMORY.C      

+$ call COMPILE XPATH.C          

+$!

+$EXIT_OUT:

+$ set def 'saved_default

+$ exit 'exit_status

+$!

+$

+$ERROR_OUT:

+$ exit_status = $status

+$ write sys$output 'f$message(exit_status)'

+$ goto EXIT_OUT

+$!

+$COMPILE: subroutine

+$   on warning then goto EXIT_COMPILE

+$   source_file = p1

+$   name = f$element(0,".",source_file)

+$   object_file = f$fao("[.debug]!AS.OBJ",name)

+$   cc_command /object='object_file 'source_file'

+$   lib_command 'object_file'

+$EXIT_COMPILE:

+$   exit $status

+$endsubroutine

diff --git a/vms/config.vms b/vms/config.vms
new file mode 100755
index 00000000..2bf40936
--- /dev/null
+++ b/vms/config.vms
@@ -0,0 +1,148 @@
+/* config.h  */

+

+#define VMS	1

+

+/* Define if you have the strftime function.  */

+#define HAVE_STRFTIME 	1

+

+/* Define if you have the ANSI C header files.  */

+#define STDC_HEADERS	1

+

+#undef PACKAGE

+#undef VERSION

+#undef HAVE_LIBZ

+#undef HAVE_LIBM

+#undef HAVE_ISINF

+#undef HAVE_ISNAN

+#undef HAVE_LIBHISTORY

+#undef HAVE_LIBREADLINE

+

+/* Define if you have the class function.  */

+#undef HAVE_CLASS

+

+/* Define if you have the finite function.  */

+#undef HAVE_FINITE

+

+/* Define if you have the fp_class function.  */

+#define HAVE_FP_CLASS	1

+

+/* Define if you have the fpclass function.  */

+#undef HAVE_FPCLASS

+

+/* Define if you have the isnand function.  */

+#undef HAVE_ISNAND

+

+/* Define if you have the localtime function.  */

+#define HAVE_LOCALTIME	1

+

+/* Define if you have the snprintf function.  */

+#undef HAVE_SNPRINTF

+

+/* Define if you have the strdup function.  */

+#define HAVE_STRDUP	1

+

+/* Define if you have the strerror function.  */

+#define HAVE_STRERROR	1

+

+/* Define if you have the strftime function.  */

+#define HAVE_STRFTIME	1

+

+/* Define if you have the strndup function.  */

+#undef HAVE_STRNDUP

+

+/* Define if you have the <arpa/inet.h> header file.  */

+#undef HAVE_ARPA_INET_H

+

+/* Define if you have the <ctype.h> header file.  */

+#define HAVE_CTYPE_H	1

+

+/* Define if you have the <dirent.h> header file.  */

+#define HAVE_DIRENT_H	1

+

+/* Define if you have the <errno.h> header file.  */

+#define HAVE_ERRNO_H	1

+

+/* Define if you have the <fcntl.h> header file.  */

+#define HAVE_FCNTL_H	1

+

+/* Define if you have the <float.h> header file.  */

+#define HAVE_FLOAT_H	1

+

+/* Define if you have the <fp_class.h> header file.  */

+#define HAVE_FP_CLASS_H	1

+

+/* Define if you have the <ieeefp.h> header file.  */

+#undef HAVE_IEEEFP_H

+

+/* Define if you have the <malloc.h> header file.  */

+#undef HAVE_MALLOC_H

+

+/* Define if you have the <math.h> header file.  */

+#define HAVE_MATH_H	1

+

+/* Define if you have the <nan.h> header file.  */

+#undef HAVE_NAN_H

+

+/* Define if you have the <ndir.h> header file.  */

+#undef HAVE_NDIR_H

+

+/* Define if you have the <netdb.h> header file.  */

+#define HAVE_NETDB_H	1

+

+/* Define if you have the <netinet/in.h> header file.  */

+#undef HAVE_NETINET_IN_H

+

+/* Define if you have the <stdarg.h> header file.  */

+#define HAVE_STDARG_H	1

+

+/* Define if you have the <stdlib.h> header file.  */

+#define HAVE_STDLIB_H	1

+

+/* Define if you have the <sys/dir.h> header file.  */

+#undef HAVE_SYS_DIR_H

+

+/* Define if you have the <sys/mman.h> header file.  */

+#undef HAVE_SYS_MMAN_H

+

+/* Define if you have the <sys/ndir.h> header file.  */

+#undef HAVE_SYS_NDIR_H

+

+/* Define if you have the <sys/select.h> header file.  */

+#undef HAVE_SYS_SELECT_H

+

+/* Define if you have the <sys/socket.h> header file.  */

+#undef HAVE_SYS_SOCKET_H

+

+/* Define if you have the <sys/stat.h> header file.  */

+#undef HAVE_SYS_STAT_H

+

+/* Define if you have the <sys/time.h> header file.  */

+#undef HAVE_SYS_TIME_H

+

+/* Define if you have the <sys/types.h> header file.  */

+#undef HAVE_SYS_TYPES_H

+

+/* Define if you have the <time.h> header file.  */

+#define HAVE_TIME_H	1

+

+/* Define if you have the <unistd.h> header file.  */

+#define HAVE_UNISTD_H	1

+

+/* Define if you have the <zlib.h> header file.  */

+#undef HAVE_ZLIB_H

+

+/* Define if you have the inet library (-linet).  */

+#undef HAVE_LIBINET

+

+/* Define if you have the nsl library (-lnsl).  */

+#undef HAVE_LIBNSL

+

+/* Define if you have the socket library (-lsocket).  */

+#undef HAVE_LIBSOCKET

+

+/* Name of package */

+#undef PACKAGE

+

+/* Version number of package */

+#undef VERSION

+

diff --git a/xmlIO.c b/xmlIO.c
index dec8694d..ca8413d7 100644
--- a/xmlIO.c
+++ b/xmlIO.c
@@ -4,6 +4,8 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - for VMS, truncated name of long functions to under 32 char
  */
 
 #ifdef WIN32
@@ -42,6 +44,11 @@
 #include <libxml/nanoftp.h>
 #include <libxml/xmlerror.h>
 
+#ifdef VMS
+#define xmlRegisterDefaultInputCallbacks xmlRegisterDefInputCallbacks
+#define xmlRegisterDefaultOutputCallbacks xmlRegisterDefOutputCallbacks
+#endif
+
 /* #define VERBOSE_FAILURE */
 /* #define DEBUG_EXTERNAL_ENTITIES */
 /* #define DEBUG_INPUT */
@@ -655,7 +662,12 @@ xmlRegisterOutputCallbacks(xmlOutputMatchCallback match,
  * Registers the default compiled-in I/O handlers.
  */
 void
-xmlRegisterDefaultInputCallbacks(void) {
+#ifdef VMS
+xmlRegisterDefInputCallbacks
+#else
+xmlRegisterDefaultInputCallbacks
+#endif
+(void) {
     if (xmlInputCallbackInitialized)
 	return;
 
@@ -684,7 +696,12 @@ xmlRegisterDefaultInputCallbacks(void) {
  * Registers the default compiled-in I/O handlers.
  */
 void
-xmlRegisterDefaultOutputCallbacks(void) {
+#ifdef VMS
+xmlRegisterDefOutputCallbacks
+#else
+xmlRegisterDefaultOutputCallbacks
+#endif
+(void) {
     if (xmlOutputCallbackInitialized)
 	return;
 
@@ -873,7 +890,12 @@ xmlOutputBufferClose(xmlOutputBufferPtr out) {
  * Returns the new parser input or NULL
  */
 xmlParserInputBufferPtr
-xmlParserInputBufferCreateFilename(const char *URI, xmlCharEncoding enc) {
+#ifdef VMS
+xmlParserInputBufferCreateFname
+#else
+xmlParserInputBufferCreateFilename
+#endif
+(const char *URI, xmlCharEncoding enc) {
     xmlParserInputBufferPtr ret;
     int i;
     void *context = NULL;
diff --git a/xmlIO.h b/xmlIO.h
index ff0114d5..eaf4022a 100644
--- a/xmlIO.h
+++ b/xmlIO.h
@@ -4,6 +4,8 @@
  * See Copyright for the status of this software.
  *
  * Daniel.Veillard@w3.org
+ *
+ * 15 Nov 2000 ht - modified for VMS
  */
 
 #ifndef __XML_IO_H__
@@ -75,9 +77,17 @@ void	xmlRegisterDefaultInputCallbacks	(void);
 xmlParserInputBufferPtr
 	xmlAllocParserInputBuffer		(xmlCharEncoding enc);
 
+#ifdef VMS
+xmlParserInputBufferPtr
+	xmlParserInputBufferCreateFname		(const char *URI,
+                                                 xmlCharEncoding enc);
+#define xmlParserInputBufferCreateFilename xmlParserInputBufferCreateFname
+#else
 xmlParserInputBufferPtr
 	xmlParserInputBufferCreateFilename	(const char *URI,
                                                  xmlCharEncoding enc);
+#endif
+
 xmlParserInputBufferPtr
 	xmlParserInputBufferCreateFile		(FILE *file,
                                                  xmlCharEncoding enc);
diff --git a/xmllint.c b/xmllint.c
index e443a86f..099084b8 100644
--- a/xmllint.c
+++ b/xmllint.c
@@ -88,7 +88,13 @@ static char *encoding = NULL;
 static int xinclude = 0;
 #endif
 
+
+#ifdef VMS
+extern int xmlDoValidityCheckingDefaultVal;
+#define xmlDoValidityCheckingDefaultValue xmlDoValidityCheckingDefaultVal
+#else
 extern int xmlDoValidityCheckingDefaultValue;
+#endif
 extern int xmlGetWarningsDefaultValue;
 
 /************************************************************************
diff --git a/xpath.c b/xpath.c
index 2a1ad069..62fa15cf 100644
--- a/xpath.c
+++ b/xpath.c
@@ -11,6 +11,9 @@
  * See COPYRIGHT for the status of this software
  *
  * Author: Daniel.Veillard@w3.org
+ *
+ * 14 Nov 2000 ht - truncated declaration of xmlXPathEvalRelativeLocationPath
+ * for VMS
  */
 
 #ifdef WIN32
@@ -3983,7 +3986,12 @@ xmlXPathRoundFunction(xmlXPathParserContextPtr ctxt, int nargs) {
 void xmlXPathEvalExpr(xmlXPathParserContextPtr ctxt);
 void xmlXPathEvalPredicate(xmlXPathParserContextPtr ctxt);
 void xmlXPathEvalLocationPath(xmlXPathParserContextPtr ctxt);
+#ifdef VMS
+void xmlXPathEvalRelLocationPath(xmlXPathParserContextPtr ctxt);
+#define xmlXPathEvalRelativeLocationPath xmlXPathEvalRelLocationPath 
+#else 
 void xmlXPathEvalRelativeLocationPath(xmlXPathParserContextPtr ctxt);
+#endif
 
 /**
  * xmlXPathParseNCName:
@@ -5439,7 +5447,12 @@ eval_predicates:
  *
  */
 void
-xmlXPathEvalRelativeLocationPath(xmlXPathParserContextPtr ctxt) {
+#ifdef VMS
+xmlXPathEvalRelLocationPath
+#else
+xmlXPathEvalRelativeLocationPath
+#endif
+(xmlXPathParserContextPtr ctxt) {
     SKIP_BLANKS;
     if ((CUR == '/') && (NXT(1) == '/')) {
 	SKIP(2);