PageRenderTime 66ms CodeModel.GetById 17ms app.highlight 42ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/httpd20/src/apr/apr_lib.inc

https://github.com/slibre/freepascal
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