strcompat.c File Reference

Compatibility functions for strsep and strtoq missing on Solaris. More...

#include "asterisk.h"
#include <ctype.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <sys/types.h>
#include <dirent.h>
#include <unistd.h>
#include <fcntl.h>
#include "asterisk/utils.h"

Include dependency graph for strcompat.c:

Go to the source code of this file.

Defines
#define	LONG_MAX   9223372036854775807L
#define	LONG_MIN   (-9223372036854775807L-1L)
#define	MKTEMP_DIR   2
#define	MKTEMP_FILE   1
#define	MKTEMP_NAME   0
#define	NUM_CHARS   (sizeof(TEMPCHARS) - 1)
#define	TEMPCHARS   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_."
Functions
int	asprintf (char **str, const char *fmt,...)
void	closefrom (int n)
int	ffsll (long long n)
int	getloadavg (double *list, int nelem)
	Return something that won't cancel the call, but still return -1, in case we correct the implementation to check return value.
uint64_t	htonll (uint64_t host64)
char *	mkdtemp (char *path)
static int	mktemp_internal (char *path, int slen, int mode)
uint64_t	ntohll (uint64_t net64)
int	setenv (const char *name, const char *value, int overwrite)
char *	strcasestr (const char *haystack, const char *needle)
char *	strndup (const char *s, size_t n)
size_t	strnlen (const char *s, size_t n)
char *	strsep (char **str, const char *delims)
uint64_t	strtoq (const char *nptr, char **endptr, int base)
	Convert a string to a quad integer.
void	timersub (struct timeval *tvend, struct timeval *tvstart, struct timeval *tvdiff)
int	unsetenv (const char *name)
static char *	upper (const char *orig, char *buf, int bufsize)
int	vasprintf (char **strp, const char *fmt, va_list ap)

---

Detailed Description

Compatibility functions for strsep and strtoq missing on Solaris.

Definition in file strcompat.c.

---

Define Documentation

#define LONG_MAX   9223372036854775807L

Definition at line 227 of file strcompat.c.

Referenced by process_sdp_a_audio(), and strtoq().

#define LONG_MIN   (-9223372036854775807L-1L)

Definition at line 223 of file strcompat.c.

Referenced by process_sdp_a_audio(), and strtoq().

#define MKTEMP_DIR   2

Definition at line 504 of file strcompat.c.

Referenced by mkdtemp(), and mktemp_internal().

#define MKTEMP_FILE   1

Definition at line 503 of file strcompat.c.

Referenced by mktemp_internal().

#define MKTEMP_NAME   0

Definition at line 502 of file strcompat.c.

Referenced by mktemp_internal().

#define NUM_CHARS   (sizeof(TEMPCHARS) - 1)

Definition at line 507 of file strcompat.c.

Referenced by mktemp_internal().

#define TEMPCHARS   "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_."

Definition at line 506 of file strcompat.c.

Referenced by mktemp_internal().

---

Function Documentation

int asprintf	(	char **	str,
		const char *	fmt,
			...
	)

Definition at line 207 of file strcompat.c.

References vasprintf.

{
   va_list ap;
   int ret;

   *str = NULL;
   va_start(ap, fmt);
   ret = vasprintf(str, fmt, ap);
   va_end(ap);

   return ret;
}

void closefrom

(

int

n

)

Definition at line 424 of file strcompat.c.

References errno.

Referenced by ast_close_fds_above_n().

{
   long x;
   struct rlimit rl;
   DIR *dir;
   char path[16], *result;
   struct dirent *entry;

   snprintf(path, sizeof(path), "/proc/%d/fd", (int) getpid());
   if ((dir = opendir(path))) {
      while ((entry = readdir(dir))) {
         /* Skip . and .. */
         if (entry->d_name[0] == '.') {
            continue;
         }
         if ((x = strtol(entry->d_name, &result, 10)) && x >= n) {
#ifdef STRICT_COMPAT
            close(x);
#else
            /* This isn't strictly compatible, but it's actually faster
             * for our purposes to set the CLOEXEC flag than to close
             * file descriptors.
             */
            long flags = fcntl(x, F_GETFD);
            if (flags == -1 && errno == EBADF) {
               continue;
            }
            fcntl(x, F_SETFD, flags | FD_CLOEXEC);
#endif
         }
      }
      closedir(dir);
   } else {
      getrlimit(RLIMIT_NOFILE, &rl);
      if (rl.rlim_cur > 65535) {
         /* A more reasonable value.  Consider that the primary source of
          * file descriptors in Asterisk are UDP sockets, of which we are
          * limited to 65,535 per address.  We additionally limit that down
          * to about 10,000 sockets per protocol.  While the kernel will
          * allow us to set the fileno limit higher (up to 4.2 billion),
          * there really is no practical reason for it to be that high.
          */
         rl.rlim_cur = 65535;
      }
      for (x = n; x < rl.rlim_cur; x++) {
#ifdef STRICT_COMPAT
         close(x);
#else
         long flags = fcntl(x, F_GETFD);
         if (flags == -1 && errno == EBADF) {
            continue;
         }
         fcntl(x, F_SETFD, flags | FD_CLOEXEC);
#endif
      }
   }
}

int ffsll

(

long long

n

)

Definition at line 411 of file strcompat.c.

{
   int i;
   for (i = 0; i < 64; i++) {
      if ((1LL << i) & n) {
         return i + 1;
      }
   }
   return 0;
}

int getloadavg	(	double *	list,
		int	nelem
	)

Return something that won't cancel the call, but still return -1, in case we correct the implementation to check return value.

Definition at line 346 of file strcompat.c.

Referenced by ast_readconfig(), cli_prompt(), increase_call_count(), and sysinfo_helper().

{
   int i;

   for (i = 0; i < nelem; i++) {
      list[i] = 0.1;
   }
   return -1;
}

uint64_t htonll

(

uint64_t

host64

)

Definition at line 385 of file strcompat.c.

Referenced by iax_ie_append_versioned_uint64().

{
#if BYTE_ORDER == BIG_ENDIAN
   return host64;
#elif BYTE_ORDER == LITTLE_ENDIAN
   union {
      unsigned char c[8];
      uint64_t u;
   } number;
   number.u = host64;
   return
      (((uint64_t) number.c[0]) << 56) |
      (((uint64_t) number.c[1]) << 48) |
      (((uint64_t) number.c[2]) << 40) |
      (((uint64_t) number.c[3]) << 32) |
      (((uint64_t) number.c[4]) << 24) |
      (((uint64_t) number.c[5]) << 16) |
      (((uint64_t) number.c[6]) <<  8) |
      (((uint64_t) number.c[7]) <<  0);
#else
   #error "Unknown byte order"
#endif
}

char* mkdtemp

(

char *

path

)

Definition at line 566 of file strcompat.c.

References MKTEMP_DIR, and mktemp_internal().

{
   return mktemp_internal(path, 0, MKTEMP_DIR) ? NULL : path;
}

static int mktemp_internal	(	char *	path,
		int	slen,
		int	mode
	)			[static]

Definition at line 509 of file strcompat.c.

References ast_random(), errno, len(), MKTEMP_DIR, MKTEMP_FILE, MKTEMP_NAME, NUM_CHARS, and TEMPCHARS.

Referenced by mkdtemp().

{
   char *start, *cp, *ep;
   const char *tempchars = TEMPCHARS;
   unsigned int r, tries;
   struct stat sb;
   size_t len;
   int fd;

   len = strlen(path);
   if (len == 0 || slen >= len) {
      errno = EINVAL;
      return(-1);
   }
   ep = path + len - slen;

   tries = 1;
   for (start = ep; start > path && start[-1] == 'X'; start--) {
      if (tries < INT_MAX / NUM_CHARS) {
         tries *= NUM_CHARS;
      }
   }
   tries *= 2;

   do {
      for (cp = start; cp != ep; cp++) {
         r = ast_random() % NUM_CHARS;
         *cp = tempchars[r];
      }

      switch (mode) {
      case MKTEMP_NAME:
         if (lstat(path, &sb) != 0) {
            return (errno == ENOENT ? 0 : -1);
         }
         break;
      case MKTEMP_FILE:
         fd = open(path, O_CREAT | O_EXCL | O_RDWR, S_IRUSR | S_IWUSR);
         if (fd != -1 || errno != EEXIST) {
            return (fd);
         }
         break;
      case MKTEMP_DIR:
         if (mkdir(path, S_IRUSR | S_IWUSR | S_IXUSR) == 0) {
            return (0);
         }
         if (errno != EEXIST) {
            return (-1);
         }
         break;
      }
   } while (--tries);

   errno = EEXIST;
   return(-1);
}

uint64_t ntohll

(

uint64_t

net64

)

Definition at line 359 of file strcompat.c.

Referenced by dump_versioned_codec(), and iax_parse_ies().

{
#if BYTE_ORDER == BIG_ENDIAN
   return net64;
#elif BYTE_ORDER == LITTLE_ENDIAN
   union {
      unsigned char c[8];
      uint64_t u;
   } number;
   number.u = net64;
   return
      (((uint64_t) number.c[0]) << 56) |
      (((uint64_t) number.c[1]) << 48) |
      (((uint64_t) number.c[2]) << 40) |
      (((uint64_t) number.c[3]) << 32) |
      (((uint64_t) number.c[4]) << 24) |
      (((uint64_t) number.c[5]) << 16) |
      (((uint64_t) number.c[6]) <<  8) |
      (((uint64_t) number.c[7]) <<  0);
#else
   #error "Unknown byte order"
#endif
}

int setenv	(	const char *	name,
		const char *	value,
		int	overwrite
	)

Definition at line 62 of file strcompat.c.

Referenced by env_init(), env_write(), launch_script(), load_odbc_config(), read_environment(), and unsetenv().

{
   unsigned char *buf;
   int buflen;

   buflen = strlen(name) + strlen(value) + 2;
   buf = alloca(buflen);

   if (!overwrite && getenv(name))
      return 0;

   snprintf(buf, buflen, "%s=%s", name, value);

   return putenv(buf);
}

char* strcasestr	(	const char *	haystack,
		const char *	needle
	)

Definition at line 101 of file strcompat.c.

References upper().

Referenced by action_originate(), anti_injection(), common_exec(), find_sdp(), find_table_cb(), frame_trace_helper(), get_rdnis(), get_refer_info(), gettag(), handle_request_invite(), handle_response_register(), handle_show_applications(), modlist_modentry(), parse_moved_contact(), parse_register_contact(), playback_exec(), process_dahdi(), realtime_multi_odbc(), realtime_odbc(), register_verify(), reqprep(), respprep(), search_directory_sub(), sip_sipredirect(), sip_uri_headers_cmp(), and word_match().

{
   char *u1, *u2;
   int u1len = strlen(haystack) + 1, u2len = strlen(needle) + 1;

   u1 = alloca(u1len);
   u2 = alloca(u2len);
   if (u1 && u2) {
      char *offset;
      if (u2len > u1len) {
         /* Needle bigger than haystack */
         return NULL;
      }
      offset = strstr(upper(haystack, u1, u1len), upper(needle, u2, u2len));
      if (offset) {
         /* Return the offset into the original string */
         return ((char *)((unsigned long)haystack + (unsigned long)(offset - u1)));
      } else {
         return NULL;
      }
   } else {
      return NULL;
   }
}

char* strndup	(	const char *	s,
		size_t	n
	)

Definition at line 141 of file strcompat.c.

References len(), malloc, and strnlen().

{
   size_t len = strnlen(s, n);
   char *new = malloc(len + 1);

   if (!new)
      return NULL;

   new[len] = '\0';
   return memcpy(new, s, len);
}

size_t strnlen	(	const char *	s,
		size_t	n
	)

Definition at line 128 of file strcompat.c.

References len().

Referenced by strndup().

{
   size_t len;

   for (len = 0; len < n; len++)
      if (s[len] == '\0')
         break;

   return len;
}

char* strsep	(	char **	str,
		const char *	delims
	)

Definition at line 35 of file strcompat.c.

Referenced by __analog_ss_thread(), __ast_play_and_record(), _ast_device_state(), _build_port_config(), _macro_exec(), _parse(), acf_curl_helper(), acf_vm_info(), acf_vmcount_exec(), action_playback(), action_playback_and_continue(), actual_load_config(), add_hintdevice(), add_peer_mailboxes(), add_redirect(), adsi_load(), adsi_message(), aji_handle_pubsub_event(), analog_ss_thread(), append_history_va(), append_mailbox(), append_mailbox_mapping(), apply_options(), apply_outgoing(), ast_aji_get_client(), ast_app_getdata(), ast_append_ha(), ast_bridge_timelimit(), ast_build_timing(), ast_eivr_getvariable(), ast_eivr_setvariable(), ast_el_strtoarr(), ast_extension_state3(), ast_format_str_reduce(), ast_get_group(), ast_http_get_post_vars(), ast_parse_allow_disallow(), ast_parse_arg(), ast_parse_digest(), ast_playtones_start(), ast_read_image(), ast_remotecontrol(), ast_utils_which(), auth_exec(), authenticate_verify(), build_calendar(), build_channels(), build_gateway(), build_peer(), build_route(), builtin_atxfer(), check_blacklist(), check_user_full(), cleanup_stale_contexts(), complete_dialplan_add_ignorepat(), complete_dialplan_add_include(), complete_dialplan_remove_ignorepat(), complete_dialplan_remove_include(), complete_meetmecmd(), conf_exec(), conf_run(), config_curl(), config_line(), config_parse_variables(), console_dial(), create_queue_member(), cut_internal(), data_filter_alloc(), decrypt_frame(), del_exec(), deltree_exec(), dial_exec_full(), dial_trunk(), do_say(), ewscal_write_event(), exec_exec(), exts_compare(), extstate_read(), feature_interpret_helper(), filehelper(), find_gtalk(), forward_message(), function_fieldnum_helper(), function_fieldqty_helper(), function_sippeer(), get_range(), get_rdnis(), get_timerange(), gettag(), gosub_exec(), gtalk_alloc(), gtalk_request(), handle_cli_dialplan_add_extension(), handle_common_options(), handle_debug_dialplan(), handle_request_invite(), handle_request_notify(), handle_show_dialplan(), handle_t38_options(), handle_uri(), has_voicemail(), hint_read(), httpd_helper_thread(), iax2_register(), iftime(), inboxcount2(), is_prefix(), ivr_dispatch(), jingle_request(), leave_voicemail(), load_channelvars(), load_column_config(), make_components(), man_do_variable_value(), mark_parsed_methods(), metermaidstate(), misdn_set_opt_exec(), mkintf(), msg_send_cb(), msg_send_exec(), next_node_name(), notify_message(), notify_new_message(), orig_app(), orig_exten(), originate_exec(), page_exec(), parkandannounce_exec(), parse_apps(), parse_cookies(), parse_dial_string(), parse_empty_options(), parse_events(), parse_register_contact(), parse_session_expires(), parse_uri_full(), parse_via(), pbx_builtin_background(), pbx_builtin_execiftime(), pbx_builtin_gotoif(), pbx_builtin_gotoiftime(), pbx_builtin_importvar(), pbx_builtin_saynumber(), pbx_builtin_setvar(), pbx_find_extension(), pbx_load_config(), pbx_load_users(), pbx_parseable_goto(), pickup_exec(), pickupchan_exec(), playback_exec(), process_applicationmap_line(), process_dahdi(), process_sdp_o(), process_text_line(), queue_mwi_event(), queue_set_param(), read_config_maps(), readfile_exec(), realtime_curl(), realtime_multi_curl(), realtime_multi_odbc(), realtime_multi_pgsql(), realtime_odbc(), realtime_pgsql(), register_exten(), register_peer_exten(), register_verify(), reload_config(), reload_queue_members(), reply_digest(), sdp_crypto_process(), search_directory_sub(), send_dial_tone(), sendfax_exec(), sendmail(), set(), set_config_flags(), set_insecure_flags(), sip_digest_parser(), sip_get_cc_information(), sip_parse_nat_option(), sip_sipredirect(), sip_uri_cmp(), sip_uri_headers_cmp(), sip_uri_params_cmp(), skinny_call(), sla_add_trunk_to_station(), sla_check_device(), sla_queue_event_conf(), sla_ring_station(), sla_state(), sla_station_exec(), sort_internal(), spawn_mp3(), spawn_ras(), speech_background(), stat_read(), state_notify_build_xml(), store_tone_zone_ring_cadence(), timezone_add(), transmit_fake_auth_response(), tryexec_exec(), unistim_send_mwi_to_peer(), unregister_exten(), update_registry(), vmauthenticate(), write_htmldump(), and xml_translate().

{
   char *token;

   if (!*str) {
      /* No more tokens */
      return NULL;
   }

   token = *str;
   while (**str != '\0') {
      if (strchr(delims, **str)) {
         **str = '\0';
         (*str)++;
         return token;
      }
      (*str)++;
   }

   /* There is no other token */
   *str = NULL;

   return token;
}

uint64_t strtoq	(	const char *	nptr,
		char **	endptr,
		int	base
	)

Convert a string to a quad integer.

Note:

Ignores `locale' stuff. Assumes that the upper and lower case alphabets and digits are each contiguous.

Definition at line 237 of file strcompat.c.

References LONG_MAX, and LONG_MIN.

{
    const char *s;
    uint64_t acc;
    unsigned char c;
    uint64_t qbase, cutoff;
    int neg, any, cutlim;

    /*
     * Skip white space and pick up leading +/- sign if any.
     * If base is 0, allow 0x for hex and 0 for octal, else
     * assume decimal; if base is already 16, allow 0x.
     */
    s = nptr;
    do {
            c = *s++;
    } while (isspace(c));
    if (c == '-') {
            neg = 1;
            c = *s++;
    } else {
            neg = 0;
            if (c == '+')
                    c = *s++;
    }
    if ((base == 0 || base == 16) &&
        c == '\0' && (*s == 'x' || *s == 'X')) {
            c = s[1];
            s += 2;
            base = 16;
    }
    if (base == 0)
            base = c == '\0' ? 8 : 10;

    /*
     * Compute the cutoff value between legal numbers and illegal
     * numbers.  That is the largest legal value, divided by the
     * base.  An input number that is greater than this value, if
     * followed by a legal input character, is too big.  One that
     * is equal to this value may be valid or not; the limit
     * between valid and invalid numbers is then based on the last
     * digit.  For instance, if the range for quads is
     * [-9223372036854775808..9223372036854775807] and the input base
     * is 10, cutoff will be set to 922337203685477580 and cutlim to
     * either 7 (neg==0) or 8 (neg==1), meaning that if we have
     * accumulated a value > 922337203685477580, or equal but the
     * next digit is > 7 (or 8), the number is too big, and we will
     * return a range error.
     *
     * Set any if any `digits' consumed; make it negative to indicate
     * overflow.
     */
    qbase = (unsigned)base;
    cutoff = neg ? (uint64_t)-(LONG_MIN + LONG_MAX) + LONG_MAX : LONG_MAX;
    cutlim = cutoff % qbase;
    cutoff /= qbase;
    for (acc = 0, any = 0;; c = *s++) {
            if (!isascii(c))
                    break;
            if (isdigit(c))
                    c -= '\0';
            else if (isalpha(c))
                    c -= isupper(c) ? 'A' - 10 : 'a' - 10;
            else
                    break;
            if (c >= base)
                    break;
            if (any < 0 || acc > cutoff || (acc == cutoff && c > cutlim))
                    any = -1;
            else {
                    any = 1;
                    acc *= qbase;
                    acc += c;
            }
    }
    if (any < 0) {
            acc = neg ? LONG_MIN : LONG_MAX;
    } else if (neg)
            acc = -acc;
    if (endptr != 0)
            *((const char **)endptr) = any ? s - 1 : nptr;
    return acc;
}

void timersub	(	struct timeval *	tvend,
		struct timeval *	tvstart,
		struct timeval *	tvdiff
	)

Definition at line 175 of file strcompat.c.

Referenced by ast_rtcp_write_rr(), ast_rtcp_write_sr(), and ast_select().

{
   tvdiff->tv_sec = tvend->tv_sec - tvstart->tv_sec;
   tvdiff->tv_usec = tvend->tv_usec - tvstart->tv_usec;
   if (tvdiff->tv_usec < 0) {
      tvdiff->tv_sec --;
      tvdiff->tv_usec += 1000000;
   }

}

int unsetenv

(

const char *

name

)

Definition at line 80 of file strcompat.c.

References setenv().

Referenced by env_write().

{
   return setenv(name, "", 0);
}

static char* upper	(	const char *	orig,
		char *	buf,
		int	bufsize
	)			[static]

Definition at line 87 of file strcompat.c.

Referenced by strcasestr().

{
   int i = 0;

   while (i < (bufsize - 1) && orig[i]) {
      buf[i] = toupper(orig[i]);
      i++;
   }

   buf[i] = '\0';

   return buf;
}

int vasprintf	(	char **	strp,
		const char *	fmt,
		va_list	ap
	)

Definition at line 155 of file strcompat.c.

References malloc.

{
   int size;
   va_list ap2;
   char s;

   *strp = NULL;
   va_copy(ap2, ap);
   size = vsnprintf(&s, 1, fmt, ap2);
   va_end(ap2);
   *strp = malloc(size + 1);
   if (!*strp)
      return -1;
   vsnprintf(*strp, size + 1, fmt, ap);

   return size;
}