4:01 p.m.
User: stephent
Date: 05/11/26 17:01:13
Added: packages/unsupported/stephen/curl Makefile.in.in
configure.ac curl-tests.el curl.el curl_api.c
curl_api.h install-sh
Log:
Import curl module.
Revision Changes Path
1.1 XEmacs/packages/unsupported/stephen/curl/Makefile.in.in
Index: Makefile.in.in
===================================================================
## Makefile for the sample module in XEmacs.
## Copyright (C) 2002 Jerry James.
## This file is part of XEmacs.
## XEmacs is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by the
## Free Software Foundation; either version 2, or (at your option) any
## later version.
## XEmacs is distributed in the hope that it will be useful, but WITHOUT
## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
## for more details.
## You should have received a copy of the GNU General Public License
## along with XEmacs; see the file COPYING. If not, write to
## the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
## Boston, MA 02111-1307, USA.
## Synched up with: Not synched with FSF.
## This is more complicated than would normally be the case, as this makefile
## has been tailored to work both inside and independently of the XEmacs
## source tree, and to support both module and non-module building inside the
## source tree.
### Specialize this part for your module
MODNAME=curl_api
MODVER=0.0.1
MODTITLE="Interface to libcurl for XEmacs"
LDFLAGS=＠LDFLAGS＠ ＠curl_libs＠
SRCS=$(MODNAME).c
### You should not need to modify anything below this line
SHELL=/bin/sh
RM=rm -f
PROGNAME=＠PROGNAME＠
CFLAGS=＠CFLAGS＠
INSTALL=＠INSTALL＠
version=＠version＠
prefix=＠prefix＠
exec_prefix=＠exec_prefix＠
libdir=＠libdir＠
instvardir=＠instvardir＠
configuration=＠configuration＠
moduledir=＠moduledir＠
with_modules=＠with_modules＠
srcdir=＠srcdir＠
VPATH=＠srcdir＠
SRC_SRCS=$(SRCS:%=$(srcdir)/%)
OBJS=$(SRCS:.c=.o)
CC=＠MOD_CC＠
MODARCHDIR=＠MODARCHDIR＠
MAKE_DOCFILE=＠MAKE_DOCFILE＠
MODCFLAGS=＠MODCFLAGS＠
INSTALLPATH=＠INSTALLPATH＠
INSTALL_PROGRAM=＠MOD_INSTALL_PROGRAM＠
OBJECT_TO_BUILD=＠OBJECT_TO_BUILD＠
.PHONY: clean distclean install
all: $(OBJECT_TO_BUILD)
.c.o:
$(CC) $(MODCFLAGS) -c $<
$(MODNAME).ell: $(OBJS) $(MODNAME)_i.o
$(CC) --mode=link --mod-output=$＠ $(OBJS) $(MODNAME)_i.o $(LDFLAGS)
$(MODNAME)_i.c: $(SRCS)
ELLMAKEDOC=$(MAKE_DOCFILE) $(CC) --mode=init --mod-output=$＠ \
--mod-name=$(MODNAME) --mod-version=$(MODVER) \
--mod-title=$(MODTITLE) $(SRC_SRCS)
clean:
$(RM) $(MODNAME).ell $(OBJS) $(MODNAME)_i.* *~
distclean: clean
$(RM) Makefile config.* configure
install: $(OBJECT_TO_BUILD)
$(INSTALL_PROGRAM) $< $(INSTALLPATH)
1.1 XEmacs/packages/unsupported/stephen/curl/configure.ac
Index: configure.ac
===================================================================
# Process this file with autoconf to produce a configure script.
# This is only used for independent module building.
AC_INIT([libcurl API module], [1.0], [xemacs-beta(a)xemacs.org])
AC_PREREQ(2.53)
AC_REVISION($Revision: 1.1 $)
AC_COPYRIGHT([Configuration script for the curl_api module.
Copyright (C) 2002 Jerry James.
Copyright (C) 2005 Free Software Foundation, Inc.
This file is part of XEmacs.
XEmacs is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your
option) any later version.
XEmacs is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with XEmacs; see the file COPYING. If not, write to the Free
Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA.])
AC_CONFIG_SRCDIR([curl_api.c])
AC_PROG_CC
AC_PROG_INSTALL
AC_SUBST(CFLAGS)
AC_SUBST(LDFLAGS)
# Find ELLCC
AC_ARG_VAR([ELLCC], [The path to the ellcc module compiler])
AC_PATH_PROG([ELLCC], [ellcc], ["FAIL"])
AS_IF([test "$ELLCC" = "FAIL"], [AS_ERROR([Cannot find ellcc])])
# Insert autoconf macros here to find the headers, libraries, other
# programs, etc. needed by your module. If other libraries will be linked
# with your module, then after detecting them, use a line of this form last:
AC_SUBST(sample_libs, "$LIBS")
# This part should appear unchanged in every module configure.ac
AC_SUBST(PROGNAME, "module")
AC_SUBST(MOD_CC, "＠ELLCC＠")
AC_SUBST(MODARCHDIR, "\$(shell ＠ELLCC＠ --mod-archdir)")
AC_SUBST(MAKE_DOCFILE, "\$(MODARCHDIR)/make-docfile")
AC_SUBST(MODCFLAGS, "\$(CFLAGS) --mode=compile --mod-output=\$＠
-I\$(MODARCHDIR)/include")
AC_SUBST(INSTALLPATH, "\$(shell ＠ELLCC＠ --mod-site-location)")
AC_SUBST(MOD_INSTALL_PROGRAM, "＠INSTALL_PROGRAM＠")
AC_SUBST(OBJECT_TO_BUILD, "\$(MODNAME).ell")
AC_CONFIG_FILES([Makefile.in Makefile])
AC_OUTPUT
1.1 XEmacs/packages/unsupported/stephen/curl/curl-tests.el
Index: curl-tests.el
===================================================================
;; this file expects to be run from $blddir
(require 'curl (expand-file-name "modules/curl/curl"))
(setq handle
(curl-make-url-handle "http://turnbull.sk.tsukuba.ac.jp/index.html"))
(curl-easy-setopt "URL" "http://curl.haxx.se/doc/copyright.html"
handle)
(curl-easy-perform handle)
1.1 XEmacs/packages/unsupported/stephen/curl/curl.el
Index: curl.el
===================================================================
;;; curl.el --- utilities for use with the curl_api module
;; Copyright (C) 2005 Stephen J. Turnbull <stephen(a)xemacs.org>
;; Copyright (C) 1998 - 2005, Daniel Stenberg, <daniel(a)haxx.se>, et al.
;; All rights reserved, except as expressly indicated below.
;; This program is not considered part of XEmacs.
;; You may use, copy, modify, and distribute this software under the terms
;; of the GNU General Public License, version 2 or later at your option.
;; Author: Stephen J. Turnbull <stephen(a)xemacs.org>
;; Creation-Date: 2005-11-24
(require 'curl-api "curl/curl_api")
;; Version information from the cURL I built the first version from.
;; This should be fixed to get the information at build time.
(put 'curl-api 'libcurl-version "7.15.0")
(put 'curl-api 'libcurl_version_major 7)
(put 'curl-api 'libcurl_version_minor 15)
(put 'curl-api 'libcurl_version_patch 0)
;; This is the numeric version of the libcurl version number, meant for easier
;; parsing and comparions by programs. The LIBCURL_VERSION_NUM define will
;; always follow this syntax:
;; 0xXXYYZZ
;; Where XX, YY and ZZ are the main version, release and patch numbers in
;; hexadecimal (using 8 bits each). All three numbers are always represented
;; using two digits. 1.2 would appear as "0x010200" while version 9.11.7
;; appears as "0x090b07".
;; This 6-digit (24 bits) hexadecimal number does not show pre-release number,
;; and it is always a greater number in a more recent release. It makes
;; comparisons with greater than and less than work.
;; #define LIBCURL_VERSION_NUM ((LIBCURL_VERSION_MAJOR << 16) | \
;; (LIBCURL_VERSION_MINOR << 8) | \
;; LIBCURL_VERSION_PATCH)
;; **** various includes and system-specific conditional code omitted ****
;; struct curl_httppost {
;; struct curl_httppost *next; /* next entry in the list */
;; char *name; /* pointer to allocated name */
;; long namelength; /* length of name length */
;; char *contents; /* pointer to allocated data contents */
;; long contentslength; /* length of contents field */
;; char *buffer; /* pointer to allocated buffer contents */
;; long bufferlength; /* length of buffer field */
;; char *contenttype; /* Content-Type */
;; struct curl_slist* contentheader; /* list of extra headers for this form */
;; struct curl_httppost *more; /* if one field name has more than one
;; file, this link should link to following
;; files */
;; long flags; /* as defined below */
;; #define HTTPPOST_FILENAME (1<<0) /* specified content is a file name */
;; #define HTTPPOST_READFILE (1<<1) /* specified content is a file name */
;; #define HTTPPOST_PTRNAME (1<<2) /* name is only stored pointer
;; do not free in formfree */
;; #define HTTPPOST_PTRCONTENTS (1<<3) /* contents is only stored pointer
;; do not free in formfree */
;; #define HTTPPOST_BUFFER (1<<4) /* upload file from buffer */
;; #define HTTPPOST_PTRBUFFER (1<<5) /* upload file from pointer contents */
;;
;; char *showfilename; /* The file name to show. If not set, the
;; actual file name will be used (if this
;; is a file part) */
;; };
;;
;; typedef int (*curl_progress_callback)(void *clientp,
;; double dltotal,
;; double dlnow,
;; double ultotal,
;; double ulnow);
;;
;; /* Tests have proven that 20K is a very bad buffer size for uploads on
;; Windows, while 16K for some odd reason performed a lot better. */
;; #define CURL_MAX_WRITE_SIZE 16384
;;
;; typedef size_t (*curl_write_callback)(char *buffer,
;; size_t size,
;; size_t nitems,
;; void *outstream);
;;
;; /* This is a return code for the read callback that, when returned, will
;; signal libcurl to immediately abort the current transfer. */
;; #define CURL_READFUNC_ABORT 0x10000000
;; typedef size_t (*curl_read_callback)(char *buffer,
;; size_t size,
;; size_t nitems,
;; void *instream);
;;
;;
;; #ifndef CURL_NO_OLDIES
;; /* not used since 7.10.8, will be removed in a future release */
;; typedef int (*curl_passwd_callback)(void *clientp,
;; const char *prompt,
;; char *buffer,
;; int buflen);
;; #endif
;;
;; typedef enum {
;; CURLIOE_OK, /* I/O operation successful */
;; CURLIOE_UNKNOWNCMD, /* command was unknown to callback */
;; CURLIOE_FAILRESTART, /* failed to restart the read */
;; CURLIOE_LAST /* never use */
;; } curlioerr;
;;
;; typedef enum {
;; CURLIOCMD_NOP, /* no operation */
;; CURLIOCMD_RESTARTREAD, /* restart the read stream from start */
;; CURLIOCMD_LAST /* never use */
;; } curliocmd;
;;
;; typedef curlioerr (*curl_ioctl_callback)(CURL *handle,
;; int cmd,
;; void *clientp);
;;
;; /*
;; * The following typedef's are signatures of malloc, free, realloc, strdup and
;; * calloc respectively. Function pointers of these types can be passed to the
;; * curl_global_init_mem() function to set user defined memory management
;; * callback routines.
;; */
;; typedef void *(*curl_malloc_callback)(size_t size);
;; typedef void (*curl_free_callback)(void *ptr);
;; typedef void *(*curl_realloc_callback)(void *ptr, size_t size);
;; typedef char *(*curl_strdup_callback)(const char *str);
;; typedef void *(*curl_calloc_callback)(size_t nmemb, size_t size);
;;
;; /* the kind of data that is passed to information_callback*/
;; typedef enum {
;; CURLINFO_TEXT = 0,
;; CURLINFO_HEADER_IN, /* 1 */
;; CURLINFO_HEADER_OUT, /* 2 */
;; CURLINFO_DATA_IN, /* 3 */
;; CURLINFO_DATA_OUT, /* 4 */
;; CURLINFO_SSL_DATA_IN, /* 5 */
;; CURLINFO_SSL_DATA_OUT, /* 6 */
;; CURLINFO_END
;; } curl_infotype;
;;
;; typedef int (*curl_debug_callback)
;; (CURL *handle, /* the handle/transfer this concerns */
;; curl_infotype type, /* what kind of data */
;; char *data, /* points to the data */
;; size_t size, /* size of the data pointed to */
;; void *userptr); /* whatever the user please */
;;
;; /* All possible error codes from all sorts of curl functions. Future versions
;; may return other values, stay prepared.
;;
;; Always add new return codes last. Never *EVER* remove any. The return
;; codes must remain the same!
;; */
;;
;; typedef enum {
;; CURLE_OK = 0,
;; CURLE_UNSUPPORTED_PROTOCOL, /* 1 */
;; CURLE_FAILED_INIT, /* 2 */
;; CURLE_URL_MALFORMAT, /* 3 */
;; CURLE_URL_MALFORMAT_USER, /* 4 (NOT USED) */
;; CURLE_COULDNT_RESOLVE_PROXY, /* 5 */
;; CURLE_COULDNT_RESOLVE_HOST, /* 6 */
;; CURLE_COULDNT_CONNECT, /* 7 */
;; CURLE_FTP_WEIRD_SERVER_REPLY, /* 8 */
;; CURLE_FTP_ACCESS_DENIED, /* 9 a service was denied by the FTP server
;; due to lack of access - when login fails
;; this is not returned. */
;; CURLE_FTP_USER_PASSWORD_INCORRECT, /* 10 */
;; CURLE_FTP_WEIRD_PASS_REPLY, /* 11 */
;; CURLE_FTP_WEIRD_USER_REPLY, /* 12 */
;; CURLE_FTP_WEIRD_PASV_REPLY, /* 13 */
;; CURLE_FTP_WEIRD_227_FORMAT, /* 14 */
;; CURLE_FTP_CANT_GET_HOST, /* 15 */
;; CURLE_FTP_CANT_RECONNECT, /* 16 */
;; CURLE_FTP_COULDNT_SET_BINARY, /* 17 */
;; CURLE_PARTIAL_FILE, /* 18 */
;; CURLE_FTP_COULDNT_RETR_FILE, /* 19 */
;; CURLE_FTP_WRITE_ERROR, /* 20 */
;; CURLE_FTP_QUOTE_ERROR, /* 21 */
;; CURLE_HTTP_RETURNED_ERROR, /* 22 */
;; CURLE_WRITE_ERROR, /* 23 */
;; CURLE_MALFORMAT_USER, /* 24 - NOT USED */
;; CURLE_FTP_COULDNT_STOR_FILE, /* 25 - failed FTP upload */
;; CURLE_READ_ERROR, /* 26 - could open/read from file */
;; CURLE_OUT_OF_MEMORY, /* 27 */
;; CURLE_OPERATION_TIMEOUTED, /* 28 - the timeout time was reached */
;; CURLE_FTP_COULDNT_SET_ASCII, /* 29 - TYPE A failed */
;; CURLE_FTP_PORT_FAILED, /* 30 - FTP PORT operation failed */
;; CURLE_FTP_COULDNT_USE_REST, /* 31 - the REST command failed */
;; CURLE_FTP_COULDNT_GET_SIZE, /* 32 - the SIZE command failed */
;; CURLE_HTTP_RANGE_ERROR, /* 33 - RANGE "command" didn't work */
;; CURLE_HTTP_POST_ERROR, /* 34 */
;; CURLE_SSL_CONNECT_ERROR, /* 35 - wrong when connecting with SSL */
;; CURLE_BAD_DOWNLOAD_RESUME, /* 36 - couldn't resume download */
;; CURLE_FILE_COULDNT_READ_FILE, /* 37 */
;; CURLE_LDAP_CANNOT_BIND, /* 38 */
;; CURLE_LDAP_SEARCH_FAILED, /* 39 */
;; CURLE_LIBRARY_NOT_FOUND, /* 40 */
;; CURLE_FUNCTION_NOT_FOUND, /* 41 */
;; CURLE_ABORTED_BY_CALLBACK, /* 42 */
;; CURLE_BAD_FUNCTION_ARGUMENT, /* 43 */
;; CURLE_BAD_CALLING_ORDER, /* 44 - NOT USED */
;; CURLE_INTERFACE_FAILED, /* 45 - CURLOPT_INTERFACE failed */
;; CURLE_BAD_PASSWORD_ENTERED, /* 46 - NOT USED */
;; CURLE_TOO_MANY_REDIRECTS , /* 47 - catch endless re-direct loops */
;; CURLE_UNKNOWN_TELNET_OPTION, /* 48 - User specified an unknown option */
;; CURLE_TELNET_OPTION_SYNTAX , /* 49 - Malformed telnet option */
;; CURLE_OBSOLETE, /* 50 - NOT USED */
;; CURLE_SSL_PEER_CERTIFICATE, /* 51 - peer's certificate wasn't ok */
;; CURLE_GOT_NOTHING, /* 52 - when this is a specific error */
;; CURLE_SSL_ENGINE_NOTFOUND, /* 53 - SSL crypto engine not found */
;; CURLE_SSL_ENGINE_SETFAILED, /* 54 - can not set SSL crypto engine as
;; default */
;; CURLE_SEND_ERROR, /* 55 - failed sending network data */
;; CURLE_RECV_ERROR, /* 56 - failure in receiving network data */
;; CURLE_SHARE_IN_USE, /* 57 - share is in use */
;; CURLE_SSL_CERTPROBLEM, /* 58 - problem with the local certificate */
;; CURLE_SSL_CIPHER, /* 59 - couldn't use specified cipher */
;; CURLE_SSL_CACERT, /* 60 - problem with the CA cert (path?) */
;; CURLE_BAD_CONTENT_ENCODING, /* 61 - Unrecognized transfer encoding */
;; CURLE_LDAP_INVALID_URL, /* 62 - Invalid LDAP URL */
;; CURLE_FILESIZE_EXCEEDED, /* 63 - Maximum file size exceeded */
;; CURLE_FTP_SSL_FAILED, /* 64 - Requested FTP SSL level failed */
;; CURLE_SEND_FAIL_REWIND, /* 65 - Sending the data requires a rewind
;; that failed */
;; CURLE_SSL_ENGINE_INITFAILED, /* 66 - failed to initialise ENGINE */
;; CURLE_LOGIN_DENIED, /* 67 - user, password or similar was not
;; accepted and we failed to login */
;; CURLE_TFTP_NOTFOUND, /* 68 - file not found on server */
;; CURLE_TFTP_PERM, /* 69 - permission problem on server */
;; CURLE_TFTP_DISKFULL, /* 70 - out of disk space on server */
;; CURLE_TFTP_ILLEGAL, /* 71 - Illegal TFTP operation */
;; CURLE_TFTP_UNKNOWNID, /* 72 - Unknown transfer ID */
;; CURLE_TFTP_EXISTS, /* 73 - File already exists */
;; CURLE_TFTP_NOSUCHUSER, /* 74 - No such user */
;; CURL_LAST /* never use! */
;; } CURLcode;
;;
;; typedef CURLcode (*curl_ssl_ctx_callback)(CURL *curl, /* easy handle */
;; void *ssl_ctx, /* actually an
;; OpenSSL SSL_CTX */
;; void *userptr);
;;
;; /* Make a spelling correction for the operation timed-out define */
;; #define CURLE_OPERATION_TIMEDOUT CURLE_OPERATION_TIMEOUTED
;;
;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all
;; the obsolete stuff removed! */
;; /* backwards compatibility with older names */
;; #define CURLE_HTTP_NOT_FOUND CURLE_HTTP_RETURNED_ERROR
;; #define CURLE_HTTP_PORT_FAILED CURLE_INTERFACE_FAILED
;; #endif
;;
;; typedef enum {
;; CURLPROXY_HTTP = 0,
;; CURLPROXY_SOCKS4 = 4,
;; CURLPROXY_SOCKS5 = 5
;; } curl_proxytype;
;;
;; #define CURLAUTH_NONE 0 /* nothing */
;; #define CURLAUTH_BASIC (1<<0) /* Basic (default) */
;; #define CURLAUTH_DIGEST (1<<1) /* Digest */
;; #define CURLAUTH_GSSNEGOTIATE (1<<2) /* GSS-Negotiate */
;; #define CURLAUTH_NTLM (1<<3) /* NTLM */
;; #define CURLAUTH_ANY ~0 /* all types set */
;; #define CURLAUTH_ANYSAFE (~CURLAUTH_BASIC)
;;
;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all
;; the obsolete stuff removed! */
;; /* this was the error code 50 in 7.7.3 and a few earlier versions, this
;; is no longer used by libcurl but is instead #defined here only to not
;; make programs break */
;; #define CURLE_ALREADY_COMPLETE 99999
;;
;; /* These are just to make older programs not break: */
;; #define CURLE_FTP_PARTIAL_FILE CURLE_PARTIAL_FILE
;; #define CURLE_FTP_BAD_DOWNLOAD_RESUME CURLE_BAD_DOWNLOAD_RESUME
;; #endif
;;
;; #define CURL_ERROR_SIZE 256
;;
;; /* parameter for the CURLOPT_FTP_SSL option */
;; typedef enum {
;; CURLFTPSSL_NONE, /* do not attempt to use SSL */
;; CURLFTPSSL_TRY, /* try using SSL, proceed anyway otherwise */
;; CURLFTPSSL_CONTROL, /* SSL for the control connection or fail */
;; CURLFTPSSL_ALL, /* SSL for all communication or fail */
;; CURLFTPSSL_LAST /* not an option, never use */
;; } curl_ftpssl;
;;
;; /* parameter for the CURLOPT_FTPSSLAUTH option */
;; typedef enum {
;; CURLFTPAUTH_DEFAULT, /* let libcurl decide */
;; CURLFTPAUTH_SSL, /* use "AUTH SSL" */
;; CURLFTPAUTH_TLS, /* use "AUTH TLS" */
;; CURLFTPAUTH_LAST /* not an option, never use */
;; } curl_ftpauth;
;;
;; /* long may be 32 or 64 bits, but we should never depend on anything else
;; but 32 */
;; #define CURLOPTTYPE_LONG 0
;; #define CURLOPTTYPE_OBJECTPOINT 10000
;; #define CURLOPTTYPE_FUNCTIONPOINT 20000
;; #define CURLOPTTYPE_OFF_T 30000
;;
;; /* name is uppercase CURLOPT_<name>,
;; type is one of the defined CURLOPTTYPE_<type>
;; number is unique identifier */
;; #ifdef CINIT
;; #undef CINIT
;; #endif
;; /*
;; * Figure out if we can use the ## operator, which is supported by ISO/ANSI C
;; * and C++. Some compilers support it without setting __STDC__ or __cplusplus
;; * so we need to carefully check for them too. We don't use configure-checks
;; * for these since we want these headers to remain generic and working for all
;; * platforms.
;; */
;; #if defined(__STDC__) || defined(_MSC_VER) || defined(__cplusplus) || \
;; defined(__HP_aCC) || defined(__BORLANDC__) || defined(__LCC__)
;; /* This compiler is believed to have an ISO compatible preprocessor */
;; #define CURL_ISOCPP
;; #else
;; /* This compiler is believed NOT to have an ISO compatible preprocessor */
;; #undef CURL_ISOCPP
;; #endif
;;
;; #ifdef CURL_ISOCPP
;; #define CINIT(name,type,number) CURLOPT_ ## name = CURLOPTTYPE_ ## type + number
;; #else
;; /* The macro "##" is ISO C, we assume pre-ISO C doesn't support it. */
;; #define LONG CURLOPTTYPE_LONG
;; #define OBJECTPOINT CURLOPTTYPE_OBJECTPOINT
;; #define FUNCTIONPOINT CURLOPTTYPE_FUNCTIONPOINT
;; #define OFF_T CURLOPTTYPE_OFF_T
;; #define CINIT(name,type,number) CURLOPT_/**/name = type + number
;; #endif
;;
;; These are the options that can be used in curl-easy-setopt.
;; #### Probably should adapt this to the method below for
;; `curl-info-hash-table'.
;; Actually, probably should make the names symbols and put them in C,
;; but that's another story.
(unless (and (boundp 'curl-option-hash-table)
(hash-table-p curl-option-hash-table))
(setq curl-option-hash-table (make-hash-table :test #'equal :size 150))
;; typedef enum {
;; This is the FILE * or void * the regular output should be written to.
(puthash "FILE" '(objectpoint 1) curl-option-hash-table)
;; The full URL to get/put
(puthash "URL" '(objectpoint 2) curl-option-hash-table)
;; Port number to connect to, if other than default.
(puthash "PORT" '(long 3) curl-option-hash-table)
;; Name of proxy to use.
(puthash "PROXY" '(objectpoint 4) curl-option-hash-table)
;; "name:password" to use when fetching.
(puthash "USERPWD" '(objectpoint 5) curl-option-hash-table)
;; "name:password" to use with proxy.
(puthash "PROXYUSERPWD" '(objectpoint 6) curl-option-hash-table)
;; Range to get, specified as an ASCII string.
(puthash "RANGE" '(objectpoint 7) curl-option-hash-table)
;; not used
;; Specified file stream to upload from (use as input):
(puthash "INFILE" '(objectpoint 9) curl-option-hash-table)
;; Buffer to receive error messages in, must be at least CURL_ERROR_SIZE
;; bytes big. If this is not used, error messages go to stderr instead:
(puthash "ERRORBUFFER" '(objectpoint 10) curl-option-hash-table)
;; Function that will be called to store the output (instead of fwrite). The
;; parameters will use fwrite() syntax, make sure to follow them.
(puthash "WRITEFUNCTION" '(functionpoint 11) curl-option-hash-table)
;; Function that will be called to read the input (instead of fread). The
;; parameters will use fread() syntax, make sure to follow them.
(puthash "READFUNCTION" '(functionpoint 12) curl-option-hash-table)
;; Time-out the read operation after this amount of seconds
(puthash "TIMEOUT" '(long 13) curl-option-hash-table)
;; If the CURLOPT_INFILE is used, this can be used to inform libcurl about
;; how large the file being sent really is. That allows better error
;; checking and better verifies that the upload was succcessful. -1 means
;; unknown size.
;;
;; For large file support, there is also a _LARGE version of the key
;; which takes an off_t type, allowing platforms with larger off_t
;; sizes to handle larger files. See below for INFILESIZE_LARGE.
(puthash "INFILESIZE" '(long 14) curl-option-hash-table)
;; POST input fields.
(puthash "POSTFIELDS" '(objectpoint 15) curl-option-hash-table)
;; Set the referer page (needed by some CGIs)
(puthash "REFERER" '(objectpoint 16) curl-option-hash-table)
;; Set the FTP PORT string (interface name, named or numerical IP address)
;; Use i.e '-' to use default address.
(puthash "FTPPORT" '(objectpoint 17) curl-option-hash-table)
;; Set the User-Agent string (examined by some CGIs)
(puthash "USERAGENT" '(objectpoint 18) curl-option-hash-table)
;; If the download receives less than "low speed limit" bytes/second
;; during "low speed time" seconds, the operations is aborted.
;; You could i.e if you have a pretty high speed connection, abort if
;; it is less than 2000 bytes/sec during 20 seconds.
;;
;; Set the "low speed limit"
(puthash "LOW_SPEED_LIMIT" '(long 19) curl-option-hash-table)
;; Set the "low speed time"
(puthash "LOW_SPEED_TIME" '(long 20) curl-option-hash-table)
;; Set the continuation offset.
;;
;; Note there is also a _LARGE version of this key which uses
;; off_t types, allowing for large file offsets on platforms which
;; use larger-than-32-bit off_t's. Look below for RESUME_FROM_LARGE.
(puthash "RESUME_FROM" '(long 21) curl-option-hash-table)
;; Set cookie in request:
(puthash "COOKIE" '(objectpoint 22) curl-option-hash-table)
;; This points to a linked list of headers, struct curl_slist kind
(puthash "HTTPHEADER" '(objectpoint 23) curl-option-hash-table)
;; This points to a linked list of post entries, struct HttpPost
(puthash "HTTPPOST" '(objectpoint 24) curl-option-hash-table)
;; name of the file keeping your private SSL-certificate
(puthash "SSLCERT" '(objectpoint 25) curl-option-hash-table)
;; password for the SSL-private key, keep this for compatibility
(puthash "SSLCERTPASSWD" '(objectpoint 26) curl-option-hash-table)
;; password for the SSL private key
(puthash "SSLKEYPASSWD" '(objectpoint 26) curl-option-hash-table)
;; send TYPE parameter?
(puthash "CRLF" '(long 27) curl-option-hash-table)
;; send linked-list of QUOTE commands
(puthash "QUOTE" '(objectpoint 28) curl-option-hash-table)
;; send FILE * or void * to store headers to, if you use a callback it
;; is simply passed to the callback unmodified
(puthash "WRITEHEADER" '(objectpoint 29) curl-option-hash-table)
;; point to a file to read the initial cookies from, also enables
;; "cookie awareness"
(puthash "COOKIEFILE" '(objectpoint 31) curl-option-hash-table)
;; What version to specifly try to use.
;; See CURL_SSLVERSION defines below.
(puthash "SSLVERSION" '(long 32) curl-option-hash-table)
;; What kind of HTTP time condition to use, see defines
(puthash "TIMECONDITION" '(long 33) curl-option-hash-table)
;; Time to use with the above condition. Specified in number of seconds
;; since 1 Jan 1970
(puthash "TIMEVALUE" '(long 34) curl-option-hash-table)
;; 35 = OBSOLETE
;; Custom request, for customizing the get command like
;; HTTP: DELETE, TRACE and others
;; FTP: to use a different list command
(puthash "CUSTOMREQUEST" '(objectpoint 36) curl-option-hash-table)
;; HTTP request, for odd commands like DELETE, TRACE and others
(puthash "STDERR" '(objectpoint 37) curl-option-hash-table)
;; 38 is not used
;; send linked-list of post-transfer QUOTE commands
(puthash "POSTQUOTE" '(objectpoint 39) curl-option-hash-table)
;; Pass a pointer to string of the output using full variable-replacement
;; as described elsewhere.
(puthash "WRITEINFO" '(objectpoint 40) curl-option-hash-table)
;; talk a lot
(puthash "VERBOSE" '(long 41) curl-option-hash-table)
;; throw the header out too
(puthash "HEADER" '(long 42) curl-option-hash-table)
;; shut off the progress meter
(puthash "NOPROGRESS" '(long 43) curl-option-hash-table)
;; use HEAD to get http document
(puthash "NOBODY" '(long 44) curl-option-hash-table)
;; no output on http error codes >= 300
(puthash "FAILONERROR" '(long 45) curl-option-hash-table)
;; this is an upload
(puthash "UPLOAD" '(long 46) curl-option-hash-table)
;; HTTP POST method
(puthash "POST" '(long 47) curl-option-hash-table)
;; Use NLST when listing ftp dir
(puthash "FTPLISTONLY" '(long 48) curl-option-hash-table)
;; Append instead of overwrite on upload!
(puthash "FTPAPPEND" '(long 50) curl-option-hash-table)
;; Specify whether to read the user+password from the .netrc or the URL.
;; This must be one of the CURL_NETRC_* enums below.
(puthash "NETRC" '(long 51) curl-option-hash-table)
;; use Location: Luke!
(puthash "FOLLOWLOCATION" '(LONG 52) curl-option-hash-table)
;;transfer data in text/ASCII format
(puthash "TRANSFERTEXT" '(LONG 53) curl-option-hash-table)
;; HTTP PUT
(puthash "PUT" '(LONG 54) curl-option-hash-table)
;; 55 = OBSOLETE
;; Function that will be called instead of the internal progress display
;; function. This function should be defined as the curl_progress_callback
;; prototype defines.
(puthash "PROGRESSFUNCTION" '(functionpoint 56) curl-option-hash-table)
;; Data passed to the progress callback
(puthash "PROGRESSDATA" '(objectpoint 57) curl-option-hash-table)
;; We want the referer field set automatically when following locations
(puthash "AUTOREFERER" '(long 58) curl-option-hash-table)
;; Port of the proxy, can be set in the proxy string as well with:
;; "[host]:[port]"
(puthash "PROXYPORT" '(long 59) curl-option-hash-table)
;; size of the POST input data, if strlen() is not good to use
(puthash "POSTFIELDSIZE" '(long 60) curl-option-hash-table)
;; tunnel non-http operations through a HTTP proxy
(puthash "HTTPPROXYTUNNEL" '(long 61) curl-option-hash-table)
;; Set the interface string to use as outgoing network interface
(puthash "INTERFACE" '(objectpoint 62) curl-option-hash-table)
;; Set the krb4 security level, this also enables krb4 awareness. This is a
;; string, 'clear', 'safe', 'confidential' or 'private'.
If the string is
;; set but doesn't match one of these, 'private' will be used.
(puthash "KRB4LEVEL" '(objectpoint 63) curl-option-hash-table)
;; Set if we should verify the peer in ssl handshake, set 1 to verify.
(puthash "SSL_VERIFYPEER" '(long 64) curl-option-hash-table)
;; The CApath or CAfile used to validate the peer certificate
;; this option is used only if SSL_VERIFYPEER is true
(puthash "CAINFO" '(objectpoint 65) curl-option-hash-table)
;; 66 = OBSOLETE
;; 67 = OBSOLETE
;; Maximum number of http redirects to follow
(puthash "MAXREDIRS" '(long 68) curl-option-hash-table)
;; Pass a long set to 1 to get the date of the requested document (if
;; possible)! Pass a zero to shut it off.
(puthash "FILETIME" '(long 69) curl-option-hash-table)
;; This points to a linked list of telnet options
(puthash "TELNETOPTIONS" '(objectpoint 70) curl-option-hash-table)
;; Max amount of cached alive connections
(puthash "MAXCONNECTS" '(long 71) curl-option-hash-table)
;; What policy to use when closing connections when the cache is filled
;; up
(puthash "CLOSEPOLICY" '(long 72) curl-option-hash-table)
;; 73 = OBSOLETE
;; Set to explicitly use a new connection for the upcoming transfer.
;; Do not use this unless you're absolutely sure of this, as it makes the
;; operation slower and is less friendly for the network.
(puthash "FRESH_CONNECT" '(long 74) curl-option-hash-table)
;; Set to explicitly forbid the upcoming transfer's connection to be re-used
;; when done. Do not use this unless you're absolutely sure of this, as it
;; makes the operation slower and is less friendly for the network.
(puthash "FORBID_REUSE" '(long 75) curl-option-hash-table)
;; Set to a file name that contains random data for libcurl to use to
;; seed the random engine when doing SSL connects.
(puthash "RANDOM_FILE" '(objectpoint 76) curl-option-hash-table)
;; Set to the Entropy Gathering Daemon socket pathname
(puthash "EGDSOCKET" '(objectpoint 77) curl-option-hash-table)
;; Time-out connect operations after this amount of seconds, if connects
;; are OK within this time, then fine... This only aborts the connect
;; phase. [Only works on unix-style/SIGALRM operating systems]
(puthash "CONNECTTIMEOUT" '(long 78) curl-option-hash-table)
;; Function that will be called to store headers (instead of fwrite). The
;; parameters will use fwrite() syntax, make sure to follow them.
(puthash "HEADERFUNCTION" '(functionpoint 79) curl-option-hash-table)
;; Set this to force the HTTP request to get back to GET. Only really usable
;; if POST, PUT or a custom request have been used first.
(puthash "HTTPGET" '(long 80) curl-option-hash-table)
;; Set if we should verify the Common name from the peer certificate in ssl
;; handshake, set 1 to check existence, 2 to ensure that it matches the
;; provided hostname.
(puthash "SSL_VERIFYHOST" '(long 81) curl-option-hash-table)
;; Specify which file name to write all known cookies in after completed
;; operation. Set file name to "-" (dash) to make it go to stdout.
(puthash "COOKIEJAR" '(objectpoint 82) curl-option-hash-table)
;; Specify which SSL ciphers to use
(puthash "SSL_CIPHER_LIST" '(objectpoint 83) curl-option-hash-table)
;; Specify which HTTP version to use! This must be set to one of the
;; CURL_HTTP_VERSION* enums set below.
(puthash "HTTP_VERSION" '(long 84) curl-option-hash-table)
;; Specificly switch on or off the FTP engine's use of the EPSV command. By
;; default, that one will always be attempted before the more traditional
;; PASV command.
(puthash "FTP_USE_EPSV" '(long 85) curl-option-hash-table)
;; type of the file keeping your SSL-certificate ("DER", "PEM",
"ENG")
(puthash "SSLCERTTYPE" '(objectpoint 86) curl-option-hash-table)
;; name of the file keeping your private SSL-key
(puthash "SSLKEY" '(objectpoint 87) curl-option-hash-table)
;; type of the file keeping your private SSL-key ("DER", "PEM",
"ENG")
(puthash "SSLKEYTYPE" '(objectpoint 88) curl-option-hash-table)
;; crypto engine for the SSL-sub system
(puthash "SSLENGINE" '(objectpoint 89) curl-option-hash-table)
;; set the crypto engine for the SSL-sub system as default
;; the param has no meaning...
(puthash "SSLENGINE_DEFAULT" '(long 90) curl-option-hash-table)
;; Non-zero value means to use the global dns cache
(puthash "DNS_USE_GLOBAL_CACHE" '(long 91) curl-option-hash-table)
;; DNS cache timeout
(puthash "DNS_CACHE_TIMEOUT" '(long 92) curl-option-hash-table)
;; send linked-list of pre-transfer QUOTE commands (Wesley Laxton)*/
(puthash "PREQUOTE" '(objectpoint 93) curl-option-hash-table)
;; set the debug function
(puthash "DEBUGFUNCTION" '(functionpoint 94) curl-option-hash-table)
;; set the data for the debug function
(puthash "DEBUGDATA" '(objectpoint 95) curl-option-hash-table)
;; mark this as start of a cookie session
(puthash "COOKIESESSION" '(long 96) curl-option-hash-table)
;; The CApath directory used to validate the peer certificate
;; this option is used only if SSL_VERIFYPEER is true
(puthash "CAPATH" '(objectpoint 97) curl-option-hash-table)
;; Instruct libcurl to use a smaller receive buffer
(puthash "BUFFERSIZE" '(long 98) curl-option-hash-table)
;; Instruct libcurl to not use any signal/alarm handlers, even when using
;; timeouts. This option is useful for multi-threaded applications.
;; See libcurl-the-guide for more background information.
(puthash "NOSIGNAL" '(long 99) curl-option-hash-table)
;; Provide a CURLShare for mutexing non-ts data
(puthash "SHARE" '(objectpoint 100) curl-option-hash-table)
;; indicates type of proxy. accepted values are CURLPROXY_HTTP (default),
;; CURLPROXY_SOCKS4 and CURLPROXY_SOCKS5.
(puthash "PROXYTYPE" '(long 101) curl-option-hash-table)
;; Set the Accept-Encoding string. Use this to tell a server you would like
;; the response to be compressed.
(puthash "ENCODING" '(objectpoint 102) curl-option-hash-table)
;; Set pointer to private data
(puthash "PRIVATE" '(objectpoint 103) curl-option-hash-table)
;; Set aliases for HTTP 200 in the HTTP Response header
(puthash "HTTP200ALIASES" '(objectpoint 104) curl-option-hash-table)
;; Continue to send authentication (user+password) when following locations,
;; even when hostname changed. This can potentionally send off the name
;; and password to whatever host the server decides.
(puthash "UNRESTRICTED_AUTH" '(long 105) curl-option-hash-table)
;; Specificly switch on or off the FTP engine's use of the EPRT command ( it
;; also disables the LPRT attempt). By default, those ones will always be
;; attempted before the good old traditional PORT command.
(puthash "FTP_USE_EPRT" '(long 106) curl-option-hash-table)
;; Set this to a bitmask value to enable the particular authentications
;; methods you like. Use this in combination with CURLOPT_USERPWD.
;; Note that setting multiple bits may cause extra network round-trips.
(puthash "HTTPAUTH" '(long 107) curl-option-hash-table)
;; Set the ssl context callback function, currently only for OpenSSL ssl_ctx
;; in second argument. The function must be matching the
;; curl_ssl_ctx_callback proto.
(puthash "SSL_CTX_FUNCTION" '(functionpoint 108) curl-option-hash-table)
;; Set the userdata for the ssl context callback function's third
;; argument
(puthash "SSL_CTX_DATA" '(objectpoint 109) curl-option-hash-table)
;; FTP Option that causes missing dirs to be created on the remote server
(puthash "FTP_CREATE_MISSING_DIRS" '(long 110) curl-option-hash-table)
;; Set this to a bitmask value to enable the particular authentications
;; methods you like. Use this in combination with CURLOPT_PROXYUSERPWD.
;; Note that setting multiple bits may cause extra network round-trips.
(puthash "PROXYAUTH" '(long 111) curl-option-hash-table)
;; FTP option that changes the timeout, in seconds, associated with
;; getting a response. This is different from transfer timeout time and
;; essentially places a demand on the FTP server to acknowledge commands
;; in a timely manner.
(puthash "FTP_RESPONSE_TIMEOUT" '(long 112) curl-option-hash-table)
;; Set this option to one of the CURL_IPRESOLVE_* defines (see below) to
;; tell libcurl to resolve names to those IP versions only. This only has
;; affect on systems with support for more than one, i.e IPv4 _and_ IPv6.
(puthash "IPRESOLVE" '(long 113) curl-option-hash-table)
;; Set this option to limit the size of a file that will be downloaded from
;; an HTTP or FTP server.
;; Note there is also _LARGE version which adds large file support for
;; platforms which have larger off_t sizes. See MAXFILESIZE_LARGE below.
(puthash "MAXFILESIZE" '(long 114) curl-option-hash-table)
;; See the comment for INFILESIZE above, but in short, specifies
;; the size of the file being uploaded. -1 means unknown.
(puthash "INFILESIZE_LARGE" '(off_t 115) curl-option-hash-table)
;; Sets the continuation offset. There is also a LONG version of this;
;; look above for RESUME_FROM.
(puthash "RESUME_FROM_LARGE" '(off_t 116) curl-option-hash-table)
;; Sets the maximum size of data that will be downloaded from
;; an HTTP or FTP server. See MAXFILESIZE above for the LONG version.
(puthash "MAXFILESIZE_LARGE" '(off_t 117) curl-option-hash-table)
;; Set this option to the file name of your .netrc file you want libcurl
;; to parse (using the CURLOPT_NETRC option). If not set, libcurl will do
;; a poor attempt to find the user's home directory and check for a .netrc
;; file in there.
(puthash "NETRC_FILE" '(objectpoint 118) curl-option-hash-table)
;; Enable SSL/TLS for FTP, pick one of:
;; CURLFTPSSL_TRY - try using SSL, proceed anyway otherwise
;; CURLFTPSSL_CONTROL - SSL for the control connection or fail
;; CURLFTPSSL_ALL - SSL for all communication or fail
(puthash "FTP_SSL" '(long 119) curl-option-hash-table)
;; The _LARGE version of the standard POSTFIELDSIZE option
(puthash "POSTFIELDSIZE_LARGE" '(off_t 120) curl-option-hash-table)
;; Enable/disable the TCP Nagle algorithm
(puthash "TCP_NODELAY" '(long 121) curl-option-hash-table)
;; 122 OBSOLETE, used in 7.12.3. Gone in 7.13.0
;; When doing 3rd party transfer, set the source user and password with
;; this
(puthash "SOURCE_USERPWD" '(objectpoint 123) curl-option-hash-table)
;; 124 OBSOLETE, used in 7.12.3. Gone in 7.13.0
;; 125 OBSOLETE, used in 7.12.3. Gone in 7.13.0
;; 126 OBSOLETE, used in 7.12.3. Gone in 7.13.0
;; When doing 3rd party transfer, set the source pre-quote linked list
;; of commands with this
(puthash "SOURCE_PREQUOTE" '(objectpoint 127) curl-option-hash-table)
;; When doing 3rd party transfer, set the source post-quote linked list
;; of commands with this
(puthash "SOURCE_POSTQUOTE" '(objectpoint 128) curl-option-hash-table)
;; When FTP over SSL/TLS is selected (with CURLOPT_FTP_SSL), this option
;; can be used to change libcurl's default action which is to first try
;; "AUTH SSL" and then "AUTH TLS" in this order, and proceed when a
OK
;; response has been received.
;; Available parameters are:
;; CURLFTPAUTH_DEFAULT - let libcurl decide
;; CURLFTPAUTH_SSL - try "AUTH SSL" first, then TLS
;; CURLFTPAUTH_TLS - try "AUTH TLS" first, then SSL
(puthash "FTPSSLAUTH" '(long 129) curl-option-hash-table)
(puthash "IOCTLFUNCTION" '(functionpoint 130) curl-option-hash-table)
(puthash "IOCTLDATA" '(objectpoint 131) curl-option-hash-table)
;; To make a 3rd party transfer, set the source URL with this
(puthash "SOURCE_URL" '(objectpoint 132) curl-option-hash-table)
;; When doing 3rd party transfer, set the source quote linked list of
;; commands with this
(puthash "SOURCE_QUOTE" '(objectpoint 133) curl-option-hash-table)
;; zero terminated string for pass on to the FTP server when asked for
;; "account" info
(puthash "FTP_ACCOUNT" '(objectpoint 134) curl-option-hash-table)
;; feed cookies into cookie engine
(puthash "COOKIELIST" '(objectpoint 135) curl-option-hash-table)
;; ignore Content-Length
(puthash "IGNORE_CONTENT_LENGTH" '(long 136) curl-option-hash-table)
;; Set to non-zero to skip the IP address received in a 227 PASV FTP server
;; response. Typically used for FTP-SSL purposes but is not restricted to
;; that. libcurl will then instead use the same IP address it used for the
;; control connection.
(puthash "FTP_SKIP_PASV_IP" '(long 137) curl-option-hash-table)
;; CURLOPT_LASTENTRY ; the last unused
;; } CURLoption;
)
;; /* Below here follows defines for the CURLOPT_IPRESOLVE option. If a host
;; name resolves addresses using more than one IP protocol version, this
;; option might be handy to force libcurl to use a specific IP version. */
;; #define CURL_IPRESOLVE_WHATEVER 0 /* default, resolves addresses to all IP
;; versions that your system allows */
;; #define CURL_IPRESOLVE_V4 1 /* resolve to ipv4 addresses */
;; #define CURL_IPRESOLVE_V6 2 /* resolve to ipv6 addresses */
;;
;; /* three convenient "aliases" that follow the name scheme better */
;; #define CURLOPT_WRITEDATA CURLOPT_FILE
;; #define CURLOPT_READDATA CURLOPT_INFILE
;; #define CURLOPT_HEADERDATA CURLOPT_WRITEHEADER
;;
;; #ifndef CURL_NO_OLDIES /* define this to test if your app builds with all
;; the obsolete stuff removed! */
;; #define CURLOPT_HTTPREQUEST -1
;; #define CURLOPT_FTPASCII CURLOPT_TRANSFERTEXT
;; #define CURLOPT_MUTE -2
;; #define CURLOPT_PASSWDFUNCTION -3
;; #define CURLOPT_PASSWDDATA -4
;; #define CURLOPT_CLOSEFUNCTION -5
;;
;; #define CURLOPT_SOURCE_HOST -6
;; #define CURLOPT_SOURCE_PATH -7
;; #define CURLOPT_SOURCE_PORT -8
;; #define CURLOPT_PASV_HOST -9
;;
;; #else
;; /* This is set if CURL_NO_OLDIES is defined at compile-time */
;; #undef CURLOPT_DNS_USE_GLOBAL_CACHE /* soon obsolete */
;; #endif
;;
;;
;; /* These enums are for use with the CURLOPT_HTTP_VERSION option. */
;; enum {
;; CURL_HTTP_VERSION_NONE, /* setting this means we don't care, and that we'd
;; like the library to choose the best possible
;; for us! */
;; CURL_HTTP_VERSION_1_0, /* please use HTTP 1.0 in the request */
;; CURL_HTTP_VERSION_1_1, /* please use HTTP 1.1 in the request */
;;
;; CURL_HTTP_VERSION_LAST /* *ILLEGAL* http version */
;; };
;;
;; /* These enums are for use with the CURLOPT_NETRC option. */
;; enum CURL_NETRC_OPTION {
;; CURL_NETRC_IGNORED, /* The .netrc will never be read.
;; * This is the default. */
;; CURL_NETRC_OPTIONAL, /* A user:password in the URL will be preferred
;; * to one in the .netrc. */
;; CURL_NETRC_REQUIRED, /* A user:password in the URL will be ignored.
;; * Unless one is set programmatically, the .netrc
;; * will be queried. */
;; CURL_NETRC_LAST
;; };
;;
;; enum {
;; CURL_SSLVERSION_DEFAULT,
;; CURL_SSLVERSION_TLSv1,
;; CURL_SSLVERSION_SSLv2,
;; CURL_SSLVERSION_SSLv3,
;;
;; CURL_SSLVERSION_LAST /* never use, keep last */
;; };
;;
;;
;; typedef enum {
;; CURL_TIMECOND_NONE,
;;
;; CURL_TIMECOND_IFMODSINCE,
;; CURL_TIMECOND_IFUNMODSINCE,
;; CURL_TIMECOND_LASTMOD,
;;
;; CURL_TIMECOND_LAST
;; } curl_TimeCond;
;;
;; #ifdef __BEOS__
;; #include <support/SupportDefs.h>
;; #endif
;;
;;
;; /* curl_strequal() and curl_strnequal() are subject for removal in a future
;; libcurl, see lib/README.curlx for details */
;; CURL_EXTERN int (curl_strequal)(const char *s1, const char *s2);
;; CURL_EXTERN int (curl_strnequal)(const char *s1, const char *s2, size_t n);
;;
;; /* name is uppercase CURLFORM_<name> */
;; #ifdef CFINIT
;; #undef CFINIT
;; #endif
;;
;; #ifdef CURL_ISOCPP
;; #define CFINIT(name) CURLFORM_ ## name
;; #else
;; /* The macro "##" is ISO C, we assume pre-ISO C doesn't support it. */
;; #define CFINIT(name) CURLFORM_/**/name
;; #endif
;;
;; typedef enum {
;; CFINIT(NOTHING), /********* the first one is unused ************/
;;
;; /* */
;; CFINIT(COPYNAME),
;; CFINIT(PTRNAME),
;; CFINIT(NAMELENGTH),
;; CFINIT(COPYCONTENTS),
;; CFINIT(PTRCONTENTS),
;; CFINIT(CONTENTSLENGTH),
;; CFINIT(FILECONTENT),
;; CFINIT(ARRAY),
;; CFINIT(OBSOLETE),
;; CFINIT(FILE),
;;
;; CFINIT(BUFFER),
;; CFINIT(BUFFERPTR),
;; CFINIT(BUFFERLENGTH),
;;
;; CFINIT(CONTENTTYPE),
;; CFINIT(CONTENTHEADER),
;; CFINIT(FILENAME),
;; CFINIT(END),
;; CFINIT(OBSOLETE2),
;;
;; CURLFORM_LASTENTRY /* the last unusued */
;; } CURLformoption;
;;
;; #undef CFINIT /* done */
;;
;; /* structure to be used as parameter for CURLFORM_ARRAY */
;; struct curl_forms {
;; CURLformoption option;
;; const char *value;
;; };
;;
;; /* use this for multipart formpost building */
;; /* Returns code for curl_formadd()
;; *
;; * Returns:
;; * CURL_FORMADD_OK on success
;; * CURL_FORMADD_MEMORY if the FormInfo allocation fails
;; * CURL_FORMADD_OPTION_TWICE if one option is given twice for one Form
;; * CURL_FORMADD_NULL if a null pointer was given for a char
;; * CURL_FORMADD_MEMORY if the allocation of a FormInfo struct failed
;; * CURL_FORMADD_UNKNOWN_OPTION if an unknown option was used
;; * CURL_FORMADD_INCOMPLETE if the some FormInfo is not complete (or error)
;; * CURL_FORMADD_MEMORY if a HttpPost struct cannot be allocated
;; * CURL_FORMADD_MEMORY if some allocation for string copying failed.
;; * CURL_FORMADD_ILLEGAL_ARRAY if an illegal option is used in an array
;; *
;; ***************************************************************************/
;; typedef enum {
;; CURL_FORMADD_OK, /* first, no error */
;;
;; CURL_FORMADD_MEMORY,
;; CURL_FORMADD_OPTION_TWICE,
;; CURL_FORMADD_NULL,
;; CURL_FORMADD_UNKNOWN_OPTION,
;; CURL_FORMADD_INCOMPLETE,
;; CURL_FORMADD_ILLEGAL_ARRAY,
;; CURL_FORMADD_DISABLED, /* libcurl was built with this disabled */
;;
;; CURL_FORMADD_LAST /* last */
;; } CURLFORMcode;
;;
;; /*
;; * NAME curl_formadd()
;; *
;; * DESCRIPTION
;; *
;; * Pretty advanved function for building multi-part formposts. Each invoke
;; * adds one part that together construct a full post. Then use
;; * CURLOPT_HTTPPOST to send it off to libcurl.
;; */
;; CURL_EXTERN CURLFORMcode curl_formadd(struct curl_httppost **httppost,
;; struct curl_httppost **last_post,
;; ...);
;;
;; /*
;; * NAME curl_formfree()
;; *
;; * DESCRIPTION
;; *
;; * Free a multipart formpost previously built with curl_formadd().
;; */
;; CURL_EXTERN void curl_formfree(struct curl_httppost *form);
;;
;; /*
;; * NAME curl_getenv()
;; *
;; * DESCRIPTION
;; *
;; * Returns a malloc()'ed string that MUST be curl_free()ed after usage is
;; * complete. DEPRECATED - see lib/README.curlx
;; */
;; CURL_EXTERN char *curl_getenv(const char *variable);
;;
;; /*
;; * NAME curl_version()
;; *
;; * DESCRIPTION
;; *
;; * Returns a static ascii string of the libcurl version.
;; */
;; CURL_EXTERN char *curl_version(void);
;;
;; /*
;; * NAME curl_escape()
;; *
;; * DESCRIPTION
;; *
;; * Escapes URL strings (converts all letters consider illegal in URLs to their
;; * %XX versions). This function returns a new allocated string or NULL if an
;; * error occurred.
;; */
;; CURL_EXTERN char *curl_escape(const char *string, int length);
;;
;; /*
;; * NAME curl_unescape()
;; *
;; * DESCRIPTION
;; *
;; * Unescapes URL encoding in strings (converts all %XX codes to their 8bit
;; * versions). This function returns a new allocated string or NULL if an error
;; * occurred.
;; */
;; CURL_EXTERN char *curl_unescape(const char *string, int length);
;;
;; /*
;; * NAME curl_free()
;; *
;; * DESCRIPTION
;; *
;; * Provided for de-allocation in the same translation unit that did the
;; * allocation. Added in libcurl 7.10
;; */
;; CURL_EXTERN void curl_free(void *p);
;;
;; /*
;; * NAME curl_global_init()
;; *
;; * DESCRIPTION
;; *
;; * curl_global_init() should be invoked exactly once for each application that
;; * uses libcurl
;; */
;; CURL_EXTERN CURLcode curl_global_init(long flags);
;;
;; /*
;; * NAME curl_global_init_mem()
;; *
;; * DESCRIPTION
;; *
;; * curl_global_init() or curl_global_init_mem() should be invoked exactly once
;; * for each application that uses libcurl. This function can be used to
;; * initialize libcurl and set user defined memory management callback
;; * functions. Users can implement memory management routines to check for
;; * memory leaks, check for mis-use of the curl library etc. User registered
;; * callback routines with be invoked by this library instead of the system
;; * memory management routines like malloc, free etc.
;; */
;; CURL_EXTERN CURLcode curl_global_init_mem(long flags,
;; curl_malloc_callback m,
;; curl_free_callback f,
;; curl_realloc_callback r,
;; curl_strdup_callback s,
;; curl_calloc_callback c);
;;
;; /*
;; * NAME curl_global_cleanup()
;; *
;; * DESCRIPTION
;; *
;; * curl_global_cleanup() should be invoked exactly once for each application
;; * that uses libcurl
;; */
;; CURL_EXTERN void curl_global_cleanup(void);
;;
;; /* linked-list structure for the CURLOPT_QUOTE option (and other) */
;; struct curl_slist {
;; char *data;
;; struct curl_slist *next;
;; };
;;
;; /*
;; * NAME curl_slist_append()
;; *
;; * DESCRIPTION
;; *
;; * Appends a string to a linked list. If no list exists, it will be created
;; * first. Returns the new list, after appending.
;; */
;; CURL_EXTERN struct curl_slist *curl_slist_append(struct curl_slist *,
;; const char *);
;;
;; /*
;; * NAME curl_slist_free_all()
;; *
;; * DESCRIPTION
;; *
;; * free a previously built curl_slist.
;; */
;; CURL_EXTERN void curl_slist_free_all(struct curl_slist *);
;;
;; /*
;; * NAME curl_getdate()
;; *
;; * DESCRIPTION
;; *
;; * Returns the time, in seconds since 1 Jan 1970 of the time string given in
;; * the first argument. The time argument in the second parameter is unused
;; * and should be set to NULL.
;; */
;; CURL_EXTERN time_t curl_getdate(const char *p, const time_t *unused);
;;
(unless (and (boundp 'curl-info-hash-table)
(hash-table-p curl-info-hash-table))
(setq curl-info-hash-table (make-hash-table :test #'equal :size 30))
(let ((curlinfo-string #x100000)
(curlinfo-long #x200000)
(curlinfo-double #x300000)
(curlinfo-slist #x400000))
;; #define CURLINFO_MASK 0x0fffff
;; #define CURLINFO_TYPEMASK 0xf00000
;; typedef enum {
(puthash "NONE" '(nil nil) curl-info-hash-table) ; first, never use
this
(puthash "EFFECTIVE_URL" `(string ,(+ curlinfo-string 1))
curl-info-hash-table)
(puthash "RESPONSE_CODE" `(long ,(+ curlinfo-long + 2))
curl-info-hash-table)
(puthash "TOTAL_TIME" `(double ,(+ curlinfo-double 3))
curl-info-hash-table)
(puthash "NAMELOOKUP_TIME" `(double ,(+ curlinfo-double 4))
curl-info-hash-table)
(puthash "CONNECT_TIME" `(double ,(+ curlinfo-double 5))
curl-info-hash-table)
(puthash "PRETRANSFER_TIME" `(double ,(+ curlinfo-double 6))
curl-info-hash-table)
(puthash "SIZE_UPLOAD" `(double ,(+ curlinfo-double 7))
curl-info-hash-table)
(puthash "SIZE_DOWNLOAD" `(double ,(+ curlinfo-double 8))
curl-info-hash-table)
(puthash "SPEED_DOWNLOAD" `(double ,(+ curlinfo-double 9))
curl-info-hash-table)
(puthash "SPEED_UPLOAD" `(double ,(+ curlinfo-double 10))
curl-info-hash-table)
(puthash "HEADER_SIZE" `(long ,(+ curlinfo-long + 11))
curl-info-hash-table)
(puthash "REQUEST_SIZE" `(long ,(+ curlinfo-long + 12))
curl-info-hash-table)
(puthash "SSL_VERIFYRESULT" `(long ,(+ curlinfo-long + 13))
curl-info-hash-table)
(puthash "FILETIME" `(long ,(+ curlinfo-long + 14))
curl-info-hash-table)
(puthash "CONTENT_LENGTH_DOWNLOAD" `(double ,(+ curlinfo-double 15))
curl-info-hash-table)
(puthash "CONTENT_LENGTH_UPLOAD" `(double ,(+ curlinfo-double 16))
curl-info-hash-table)
(puthash "STARTTRANSFER_TIME" `(double ,(+ curlinfo-double 17))
curl-info-hash-table)
(puthash "CONTENT_TYPE" `(string ,(+ curlinfo-string 18))
curl-info-hash-table)
(puthash "REDIRECT_TIME" `(double ,(+ curlinfo-double 19))
curl-info-hash-table)
(puthash "REDIRECT_COUNT" `(long ,(+ curlinfo-long + 20))
curl-info-hash-table)
(puthash "PRIVATE" `(string ,(+ curlinfo-string 21))
curl-info-hash-table)
(puthash "HTTP_CONNECTCODE" `(long ,(+ curlinfo-long + 22))
curl-info-hash-table)
(puthash "HTTPAUTH_AVAIL" `(long ,(+ curlinfo-long + 23))
curl-info-hash-table)
(puthash "PROXYAUTH_AVAIL" `(long ,(+ curlinfo-long + 24))
curl-info-hash-table)
(puthash "OS_ERRNO" `(long ,(+ curlinfo-long + 25))
curl-info-hash-table)
(puthash "NUM_CONNECTS" `(long ,(+ curlinfo-long + 26))
curl-info-hash-table)
(puthash "SSL_ENGINES" `(list ,(+ curlinfo-slist+ 27))
curl-info-hash-table)
(puthash "COOKIELIST" `(list ,(+ curlinfo-slist+ 28))
curl-info-hash-table)
;; Fill in new entries below here!
(puthash "LASTONE" '(nil 28) curl-info-hash-table)
;; } CURLINFO;
))
;; /* CURLINFO_RESPONSE_CODE is the new name for the option previously known as
;; CURLINFO_HTTP_CODE */
;; #define CURLINFO_HTTP_CODE CURLINFO_RESPONSE_CODE
;;
;; typedef enum {
;; CURLCLOSEPOLICY_NONE, /* first, never use this */
;;
;; CURLCLOSEPOLICY_OLDEST,
;; CURLCLOSEPOLICY_LEAST_RECENTLY_USED,
;; CURLCLOSEPOLICY_LEAST_TRAFFIC,
;; CURLCLOSEPOLICY_SLOWEST,
;; CURLCLOSEPOLICY_CALLBACK,
;;
;; CURLCLOSEPOLICY_LAST /* last, never use this */
;; } curl_closepolicy;
;;
;; #define CURL_GLOBAL_SSL (1<<0)
;; #define CURL_GLOBAL_WIN32 (1<<1)
;; #define CURL_GLOBAL_ALL (CURL_GLOBAL_SSL|CURL_GLOBAL_WIN32)
;; #define CURL_GLOBAL_NOTHING 0
;; #define CURL_GLOBAL_DEFAULT CURL_GLOBAL_ALL
;;
;;
;; /*****************************************************************************
;; * Setup defines, protos etc for the sharing stuff.
;; */
;;
;; /* Different data locks for a single share */
;; typedef enum {
;; CURL_LOCK_DATA_NONE = 0,
;; /* CURL_LOCK_DATA_SHARE is used internaly to say that
;; * the locking is just made to change the internal state of the share
;; * itself.
;; */
;; CURL_LOCK_DATA_SHARE,
;; CURL_LOCK_DATA_COOKIE,
;; CURL_LOCK_DATA_DNS,
;; CURL_LOCK_DATA_SSL_SESSION,
;; CURL_LOCK_DATA_CONNECT,
;; CURL_LOCK_DATA_LAST
;; } curl_lock_data;
;;
;; /* Different lock access types */
;; typedef enum {
;; CURL_LOCK_ACCESS_NONE = 0, /* unspecified action */
;; CURL_LOCK_ACCESS_SHARED = 1, /* for read perhaps */
;; CURL_LOCK_ACCESS_SINGLE = 2, /* for write perhaps */
;; CURL_LOCK_ACCESS_LAST /* never use */
;; } curl_lock_access;
;;
;; typedef void (*curl_lock_function)(CURL *handle,
;; curl_lock_data data,
;; curl_lock_access locktype,
;; void *userptr);
;; typedef void (*curl_unlock_function)(CURL *handle,
;; curl_lock_data data,
;; void *userptr);
;;
;; typedef void CURLSH;
;;
;; typedef enum {
;; CURLSHE_OK, /* all is fine */
;; CURLSHE_BAD_OPTION, /* 1 */
;; CURLSHE_IN_USE, /* 2 */
;; CURLSHE_INVALID, /* 3 */
;; CURLSHE_NOMEM, /* out of memory */
;; CURLSHE_LAST /* never use */
;; } CURLSHcode;
;;
;; typedef enum {
;; CURLSHOPT_NONE, /* don't use */
;; CURLSHOPT_SHARE, /* specify a data type to share */
;; CURLSHOPT_UNSHARE, /* specify shich data type to stop sharing */
;; CURLSHOPT_LOCKFUNC, /* pass in a 'curl_lock_function' pointer */
;; CURLSHOPT_UNLOCKFUNC, /* pass in a 'curl_unlock_function' pointer */
;; CURLSHOPT_USERDATA, /* pass in a user data pointer used in the lock/unlock
;; callback functions */
;; CURLSHOPT_LAST /* never use */
;; } CURLSHoption;
;;
;; CURL_EXTERN CURLSH *curl_share_init(void);
;; CURL_EXTERN CURLSHcode curl_share_setopt(CURLSH *, CURLSHoption option, ...);
;; CURL_EXTERN CURLSHcode curl_share_cleanup(CURLSH *);
;;
;; /****************************************************************************
;; * Structures for querying information about the curl library at runtime.
;; */
;;
;; typedef enum {
;; CURLVERSION_FIRST,
;; CURLVERSION_SECOND,
;; CURLVERSION_THIRD,
;; CURLVERSION_LAST /* never actually use this */
;; } CURLversion;
;;
;; /* The 'CURLVERSION_NOW' is the symbolic name meant to be used by
;; basicly all programs ever, that want to get version information. It is
;; meant to be a built-in version number for what kind of struct the caller
;; expects. If the struct ever changes, we redefine the NOW to another enum
;; from above. */
;; #define CURLVERSION_NOW CURLVERSION_THIRD
;;
;; typedef struct {
;; CURLversion age; /* age of the returned struct */
;; const char *version; /* LIBCURL_VERSION */
;; unsigned int version_num; /* LIBCURL_VERSION_NUM */
;; const char *host; /* OS/host/cpu/machine when configured */
;; int features; /* bitmask, see defines below */
;; const char *ssl_version; /* human readable string */
;; long ssl_version_num; /* not used anymore, always 0 */
;; const char *libz_version; /* human readable string */
;; /* protocols is terminated by an entry with a NULL protoname */
;; const char * const *protocols;
;;
;; /* The fields below this were added in CURLVERSION_SECOND */
;; const char *ares;
;; int ares_num;
;;
;; /* This field was aded in CURLVERSION_THIRD */
;; const char *libidn;
;; } curl_version_info_data;
;;
;; #define CURL_VERSION_IPV6 (1<<0) /* IPv6-enabled */
;; #define CURL_VERSION_KERBEROS4 (1<<1) /* kerberos auth is supported */
;; #define CURL_VERSION_SSL (1<<2) /* SSL options are present */
;; #define CURL_VERSION_LIBZ (1<<3) /* libz features are present */
;; #define CURL_VERSION_NTLM (1<<4) /* NTLM auth is supported */
;; #define CURL_VERSION_GSSNEGOTIATE (1<<5) /* Negotiate auth support */
;; #define CURL_VERSION_DEBUG (1<<6) /* built with debug capabilities */
;; #define CURL_VERSION_ASYNCHDNS (1<<7) /* asynchronous dns resolves */
;; #define CURL_VERSION_SPNEGO (1<<8) /* SPNEGO auth */
;; #define CURL_VERSION_LARGEFILE (1<<9) /* supports files bigger than 2GB */
;; #define CURL_VERSION_IDN (1<<10) /* International Domain Names support */
;; #define CURL_VERSION_SSPI (1<<11) /* SSPI is supported */
;;
;; /*
;; * NAME curl_version_info()
;; *
;; * DESCRIPTION
;; *
;; * This function returns a pointer to a static copy of the version info
;; * struct. See above.
;; */
;; CURL_EXTERN curl_version_info_data *curl_version_info(CURLversion);
;;
;; /*
;; * NAME curl_easy_strerror()
;; *
;; * DESCRIPTION
;; *
;; * The curl_easy_strerror function may be used to turn a CURLcode value
;; * into the equivalent human readable error string. This is useful
;; * for printing meaningful error messages.
;; */
;; CURL_EXTERN const char *curl_easy_strerror(CURLcode);
;;
;; /*
;; * NAME curl_share_strerror()
;; *
;; * DESCRIPTION
;; *
;; * The curl_share_strerror function may be used to turn a CURLSHcode value
;; * into the equivalent human readable error string. This is useful
;; * for printing meaningful error messages.
;; */
;; CURL_EXTERN const char *curl_share_strerror(CURLSHcode);
(provide 'curl)
;;; curl.el ends here
1.1 XEmacs/packages/unsupported/stephen/curl/curl_api.c
Index: curl_api.c
===================================================================
/*
* Lisp interface to libcurl for XEmacs.
*
* Copyright (C) 1998, 1999 J. Kean Johnston. All rights reserved.
* Copyright (C) 2002 Jerry James.
* Copyright (C) 2005 Stephen J. Turnbull <stephen(a)xemacs.org>
*
* All rights reserved, except as expressly indicated below.
*
* This program is not considered part of XEmacs.
*
* You may use, copy, modify, and distribute this software under the terms
* of the GNU General Public License, version 2 or later at your option.
*
* Author: Stephen J. Turnbull <stephen(a)xemacs.org>
* Creation-Date: 2005-11-20
*/
#include <config.h>
#include "lisp.h"
#ifdef HAVE_SHLIB
# include "emodules.h"
#endif
#include "lstream.h"
#include "elhash.h"
#include "curl_api.h" /* include <curl/curl.h> */
/************************************************************************/
/* Module-specific stuff */
/************************************************************************/
/* Local references to Lisp symbols */
static Lisp_Object Qcurl_api, Qcurl, Qurl_handlep,
Qlong, Qfunctionpoint, Qobjectpoint, Qoff_t;
static Lisp_Object Vcurl_option_hash_table, Vcurl_info_hash_table;
/************************************************************************/
/* url_handle lrecord basic functions */
/************************************************************************/
static const struct memory_description url_handle_description [] = {
{ XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, type) },
{ XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, property_list) },
{ XD_LISP_OBJECT, offsetof (struct Lisp_URL_Handle, coding_system) },
{ XD_END }
};
static Lisp_Object
mark_url_handle (Lisp_Object obj)
{
if (NILP (XURL_HANDLE (obj)->property_list))
return XURL_HANDLE (obj)->type;
mark_object (XURL_HANDLE (obj)->coding_system);
mark_object (XURL_HANDLE (obj)->type);
return XURL_HANDLE (obj)->property_list;
}
static void
print_url_handle (Lisp_Object obj,
Lisp_Object printcharfun,
int UNUSED (escapeflag))
{
Lisp_URL_Handle *url_handle = XURL_HANDLE (obj);
if (print_readably)
printing_unreadable_object ("#<url_handle %s>", url_handle->url);
write_c_string (printcharfun, "#<url_handle ");
if (NILP(url_handle->type))
write_c_string (printcharfun, "(dead) ");
else
write_fmt_string_lisp (printcharfun, "%S ", 1, url_handle->type);
if (url_handle->url)
write_c_string (printcharfun, url_handle->url);
write_fmt_string (printcharfun, " 0x%lx>", (unsigned long) url_handle);
}
static Lisp_URL_Handle *
allocate_url_handle (void)
{
Lisp_URL_Handle *url_handle =
ALLOC_LCRECORD_TYPE (Lisp_URL_Handle, &lrecord_url_handle);
url_handle->type = Qnil;
url_handle->property_list = Qnil;
url_handle->coding_system = Qnil;
url_handle->url = NULL;
url_handle->curl_handle = NULL;
/* #### UNIMPLEMENTED we need to initialize the big_ball_of_strings here. */
return url_handle;
}
static void
finalize_url_handle (void *header, int for_disksave)
{
Lisp_URL_Handle *url_handle = (Lisp_URL_Handle *) header;
if (for_disksave)
invalid_operation ("Can't dump an emacs containing URL_HANDLE objects",
wrap_url_handle (url_handle));
/* #### UNIMPLEMENTED we need to free the big_ball_of_strings here. */
if (url_handle->curl_handle)
curl_easy_cleanup (url_handle->curl_handle);
url_handle->curl_handle = NULL;
if (url_handle->url)
xfree (url_handle->url, Extbyte *);
url_handle->url = NULL;
}
DEFINE_LRECORD_IMPLEMENTATION ("url_handle", url_handle, 0,
mark_url_handle, print_url_handle,
finalize_url_handle,
NULL, NULL,
url_handle_description, Lisp_URL_Handle);
/************************************************************************/
/* Basic url_handle accessors */
/************************************************************************/
/* ###autoload */
DEFUN ("url-handle-p", Furl_handle_p, 1, 1, 0, /*
Return t if OBJECT is a URL_HANDLE connection.
*/
(object))
{
return URL_HANDLEP (object) ? Qt : Qnil;
}
DEFUN ("url-handle-type", Furl_handle_type, 1, 1, 0, /*
Return the type of URL-HANDLE, a symbol.
*/
(url_handle))
{
CHECK_URL_HANDLE (url_handle);
return XURL_HANDLE (url_handle)->type;
}
DEFUN ("url-handle-live-p", Furl_handle_live_p, 1, 1, 0, /*
Return non-nil if URL_HANDLE is an active URL_HANDLE connection.
*/
(url_handle))
{
CHECK_URL_HANDLE (url_handle);
return Furl_handle_type (url_handle);
}
DEFUN ("url-handle-property-list", Furl_handle_host, 1, 1, 0, /*
Return the property list of URL-HANDLE.
*/
(url_handle))
{
Lisp_Object retval;
CHECK_URL_HANDLE (url_handle);
retval = XURL_HANDLE (url_handle)->property_list;
/* #### extract properties from the curl_handle and add to retval here */
return retval;
}
#if 0
DEFUN ("url-handle-host", Furl_handle_host, 1, 1, 0, /*
Return the server host of the connection URL-HANDLE, as a string.
*/
(url_handle))
{
CHECK_URL_HANDLE (url_handle);
return WHAT?
}
#endif
/************************************************************************/
/* Lisp API functions */
/************************************************************************/
/* error macros */
#define UNIMPLEMENTED(reason) signal_error (Qunimplemented, reason, Qunbound)
/* #### Do something more useful with the error codes! */
#define CHECK_CURL_ERROR(code, index, handle) \
do { if (code) \
Fsignal (Qio_error, \
list3 (build_ext_string (curl_easy_strerror (code), \
Qbinary), \
index, \
handle)); } while (0)
DEFUN ("curl-make-url-handle", Fcurl_make_url_handle, 1, 3, 0, /*
Return a cURL handle for URL, wrapped in an url-handle.
URL is a string, which must be a URI scheme known to cURL.
URL is encoded according to optional argument CODESYS. (Of course cURL will
URL-encode it before sending it off.)
PLIST is a property list. These properties are set on the cURL handle.
#### This interface may change to (&rest PLIST).
#### This is not called "make-curl-handle" because a more general module,
which will call this function, is planned. That will call this function
from a function `make-url-handle'.
*/
(url, codesys, plist))
{
Lisp_URL_Handle *url_handle = allocate_url_handle ();
url_handle->type = Qcurl;
if (NILP (codesys))
/* #### Quick hack, should be Qnative? */
codesys = Ffind_coding_system (Qutf_8);
CHECK_CODING_SYSTEM (codesys);
url_handle->coding_system = codesys;
/* Do this *before* the plist because later we will be initializing
curl_handle options from the plist. */
CHECK_STRING (url);
url_handle->url = NEW_LISP_STRING_TO_EXTERNAL_MALLOC(url, codesys);
url_handle->curl_handle = curl_easy_init ();
curl_easy_setopt (url_handle->curl_handle, CURLOPT_URL, url_handle->url);
/* skeleton - currently simply copies the plist
This has the effect of checking well-formedness, and we may want
to handle some properties specially. */
url_handle->property_list = Qnil;
{
EXTERNAL_PROPERTY_LIST_LOOP_3(key, value, plist)
{
url_handle->property_list =
Fcons (key, Fcons (value, url_handle->property_list));
}
}
return wrap_url_handle (url_handle);
}
DEFUN ("curl-easy-setopt", Fcurl_easy_setopt, 3, 3, 0, /*
Set OPTION to VALUE on curl url-handle HANDLE and return t.
OPTION is a string denoting an option in `curl-option-hash-table'.
VALUE must be of the appropriate type.
HANDLE must be an url-handle object of type `curl'.
A wrapper with some validation for libcurl's `curl_easy_setopt'.
Errors without useful explanations probably mean `curl-option-hash-table'
is corrupt.
*/
(option, value, handle))
{
Lisp_Object optdata = Fgethash (option, Vcurl_option_hash_table, Qnil);
Lisp_Object opttype = Fcar (optdata);
Lisp_Object optindex = Fcar (Fcdr (optdata));
CURLoption index;
CURL *curl;
CURLcode code;
Lisp_URL_Handle *h;
if (NILP (optdata))
invalid_argument ("unrecognized cURL option", option);
CHECK_URL_HANDLE (handle);
h = XURL_HANDLE (handle);
if (!EQ (h->type, Qcurl))
wtaerror ("handle is not a curl handle", handle);
curl = h->curl_handle;
CHECK_INT (optindex);
index = XINT (optindex);
if (EQ (opttype, Qlong))
{
CHECK_INT (value);
index += CURLOPTTYPE_LONG; /* CURLoptions encode type */
code = curl_easy_setopt (curl, (CURLoption) index, XINT (value));
CHECK_CURL_ERROR (code, option, handle);
}
else if (EQ (opttype, Qobjectpoint))
{
Extbyte *s;
/* HA-A-ACK! Currently we only support strings here, and we
don't check a string is a sane value for the option. */
CHECK_STRING (value);
index += CURLOPTTYPE_OBJECTPOINT; /* CURLoptions encode type */
/* #### MEMORY LEAK!
We need to add a pointer to the converted data here to a Dynarr
which is part of the handle. That will be freed when the handle
is collected. */
/* #### Is this the right coding system? */
s = NEW_LISP_STRING_TO_EXTERNAL_MALLOC (value, h->coding_system);
code = curl_easy_setopt (curl, (CURLoption) index, s);
CHECK_CURL_ERROR (code, option, handle);
if (index == CURLOPT_URL)
{
h->url = s;
}
}
else if (EQ (opttype, Qfunctionpoint))
{
index += CURLOPTTYPE_FUNCTIONPOINT; /* CURLoptions encode type */
UNIMPLEMENTED ("curl_api function pointer options");
}
else if (EQ (opttype, Qoff_t))
{
index += CURLOPTTYPE_OFF_T; /* CURLoptions encode type */
UNIMPLEMENTED ("curl_api large file offset options");
}
else
{
invalid_state ("invalid option type in `curl-option-hash-table'",
opttype);
}
return Qt;
}
static size_t curl_write_function (void *data, size_t size, size_t nmemb,
void *stream)
{
size_t count = size * nmemb;
Lstream *s = XLSTREAM ((Lisp_Object) stream);
/* #### the return code should be checked */
return (Lstream_write (s, data, count)) ? --count : count;
}
DEFUN ("curl-easy-perform", Fcurl_easy_perform, 1, 2, 0, /*
Read from the URL represented by HANDLE into BUFFER at point.
Optional BUFFER defaults to the current buffer.
Returns t.
*/
(handle, buffer))
{
CHECK_URL_HANDLE (handle);
if (NILP (buffer))
buffer = Fcurrent_buffer ();
CHECK_BUFFER (buffer);
if (EQ (XURL_HANDLE (handle)->type, Qcurl))
{
CURL *curl = XURL_HANDLE (handle)->curl_handle;
if (curl)
{
CURLcode code;
struct buffer *buf = XBUFFER(buffer);
/* #### I don't see how to generalize this.
We'd like to be able to the Lstream in from Lisp, and somehow
figure out what the type is so as to use the proper
CURLOPT_WRITEFUNCTION.
Ditto for CURLOPT_READFUNCTION and CURLOPT_READDATA. */
Lisp_Object s = make_lisp_buffer_output_stream (buf, buf->bufpt,
LSTR_ALLOW_QUIT);
curl_easy_setopt (curl, CURLOPT_WRITEFUNCTION, &curl_write_function);
curl_easy_setopt (curl, CURLOPT_WRITEDATA, s);
code = curl_easy_perform (curl);
Lstream_close (XLSTREAM (s));
CHECK_CURL_ERROR (code, intern ("perform"), handle);
}
else
{
invalid_state ("URL handle is uninitialized", handle);
}
}
else
{
wtaerror ("URL handle is not a cURL handle", handle);
}
return Qt;
}
DEFUN ("curl-easy-getinfo", Fcurl_easy_getinfo, 2, 2, 0, /*
Return the value of ATTRIBUTE for HANDLE.
ATTRIBUTE is a string denoting an attribute in `curl-info-hash-table'.
HANDLE must be an url-handle object of type `curl'.
A wrapper with some validation for libcurl's `curl_easy_getinfo'.
Errors without useful explanations probably mean `curl-info-hash-table'
is corrupt.
*/
(attribute, handle))
{
Lisp_Object attdata = Fgethash (attribute, Vcurl_info_hash_table, Qnil);
Lisp_Object atttype = Fcar (attdata);
Lisp_Object attindex = Fcar (Fcdr (attdata));
CURL *curl;
CURLcode code;
Lisp_URL_Handle *h;
if (NILP (attdata))
invalid_argument ("unrecognized cURL attribute", attribute);
CHECK_URL_HANDLE (handle);
h = XURL_HANDLE (handle);
if (!EQ (h->type, Qcurl))
wtaerror ("handle is not a curl handle", handle);
curl = h->curl_handle;
CHECK_INT (attindex);
index = XINT (attindex);
if (EQ (atttype, Qlong))
{
long retval;
code = curl_easy_getinfo (curl, (CURLoption) index, &retval);
CHECK_CURL_ERROR (code, attribute, handle);
/* #### can this overflow? */
value = make_int (retval);
}
else if (EQ (atttype, Qstring))
{
Extbyte *retval;
code = curl_easy_getinfo (curl, (CURLoption) index, &retval);
CHECK_CURL_ERROR (code, attribute, handle);
value = build_ext_string (s);
}
else if (EQ (atttype, Qdouble))
{
double retval;
code = curl_easy_getinfo (curl, (CURLoption) index, &retval);
CHECK_CURL_ERROR (code, attribute, handle);
value = make_float (retval);
}
else if (EQ (atttype, Qlist))
{
UNIMPLEMENTED ("curl_api slist attributes");
}
else
{
invalid_state ("invalid attribute type in `curl-info-hash-table'",
atttype);
}
return value;
}
/*
* Each dynamically loaded Emacs module is given a name at compile
* time. This is a short name, and must be a valid part of a C
* identifier. This name is used to construct the name of several
* functions which must appear in the module source code.
* The first such function, modules_of_XXXX, should load in any dependent
* modules. This function is optional, and the module will still load if
* it is not present in the module.
*
* The second function, which is NOT optional, is syms_of_XXXX, in which
* all functions that the module will be provided are declared. This
* function will contain calls to DEFSUBR().
*
* The third function, which is also NOT optional, is vars_of_XXXX, in
* which you declare all variables that the module provides. This
* function will contain calls to DEFVAR_LISP(), DEFVAR_BOOL() etc.
*
* When declaring functions and variables in the syms_of_XXXX and
* vars_of_XXXX functions, you use the exact same syntax that you
* would as if this module were being compiled into the pure Emacs.
*
* The fourth function, which is optional, is unload_XXXX, in which actions
* that must be taken to unload the module are listed. XEmacs will unbind
* functions and variables for you. Anything else that must be done should
* appear in this function.
*
* All four of these functions are declared as void functions,
* taking no parameters.
*/
#if 0
void
modules_of_curl_api ()
{
/*
* This function isn't actually required as we will not be loading
* in any dependent modules, but if we were, we would do something like:
* emodules_load ("dependent.ell", "sample2", "1.0.0");
*/
/* MAYBE: emodules_load ("earl.ell", "earl", "0.0.1"); */
}
#endif
void
syms_of_curl_api ()
{
INIT_LRECORD_IMPLEMENTATION (url_handle);
/* #### These functions will move to the earl module. */
DEFSUBR (Furl_handle_p);
DEFSUBR (Furl_handle_live_p);
DEFSUBR (Furl_handle_host);
DEFSUBR (Furl_handle_type);
/* cURL-specific functions. */
DEFSUBR (Fcurl_make_url_handle);
DEFSUBR (Fcurl_easy_perform);
DEFSUBR (Fcurl_easy_setopt);
/* #### These symbols will move to the earl module. */
DEFSYMBOL_MULTIWORD_PREDICATE (Qurl_handlep);
/* cURL-specific symbols. */
DEFSYMBOL (Qcurl_api); /* feature symbol */
DEFSYMBOL (Qcurl);
DEFSYMBOL (Qlong);
DEFSYMBOL (Qfunctionpoint);
DEFSYMBOL (Qobjectpoint);
defsymbol (&Qoff_t, "off_t"); /* Yes, it IS worth conforming to
cURL's
spelling of this symbol. */
}
void
vars_of_curl_api ()
{
Fprovide (Qcurl_api);
DEFVAR_LISP ("curl-option-hash-table", &Vcurl_option_hash_table /*
Table of options available for `curl-easy-setopt'.
Key are strings naming options. The option names are taken from enum
CURLoption in <curl/curl.h>. They are all uppercase, and the "CURLOPT_"
prefix is omitted.
Values are lists containing a type symbol \(one of `long', `objectpoint',
`functionpoint', and `off_t') and an integer, which is the option index.
It is planned to add a list of Lisp types that can be converted to something
that is useful for the option as the 3rd element of the value list.
It is planned to add the leading comments as docstrings, to be the 4th
element of the value list corresponding to each key.
*/ );
Vcurl_option_hash_table = Qnil;
DEFVAR_LISP ("curl-info-hash-table", &Vcurl_info_hash_table /*
Table of attributes accessible via `curl-easy-getinfo'.
Keys are strings naming attributes. The attribute names are taken from
enum CURLinfo in <curl/curl.h>. They are all uppercase, and the
"CURLINFO_"
prefix is omitted.
Values are lists containing a type symbol (one of `long', `string',
`double', and `list') and an integer, which is the attribute index.
It is planned to add docstrings, to be the 3rd element of the value list
corresponding to each key.
*/ );
Vcurl_info_hash_table = Qnil;
#ifdef HAVE_SHLIB
/* Need to initialize cURL if loaded as a module.
Could do this lazily (when creating the first cURL handle), but since
this is a module it probably got autoloaded in response to a call to
`make-curl-handle'. */
if (curl_global_init (CURL_GLOBAL_XEMACS))
{
/* unload_curl_api (); */ /* #### can we do this? */
signal_error (Qio_error, "libcurl initialization failed", Qunbound);
}
#endif
}
#ifdef HAVE_SHLIB
void
unload_curl_api ()
{
/* If we create any new types by INIT_LRECORD_IMPLEMENTATION (sample_type),
then UNDEF_LRECORD_IMPLEMENTATION (sample_type) must appear here. Also,
any symbols declared with DEFSYMBOL (Qsample_var) or a variant, must
have a corresponding unstaticpro_nodump (&Qsample_var) here. */
/* Shut down libcurl and free internal structures.
#### Handle return code? Nothing interesting is documented. */
(void) curl_global_cleanup ();
unstaticpro_nodump (&Qcurl_api);
unstaticpro_nodump (&Qcurl);
unstaticpro_nodump (&Qurl_handlep);
unstaticpro_nodump (&Qlong);
unstaticpro_nodump (&Qfunctionpoint);
unstaticpro_nodump (&Qobjectpoint);
unstaticpro_nodump (&Qoff_t);
}
#endif
1.1 XEmacs/packages/unsupported/stephen/curl/curl_api.h
Index: curl_api.h
===================================================================
/*
* Lisp interface to libcurl for XEmacs.
*
* Copyright (C) 1998, 1999 J. Kean Johnston. All rights reserved.
* Copyright (C) 2002 Jerry James.
* Copyright (C) 2005 Stephen J. Turnbull <stephen(a)xemacs.org>
*
* All rights reserved, except as expressly indicated below.
*
* This program is not considered part of XEmacs.
*
* You may use, copy, modify, and distribute this software under the terms
* of the GNU General Public License, version 2 or later at your option.
*
* Author: Stephen J. Turnbull <stephen(a)xemacs.org>
* Creation-Date: 2005-11-23
*/
#include <curl/curl.h>
/************************************************************************/
/* XEmacs-specific cURL stuff */
/************************************************************************/
/* Presumably we initialize Windows socket stuff correctly. If not, I don't
think it's a good idea to do it in a module. If you know better, feel
free to allow CURL_GLOBAL_WIN32 in this macro. */
#define CURL_GLOBAL_XEMACS (CURL_GLOBAL_ALL & ~CURL_GLOBAL_WIN32)
/************************************************************************/
/* Structures */
/************************************************************************/
/* This is URL_Handle, not Curl_Handle, because a generalization is
planned. */
struct Lisp_URL_Handle
{
struct LCRECORD_HEADER header;
/* type of the handle; READ-ONLY from Lisp */
Lisp_Object type;
/* property list for properties not contained in the cURL handle;
READ-ONLY from Lisp
This could be used to maintain state for a handler based on url.el or
an external process (eg, curl, wget). */
Lisp_Object property_list;
/* the coding system used to convery url; READ-ONLY from Lisp */
Lisp_Object coding_system;
/* the URL string in external format
cURL expects the caller to allocate storage and clean it up. */
Extbyte *url;
/* the cURL handle used by the libcurl API */
CURL *curl_handle;
/* #### UNIMPLEMENTED array of pointers to string data we need to free */
Dynarr *big_ball_of_strings;
};
typedef struct Lisp_URL_Handle Lisp_URL_Handle;
DECLARE_LRECORD (url_handle, Lisp_URL_Handle);
#define XURL_HANDLE(x) XRECORD (x, url_handle, Lisp_URL_Handle)
#define wrap_url_handle(p) wrap_record (p, url_handle)
#define URL_HANDLEP(x) RECORDP (x, url_handle)
#define CHECK_URL_HANDLE(x) CHECK_RECORD (x, url_handle)
#define CONCHECK_URL_HANDLE(x) CONCHECK_RECORD (x, url_handle)
1.1 XEmacs/packages/unsupported/stephen/curl/install-sh
Index: install-sh
===================================================================
#!/bin/sh
#
# install - install a program, script, or datafile
# This comes from X11R5 (mit/util/scripts/install.sh).
#
# Copyright 1991 by the Massachusetts Institute of Technology
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
# the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation, and that the name of M.I.T. not be used in advertising or
# publicity pertaining to distribution of the software without specific,
# written prior permission. M.I.T. makes no representations about the
# suitability of this software for any purpose. It is provided "as is"
# without express or implied warranty.
#
# Calling this script install-sh is preferred over install.sh, to prevent
# `make' implicit rules from creating a file called install from it
# when there is no Makefile.
#
# This script is compatible with the BSD install script, but was written
# from scratch. It can only install one file at a time, a restriction
# shared with many OS's install programs.
# set DOITPROG to echo to test this script
# Don't use :- since 4.3BSD and earlier shells don't like it.
doit="${DOITPROG-}"
# put in absolute paths if you don't have them in your path; or use env. vars.
mvprog="${MVPROG-mv}"
cpprog="${CPPROG-cp}"
chmodprog="${CHMODPROG-chmod}"
chownprog="${CHOWNPROG-chown}"
chgrpprog="${CHGRPPROG-chgrp}"
stripprog="${STRIPPROG-strip}"
rmprog="${RMPROG-rm}"
mkdirprog="${MKDIRPROG-mkdir}"
transformbasename=""
transform_arg=""
instcmd="$mvprog"
chmodcmd="$chmodprog 0755"
chowncmd=""
chgrpcmd=""
stripcmd=""
rmcmd="$rmprog -f"
mvcmd="$mvprog"
src=""
dst=""
dir_arg=""
while [ x"$1" != x ]; do
case $1 in
-c) instcmd="$cpprog"
shift
continue;;
-d) dir_arg=true
shift
continue;;
-m) chmodcmd="$chmodprog $2"
shift
shift
continue;;
-o) chowncmd="$chownprog $2"
shift
shift
continue;;
-g) chgrpcmd="$chgrpprog $2"
shift
shift
continue;;
-s) stripcmd="$stripprog"
shift
continue;;
-t=*) transformarg=`echo $1 | sed 's/-t=//'`
shift
continue;;
-b=*) transformbasename=`echo $1 | sed 's/-b=//'`
shift
continue;;
*) if [ x"$src" = x ]
then
src=$1
else
# this colon is to work around a 386BSD /bin/sh bug
:
dst=$1
fi
shift
continue;;
esac
done
if [ x"$src" = x ]
then
echo "install: no input file specified"
exit 1
else
:
fi
if [ x"$dir_arg" != x ]; then
dst=$src
src=""
if [ -d $dst ]; then
instcmd=:
chmodcmd=""
else
instcmd=$mkdirprog
fi
else
# Waiting for this to be detected by the "$instcmd $src $dsttmp" command
# might cause directories to be created, which would be especially bad
# if $src (and thus $dsttmp) contains '*'.
if [ -f "$src" ] || [ -d "$src" ]
then
:
else
echo "install: $src does not exist"
exit 1
fi
if [ x"$dst" = x ]
then
echo "install: no destination specified"
exit 1
else
:
fi
# If destination is a directory, append the input filename; if your system
# does not like double slashes in filenames, you may need to add some logic
if [ -d $dst ]
then
dst="$dst"/`basename $src`
else
:
fi
fi
## this sed command emulates the dirname command
dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'`
# Make sure that the destination directory exists.
# this part is taken from Noah Friedman's mkinstalldirs script
# Skip lots of stat calls in the usual case.
if [ ! -d "$dstdir" ]; then
defaultIFS='
'
IFS="${IFS-${defaultIFS}}"
oIFS="${IFS}"
# Some sh's can't handle IFS=/ for some reason.
IFS='%'
set - `echo ${dstdir} | sed -e 's＠/＠%＠g' -e 's＠^%＠/＠'`
IFS="${oIFS}"
pathcomp=''
while [ $# -ne 0 ] ; do
pathcomp="${pathcomp}${1}"
shift
if [ ! -d "${pathcomp}" ] ;
then
$mkdirprog "${pathcomp}"
else
:
fi
pathcomp="${pathcomp}/"
done
fi
if [ x"$dir_arg" != x ]
then
$doit $instcmd $dst &&
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else : ; fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else : ; fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else : ; fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else : ; fi
else
# If we're going to rename the final executable, determine the name now.
if [ x"$transformarg" = x ]
then
dstfile=`basename $dst`
else
dstfile=`basename $dst $transformbasename |
sed $transformarg`$transformbasename
fi
# don't allow the sed command to completely eliminate the filename
if [ x"$dstfile" = x ]
then
dstfile=`basename $dst`
else
:
fi
# Make a temp file name in the proper directory.
dsttmp=$dstdir/#inst.$$#
# Move or copy the file name to the temp name
$doit $instcmd $src $dsttmp &&
trap "rm -f ${dsttmp}" 0 &&
# and set any options; do chmod last to preserve setuid bits
# If any of these fail, we abort the whole thing. If we want to
# ignore errors from any of these, just make sure not to ignore
# errors from the above "$doit $instcmd $src $dsttmp" command.
if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else :;fi &&
if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else :;fi &&
if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else :;fi &&
if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else :;fi &&
# Now rename the file to the real destination.
$doit $rmcmd -f $dstdir/$dstfile &&
$doit $mvcmd $dsttmp $dstdir/$dstfile
fi &&
exit 0