Marty Kuhrt's VMS updates

This commit is contained in:
Daniel Stenberg 2004-03-21 22:38:01 +00:00
parent 67fca4cb01
commit 20b76e09e3
13 changed files with 413 additions and 32 deletions

Binary file not shown.

View File

@ -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

Binary file not shown.

92
packages/vms/curlmsg.h Normal file
View File

@ -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

87
packages/vms/curlmsg.msg Normal file
View File

@ -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

90
packages/vms/curlmsg.sdl Normal file
View File

@ -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;

View File

@ -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
};

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.