Marty Kuhrt's VMS updates

packages/vms/build_vms.com

@@ -32,8 +32,15 @@ $! 29-JAN-2004, MSK, moved logical defines into defines.com
 $!  6-FEB-2004, MSK, put in various SSL support bits
 $!  9-MAR-2004, MSK, the config-vms.h* files are now copied to the lib and
 $!                   src directories as config.h.
+$! 15-MAR-2004, MSK, All of the curlmsg*.* files have also been moved to 
+$!                   this build directory.  They will be copied to the src 
+$!                   directory before build.  The .msg file will be compiled 
+$!                   to get the .obj for messages, but the .h and .sdl files 
+$!                   are not automatically created since they partly rely on 
+$!                   the freeware SDL tool.
 $!
 $ on control_y then goto Common_Exit
+$ ctrl_y  = 1556 
 $ origdir = f$environment("DEFAULT")
 $ proc    = f$environment("PROCEDURE")
 $ thisdir = f$parse( proc,,,"DEVICE") + f$parse( proc,,,"DIRECTORY")
@@ -48,10 +55,15 @@ $ vo_l = "write sys$output"
 $ vo_o = "!"
 $!
 $ defines = thisdir + "defines.com"
-$ if f$search( defines) .eqs. "" 
-$ then
-$    write sys$output "%CURL-F-DEFFNF, cannot find defines.com procedure"
-$    exit %X18290 ! FNF
+$ if f$trnlnm( "curl_defines_done") .eqs. "" 
+$ then 
+$    if f$search( defines) .eqs. "" 
+$    then
+$       write sys$output "%CURL-F-DEFFNF, cannot find defines.com procedure"
+$       exit %X18290 ! FNF
+$    else
+$       @'defines'
+$    endif
 $ endif
 $ set def 'thisdir'
 $ cc_qual = "/define=HAVE_CONFIG_H=1/OBJ=OBJDIR:"
@@ -83,41 +95,30 @@ $!
 $ if ( openssl .eq. 1) .or. ( hpssl .eq. 1)
 $ then
 $    'vo_c' "%CURL-I-BLDSSL, building with SSL support"
-$    source_h = "CONFIG-VMS.H_WITH_SSL"
+$    config_h = "CONFIG-VMS.H_WITH_SSL"
 $ else
 $    'vo_c' "%CURL-I-BLDNOSSL, building without SSL support"
-$    source_h = "CONFIG-VMS.H_WITHOUT_SSL"
+$    config_h = "CONFIG-VMS.H_WITHOUT_SSL"
 $ endif
 $!
 $! Only do the copy if the source and destination files are different.
-$! Put this block into Set NoOn mode so that if the diff command triggers
-$! an error while error message reporting is turned off, then it won't 
-$! just exit the command procedure mysteriously.
 $!
-$ set noon
-$ set message/nof/noi/nos/not
-$ diff/out=nla0: 'source_h' [--.SRC]CONFIG.H
-$ status = $status
-$ set message/f/i/s/t
-$ if ( status .ne. %X006C8009) ! if status is not "no diff"
-$ then
-$    copy 'source_h' [--.SRC]CONFIG.H
-$    purge/nolog [--.SRC]CONFIG.H
-$ endif
-$ set message/nof/noi/nos/not
-$ diff/out=nla0: 'source_h' [--.LIB]CONFIG.H
-$ status = $status
-$ set message/f/i/s/t
-$ if ( status .ne. %X006C8009) ! if status is not "no diff"
-$ then
-$    copy 'source_h' [--.LIB]CONFIG.H
-$    purge/nolog [--.LIB]CONFIG.H
-$ endif
+$ call MoveIfDiff 'config_h' "[--.LIB]CONFIG.H"
+$ call MoveIfDiff 'config_h' "[--.SRC]CONFIG.H"
+$! call MoveIfDiff "SETUP.H" "[--.LIB]"
+$! call MoveIfDiff "SETUP.H" "[--.SRC]"
+$ call MoveIfDiff "CURLMSG.H" "[--.SRC]"
+$ call MoveIfDiff "CURLMSG.MSG" "[--.SRC]"
+$ call MoveIfDiff "CURLMSG.SDL" "[--.SRC]"
+$ call MoveIfDiff "CURLMSG_VMS.H" "[--.SRC]"
 $ on control_y then goto Common_Exit
 $!
 $ call build "[--.lib]" "*.c" "objdir:curllib.olb"
+$ if ($status .eq. ctrl_y) then goto Common_Exit
 $ call build "[--.src]" "*.c" "objdir:curlsrc.olb"
+$ if ($status .eq. ctrl_y) then goto Common_Exit
 $ call build "[--.src]" "*.msg" "objdir:curlsrc.olb"
+$ if ($status .eq. ctrl_y) then goto Common_Exit
 $ if ( openssl .eq. 1) .and. ( hpssl .eq. 0)
 $ then
 $    'vo_l' "%CURL-I-LINK_OSSL, linking with OpenSSL"
@@ -148,7 +149,7 @@ $! the directory passed in via P1 and put it in the object library named
 $! via P3
 $!
 $build:   subroutine
-$ on control_y then exit 2
+$ on control_y then return ctrl_y ! SS$_CONTROLY
 $ set noon
 $   set default 'p1'
 $   search = p2
@@ -168,7 +169,7 @@ $      then
 $         if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
 $         then
 $            call compile 'file'
-$            if .not. $status then exit $status
+$            if .not. $status then return $status
 $            lib/object 'p3' 'objfile'
 $         else
 $            'vo_o' "%CURL-I-OBJUTD, ", objfile, " is up to date"
@@ -176,12 +177,13 @@ $         endif
 $      else
 $         'vo_o' "%CURL-I-OBJDNE, ", file, " does not exist"
 $         call compile 'file'
-$         if .not. $status then exit $status
+$         if .not. $status then return $status
 $         lib/object 'p3' 'objfile'
 $      endif
 $   goto Loop
 $EndLoop:
 $   !purge
+$   on control_y then return ctrl_y ! SS$_CONTROLY
 $   set def 'origdir'
 $   endsubroutine   ! Build
 $!
@@ -189,7 +191,7 @@ $! Based on the file TYPE, do the right compile command.
 $! Only C and MSG supported.
 $!
 $compile:   subroutine
-$   on control_y then exit 2
+$   on control_y then return ctrl_y ! SS$_CONTROLY
 $   set noon
 $   file = p1
 $   qual = p2+p3+p4+p5+p6+p7+p8
@@ -199,8 +201,27 @@ $   cmd_msg = "MESSAGE "+msg_qual
 $   x = cmd_'typ'
 $   'vo_c' x," ",file
 $   'x' 'file'
+$   on control_y then return ctrl_y ! SS$_CONTROLY
 $   ENDSUBROUTINE   ! Compile
 $!
+$! Do a diff of the file specified in P1 with that in P2.  If different
+$! copy P1 to P2.  This also covers if P2 doesn't exist, but not if P2
+$! is an invalid filespec.
+$!
+$MoveIfDiff:  subroutine
+$   set NoOn
+$   set message/nof/noi/nos/not
+$   diff/out=nla0: 'p1' 'p2'
+$   status = $status
+$   set message/f/i/s/t
+$   if ( status .ne. %X006C8009) ! if status is not "no diff"
+$   then
+$      copy 'p1' 'p2'
+$      purge/nolog 'p2'
+$   endif
+$   on control_y then return ctrl_y ! SS$_CONTROLY
+$   ENDSUBROUTINE   ! MoveIfDiff
+$!
 $Common_Exit:
 $   set default 'origdir'
 $   exit

packages/vms/curlmsg.h

@@ -0,0 +1,92 @@
+/********************************************************************************************************************************/
+/* Created:  9-MAR-2004 14:07:55 by OpenVMS SDL EV1-60     */
+/* Source:   9-MAR-2004 14:07:27 SYS$SYSDEVICE:[MARTY.CURL.CURL-7_11_1-PRE1.SRC] */
+/********************************************************************************************************************************/
+/*** MODULE $CURDEF ***/
+#pragma __member_alignment __save
+#pragma __nomember_alignment
+/*                                                                          */
+/* This SDL File Generated by VAX-11 Message V04-00 on  9-MAR-2004 14:07:27.56 */
+/*                                                                          */
+/*                                                                          */
+/* THESE VMS ERROR CODES ARE GENERATED BY TAKING APART THE CURL.H           */
+/* FILE AND PUTTING ALL THE CURLE_* ENUM STUFF INTO THIS FILE,              */
+/* CURLMSG.MSG.  AN .SDL FILE IS CREATED FROM THIS FILE WITH                */
+/* MESSAGE/SDL.  THE .H FILE IS CREATED USING THE FREEWARE SDL TOOL         */
+/* AGAINST THE .SDL FILE.                                                   */
+/*                                                                          */
+/* WITH THE EXCEPTION OF CURLE_OK, ALL OF THE MESSAGES ARE AT               */
+/* THE ERROR SEVERITY LEVEL.  WITH THE EXCEPTION OF                         */
+/* FTP_USER_PWD_INCORRECT, WHICH IS A SHORTENED FORM OF                     */
+/* FTP_USER_PASSWORD_INCORRECT, THESE ARE THE SAME NAMES AS THE             */
+/* CURLE_ ONES IN INCLUDE/CURL.H                                            */
+/*                                                                          */
+#define CURL_FACILITY 3841
+#define CURL_OK 251756553
+#define CURL_UNSUPPORTED_PROTOCOL 251756562
+#define CURL_FAILED_INIT 251756570
+#define CURL_URL_MALFORMAT 251756578
+#define CURL_URL_MALFORMAT_USER 251756586
+#define CURL_COULDNT_RESOLVE_PROXY 251756594
+#define CURL_COULDNT_RESOLVE_HOST 251756602
+#define CURL_COULDNT_CONNECT 251756610
+#define CURL_FTP_WEIRD_SERVER_REPLY 251756618
+#define CURL_FTP_ACCESS_DENIED 251756626
+#define CURL_FTP_USER_PWD_INCORRECT 251756634
+#define CURL_FTP_WEIRD_PASS_REPLY 251756642
+#define CURL_FTP_WEIRD_USER_REPLY 251756650
+#define CURL_FTP_WEIRD_PASV_REPLY 251756658
+#define CURL_FTP_WEIRD_227_FORMAT 251756666
+#define CURL_FTP_CANT_GET_HOST 251756674
+#define CURL_FTP_CANT_RECONNECT 251756682
+#define CURL_FTP_COULDNT_SET_BINARY 251756690
+#define CURL_PARTIAL_FILE 251756698
+#define CURL_FTP_COULDNT_RETR_FILE 251756706
+#define CURL_FTP_WRITE_ERROR 251756714
+#define CURL_FTP_QUOTE_ERROR 251756722
+#define CURL_HTTP_RETURNED_ERROR 251756730
+#define CURL_WRITE_ERROR 251756738
+#define CURL_MALFORMAT_USER 251756746
+#define CURL_FTP_COULDNT_STOR_FILE 251756754
+#define CURL_READ_ERROR 251756762
+#define CURL_OUT_OF_MEMORY 251756770
+#define CURL_OPERATION_TIMEOUTED 251756778
+#define CURL_FTP_COULDNT_SET_ASCII 251756786
+#define CURL_FTP_PORT_FAILED 251756794
+#define CURL_FTP_COULDNT_USE_REST 251756802
+#define CURL_FTP_COULDNT_GET_SIZE 251756810
+#define CURL_HTTP_RANGE_ERROR 251756818
+#define CURL_HTTP_POST_ERROR 251756826
+#define CURL_SSL_CONNECT_ERROR 251756834
+#define CURL_BAD_DOWNLOAD_RESUME 251756842
+#define CURL_FILE_COULDNT_READ_FILE 251756850
+#define CURL_LDAP_CANNOT_BIND 251756858
+#define CURL_LDAP_SEARCH_FAILED 251756866
+#define CURL_LIBRARY_NOT_FOUND 251756874
+#define CURL_FUNCTION_NOT_FOUND 251756882
+#define CURL_ABORTED_BY_CALLBACK 251756890
+#define CURL_BAD_FUNCTION_ARGUMENT 251756898
+#define CURL_BAD_CALLING_ORDER 251756906
+#define CURL_HTTP_PORT_FAILED 251756914
+#define CURL_BAD_PASSWORD_ENTERED 251756922
+#define CURL_TOO_MANY_REDIRECTS 251756930
+#define CURL_UNKNOWN_TELNET_OPTION 251756938
+#define CURL_TELNET_OPTION_SYNTAX 251756946
+#define CURL_OBSOLETE 251756954
+#define CURL_SSL_PEER_CERTIFICATE 251756962
+#define CURL_GOT_NOTHING 251756970
+#define CURL_SSL_ENGINE_NOTFOUND 251756978
+#define CURL_SSL_ENGINE_SETFAILED 251756986
+#define CURL_SEND_ERROR 251756994
+#define CURL_RECV_ERROR 251757002
+#define CURL_SHARE_IN_USE 251757010
+#define CURL_SSL_CERTPROBLEM 251757018
+#define CURL_SSL_CIPHER 251757026
+#define CURL_SSL_CACERT 251757034
+#define CURL_BAD_CONTENT_ENCODING 251757042
+#define CURL_LDAP_INVALID_URL 251757050
+#define CURL_FILESIZE_EXCEEDED 251757058
+#define CURL_FTP_SSL_FAILED 251757066
+#define CURL_CURL_LAST 251757074
+ 
+#pragma __member_alignment __restore

packages/vms/curlmsg.msg

@@ -0,0 +1,87 @@
+! 
+! These VMS error codes are generated by taking apart the curl.h 
+! file and putting all the CURLE_* enum stuff into this file, 
+! CURLMSG.MSG.  An .SDL file is created from this file with 
+! MESSAGE/SDL.  The .H file is created using the freeware SDL tool
+! against the .SDL file. 
+!
+! With the exception of CURLE_OK, all of the messages are at 
+! the error severity level.  With the exception of 
+! FTP_USER_PWD_INCORRECT, which is a shortened form of 
+! FTP_USER_PASSWORD_INCORRECT, these are the same names as the 
+! CURLE_ ones in include/curl.h
+! 
+.TITLE		CURLMSG Message files
+.FACILITY	CURL,1793	/PREFIX=CURL_
+.BASE		1
+.SEVERITY	SUCCESS
+OK		<normal successful completion>
+
+.SEVERITY	ERROR
+UNSUPPORTED_PROTOCOL	<unsupported protocol>
+FAILED_INIT		<failed init>
+URL_MALFORMAT		<URL malformat>
+URL_MALFORMAT_USER	<URL malformat user>
+COULDNT_RESOLVE_PROXY	<could not resolve proxy>
+COULDNT_RESOLVE_HOST	<could not resolve host>
+COULDNT_CONNECT		<could not connect>
+FTP_WEIRD_SERVER_REPLY	<FTP weird server reply>
+FTP_ACCESS_DENIED	<FTP access denied>
+FTP_USER_PWD_INCORRECT	<FTP user password incorrect>
+FTP_WEIRD_PASS_REPLY	<FTP weird PASS reply>
+FTP_WEIRD_USER_REPLY	<FTP weird USER reply>
+FTP_WEIRD_PASV_REPLY	<FTP weird PASV reply>
+FTP_WEIRD_227_FORMAT	<FTP weird 227 format>
+FTP_CANT_GET_HOST	<FTP can not get host>
+FTP_CANT_RECONNECT	<FTP can not reconnect>
+FTP_COULDNT_SET_BINARY	<FTP could not set binary>
+PARTIAL_FILE		<partial file>
+FTP_COULDNT_RETR_FILE	<FTP could not RETR file>
+FTP_WRITE_ERROR		<FTP write error>
+FTP_QUOTE_ERROR		<FTP quote error>
+HTTP_RETURNED_ERROR	<HTTP returned error>
+WRITE_ERROR		<write error>
+MALFORMAT_USER		<user name is illegally specified>
+FTP_COULDNT_STOR_FILE	<FTP could not STOR file>
+READ_ERROR		<read error, could not open/read file>
+OUT_OF_MEMORY		<out of memory>
+OPERATION_TIMEOUTED	<operation timed out, timeout time was reached>
+FTP_COULDNT_SET_ASCII	<FTP could not set ASCII, TYPE A failed>
+FTP_PORT_FAILED		<FTP PORT operation failed>
+FTP_COULDNT_USE_REST	<FTP REST command failed>
+FTP_COULDNT_GET_SIZE	<FTP SIZE command failed>
+HTTP_RANGE_ERROR	<HTTP RANGE error>
+HTTP_POST_ERROR		<HTTP POST error>
+SSL_CONNECT_ERROR	<SSL connect error>
+BAD_DOWNLOAD_RESUME	<bad download resume>
+FILE_COULDNT_READ_FILE	<FILE could not read file>
+LDAP_CANNOT_BIND	<LDAP cannot bind>
+LDAP_SEARCH_FAILED	<LDAP search failed>
+LIBRARY_NOT_FOUND	<library not found>
+FUNCTION_NOT_FOUND	<function not found>
+ABORTED_BY_CALLBACK	<aborted by callback>
+BAD_FUNCTION_ARGUMENT	<bad function argument>
+BAD_CALLING_ORDER	<bad calling order>
+HTTP_PORT_FAILED	<HTTP port failed>
+BAD_PASSWORD_ENTERED	<bad password entered, my_getpass() returns fail>
+TOO_MANY_REDIRECTS	<too many redirects>
+UNKNOWN_TELNET_OPTION	<unknown TELNET option>
+TELNET_OPTION_SYNTAX	<malformed TELNET option syntax>
+OBSOLETE		<obsolete, removed after 7.7.3>
+SSL_PEER_CERTIFICATE	<SSL peer certificate was not OK>
+GOT_NOTHING		<got nothing>
+SSL_ENGINE_NOTFOUND	<SSL crypto engine not found>
+SSL_ENGINE_SETFAILED	<SSL can not set SSL crypto engine as default>
+SEND_ERROR		<SEND error, failure sending network data>
+RECV_ERROR		<RECV error, failure receiving network data>
+SHARE_IN_USE		<share is in use>
+SSL_CERTPROBLEM		<SSL problem with the local certificate>
+SSL_CIPHER              <SSL CIPHER, could not use specified cipher>
+SSL_CACERT		<SSL CACERT, problem with the CA cert (path?)>
+BAD_CONTENT_ENCODING	<unrecognized transfer encoding>
+LDAP_INVALID_URL	<LDAP invalid url>
+FILESIZE_EXCEEDED	<maximum file size exceeded>
+FTP_SSL_FAILED		<requested FTP SSL level failed>
+CURL_LAST		<CURLMSG.MSG is out of sync with the source code>
+
+.END

packages/vms/curlmsg.sdl

@@ -0,0 +1,90 @@
+
+ 
+ MODULE $CURDEF;
+ 
+/*
+/* This SDL File Generated by VAX-11 Message V04-00 on  9-MAR-2004 14:07:27.56
+/*
+/* 
+/* THESE VMS ERROR CODES ARE GENERATED BY TAKING APART THE CURL.H 
+/* FILE AND PUTTING ALL THE CURLE_* ENUM STUFF INTO THIS FILE, 
+/* CURLMSG.MSG.  AN .SDL FILE IS CREATED FROM THIS FILE WITH 
+/* MESSAGE/SDL.  THE .H FILE IS CREATED USING THE FREEWARE SDL TOOL
+/* AGAINST THE .SDL FILE. 
+/*
+/* WITH THE EXCEPTION OF CURLE_OK, ALL OF THE MESSAGES ARE AT 
+/* THE ERROR SEVERITY LEVEL.  WITH THE EXCEPTION OF 
+/* FTP_USER_PWD_INCORRECT, WHICH IS A SHORTENED FORM OF 
+/* FTP_USER_PASSWORD_INCORRECT, THESE ARE THE SAME NAMES AS THE 
+/* CURLE_ ONES IN INCLUDE/CURL.H
+/* 
+    CONSTANT
+        "FACILITY"     EQUALS 3841       PREFIX "CURL" TAG ""
+       ,"OK"           EQUALS %X0F018009     PREFIX "CURL" TAG ""
+       ,"UNSUPPORTED_PROTOCOL" EQUALS %X0F018012 PREFIX "CURL" TAG ""
+       ,"FAILED_INIT"  EQUALS %X0F01801A     PREFIX "CURL" TAG ""
+       ,"URL_MALFORMAT" EQUALS %X0F018022    PREFIX "CURL" TAG ""
+       ,"URL_MALFORMAT_USER" EQUALS %X0F01802A PREFIX "CURL" TAG ""
+       ,"COULDNT_RESOLVE_PROXY" EQUALS %X0F018032 PREFIX "CURL" TAG ""
+       ,"COULDNT_RESOLVE_HOST" EQUALS %X0F01803A PREFIX "CURL" TAG ""
+       ,"COULDNT_CONNECT" EQUALS %X0F018042  PREFIX "CURL" TAG ""
+       ,"FTP_WEIRD_SERVER_REPLY" EQUALS %X0F01804A PREFIX "CURL" TAG ""
+       ,"FTP_ACCESS_DENIED" EQUALS %X0F018052 PREFIX "CURL" TAG ""
+       ,"FTP_USER_PWD_INCORRECT" EQUALS %X0F01805A PREFIX "CURL" TAG ""
+       ,"FTP_WEIRD_PASS_REPLY" EQUALS %X0F018062 PREFIX "CURL" TAG ""
+       ,"FTP_WEIRD_USER_REPLY" EQUALS %X0F01806A PREFIX "CURL" TAG ""
+       ,"FTP_WEIRD_PASV_REPLY" EQUALS %X0F018072 PREFIX "CURL" TAG ""
+       ,"FTP_WEIRD_227_FORMAT" EQUALS %X0F01807A PREFIX "CURL" TAG ""
+       ,"FTP_CANT_GET_HOST" EQUALS %X0F018082 PREFIX "CURL" TAG ""
+       ,"FTP_CANT_RECONNECT" EQUALS %X0F01808A PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_SET_BINARY" EQUALS %X0F018092 PREFIX "CURL" TAG ""
+       ,"PARTIAL_FILE" EQUALS %X0F01809A     PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_RETR_FILE" EQUALS %X0F0180A2 PREFIX "CURL" TAG ""
+       ,"FTP_WRITE_ERROR" EQUALS %X0F0180AA  PREFIX "CURL" TAG ""
+       ,"FTP_QUOTE_ERROR" EQUALS %X0F0180B2  PREFIX "CURL" TAG ""
+       ,"HTTP_RETURNED_ERROR" EQUALS %X0F0180BA PREFIX "CURL" TAG ""
+       ,"WRITE_ERROR"  EQUALS %X0F0180C2     PREFIX "CURL" TAG ""
+       ,"MALFORMAT_USER" EQUALS %X0F0180CA   PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_STOR_FILE" EQUALS %X0F0180D2 PREFIX "CURL" TAG ""
+       ,"READ_ERROR"   EQUALS %X0F0180DA     PREFIX "CURL" TAG ""
+       ,"OUT_OF_MEMORY" EQUALS %X0F0180E2    PREFIX "CURL" TAG ""
+       ,"OPERATION_TIMEOUTED" EQUALS %X0F0180EA PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_SET_ASCII" EQUALS %X0F0180F2 PREFIX "CURL" TAG ""
+       ,"FTP_PORT_FAILED" EQUALS %X0F0180FA  PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_USE_REST" EQUALS %X0F018102 PREFIX "CURL" TAG ""
+       ,"FTP_COULDNT_GET_SIZE" EQUALS %X0F01810A PREFIX "CURL" TAG ""
+       ,"HTTP_RANGE_ERROR" EQUALS %X0F018112 PREFIX "CURL" TAG ""
+       ,"HTTP_POST_ERROR" EQUALS %X0F01811A  PREFIX "CURL" TAG ""
+       ,"SSL_CONNECT_ERROR" EQUALS %X0F018122 PREFIX "CURL" TAG ""
+       ,"BAD_DOWNLOAD_RESUME" EQUALS %X0F01812A PREFIX "CURL" TAG ""
+       ,"FILE_COULDNT_READ_FILE" EQUALS %X0F018132 PREFIX "CURL" TAG ""
+       ,"LDAP_CANNOT_BIND" EQUALS %X0F01813A PREFIX "CURL" TAG ""
+       ,"LDAP_SEARCH_FAILED" EQUALS %X0F018142 PREFIX "CURL" TAG ""
+       ,"LIBRARY_NOT_FOUND" EQUALS %X0F01814A PREFIX "CURL" TAG ""
+       ,"FUNCTION_NOT_FOUND" EQUALS %X0F018152 PREFIX "CURL" TAG ""
+       ,"ABORTED_BY_CALLBACK" EQUALS %X0F01815A PREFIX "CURL" TAG ""
+       ,"BAD_FUNCTION_ARGUMENT" EQUALS %X0F018162 PREFIX "CURL" TAG ""
+       ,"BAD_CALLING_ORDER" EQUALS %X0F01816A PREFIX "CURL" TAG ""
+       ,"HTTP_PORT_FAILED" EQUALS %X0F018172 PREFIX "CURL" TAG ""
+       ,"BAD_PASSWORD_ENTERED" EQUALS %X0F01817A PREFIX "CURL" TAG ""
+       ,"TOO_MANY_REDIRECTS" EQUALS %X0F018182 PREFIX "CURL" TAG ""
+       ,"UNKNOWN_TELNET_OPTION" EQUALS %X0F01818A PREFIX "CURL" TAG ""
+       ,"TELNET_OPTION_SYNTAX" EQUALS %X0F018192 PREFIX "CURL" TAG ""
+       ,"OBSOLETE"     EQUALS %X0F01819A     PREFIX "CURL" TAG ""
+       ,"SSL_PEER_CERTIFICATE" EQUALS %X0F0181A2 PREFIX "CURL" TAG ""
+       ,"GOT_NOTHING"  EQUALS %X0F0181AA     PREFIX "CURL" TAG ""
+       ,"SSL_ENGINE_NOTFOUND" EQUALS %X0F0181B2 PREFIX "CURL" TAG ""
+       ,"SSL_ENGINE_SETFAILED" EQUALS %X0F0181BA PREFIX "CURL" TAG ""
+       ,"SEND_ERROR"   EQUALS %X0F0181C2     PREFIX "CURL" TAG ""
+       ,"RECV_ERROR"   EQUALS %X0F0181CA     PREFIX "CURL" TAG ""
+       ,"SHARE_IN_USE" EQUALS %X0F0181D2     PREFIX "CURL" TAG ""
+       ,"SSL_CERTPROBLEM" EQUALS %X0F0181DA  PREFIX "CURL" TAG ""
+       ,"SSL_CIPHER"   EQUALS %X0F0181E2     PREFIX "CURL" TAG ""
+       ,"SSL_CACERT"   EQUALS %X0F0181EA     PREFIX "CURL" TAG ""
+       ,"BAD_CONTENT_ENCODING" EQUALS %X0F0181F2 PREFIX "CURL" TAG ""
+       ,"LDAP_INVALID_URL" EQUALS %X0F0181FA PREFIX "CURL" TAG ""
+       ,"FILESIZE_EXCEEDED" EQUALS %X0F018202 PREFIX "CURL" TAG ""
+       ,"FTP_SSL_FAILED" EQUALS %X0F01820A   PREFIX "CURL" TAG ""
+       ,"CURL_LAST"    EQUALS %X0F018212     PREFIX "CURL" TAG ""
+       ;
+ END_MODULE;

packages/vms/curlmsg_vms.h

@@ -0,0 +1,91 @@
+/* CURLMSG_VMS.H                                                            */
+/* This defines the necessary bits to change CURLE_* error codes to VMS     */
+/* style error codes.  CURLMSG.H is built from CURLMSG.SDL which is built   */
+/* from CURLMSG.MSG.  The vms_cond array is used to return VMS errors by    */
+/* putting the VMS error codes into the array offset based on CURLE_* code. */
+/*                                                                          */
+#include "curlmsg.h"
+int       vms_show = 0;
+/*
+#define   FAC_CURL      0xC01
+#define   FAC_SYSTEM    0
+#define   MSG_NORMAL    0
+*/
+#define   VMS_STS(c,f,e,s) (((c&0xF)<<28)|((f&0xFFF)<<16)|((e&0x1FFF)<3)|(s&7))
+#define   VMSSTS_HIDE   VMS_STS(1,0,0,0)
+/*
+#define   SEV_WARNING   0
+#define   SEV_SUCCESS   1
+#define   SEV_ERROR     2
+#define   SEV_INFO      3   
+#define   SEV_FATAL     4
+*/
+long vms_cond[] = 
+        {
+        CURL_OK,
+        CURL_UNSUPPORTED_PROTOCOL,
+        CURL_FAILED_INIT,
+        CURL_URL_MALFORMAT,
+        CURL_URL_MALFORMAT_USER,
+        CURL_COULDNT_RESOLVE_PROXY,
+        CURL_COULDNT_RESOLVE_HOST,
+        CURL_COULDNT_CONNECT,
+        CURL_FTP_WEIRD_SERVER_REPLY,
+        CURL_FTP_ACCESS_DENIED,
+        CURL_FTP_USER_PWD_INCORRECT,
+        CURL_FTP_WEIRD_PASS_REPLY,
+        CURL_FTP_WEIRD_USER_REPLY,
+        CURL_FTP_WEIRD_PASV_REPLY,
+        CURL_FTP_WEIRD_227_FORMAT,
+        CURL_FTP_CANT_GET_HOST,
+        CURL_FTP_CANT_RECONNECT,
+        CURL_FTP_COULDNT_SET_BINARY,
+        CURL_PARTIAL_FILE,
+        CURL_FTP_COULDNT_RETR_FILE,
+        CURL_FTP_WRITE_ERROR,
+        CURL_FTP_QUOTE_ERROR,
+        CURL_HTTP_RETURNED_ERROR,
+        CURL_WRITE_ERROR,
+        CURL_MALFORMAT_USER,
+        CURL_FTP_COULDNT_STOR_FILE,
+        CURL_READ_ERROR,
+        CURL_OUT_OF_MEMORY,
+        CURL_OPERATION_TIMEOUTED,
+        CURL_FTP_COULDNT_SET_ASCII,
+        CURL_FTP_PORT_FAILED,
+        CURL_FTP_COULDNT_USE_REST,
+        CURL_FTP_COULDNT_GET_SIZE,
+        CURL_HTTP_RANGE_ERROR,
+        CURL_HTTP_POST_ERROR,
+        CURL_SSL_CONNECT_ERROR,
+        CURL_BAD_DOWNLOAD_RESUME,
+        CURL_FILE_COULDNT_READ_FILE,
+        CURL_LDAP_CANNOT_BIND,
+        CURL_LDAP_SEARCH_FAILED,
+        CURL_LIBRARY_NOT_FOUND,
+        CURL_FUNCTION_NOT_FOUND,
+        CURL_ABORTED_BY_CALLBACK,
+        CURL_BAD_FUNCTION_ARGUMENT,
+        CURL_BAD_CALLING_ORDER,
+        CURL_HTTP_PORT_FAILED,
+        CURL_BAD_PASSWORD_ENTERED,
+        CURL_TOO_MANY_REDIRECTS,
+        CURL_UNKNOWN_TELNET_OPTION,
+        CURL_TELNET_OPTION_SYNTAX,
+        CURL_OBSOLETE,
+        CURL_SSL_PEER_CERTIFICATE,
+        CURL_GOT_NOTHING,
+        CURL_SSL_ENGINE_NOTFOUND,
+        CURL_SSL_ENGINE_SETFAILED,
+        CURL_SEND_ERROR,
+        CURL_RECV_ERROR,
+        CURL_SHARE_IN_USE,
+        CURL_SSL_CERTPROBLEM,
+        CURL_SSL_CIPHER,
+        CURL_SSL_CACERT,
+        CURL_BAD_CONTENT_ENCODING,
+        CURL_LDAP_INVALID_URL,
+        CURL_FILESIZE_EXCEEDED,
+        CURL_FTP_SSL_FAILED,
+        CURL_CURL_LAST
+        };