PHP  
 PHP: Test and Code Coverage Analysis
downloads | QA | documentation | faq | getting help | mailing lists | reporting bugs | php.net sites | links | my php.net 
 

LCOV - code coverage report
Current view: top level - ext/standard - pack.c (source / functions) Hit Total Coverage
Test: PHP Code Coverage Lines: 322 424 75.9 %
Date: 2014-09-27 Functions: 5 5 100.0 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /*
       2             :    +----------------------------------------------------------------------+
       3             :    | PHP Version 7                                                        |
       4             :    +----------------------------------------------------------------------+
       5             :    | Copyright (c) 1997-2014 The PHP Group                                |
       6             :    +----------------------------------------------------------------------+
       7             :    | This source file is subject to version 3.01 of the PHP license,      |
       8             :    | that is bundled with this package in the file LICENSE, and is        |
       9             :    | available through the world-wide-web at the following url:           |
      10             :    | http://www.php.net/license/3_01.txt                                  |
      11             :    | If you did not receive a copy of the PHP license and are unable to   |
      12             :    | obtain it through the world-wide-web, please send a note to          |
      13             :    | license@php.net so we can mail you a copy immediately.               |
      14             :    +----------------------------------------------------------------------+
      15             :    | Author: Chris Schneider <cschneid@relog.ch>                          |
      16             :    +----------------------------------------------------------------------+
      17             :  */
      18             : /* $Id$ */
      19             : 
      20             : #include "php.h"
      21             : 
      22             : #include <stdio.h>
      23             : #include <stdlib.h>
      24             : #include <errno.h>
      25             : #include <sys/types.h>
      26             : #include <sys/stat.h>
      27             : #include <fcntl.h>
      28             : #ifdef PHP_WIN32
      29             : #define O_RDONLY _O_RDONLY
      30             : #include "win32/param.h"
      31             : #elif defined(NETWARE)
      32             : #ifdef USE_WINSOCK
      33             : #include <novsock2.h>
      34             : #else
      35             : #include <sys/socket.h>
      36             : #endif
      37             : #include <sys/param.h>
      38             : #else
      39             : #include <sys/param.h>
      40             : #endif
      41             : #include "ext/standard/head.h"
      42             : #include "php_string.h"
      43             : #include "pack.h"
      44             : #if HAVE_PWD_H
      45             : #ifdef PHP_WIN32
      46             : #include "win32/pwd.h"
      47             : #else
      48             : #include <pwd.h>
      49             : #endif
      50             : #endif
      51             : #include "fsock.h"
      52             : #if HAVE_NETINET_IN_H
      53             : #include <netinet/in.h>
      54             : #endif
      55             : 
      56             : #define INC_OUTPUTPOS(a,b) \
      57             :         if ((a) < 0 || ((INT_MAX - outputpos)/((int)b)) < (a)) { \
      58             :                 efree(argv);    \
      59             :                 efree(formatcodes);     \
      60             :                 efree(formatargs);      \
      61             :                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: integer overflow in format string", code); \
      62             :                 RETURN_FALSE; \
      63             :         } \
      64             :         outputpos += (a)*(b);
      65             : 
      66             : /* Whether machine is little endian */
      67             : char machine_little_endian;
      68             : 
      69             : /* Mapping of byte from char (8bit) to long for machine endian */
      70             : static int byte_map[1];
      71             : 
      72             : /* Mappings of bytes from int (machine dependent) to int for machine endian */
      73             : static int int_map[sizeof(int)];
      74             : 
      75             : /* Mappings of bytes from shorts (16bit) for all endian environments */
      76             : static int machine_endian_short_map[2];
      77             : static int big_endian_short_map[2];
      78             : static int little_endian_short_map[2];
      79             : 
      80             : /* Mappings of bytes from longs (32bit) for all endian environments */
      81             : static int machine_endian_long_map[4];
      82             : static int big_endian_long_map[4];
      83             : static int little_endian_long_map[4];
      84             : 
      85             : /* {{{ php_pack
      86             :  */
      87      504622 : static void php_pack(zval *val, size_t size, int *map, char *output)
      88             : {
      89             :         int i;
      90             :         char *v;
      91             : 
      92      504622 :         convert_to_long_ex(val);
      93      504622 :         v = (char *) &Z_LVAL_P(val);
      94             : 
      95     1041478 :         for (i = 0; i < size; i++) {
      96      536856 :                 *output++ = v[map[i]];
      97             :         }
      98      504622 : }
      99             : /* }}} */
     100             : 
     101             : /* pack() idea stolen from Perl (implemented formats behave the same as there)
     102             :  * Implemented formats are Z, A, a, h, H, c, C, s, S, i, I, l, L, n, N, f, d, x, X, @.
     103             :  */
     104             : /* {{{ proto string pack(string format, mixed arg1 [, mixed arg2 [, mixed ...]])
     105             :    Takes one or more arguments and packs them into a binary string according to the format argument */
     106      153377 : PHP_FUNCTION(pack)
     107             : {
     108      153377 :         zval *argv = NULL;
     109             :         int num_args, i;
     110             :         int currentarg;
     111             :         char *format;
     112             :         int formatlen;
     113             :         char *formatcodes;
     114             :         int *formatargs;
     115      153377 :         int formatcount = 0;
     116      153377 :         int outputpos = 0, outputsize = 0;
     117             :         char *output;
     118             : 
     119      153377 :         if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "+", &argv, &num_args) == FAILURE) {
     120           0 :                 return;
     121             :         }
     122             : 
     123      306754 :         if (Z_ISREF(argv[0])) {
     124           0 :                 SEPARATE_ZVAL(&argv[0]);
     125             :         }
     126      306754 :         convert_to_string_ex(&argv[0]);
     127             : 
     128      153377 :         format = Z_STRVAL(argv[0]);
     129      153377 :         formatlen = Z_STRLEN(argv[0]);
     130             : 
     131             :         /* We have a maximum of <formatlen> format codes to deal with */
     132      153377 :         formatcodes = safe_emalloc(formatlen, sizeof(*formatcodes), 0);
     133      153377 :         formatargs = safe_emalloc(formatlen, sizeof(*formatargs), 0);
     134      153377 :         currentarg = 1;
     135             : 
     136             :         /* Preprocess format into formatcodes and formatargs */
     137      309056 :         for (i = 0; i < formatlen; formatcount++) {
     138      155679 :                 char code = format[i++];
     139      155679 :                 int arg = 1;
     140             : 
     141             :                 /* Handle format arguments if any */
     142      155679 :                 if (i < formatlen) {
     143      153766 :                         char c = format[i];
     144             : 
     145      153766 :                         if (c == '*') {
     146          40 :                                 arg = -1;
     147          40 :                                 i++;
     148             :                         }
     149      153726 :                         else if (c >= '0' && c <= '9') {
     150      152026 :                                 arg = atoi(&format[i]);
     151             :                   
     152      456590 :                                 while (format[i] >= '0' && format[i] <= '9' && i < formatlen) {
     153      152538 :                                         i++;
     154             :                                 }
     155             :                         }
     156             :                 }
     157             : 
     158             :                 /* Handle special arg '*' for all codes and check argv overflows */
     159      155679 :                 switch ((int) code) {
     160             :                         /* Never uses any args */
     161             :                         case 'x': 
     162             :                         case 'X':       
     163             :                         case '@':
     164           0 :                                 if (arg < 0) {
     165           0 :                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: '*' ignored", code);
     166           0 :                                         arg = 1;
     167             :                                 }
     168           0 :                                 break;
     169             : 
     170             :                         /* Always uses one arg */
     171             :                         case 'a': 
     172             :                         case 'A': 
     173             :                         case 'Z': 
     174             :                         case 'h': 
     175             :                         case 'H':
     176         795 :                                 if (currentarg >= num_args) {
     177           0 :                                         efree(formatcodes);
     178           0 :                                         efree(formatargs);
     179           0 :                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: not enough arguments", code);
     180           0 :                                         RETURN_FALSE;
     181             :                                 }
     182             : 
     183         795 :                                 if (arg < 0) {
     184          80 :                                         if (Z_ISREF(argv[currentarg])) {
     185           0 :                                                 SEPARATE_ZVAL(&argv[currentarg]);
     186             :                                         }
     187          80 :                                         convert_to_string_ex(&argv[currentarg]);
     188          40 :                                         arg = Z_STRLEN(argv[currentarg]);
     189          40 :                                         if (code == 'Z') {
     190             :                                                 /* add one because Z is always NUL-terminated:
     191             :                                                  * pack("Z*", "aa") === "aa\0"
     192             :                                                  * pack("Z2", "aa") === "a\0" */
     193           1 :                                                 arg++;
     194             :                                         }
     195             :                                 }
     196             : 
     197         795 :                                 currentarg++;
     198         795 :                                 break;
     199             : 
     200             :                         /* Use as many args as specified */
     201             :                         case 'c': 
     202             :                         case 'C': 
     203             :                         case 's': 
     204             :                         case 'S': 
     205             :                         case 'i': 
     206             :                         case 'I':
     207             :                         case 'l': 
     208             :                         case 'L': 
     209             :                         case 'n': 
     210             :                         case 'N': 
     211             :                         case 'v': 
     212             :                         case 'V':
     213             :                         case 'f': 
     214             :                         case 'd': 
     215      154884 :                                 if (arg < 0) {
     216           0 :                                         arg = num_args - currentarg;
     217             :                                 }
     218             : 
     219      154884 :                                 currentarg += arg;
     220             : 
     221      154884 :                                 if (currentarg > num_args) {
     222           0 :                                         efree(formatcodes);
     223           0 :                                         efree(formatargs);
     224           0 :                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: too few arguments", code);
     225           0 :                                         RETURN_FALSE;
     226             :                                 }
     227      154884 :                                 break;
     228             : 
     229             :                         default:
     230           0 :                                 efree(formatcodes);
     231           0 :                                 efree(formatargs);
     232           0 :                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: unknown format code", code);
     233           0 :                                 RETURN_FALSE;
     234             :                 }
     235             : 
     236      155679 :                 formatcodes[formatcount] = code;
     237      155679 :                 formatargs[formatcount] = arg;
     238             :         }
     239             : 
     240      153377 :         if (currentarg < num_args) {
     241           0 :                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "%d arguments unused", (num_args - currentarg));
     242             :         }
     243             : 
     244             :         /* Calculate output length and upper bound while processing*/
     245      309056 :         for (i = 0; i < formatcount; i++) {
     246      155679 :             int code = (int) formatcodes[i];
     247      155679 :                 int arg = formatargs[i];
     248             : 
     249      155679 :                 switch ((int) code) {
     250             :                         case 'h': 
     251             :                         case 'H': 
     252          43 :                                 INC_OUTPUTPOS((arg + (arg % 2)) / 2,1)  /* 4 bit per arg */
     253          43 :                                 break;
     254             : 
     255             :                         case 'a': 
     256             :                         case 'A':
     257             :                         case 'Z':
     258             :                         case 'c': 
     259             :                         case 'C':
     260             :                         case 'x':
     261      144815 :                                 INC_OUTPUTPOS(arg,1)            /* 8 bit per arg */
     262      144815 :                                 break;
     263             : 
     264             :                         case 's': 
     265             :                         case 'S': 
     266             :                         case 'n': 
     267             :                         case 'v':
     268          95 :                                 INC_OUTPUTPOS(arg,2)            /* 16 bit per arg */
     269          95 :                                 break;
     270             : 
     271             :                         case 'i': 
     272             :                         case 'I':
     273           3 :                                 INC_OUTPUTPOS(arg,sizeof(int))
     274           3 :                                 break;
     275             : 
     276             :                         case 'l': 
     277             :                         case 'L': 
     278             :                         case 'N': 
     279             :                         case 'V':
     280       10710 :                                 INC_OUTPUTPOS(arg,4)            /* 32 bit per arg */
     281       10710 :                                 break;
     282             : 
     283             :                         case 'f':
     284           0 :                                 INC_OUTPUTPOS(arg,sizeof(float))
     285           0 :                                 break;
     286             : 
     287             :                         case 'd':
     288          13 :                                 INC_OUTPUTPOS(arg,sizeof(double))
     289          13 :                                 break;
     290             : 
     291             :                         case 'X':
     292           0 :                                 outputpos -= arg;
     293             : 
     294           0 :                                 if (outputpos < 0) {
     295           0 :                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: outside of string", code);
     296           0 :                                         outputpos = 0;
     297             :                                 }
     298           0 :                                 break;
     299             : 
     300             :                         case '@':
     301           0 :                                 outputpos = arg;
     302             :                                 break;
     303             :                 }
     304             : 
     305      155679 :                 if (outputsize < outputpos) {
     306      155678 :                         outputsize = outputpos;
     307             :                 }
     308             :         }
     309             : 
     310      153377 :         output = emalloc(outputsize + 1);
     311      153377 :         outputpos = 0;
     312      153377 :         currentarg = 1;
     313             : 
     314             :         /* Do actual packing */
     315      309056 :         for (i = 0; i < formatcount; i++) {
     316      155679 :             int code = (int) formatcodes[i];
     317      155679 :                 int arg = formatargs[i];
     318             : 
     319      155679 :                 switch ((int) code) {
     320             :                         case 'a': 
     321             :                         case 'A': 
     322             :                         case 'Z': {
     323         752 :                                 int arg_cp = (code != 'Z') ? arg : MAX(0, arg - 1);
     324             : 
     325        1504 :                                 zend_string *str = zval_get_string(&argv[currentarg++]);
     326             : 
     327         752 :                                 memset(&output[outputpos], (code == 'a' || code == 'Z') ? '\0' : ' ', arg);
     328        1504 :                                 memcpy(&output[outputpos], str->val,
     329         752 :                                            (str->len < arg_cp) ? str->len : arg_cp);
     330             : 
     331         752 :                                 outputpos += arg;
     332             :                                 zend_string_release(str);
     333         752 :                                 break;
     334             :                         }
     335             : 
     336             :                         case 'h': 
     337             :                         case 'H': {
     338          43 :                                 int nibbleshift = (code == 'h') ? 0 : 4;
     339          43 :                                 int first = 1;
     340             : 
     341          86 :                                 zend_string *str = zval_get_string(&argv[currentarg++]);
     342          43 :                                 char *v = str->val; 
     343             : 
     344          43 :                                 outputpos--;
     345          43 :                                 if(arg > str->len) {
     346           0 :                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: not enough characters in string", code);
     347           0 :                                         arg = str->len;
     348             :                                 }
     349             : 
     350         674 :                                 while (arg-- > 0) {
     351         588 :                                         char n = *v++;
     352             : 
     353        1018 :                                         if (n >= '0' && n <= '9') {
     354         430 :                                                 n -= '0';
     355         158 :                                         } else if (n >= 'A' && n <= 'F') {
     356           0 :                                                 n -= ('A' - 10);
     357         316 :                                         } else if (n >= 'a' && n <= 'f') {
     358         158 :                                                 n -= ('a' - 10);
     359             :                                         } else {
     360           0 :                                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: illegal hex digit %c", code, n);
     361           0 :                                                 n = 0;
     362             :                                         }
     363             : 
     364         588 :                                         if (first--) {
     365         296 :                                                 output[++outputpos] = 0;
     366             :                                         } else {
     367         292 :                                           first = 1;
     368             :                                         }
     369             : 
     370         588 :                                         output[outputpos] |= (n << nibbleshift);
     371         588 :                                         nibbleshift = (nibbleshift + 4) & 7;
     372             :                                 }
     373             : 
     374          43 :                                 outputpos++;
     375             :                                 zend_string_release(str);
     376          43 :                                 break;
     377             :                         }
     378             : 
     379             :                         case 'c': 
     380             :                         case 'C':
     381      781940 :                                 while (arg-- > 0) {
     382      493814 :                                         php_pack(&argv[currentarg++], 1, byte_map, &output[outputpos]);
     383      493814 :                                         outputpos++;
     384             :                                 }
     385      144063 :                                 break;
     386             : 
     387             :                         case 's': 
     388             :                         case 'S': 
     389             :                         case 'n': 
     390             :                         case 'v': {
     391          95 :                                 int *map = machine_endian_short_map;
     392             : 
     393          95 :                                 if (code == 'n') {
     394          93 :                                         map = big_endian_short_map;
     395           2 :                                 } else if (code == 'v') {
     396           0 :                                         map = little_endian_short_map;
     397             :                                 }
     398             : 
     399         285 :                                 while (arg-- > 0) {
     400          95 :                                         php_pack(&argv[currentarg++], 2, map, &output[outputpos]);
     401          95 :                                         outputpos += 2;
     402             :                                 }
     403          95 :                                 break;
     404             :                         }
     405             : 
     406             :                         case 'i': 
     407             :                         case 'I': 
     408           9 :                                 while (arg-- > 0) {
     409           3 :                                         php_pack(&argv[currentarg++], sizeof(int), int_map, &output[outputpos]);
     410           3 :                                         outputpos += sizeof(int);
     411             :                                 }
     412           3 :                                 break;
     413             : 
     414             :                         case 'l': 
     415             :                         case 'L': 
     416             :                         case 'N': 
     417             :                         case 'V': {
     418       10710 :                                 int *map = machine_endian_long_map;
     419             : 
     420       10710 :                                 if (code == 'N') {
     421        8261 :                                         map = big_endian_long_map;
     422        2449 :                                 } else if (code == 'V') {
     423        2447 :                                         map = little_endian_long_map;
     424             :                                 }
     425             : 
     426       32130 :                                 while (arg-- > 0) {
     427       10710 :                                         php_pack(&argv[currentarg++], 4, map, &output[outputpos]);
     428       10710 :                                         outputpos += 4;
     429             :                                 }
     430       10710 :                                 break;
     431             :                         }
     432             : 
     433             :                         case 'f': {
     434           0 :                                 while (arg-- > 0) {
     435           0 :                                         float v = (float) zval_get_double(&argv[currentarg++]);
     436           0 :                                         memcpy(&output[outputpos], &v, sizeof(v));
     437           0 :                                         outputpos += sizeof(v);
     438             :                                 }
     439           0 :                                 break;
     440             :                         }
     441             : 
     442             :                         case 'd': {
     443          39 :                                 while (arg-- > 0) {
     444          26 :                                         double v = (double) zval_get_double(&argv[currentarg++]);
     445          13 :                                         memcpy(&output[outputpos], &v, sizeof(v));
     446          13 :                                         outputpos += sizeof(v);
     447             :                                 }
     448          13 :                                 break;
     449             :                         }
     450             : 
     451             :                         case 'x':
     452           0 :                                 memset(&output[outputpos], '\0', arg);
     453           0 :                                 outputpos += arg;
     454           0 :                                 break;
     455             : 
     456             :                         case 'X':
     457           0 :                                 outputpos -= arg;
     458             : 
     459           0 :                                 if (outputpos < 0) {
     460           0 :                                         outputpos = 0;
     461             :                                 }
     462           0 :                                 break;
     463             : 
     464             :                         case '@':
     465           0 :                                 if (arg > outputpos) {
     466           0 :                                         memset(&output[outputpos], '\0', arg - outputpos);
     467             :                                 }
     468           0 :                                 outputpos = arg;
     469             :                                 break;
     470             :                 }
     471             :         }
     472             : 
     473      153377 :         efree(formatcodes);
     474      153377 :         efree(formatargs);
     475      153377 :         output[outputpos] = '\0';
     476      306754 :         RETVAL_STRINGL(output, outputpos);
     477      153377 :         efree(output);
     478             : }
     479             : /* }}} */
     480             : 
     481             : /* {{{ php_unpack
     482             :  */
     483          17 : static zend_long php_unpack(char *data, size_t size, int issigned, int *map)
     484             : {
     485             :         zend_long result;
     486          17 :         char *cresult = (char *) &result;
     487             :         int i;
     488             : 
     489          17 :         result = issigned ? -1 : 0;
     490             : 
     491          77 :         for (i = 0; i < size; i++) {
     492          60 :                 cresult[map[i]] = *data++;
     493             :         }
     494             : 
     495          17 :         return result;
     496             : }
     497             : /* }}} */
     498             : 
     499             : /* unpack() is based on Perl's unpack(), but is modified a bit from there.
     500             :  * Rather than depending on error-prone ordered lists or syntactically
     501             :  * unpleasant pass-by-reference, we return an object with named parameters 
     502             :  * (like *_fetch_object()). Syntax is "f[repeat]name/...", where "f" is the
     503             :  * formatter char (like pack()), "[repeat]" is the optional repeater argument,
     504             :  * and "name" is the name of the variable to use.
     505             :  * Example: "c2chars/nints" will return an object with fields
     506             :  * chars1, chars2, and ints.
     507             :  * Numeric pack types will return numbers, a and A will return strings,
     508             :  * f and d will return doubles.
     509             :  * Implemented formats are Z, A, a, h, H, c, C, s, S, i, I, l, L, n, N, f, d, x, X, @.
     510             :  */
     511             : /* {{{ proto array unpack(string format, string input)
     512             :    Unpack binary string into named array elements according to format argument */
     513        1026 : PHP_FUNCTION(unpack)
     514             : {
     515             :         char *format, *input;
     516             :         zend_string *formatarg, *inputarg;
     517             :         size_t formatlen, inputpos, inputlen;
     518             :         int i;
     519             : 
     520        1026 :         if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "SS", &formatarg, 
     521             :                 &inputarg) == FAILURE) {
     522           2 :                 return;
     523             :         }
     524             : 
     525        1024 :         format = formatarg->val;
     526        1024 :         formatlen = formatarg->len;
     527        1024 :         input = inputarg->val;
     528        1024 :         inputlen = inputarg->len;
     529        1024 :         inputpos = 0;
     530             : 
     531        1024 :         array_init(return_value);
     532             : 
     533        3068 :         while (formatlen-- > 0) {
     534        1024 :                 char type = *(format++);
     535             :                 char c;
     536        1024 :                 int arg = 1, argb;
     537             :                 char *name;
     538             :                 int namelen;
     539        1024 :                 int size=0;
     540             : 
     541             :                 /* Handle format arguments if any */
     542        1024 :                 if (formatlen > 0) {
     543        1005 :                         c = *format;
     544             : 
     545        1029 :                         if (c >= '0' && c <= '9') {
     546          24 :                                 arg = atoi(format);
     547             : 
     548          75 :                                 while (formatlen > 0 && *format >= '0' && *format <= '9') {
     549          27 :                                         format++;
     550          27 :                                         formatlen--;
     551             :                                 }
     552         981 :                         } else if (c == '*') {
     553         974 :                                 arg = -1;
     554         974 :                                 format++;
     555         974 :                                 formatlen--;
     556             :                         }
     557             :                 }
     558             : 
     559             :                 /* Get of new value in array */
     560        1024 :                 name = format;
     561        1024 :                 argb = arg;
     562             : 
     563        2055 :                 while (formatlen > 0 && *format != '/') {
     564           7 :                         formatlen--;
     565           7 :                         format++;
     566             :                 }
     567             : 
     568        1024 :                 namelen = format - name;
     569             : 
     570        1024 :                 if (namelen > 200)
     571           0 :                         namelen = 200;
     572             : 
     573        1024 :                 switch ((int) type) {
     574             :                         /* Never use any input */
     575             :                         case 'X': 
     576           0 :                                 size = -1;
     577           0 :                                 break;
     578             : 
     579             :                         case '@':
     580           0 :                                 size = 0;
     581           0 :                                 break;
     582             : 
     583             :                         case 'a': 
     584             :                         case 'A':
     585             :                         case 'Z':
     586          13 :                                 size = arg;
     587          13 :                                 arg = 1;
     588          13 :                                 break;
     589             : 
     590             :                         case 'h': 
     591             :                         case 'H': 
     592         983 :                                 size = (arg > 0) ? (arg + (arg % 2)) / 2 : arg;
     593         983 :                                 arg = 1;
     594         983 :                                 break;
     595             : 
     596             :                         /* Use 1 byte of input */
     597             :                         case 'c': 
     598             :                         case 'C':
     599             :                         case 'x':
     600           1 :                                 size = 1;
     601           1 :                                 break;
     602             : 
     603             :                         /* Use 2 bytes of input */
     604             :                         case 's': 
     605             :                         case 'S': 
     606             :                         case 'n': 
     607             :                         case 'v':
     608           1 :                                 size = 2;
     609           1 :                                 break;
     610             : 
     611             :                         /* Use sizeof(int) bytes of input */
     612             :                         case 'i': 
     613             :                         case 'I':
     614           1 :                                 size = sizeof(int);
     615           1 :                                 break;
     616             : 
     617             :                         /* Use 4 bytes of input */
     618             :                         case 'l': 
     619             :                         case 'L': 
     620             :                         case 'N': 
     621             :                         case 'V':
     622          10 :                                 size = 4;
     623          10 :                                 break;
     624             : 
     625             :                         /* Use sizeof(float) bytes of input */
     626             :                         case 'f':
     627           0 :                                 size = sizeof(float);
     628           0 :                                 break;
     629             : 
     630             :                         /* Use sizeof(double) bytes of input */
     631             :                         case 'd':
     632          13 :                                 size = sizeof(double);
     633          13 :                                 break;
     634             : 
     635             :                         default:
     636           2 :                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invalid format type %c", type);
     637             :                                 zval_dtor(return_value);
     638           2 :                                 RETURN_FALSE;
     639             :                                 break;
     640             :                 }
     641             : 
     642             :                 /* Do actual unpacking */
     643        2046 :                 for (i = 0; i != arg; i++ ) {
     644             :                         /* Space for name + number, safe as namelen is ensured <= 200 */
     645             :                         char n[256];
     646             : 
     647        2047 :                         if (arg != 1 || namelen == 0) {
     648             :                                 /* Need to add element number to name */
     649        1020 :                                 snprintf(n, sizeof(n), "%.*s%d", namelen, name, i + 1);
     650             :                         } else {
     651             :                                 /* Truncate name to next format code or end of string */
     652           7 :                                 snprintf(n, sizeof(n), "%.*s", namelen, name);
     653             :                         }
     654             : 
     655        1027 :                         if (size != 0 && size != -1 && INT_MAX - size + 1 < inputpos) {
     656           0 :                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: integer overflow", type);
     657           0 :                                 inputpos = 0;
     658             :                         }
     659             : 
     660        2051 :                         if ((size >=0 && (inputpos + size) <= inputlen) || (size < 0 && -size <= (inputlen - inputpos))) {
     661        1024 :                                 switch ((int) type) {
     662             :                                         case 'a': {
     663             :                                                 /* a will not strip any trailing whitespace or null padding */
     664           3 :                                                 size_t len = inputlen - inputpos;       /* Remaining string */
     665             : 
     666             :                                                 /* If size was given take minimum of len and size */
     667           3 :                                                 if ((size >= 0) && (len > size)) {
     668           1 :                                                         len = size;
     669             :                                                 }
     670             : 
     671           3 :                                                 size = len;
     672             : 
     673           3 :                                                 add_assoc_stringl(return_value, n, &input[inputpos], len);
     674           3 :                                                 break;
     675             :                                         }
     676             :                                         case 'A': {
     677             :                                                 /* A will strip any trailing whitespace */
     678           2 :                                                 char padn = '\0'; char pads = ' '; char padt = '\t'; char padc = '\r'; char padl = '\n';
     679           2 :                                                 size_t len = inputlen - inputpos;       /* Remaining string */
     680             : 
     681             :                                                 /* If size was given take minimum of len and size */
     682           2 :                                                 if ((size >= 0) && (len > size)) {
     683           1 :                                                         len = size;
     684             :                                                 }
     685             : 
     686           2 :                                                 size = len;
     687             : 
     688             :                                                 /* Remove trailing white space and nulls chars from unpacked data */
     689          10 :                                                 while (--len >= 0) {
     690          26 :                                                         if (input[inputpos + len] != padn
     691           6 :                                                                 && input[inputpos + len] != pads
     692           5 :                                                                 && input[inputpos + len] != padt
     693           4 :                                                                 && input[inputpos + len] != padc
     694           3 :                                                                 && input[inputpos + len] != padl
     695             :                                                         )
     696           2 :                                                                 break;
     697             :                                                 }
     698             : 
     699           2 :                                                 add_assoc_stringl(return_value, n, &input[inputpos], len + 1);
     700           2 :                                                 break;
     701             :                                         }
     702             :                                         /* New option added for Z to remain in-line with the Perl implementation */
     703             :                                         case 'Z': {
     704             :                                                 /* Z will strip everything after the first null character */
     705           6 :                                                 char pad = '\0';
     706             :                                                 size_t   s,
     707           6 :                                                          len = inputlen - inputpos;     /* Remaining string */
     708             : 
     709             :                                                 /* If size was given take minimum of len and size */
     710           6 :                                                 if ((size >= 0) && (len > size)) {
     711           3 :                                                         len = size;
     712             :                                                 }
     713             : 
     714           6 :                                                 size = len;
     715             : 
     716             :                                                 /* Remove everything after the first null */
     717          17 :                                                 for (s=0 ; s < len ; s++) {
     718          15 :                                                         if (input[inputpos + s] == pad)
     719           4 :                                                                 break;
     720             :                                                 }
     721           6 :                                                 len = s;
     722             : 
     723           6 :                                                 add_assoc_stringl(return_value, n, &input[inputpos], len);
     724           6 :                                                 break;
     725             :                                         }
     726             : 
     727             :                                         
     728             :                                         case 'h': 
     729             :                                         case 'H': {
     730         983 :                                                 size_t len = (inputlen - inputpos) * 2; /* Remaining */
     731         983 :                                                 int nibbleshift = (type == 'h') ? 0 : 4;
     732         983 :                                                 int first = 1;
     733             :                                                 char *buf;
     734             :                                                 size_t ipos, opos;
     735             : 
     736             :                                                 /* If size was given take minimum of len and size */
     737         983 :                                                 if (size >= 0 && len > (size * 2)) {
     738           0 :                                                         len = size * 2;
     739             :                                                 } 
     740             : 
     741         983 :                                                 if (argb > 0) {      
     742          13 :                                                         len -= argb % 2;
     743             :                                                 }
     744             : 
     745         983 :                                                 buf = emalloc(len + 1);
     746             : 
     747        3459 :                                                 for (ipos = opos = 0; opos < len; opos++) {
     748        2476 :                                                         char cc = (input[inputpos + ipos] >> nibbleshift) & 0xf;
     749             : 
     750        2476 :                                                         if (cc < 10) {
     751        1261 :                                                                 cc += '0';
     752             :                                                         } else {
     753        1215 :                                                                 cc += 'a' - 10;
     754             :                                                         }
     755             : 
     756        2476 :                                                         buf[opos] = cc;
     757        2476 :                                                         nibbleshift = (nibbleshift + 4) & 7;
     758             : 
     759        2476 :                                                         if (first-- == 0) {
     760        1237 :                                                                 ipos++;
     761        1237 :                                                                 first = 1;
     762             :                                                         }
     763             :                                                 }
     764             : 
     765         983 :                                                 buf[len] = '\0';
     766         983 :                                                 add_assoc_stringl(return_value, n, buf, len);
     767         983 :                                                 efree(buf);
     768         983 :                                                 break;
     769             :                                         }
     770             : 
     771             :                                         case 'c': 
     772             :                                         case 'C': {
     773           2 :                                                 int issigned = (type == 'c') ? (input[inputpos] & 0x80) : 0;
     774           2 :                                                 zend_long v = php_unpack(&input[inputpos], 1, issigned, byte_map);
     775           2 :                                                 add_assoc_long(return_value, n, v);
     776           2 :                                                 break;
     777             :                                         }
     778             : 
     779             :                                         case 's': 
     780             :                                         case 'S': 
     781             :                                         case 'n': 
     782             :                                         case 'v': {
     783             :                                                 zend_long v;
     784           1 :                                                 int issigned = 0;
     785           1 :                                                 int *map = machine_endian_short_map;
     786             : 
     787           1 :                                                 if (type == 's') {
     788           0 :                                                         issigned = input[inputpos + (machine_little_endian ? 1 : 0)] & 0x80;
     789           1 :                                                 } else if (type == 'n') {
     790           0 :                                                         map = big_endian_short_map;
     791           1 :                                                 } else if (type == 'v') {
     792           1 :                                                         map = little_endian_short_map;
     793             :                                                 }
     794             : 
     795           1 :                                                 v = php_unpack(&input[inputpos], 2, issigned, map);
     796           1 :                                                 add_assoc_long(return_value, n, v);
     797           1 :                                                 break;
     798             :                                         }
     799             : 
     800             :                                         case 'i': 
     801             :                                         case 'I': {
     802             :                                                 zend_long v;
     803           1 :                                                 int issigned = 0;
     804             : 
     805           1 :                                                 if (type == 'i') {
     806           0 :                                                         issigned = input[inputpos + (machine_little_endian ? (sizeof(int) - 1) : 0)] & 0x80;
     807             :                                                 }
     808             : 
     809           1 :                                                 v = php_unpack(&input[inputpos], sizeof(int), issigned, int_map);
     810           1 :                                                 add_assoc_long(return_value, n, v);
     811           1 :                                                 break;
     812             :                                         }
     813             : 
     814             :                                         case 'l': 
     815             :                                         case 'L': 
     816             :                                         case 'N': 
     817             :                                         case 'V': {
     818          13 :                                                 int issigned = 0;
     819          13 :                                                 int *map = machine_endian_long_map;
     820          13 :                                                 zend_long v = 0;
     821             : 
     822          14 :                                                 if (type == 'l' || type == 'L') {
     823           1 :                                                         issigned = input[inputpos + (machine_little_endian ? 3 : 0)] & 0x80;
     824          12 :                                                 } else if (type == 'N') {
     825           8 :                                                         issigned = input[inputpos] & 0x80;
     826           8 :                                                         map = big_endian_long_map;
     827           4 :                                                 } else if (type == 'V') {
     828           4 :                                                         issigned = input[inputpos + 3] & 0x80;
     829           4 :                                                         map = little_endian_long_map;
     830             :                                                 }
     831             : 
     832          13 :                                                 if (SIZEOF_ZEND_LONG > 4 && issigned) {
     833           2 :                                                         v = ~INT_MAX;
     834             :                                                 }
     835             : 
     836          13 :                                                 v |= php_unpack(&input[inputpos], 4, issigned, map);
     837             :                                                 if (SIZEOF_ZEND_LONG > 4) {
     838          13 :                                                         if (type == 'l') {
     839           1 :                                                                 v = (signed int) v; 
     840             :                                                         } else {
     841          12 :                                                                 v = (unsigned int) v;
     842             :                                                         }
     843             :                                                 }
     844          13 :                                                 add_assoc_long(return_value, n, v);
     845          13 :                                                 break;
     846             :                                         }
     847             : 
     848             :                                         case 'f': {
     849             :                                                 float v;
     850             : 
     851           0 :                                                 memcpy(&v, &input[inputpos], sizeof(float));
     852           0 :                                                 add_assoc_double(return_value, n, (double)v);
     853           0 :                                                 break;
     854             :                                         }
     855             : 
     856             :                                         case 'd': {
     857             :                                                 double v;
     858             : 
     859          13 :                                                 memcpy(&v, &input[inputpos], sizeof(double));
     860          13 :                                                 add_assoc_double(return_value, n, v);
     861          13 :                                                 break;
     862             :                                         }
     863             : 
     864             :                                         case 'x':
     865             :                                                 /* Do nothing with input, just skip it */
     866           0 :                                                 break;
     867             : 
     868             :                                         case 'X':
     869           0 :                                                 if (inputpos < size) {
     870           0 :                                                         inputpos = -size;
     871           0 :                                                         i = arg - 1;            /* Break out of for loop */
     872             : 
     873           0 :                                                         if (arg >= 0) {
     874           0 :                                                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: outside of string", type);
     875             :                                                         }
     876             :                                                 }
     877           0 :                                                 break;
     878             : 
     879             :                                         case '@':
     880           0 :                                                 if (arg <= inputlen) {
     881           0 :                                                         inputpos = arg;
     882             :                                                 } else {
     883           0 :                                                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: outside of string", type);
     884             :                                                 }
     885             : 
     886           0 :                                                 i = arg - 1;    /* Done, break out of for loop */
     887             :                                                 break;
     888             :                                 }
     889             : 
     890        1024 :                                 inputpos += size;
     891        1024 :                                 if (inputpos < 0) {
     892             :                                         if (size != -1) { /* only print warning if not working with * */
     893             :                                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: outside of string", type);
     894             :                                         }
     895             :                                         inputpos = 0;
     896             :                                 }
     897           3 :                         } else if (arg < 0) {
     898             :                                 /* Reached end of input for '*' repeater */
     899           1 :                                 break;
     900             :                         } else {
     901           2 :                                 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Type %c: not enough input, need %d, have %d", type, size, inputlen - inputpos);
     902             :                                 zval_dtor(return_value);
     903           2 :                                 RETURN_FALSE;
     904             :                         }
     905             :                 }
     906             : 
     907        1020 :                 if (formatlen > 0) {
     908           0 :                         formatlen--;    /* Skip '/' separator, does no harm if inputlen == 0 */
     909           0 :                         format++;
     910             :                 }
     911             :         }
     912             : }
     913             : /* }}} */
     914             : 
     915             : /* {{{ PHP_MINIT_FUNCTION
     916             :  */
     917       20352 : PHP_MINIT_FUNCTION(pack)
     918             : {
     919       20352 :         int machine_endian_check = 1;
     920             :         int i;
     921             : 
     922       20352 :         machine_little_endian = ((char *)&machine_endian_check)[0];
     923             : 
     924       20352 :         if (machine_little_endian) {
     925             :                 /* Where to get lo to hi bytes from */
     926       20352 :                 byte_map[0] = 0;
     927             : 
     928      101760 :                 for (i = 0; i < (int)sizeof(int); i++) {
     929       81408 :                         int_map[i] = i;
     930             :                 }
     931             : 
     932       20352 :                 machine_endian_short_map[0] = 0;
     933       20352 :                 machine_endian_short_map[1] = 1;
     934       20352 :                 big_endian_short_map[0] = 1;
     935       20352 :                 big_endian_short_map[1] = 0;
     936       20352 :                 little_endian_short_map[0] = 0;
     937       20352 :                 little_endian_short_map[1] = 1;
     938             : 
     939       20352 :                 machine_endian_long_map[0] = 0;
     940       20352 :                 machine_endian_long_map[1] = 1;
     941       20352 :                 machine_endian_long_map[2] = 2;
     942       20352 :                 machine_endian_long_map[3] = 3;
     943       20352 :                 big_endian_long_map[0] = 3;
     944       20352 :                 big_endian_long_map[1] = 2;
     945       20352 :                 big_endian_long_map[2] = 1;
     946       20352 :                 big_endian_long_map[3] = 0;
     947       20352 :                 little_endian_long_map[0] = 0;
     948       20352 :                 little_endian_long_map[1] = 1;
     949       20352 :                 little_endian_long_map[2] = 2;
     950       20352 :                 little_endian_long_map[3] = 3;
     951             :         }
     952             :         else {
     953             :                 zval val;
     954           0 :                 int size = sizeof(Z_LVAL(val));
     955           0 :                 Z_LVAL(val)=0; /*silence a warning*/
     956             : 
     957             :                 /* Where to get hi to lo bytes from */
     958           0 :                 byte_map[0] = size - 1;
     959             : 
     960           0 :                 for (i = 0; i < (int)sizeof(int); i++) {
     961           0 :                         int_map[i] = size - (sizeof(int) - i);
     962             :                 }
     963             : 
     964           0 :                 machine_endian_short_map[0] = size - 2;
     965           0 :                 machine_endian_short_map[1] = size - 1;
     966           0 :                 big_endian_short_map[0] = size - 2;
     967           0 :                 big_endian_short_map[1] = size - 1;
     968           0 :                 little_endian_short_map[0] = size - 1;
     969           0 :                 little_endian_short_map[1] = size - 2;
     970             : 
     971           0 :                 machine_endian_long_map[0] = size - 4;
     972           0 :                 machine_endian_long_map[1] = size - 3;
     973           0 :                 machine_endian_long_map[2] = size - 2;
     974           0 :                 machine_endian_long_map[3] = size - 1;
     975           0 :                 big_endian_long_map[0] = size - 4;
     976           0 :                 big_endian_long_map[1] = size - 3;
     977           0 :                 big_endian_long_map[2] = size - 2;
     978           0 :                 big_endian_long_map[3] = size - 1;
     979           0 :                 little_endian_long_map[0] = size - 1;
     980           0 :                 little_endian_long_map[1] = size - 2;
     981           0 :                 little_endian_long_map[2] = size - 3;
     982           0 :                 little_endian_long_map[3] = size - 4;
     983             :         }
     984             : 
     985       20352 :         return SUCCESS;
     986             : }
     987             : /* }}} */
     988             : 
     989             : /*
     990             :  * Local variables:
     991             :  * tab-width: 4
     992             :  * c-basic-offset: 4
     993             :  * End:
     994             :  * vim600: noet sw=4 ts=4 fdm=marker
     995             :  * vim<600: noet sw=4 ts=4
     996             :  */

Generated by: LCOV version 1.10

Generated at Sat, 27 Sep 2014 16:43:19 +0000 (2 days ago)

Copyright © 2005-2014 The PHP Group
All rights reserved.