/packages/httpd20/src/apr/apr_lib.inc
Pascal | 221 lines | 25 code | 16 blank | 180 comment | 0 complexity | 09e12012c44eaaa232530a0c2ef2048b MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ Copyright 2000-2005 The Apache Software Foundation or its licensors, as 2 * applicable. 3 * 4 * Licensed under the Apache License, Version 2.0 (the "License"); 5 * you may not use this file except in compliance with the License. 6 * You may obtain a copy of the License at 7 * 8 * http://www.apache.org/licenses/LICENSE-2.0 9 * 10 * Unless required by applicable law or agreed to in writing, software 11 * distributed under the License is distributed on an "AS IS" BASIS, 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13 * See the License for the specific language governing permissions and 14 * limitations under the License. 15 } 16 17{ 18 * @file apr_lib.h 19 * This is collection of oddballs that didn't fit anywhere else, 20 * and might move to more appropriate headers with the release 21 * of APR 1.0. 22 * @brief APR general purpose library routines 23 } 24 25{#include "apr.h" 26#include "apr_errno.h" 27 28#if APR_HAVE_CTYPE_H 29#include <ctype.h> 30#endif 31#if APR_HAVE_STDARG_H 32#include <stdarg.h> 33#endif} 34 35{ 36 * @defgroup apr_lib General Purpose Library Routines 37 * @ingroup APR 38 * This is collection of oddballs that didn't fit anywhere else, 39 * and might move to more appropriate headers with the release 40 * of APR 1.0. 41 } 42 43{ A constant representing a 'large' string. } 44const HUGE_STRING_LEN = 8192; 45 46{ 47 * Define the structures used by the APR general-purpose library. 48 } 49 50{ @see apr_vformatter_buff_t } 51type 52 Papr_vformatter_buff_t = ^apr_vformatter_buff_t; 53 54{ 55 * Structure used by the variable-formatter routines. 56 } 57 apr_vformatter_buff_t = record 58 { The current position } 59 curpos: PChar; 60 { The end position of the format string } 61 endpos: PChar; 62 end; 63 64{ 65 * return the final element of the pathname 66 * @param pathname The path to get the final element of 67 * @return the final element of the path 68 * @remark 69 * <PRE> 70 * For example: 71 * "/foo/bar/gum" -> "gum" 72 * "/foo/bar/gum/" -> "" 73 * "gum" -> "gum" 74 * "bs\\path\\stuff" -> "stuff" 75 * </PRE> 76 } 77function apr_filepath_name_get(const pathname: PChar): PChar; 78 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} 79 external LibAPR name LibNamePrefix + 'apr_filepath_name_get' + LibSuff4; 80 81{ @deprecated @see apr_filepath_name_get } 82function apr_filename_of_pathname(const pathname: PChar): PChar; 83 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} 84 external LibAPR name LibNamePrefix + 'apr_filename_of_pathname' + LibSuff4; 85 86{ 87 * apr_killpg 88 * Small utility macros to make things easier to read. Not usually a 89 * goal, to be sure.. 90 } 91 92//#ifdef WIN32 93//#define apr_killpg(x, y) 94//#else { WIN32 } 95//#ifdef NO_KILLPG 96//#define apr_killpg(x, y) (kill (-(x), (y))) 97//#else { NO_KILLPG } 98//#define apr_killpg(x, y) (killpg ((x), (y))) 99//#endif { NO_KILLPG } 100//#endif { WIN32 } 101 102{ 103 * apr_vformatter() is a generic printf-style formatting routine 104 * with some extensions. 105 * @param flush_func The function to call when the buffer is full 106 * @param c The buffer to write to 107 * @param fmt The format string 108 * @param ap The arguments to use to fill out the format string. 109 * 110 * @remark 111 * <PRE> 112 * The extensions are: 113 * 114 * %%pA takes a struct in_addr *, and prints it as a.b.c.d 115 * %%pI takes an apr_sockaddr_t * and prints it as a.b.c.d:port or 116 * [ipv6-address]:port 117 * %%pT takes an apr_os_thread_t * and prints it in decimal 118 * ('0' is printed if !APR_HAS_THREADS) 119 * %%pp takes a void * and outputs it in hex 120 * 121 * The %%p hacks are to force gcc's printf warning code to skip 122 * over a pointer argument without complaining. This does 123 * mean that the ANSI-style %%p (output a void * in hex format) won't 124 * work as expected at all, but that seems to be a fair trade-off 125 * for the increased robustness of having printf-warnings work. 126 * 127 * Additionally, apr_vformatter allows for arbitrary output methods 128 * using the apr_vformatter_buff and flush_func. 129 * 130 * The apr_vformatter_buff has two elements curpos and endpos. 131 * curpos is where apr_vformatter will write the next byte of output. 132 * It proceeds writing output to curpos, and updating curpos, until 133 * either the end of output is reached, or curpos == endpos (i.e. the 134 * buffer is full). 135 * 136 * If the end of output is reached, apr_vformatter returns the 137 * number of bytes written. 138 * 139 * When the buffer is full, the flush_func is called. The flush_func 140 * can return -1 to indicate that no further output should be attempted, 141 * and apr_vformatter will return immediately with -1. Otherwise 142 * the flush_func should flush the buffer in whatever manner is 143 * appropriate, re apr_pool_t nitialize curpos and endpos, and return 0. 144 * 145 * Note that flush_func is only invoked as a result of attempting to 146 * write another byte at curpos when curpos >= endpos. So for 147 * example, it's possible when the output exactly matches the buffer 148 * space available that curpos == endpos will be true when 149 * apr_vformatter returns. 150 * 151 * apr_vformatter does not call out to any other code, it is entirely 152 * self-contained. This allows the callers to do things which are 153 * otherwise "unsafe". For example, apr_psprintf uses the "scratch" 154 * space at the unallocated end of a block, and doesn't actually 155 * complete the allocation until apr_vformatter returns. apr_psprintf 156 * would be completely broken if apr_vformatter were to call anything 157 * that used this same pool. Similarly http_bprintf() uses the "scratch" 158 * space at the end of its output buffer, and doesn't actually note 159 * that the space is in use until it either has to flush the buffer 160 * or until apr_vformatter returns. 161 * </PRE> 162 } 163type 164 flush_func_t = function (b: Papr_vformatter_buff_t): Integer; 165 166function apr_vformatter(flush_func: flush_func_t; 167 c: Papr_vformatter_buff_t; const fmt: PChar; ap: va_list): Integer; 168 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} 169 external LibAPR name LibNamePrefix + 'apr_vformatter' + LibSuff16; 170 171{ 172 * Display a prompt and read in the password from stdin. 173 * @param prompt The prompt to display 174 * @param pwbuf Buffer to store the password 175 * @param bufsize The length of the password buffer. 176 } 177function apr_password_get(const prompt: PChar; 178 pwbuf: PChar; bufsize: Papr_size_t): apr_status_t; 179 {$IFDEF WINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} 180 external LibAPR name LibNamePrefix + 'apr_password_get' + LibSuff12; 181 182{ 183 * @defgroup apr_ctype ctype functions 184 * These macros allow correct support of 8-bit characters on systems which 185 * support 8-bit characters. Pretty dumb how the cast is required, but 186 * that's legacy libc for ya. These new macros do not support EOF like 187 * the standard macros do. Tough. 188 } 189{ @see isalnum } 190//#define apr_isalnum(c) (isalnum(((unsigned char)(c)))) 191{ @see isalpha } 192//#define apr_isalpha(c) (isalpha(((unsigned char)(c)))) 193{ @see iscntrl } 194//#define apr_iscntrl(c) (iscntrl(((unsigned char)(c)))) 195{ @see isdigit } 196//#define apr_isdigit(c) (isdigit(((unsigned char)(c)))) 197{ @see isgraph } 198//#define apr_isgraph(c) (isgraph(((unsigned char)(c)))) 199{ @see islower} 200//#define apr_islower(c) (islower(((unsigned char)(c)))) 201{ @see isascii } 202{#ifdef isascii 203#define apr_isascii(c) (isascii(((unsigned char)(c)))) 204#else 205#define apr_isascii(c) (((c) & ~0x7f)==0) 206#endif} 207{ @see isprint } 208//#define apr_isprint(c) (isprint(((unsigned char)(c)))) 209{ @see ispunct } 210//#define apr_ispunct(c) (ispunct(((unsigned char)(c)))) 211{ @see isspace } 212//#define apr_isspace(c) (isspace(((unsigned char)(c)))) 213{ @see isupper } 214//#define apr_isupper(c) (isupper(((unsigned char)(c)))) 215{ @see isxdigit } 216//#define apr_isxdigit(c) (isxdigit(((unsigned char)(c)))) 217{ @see tolower } 218function apr_tolower(c: Char): Char; 219{ @see toupper } 220function apr_toupper(c: Char): Char; 221