--- parser3/src/include/pa_common.h	2002/11/25 14:10:52	1.85
+++ parser3/src/include/pa_common.h	2026/10/01 11:48:37	1.202
@@ -1,225 +1,175 @@
 /** @file
 	Parser: commonly used functions.
 
-	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
 #ifndef PA_COMMON_H
 #define PA_COMMON_H
 
-static const char* IDENT_COMMON_H="$Date: 2002/11/25 14:10:52 $";
+#define IDENT_PA_COMMON_H "$Id: pa_common.h,v 1.202 2026/10/01 11:48:37 moko Exp $"
 
-#include "pa_pool.h"
 #include "pa_string.h"
+#include "pa_hash.h"
 
-class Hash;
+class Request;
+
+// defines
+#define HTTP_STATUS		"status"
+#define HTTP_STATUS_CAPITALIZED	"Status"
+
+#define HTTP_CONTENT_LENGTH		"content-length"
+
+#define HTTP_CONTENT_TYPE		"content-type"
+#define HTTP_CONTENT_TYPE_UPPER		"CONTENT-TYPE"
+#define HTTP_CONTENT_TYPE_CAPITALIZED	"Content-Type"
+
+#define CONTENT_DISPOSITION		"content-disposition"
+#define CONTENT_DISPOSITION_UPPER	"CONTENT-DISPOSITION"
+#define CONTENT_DISPOSITION_CAPITALIZED	"Content-Disposition"
+
+#define CONTENT_DISPOSITION_ATTACHMENT	"attachment"
+#define CONTENT_DISPOSITION_INLINE	"inline"
+#define CONTENT_DISPOSITION_FILENAME_NAME "filename"
+
+#define HTTP_CONTENT_TYPE_FORM_URLENCODED	"application/x-www-form-urlencoded"
+#define HTTP_CONTENT_TYPE_MULTIPART_FORMDATA	"multipart/form-data"
+#define HTTP_CONTENT_TYPE_MULTIPART_RELATED	"multipart/related"
+#define HTTP_CONTENT_TYPE_MULTIPART_MIXED	"multipart/mixed"
+
+extern const String content_disposition_filename_name;
+
+#define HASH_ORDER
+
+#ifdef HASH_ORDER
+#undef PA_HASH_CLASS
+#include "pa_hash.h"
+#endif
+
+class Value;
+typedef HASH_STRING<Value*> HashStringValue;
 
 // replace system s*nprintf with our versions
-#undef vsnprintf 
-int __vsnprintf(char *, size_t, const char *, va_list);
-#define vsnprintf __vsnprintf 
+#undef vsnprintf
+int pa_vsnprintf(char *, size_t, const char* , va_list);
+#define vsnprintf pa_vsnprintf 
 #undef snprintf
-int __snprintf(char *, size_t, const char *, ...);
-#define snprintf __snprintf
-
-#if _MSC_VER
-/*
-inline int open( const char *filename, int oflag ) { return _open(filename, oflag); }
-inline int close( int handle ) { return _close(handle); }
-inline int read( int handle, void *buffer, unsigned int count ) { return _read(handle,buffer,count); }
-inline int write( int handle, const void *buffer, unsigned int count ) { return _write(handle,buffer,count); }
-inline int stat( const char *path, struct _stat *buffer ) { return _stat(path, buffer); }
-inline long lseek( int handle, long offset, int origin ) { return _lseek(handle, offset, origin); }
-*/
+int pa_snprintf(char *, size_t, const char* , ...);
+#define snprintf pa_snprintf
 
-//access
-#define F_OK 0
-#define X_OK 1
-#define W_OK 2
-#define R_OK 4
+#ifdef _MSC_VER
 
 #ifndef strcasecmp
 #	define strcasecmp _stricmp
 #endif
+
 #ifndef strncasecmp
 #	define strncasecmp _strnicmp
 #endif
-#ifndef mkdir
-#	define mkdir(path, mode) _mkdir(path)
-#endif
 
-#ifndef putenv
-#	define putenv _putenv
 #endif
 
-#endif
+/**
+	String related functions
+*/
 
-#ifdef HAVE_TRUNC
-#	ifndef trunc
-extern "C" double trunc(double);
-#	endif
-#else
-inline double trunc(double param) { return param > 0? floor(param) : ceil(param); }
-#endif
+// Under WIN32 "t" mode fixes DOS chars OK, can't say that about other systems/ line break styles
+void fix_line_breaks(char *str,	size_t& length /* < may change! used to speedup next actions */);
 
-#ifdef HAVE_ROUND
-#	ifndef round
-extern "C" double round(double);
-#	endif
-#else
-inline double round(double param) { return floor(param+0.5); }
-#endif
-#ifdef HAVE_SIGN
-#	ifndef sign
-extern "C" double sign(double);
-#	endif
-#else
-inline double sign(double param) { return param > 0 ? 1 : ( param < 0 ? -1 : 0 ); }
-#endif
+char *getrow(char **row_ref,char delim='\n');
 
-/// yields to OS for secs secs and usecs milliseconds
-int pa_sleep(unsigned long secs, unsigned long usecs);
+// Return the last occurrence of any character in chars or NULL if absent
+const char *strrpbrk(const char *string, const char *chars);
+inline char *strrpbrk(char *string, const char *chars) {
+	return (char*)strrpbrk((const char*)string, chars);
+}
 
-/** under WIN32 "t" mode fixes DOS chars OK, 
-	can't say that about other systems/ line break styles
-*/
-void fix_line_breaks(
-					 char *buf,
-					 size_t& size ///< may change! used to speedup next actions
-					 );
-
-typedef void (*File_read_action)(Pool& pool,
-								 struct stat& finfo,
-								 int f, 
-								 const String& file_spec, const char *fname, bool as_text,
-								 void *context);
+// Split at the first occurrence of delimiter; return the suffix or NULL if absent
+char *lsplit(char *string, char delim);
+// Return the prefix; advance *string_ref to the suffix or set it to NULL if delimiter is absent
+char *lsplit(char **string_ref, char delim);
 
-/**
-	shared-lock specified file, 
-	do actions under lock.
-	if fail_on_read_problem is true[default] throws an exception
-	
-	@returns true if read OK
-*/
-bool file_read_action_under_lock(Pool& pool, const String& file_spec, 
-				const char *action_name, File_read_action action, void *context,
-				bool as_text=false,
-				bool fail_on_read_problem=true);
-/**
-	read specified text file using pool, 
-	if fail_on_read_problem is true[default] throws an exception
+// Split at the last occurrence of delimiter(s); return the suffix or NULL if absent
+char *rsplit(char *string, char delim);
+char *rsplit(char *string, const char *delims);
 
-  	@returns true if read OK
-*/
-char *file_read_text(Pool& pool, 
-					 const String& file_spec, 
-					 bool fail_on_read_problem=true,
-					 Hash *params=0, Hash** out_fields=0);
+char* unescape_chars(const char* cp, int len, Charset* client_charset=0, bool js=false/*true==decode \uXXXX and don't convert '+' to space*/);
 
-/**
-	read specified file using pool, 
-	if fail_on_read_problem is true[default] throws an exception
+char *search_stop(char*& current, char cstop_at);
 
-	@returns true if read OK
-*/
-bool file_read(Pool& pool, const String& file_spec, 
-			   void*& data, size_t& size, 
-			   bool as_text,
-			   Hash *params=0, Hash** out_fields=0,
-			   bool fail_on_read_problem=true);
+inline int pa_strncasecmp(const char* str, const char* substr, size_t count=0) {
+	return strncasecmp(str, substr, count ? count : strlen(substr));
+}
 
-typedef void (*File_write_action)(int f, void *context);
+// copy of the path with '/' only
+char* backslashes_to_slashes(const char* path);
+// same, keeping the original languages
+const String& backslashes_to_slashes(const String& path);
 
-/**
-	lock specified file exclusively, 
-	do actions under lock.
-	throws an exception in case of problems
-	
-	if block=false does non-blocking lock
-	@returns true if locked OK, or false if non-blocking locking failed
-*/
-bool file_write_action_under_lock(
-				const String& file_spec, 
-				const char *action_name, File_write_action action, void *context,
-				bool as_text=false,
-				bool do_append=false,
-				bool do_block=true,
-				bool fail_on_lock_problem=true);
+size_t strpos(const char *str, const char *substr);
 
-/**
-	write data to specified file, 
-	throws an exception in case of problems
-*/
-void file_write(
-				const String& file_spec,
-				const void *data, size_t size, 
-				bool as_text,
-				bool do_append=false);
+size_t remove_crlf(char *start, char *end);
 
-/**
-	delete specified file 
-	throws an exception in case of problems
-*/
-bool file_delete(const String& file_spec, bool fail_on_read_problem=true);
-/**
-	move specified file 
-	throws an exception in case of problems
-*/
-void file_move(const String& old_spec, const String& new_spec);
+inline bool pa_isalpha(unsigned char c) { return (((c>='A') && (c<='Z')) || ((c>='a') && (c<='z'))); }
+inline bool pa_isalnum(unsigned char c) { return (((c>='0') && (c<='9')) || pa_isalpha(c)); }
 
-bool entry_exists(const char *fname, struct stat *afinfo=0);
-bool entry_exists(const String& file_spec);
-bool file_readable(const String& file_spec);
-bool dir_readable(const String& file_spec);
-String *file_readable(const String& path, const String& name);
-bool file_executable(const String& file_spec);
-
-bool file_stat(const String& file_spec, 
-			   size_t& rsize, 
-			   time_t& ratime,
-			   time_t& rmtime,
-			   time_t& rctime,
-			   bool fail_on_read_problem=true);
+void pa_strncpy(char *dst, const char *src, size_t dst_size);
+char *pa_strcat(const char *a, const char *b, const char *c = 0);
+
+const char* capitalize(const char* s);
+char *str_lower(const char *s, size_t length);
+char *str_upper(const char *s, size_t length);
+inline char *str_lower(const char *s) { return str_lower(s, strlen(s)); }
+inline char *str_upper(const char *s) { return str_upper(s, strlen(s)); }
+
+const char* hex_string(unsigned char* bytes, size_t size, bool upcase);
+extern const char* hex_digits;
+
+const char *pa_idna_encode(const char *in, Charset &source);
+const char *pa_idna_decode(const char *in, Charset &source);
+
+unsigned long pa_crc32(const char *in, size_t in_size);
+unsigned long pa_crc32(const String& file_spec);
 
 /**
-	scans for @a delim[default \n] in @a *row_ref, 
-	@return piece of line before it or end of string, if no @a delim found
-	assigns @a *row_ref to point right after delimiter if there were one
-	or to zero if no @a delim were found.
+	Mix functions
 */
-char *getrow(char **row_ref,char delim='\n');
-char *lsplit(char *string, char delim);
-char *lsplit(char **string_ref,char delim);
-char *rsplit(char *string, char delim);
-char *format(Pool& pool, double value, char *fmt);
 
-#ifndef max
-inline int max(int a, int b) { return a>b?a:b; }
-inline int min(int a, int b){ return a<b?a:b; }
-inline size_t max(size_t a, size_t b) { return a>b?a:b; }
-inline size_t min(size_t a, size_t b){ return a<b?a:b; }
-#endif
+#define PA_DEFAULT(A,B) ((A) ? (A):(B) )
 
-size_t stdout_write(const void *buf, size_t size);
+Charset* detect_charset(const char* content_type);
 
-char *unescape_chars(Pool& pool, const char *cp, int len);
+// globals
 
-#ifdef WIN32
-void back_slashes_to_slashes(char *s);
-//void slashes_to_back_slashes(char *s);
-#endif
+extern const String file_status_name;
 
-#ifndef _qsort
-#	define _qsort(names,cnt,sizeof_names,func_addr) \
-		qsort(names,cnt,sizeof_names,func_addr)
-#endif
+// global defines for file options which are handled but not checked elsewhere, we check them
 
-bool StrEqNc(const char *s1, const char *s2, bool strict=true);
+#define PA_COLUMN_SEPARATOR_NAME "separator"
+#define PA_COLUMN_ENCLOSER_NAME "encloser"
+#define PA_CHARSET_NAME "charset"
+#define PA_RESPONSE_CHARSET_NAME "response-charset"
 
-#define SECS_PER_DAY (60*60*24)
-int getMonthDays(int year, int month);
+// globals defines for sql options
 
-void remove_crlf(char *start, char *end);
+#define SQL_BIND_NAME "bind"
+#define PA_SQL_LIMIT_NAME "limit"
+#define PA_SQL_OFFSET_NAME "offset"
+#define SQL_DEFAULT_NAME "default"
+#define SQL_DISTINCT_NAME "distinct"
+#define SQL_VALUE_TYPE_NAME "type"
+
+extern String sql_bind_name;
+extern String sql_limit_name;
+extern String sql_offset_name;
+extern String sql_default_name;
+extern String sql_distinct_name;
+extern String sql_value_type_name;
+
+#ifndef DOXYGEN
+enum Table2hash_distint { D_ILLEGAL, D_FIRST };
+enum Table2hash_value_type { C_HASH, C_STRING, C_TABLE, C_CODE };
+#endif
 
 #endif