pack.c File Reference

#include "ruby/ruby.h"
#include "ruby/encoding.h"
#include "internal.h"
#include <sys/types.h>
#include <ctype.h>
#include <errno.h>

Go to the source code of this file.

Macros
#define	NATINT_LEN_Q   8
#define	NATINT_PACK
#define	BIGENDIAN_P()   0
#define	NATINT_LEN(type, len)   (natint?(int)sizeof(type):(int)(len))
#define	define_swapx(x, xtype)
#define	rb_ntohf(x)   (BIGENDIAN_P()?(x):swapf(x))
#define	rb_ntohd(x)   (BIGENDIAN_P()?(x):swapd(x))
#define	rb_htonf(x)   (BIGENDIAN_P()?(x):swapf(x))
#define	rb_htond(x)   (BIGENDIAN_P()?(x):swapd(x))
#define	rb_htovf(x)   (BIGENDIAN_P()?swapf(x):(x))
#define	rb_htovd(x)   (BIGENDIAN_P()?swapd(x):(x))
#define	rb_vtohf(x)   (BIGENDIAN_P()?swapf(x):(x))
#define	rb_vtohd(x)   (BIGENDIAN_P()?swapd(x):(x))
#define	FLOAT_CONVWITH(y)
#define	HTONF(x, y)   rb_htonf(x)
#define	HTOVF(x, y)   rb_htovf(x)
#define	NTOHF(x, y)   rb_ntohf(x)
#define	VTOHF(x, y)   rb_vtohf(x)
#define	DOUBLE_CONVWITH(y)
#define	HTOND(x, y)   rb_htond(x)
#define	HTOVD(x, y)   rb_htovd(x)
#define	NTOHD(x, y)   rb_ntohd(x)
#define	VTOHD(x, y)   rb_vtohd(x)
#define	MAX_INTEGER_PACK_SIZE   8
#define	TOO_FEW   (rb_raise(rb_eArgError, toofew), 0)
#define	THISFROM   (items > 0 ? RARRAY_AREF(ary, idx) : TOO_FEW)
#define	NEXTFROM   (items-- > 0 ? RARRAY_AREF(ary, idx++) : TOO_FEW)
#define	castchar(from)   (char)((from) & 0xff)
#define	PACK_LENGTH_ADJUST_SIZE(sz)
#define	PACK_ITEM_ADJUST()
#define	UNPACK_PUSH(item)
#define	BYTEWIDTH   8

Functions
static void	encodes (VALUE, const char *, long, int, int)
static void	qpencode (VALUE, VALUE, long)
static unsigned long	utf8_to_uv (const char *, long *)
static VALUE	pack_pack (VALUE ary, VALUE fmt)
static int	hex2num (char c)
static VALUE	infected_str_new (const char *ptr, long len, VALUE str)
static VALUE	pack_unpack (VALUE str, VALUE fmt)
int	rb_uv_to_utf8 (char buf[6], unsigned long uv)
void	Init_pack (void)

Variables
static const char	natstr [] = "sSiIlL"
static const char	endstr [] = "sSiIlLqQ"
static const char	toofew [] = "too few arguments"
static const char	uu_table []
static const char	b64_table []
static const char	hex_table [] = "0123456789ABCDEF"
static const unsigned long	utf8_limits []

Macro Definition Documentation

#define BIGENDIAN_P

(

)

0

Definition at line 64 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

#define BYTEWIDTH   8

Definition at line 1897 of file pack.c.

#define castchar

(

from

)

(char)((from) & 0xff)

Referenced by pack_pack(), pack_unpack(), and rb_uv_to_utf8().

#define define_swapx	(		x,
			xtype
	)

Value:

static xtype                            \
TOKEN_PASTE(swap,x)(xtype z)            \
{                                       \
    xtype r;                            \
    xtype *zp;                          \
    unsigned char *s, *t;               \
    int i;                              \
                                        \
    zp = xmalloc(sizeof(xtype));        \
    *zp = z;                            \
    s = (unsigned char*)zp;             \
    t = xmalloc(sizeof(xtype));         \
    for (i=0; i<sizeof(xtype); i++) {   \
	t[sizeof(xtype)-i-1] = s[i];   \
    }                                   \
    r = *(xtype *)t;                    \
    xfree(t);                           \
    xfree(zp);                          \
    return r;                           \
}

Definition at line 81 of file pack.c.

#define DOUBLE_CONVWITH

(

y

)

Definition at line 221 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

#define FLOAT_CONVWITH

(

y

)

Definition at line 195 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

#define HTOND	(		x,
			y
	)		rb_htond(x)

Definition at line 222 of file pack.c.

Referenced by pack_pack().

#define HTONF	(		x,
			y
	)		rb_htonf(x)

Definition at line 196 of file pack.c.

Referenced by pack_pack().

#define HTOVD	(		x,
			y
	)		rb_htovd(x)

Definition at line 223 of file pack.c.

Referenced by pack_pack().

#define HTOVF	(		x,
			y
	)		rb_htovf(x)

Definition at line 197 of file pack.c.

Referenced by pack_pack().

#define MAX_INTEGER_PACK_SIZE   8

Definition at line 228 of file pack.c.

Referenced by pack_pack().

#define NATINT_LEN	(		type,
			len
	)		(natint?(int)sizeof(type):(int)(len))

Definition at line 68 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

#define NATINT_LEN_Q   8

Definition at line 38 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

#define NATINT_PACK

Definition at line 42 of file pack.c.

#define NEXTFROM   (items-- > 0 ? RARRAY_AREF(ary, idx++) : TOO_FEW)

Referenced by pack_pack().

#define NTOHD	(		x,
			y
	)		rb_ntohd(x)

Definition at line 224 of file pack.c.

Referenced by pack_unpack().

#define NTOHF	(		x,
			y
	)		rb_ntohf(x)

Definition at line 198 of file pack.c.

Referenced by pack_unpack().

#define PACK_ITEM_ADJUST

(

)

Value:

do { \
    if (tmp_len > 0 && !block_p) \
	rb_ary_store(ary, RARRAY_LEN(ary)+tmp_len-1, Qnil); \
} while (0)

Definition at line 1069 of file pack.c.

Referenced by pack_unpack().

#define PACK_LENGTH_ADJUST_SIZE

(

sz

)

Value:

do {    \
    tmp_len = 0;                                \
    if (len > (long)((send-s)/(sz))) {          \
        if (!star) {                            \
            tmp_len = len-(send-s)/(sz);                \
        }                                       \
	len = (send-s)/(sz);                   \
    }                                           \
} while (0)

Definition at line 1059 of file pack.c.

Referenced by pack_unpack().

#define rb_htond

(

x

)

(BIGENDIAN_P()?(x):swapd(x))

Definition at line 170 of file pack.c.

#define rb_htonf

(

x

)

(BIGENDIAN_P()?(x):swapf(x))

Definition at line 169 of file pack.c.

#define rb_htovd

(

x

)

(BIGENDIAN_P()?swapd(x):(x))

Definition at line 172 of file pack.c.

#define rb_htovf

(

x

)

(BIGENDIAN_P()?swapf(x):(x))

Definition at line 171 of file pack.c.

#define rb_ntohd

(

x

)

(BIGENDIAN_P()?(x):swapd(x))

Definition at line 168 of file pack.c.

#define rb_ntohf

(

x

)

(BIGENDIAN_P()?(x):swapf(x))

Definition at line 167 of file pack.c.

#define rb_vtohd

(

x

)

(BIGENDIAN_P()?swapd(x):(x))

Definition at line 174 of file pack.c.

#define rb_vtohf

(

x

)

(BIGENDIAN_P()?swapf(x):(x))

Definition at line 173 of file pack.c.

#define THISFROM   (items > 0 ? RARRAY_AREF(ary, idx) : TOO_FEW)

Referenced by pack_pack().

#define TOO_FEW   (rb_raise(rb_eArgError, toofew), 0)

#define UNPACK_PUSH

(

item

)

Value:

do {\
	VALUE item_val = (item);\
	if (block_p) {\
	    rb_yield(item_val);\
        }\
	else {\
	    rb_ary_push(ary, item_val);\
        }\
    } while (0)

Referenced by pack_unpack().

#define VTOHD	(		x,
			y
	)		rb_vtohd(x)

Definition at line 225 of file pack.c.

Referenced by pack_unpack().

#define VTOHF	(		x,
			y
	)		rb_vtohf(x)

Definition at line 199 of file pack.c.

Referenced by pack_unpack().

Function Documentation

static void encodes ( VALUE  str, const char *  s, long  len, int  type, int  tail_lf  )

static

Definition at line 947 of file pack.c.

References b64_table, i, rb_bug(), and rb_str_buf_cat().

Referenced by pack_pack().

static int hex2num ( char  c )

inlinestatic

Definition at line 1050 of file pack.c.

References n, and ruby_digit36_to_number_table.

Referenced by pack_unpack().

static VALUE infected_str_new ( const char *  ptr, long  len, VALUE  str  )

static

Definition at line 1075 of file pack.c.

References OBJ_INFECT, rb_str_new(), and s.

Referenced by pack_unpack().

void Init_pack

(

void

)

Definition at line 2007 of file pack.c.

References pack_pack(), pack_unpack(), rb_cArray, rb_cString, and rb_define_method().

static VALUE pack_pack ( VALUE  ary, VALUE  fmt  )

static

Definition at line 348 of file pack.c.

References BIGENDIAN_P, buf, c, castchar, cp, d, DOUBLE_CONVWITH, ENC_CODERANGE_7BIT, encodes(), ENCODING_CODERANGE_SET, endstr, errno, f, FLOAT_CONVWITH, HTOND, HTONF, HTOVD, HTOVF, i, idx, int, INTEGER_PACK_2COMP, INTEGER_PACK_BIG_ENDIAN, INTEGER_PACK_LITTLE_ENDIAN, ISALPHA, ISDIGIT, ISSPACE, j, le, len, MAX_INTEGER_PACK_SIZE, NATINT_LEN, NATINT_LEN_Q, natstr, NEXTFROM, NIL_P(), NULL, NUM2LONG, OBJ_INFECT, p, ptr, qpencode(), RARRAY_LEN, rb_absint_numwords(), rb_ary_new(), rb_ary_push(), rb_bug(), rb_eArgError, rb_enc_set_index(), rb_eRangeError, rb_eRuntimeError, rb_integer_pack(), rb_obj_as_string(), rb_obj_taint(), rb_raise(), rb_str_associate(), rb_str_buf_cat(), rb_str_buf_new(), rb_str_new(), rb_str_set_len(), rb_to_float(), rb_to_int(), rb_usascii_encindex, rb_utf8_encindex, rb_uv_to_utf8(), rb_warning(), res, RFLOAT_VALUE, RSTRING_LEN, RSTRING_PTR, SIGNED_VALUE, strchr(), StringValue, StringValuePtr, STRTOUL, t, THISFROM, and type.

Referenced by Init_pack().

static VALUE pack_unpack ( VALUE  str, VALUE  fmt  )

static

Definition at line 1198 of file pack.c.

References a, ary, b, BIGENDIAN_P, buf, c, castchar, d, DBL2NUM, DOUBLE_CONVWITH, ENC_CODERANGE_VALID, ENCODING_CODERANGE_SET, end, endstr, errno, flags, FLOAT_CONVWITH, hex2num(), i, infected_str_new(), int, INTEGER_PACK_2COMP, INTEGER_PACK_BIG_ENDIAN, INTEGER_PACK_LITTLE_ENDIAN, ISDIGIT, ISSPACE, len, memcpy(), NATINT_LEN, NATINT_LEN_Q, natstr, NTOHD, NTOHF, p, PACK_ITEM_ADJUST, PACK_LENGTH_ADJUST_SIZE, ptr, Qnil, RARRAY_CONST_PTR, RARRAY_LEN, rb_ary_new(), rb_ascii8bit_encindex, rb_block_given_p(), rb_eArgError, rb_eRangeError, rb_integer_unpack(), rb_raise(), rb_str_associate(), rb_str_associated(), rb_str_buf_cat(), rb_str_set_len(), rb_tainted_str_new(), RB_TYPE_P, rb_usascii_str_new(), rb_warning(), RSTRING_LEN, RSTRING_PTR, s, strchr(), StringValue, STRTOUL, t, T_STRING, tmp, type, ULONG2NUM, UNPACK_PUSH, utf8_to_uv(), val, VTOHD, and VTOHF.

Referenced by Init_pack().

static void qpencode ( VALUE  str, VALUE  from, long  len  )

static

Definition at line 997 of file pack.c.

References EOF, i, n, rb_str_buf_cat(), RSTRING_LEN, RSTRING_PTR, and s.

Referenced by pack_pack().

int rb_uv_to_utf8	(	char	buf[6],
		unsigned long	uv
	)

Definition at line 1900 of file pack.c.

References castchar, rb_eRangeError, rb_raise(), and UNREACHABLE.

Referenced by append_utf8(), and pack_pack().

static unsigned long utf8_to_uv ( const char *  p, long *  lenp  )

static

Definition at line 1957 of file pack.c.

References c, n, rb_eArgError, and rb_raise().

Referenced by pack_unpack().

Variable Documentation

const char b64_table[]

static

Initial value:

=
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"

Definition at line 943 of file pack.c.

Referenced by encodes().

const char endstr[] = "sSiIlLqQ"

static

Definition at line 32 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

const char hex_table[] = "0123456789ABCDEF"

static

Definition at line 994 of file pack.c.

const char natstr[] = "sSiIlL"

static

Definition at line 30 of file pack.c.

Referenced by pack_pack(), and pack_unpack().

const char toofew[] = "too few arguments"

static

Definition at line 230 of file pack.c.

const unsigned long utf8_limits[]

static

Initial value:

= {
    0x0,                        
    0x80,                       
    0x800,                      
    0x10000,                    
    0x200000,                   
    0x4000000,                  
    0x80000000,                 
}

Definition at line 1946 of file pack.c.

const char uu_table[]

static

Initial value:

=
"`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_"

Definition at line 941 of file pack.c.