Gecko [ www.jdcpatala.org ]

Name	Size	Permission
const.i	1.39 KB	-rw-r--r--
director.swg	3.99 KB	-rw-r--r--
factory.i	3.04 KB	-rw-r--r--
globalvar.i	7.42 KB	-rw-r--r--
php.swg	13.59 KB	-rw-r--r--
phpinit.swg	695 B	-rw-r--r--
phpkw.swg	21.53 KB	-rw-r--r--
phppointers.i	1.48 KB	-rw-r--r--
phprun.swg	8.09 KB	-rw-r--r--
std_common.i	290 B	-rw-r--r--
std_deque.i	28 B	-rw-r--r--
std_map.i	2.6 KB	-rw-r--r--
std_pair.i	773 B	-rw-r--r--
std_string.i	2.61 KB	-rw-r--r--
std_vector.i	3.04 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
typemaps.i	9.64 KB	-rw-r--r--
utils.i	2.35 KB	-rw-r--r--

Code Editor : utils.i

%define CONVERT_BOOL_IN(lvar,t,invar)
  lvar = (t) zval_is_true(&invar);
%enddef

%define CONVERT_INT_IN(lvar,t,invar)
  lvar = (t) zval_get_long(&invar);
%enddef

%define CONVERT_LONG_LONG_IN(lvar,t,invar)
  switch (Z_TYPE(invar)) {
      case IS_DOUBLE:
          lvar = (t) Z_DVAL(invar);
          break;
      case IS_STRING: {
          char * endptr;
          errno = 0;
          lvar = (t) strtoll(Z_STRVAL(invar), &endptr, 10);
          if (*endptr && !errno) break;
          /* FALL THRU */
      }
      default:
          lvar = (t) zval_get_long(&invar);
  }
%enddef

%define CONVERT_UNSIGNED_LONG_LONG_IN(lvar,t,invar)
  switch (Z_TYPE(invar)) {
      case IS_DOUBLE:
          lvar = (t) Z_DVAL(invar);
          break;
      case IS_STRING: {
          char * endptr;
          errno = 0;
          lvar = (t) strtoull(Z_STRVAL(invar), &endptr, 10);
          if (*endptr && !errno) break;
          /* FALL THRU */
      }
      default:
          lvar = (t) zval_get_long(&invar);
  }
%enddef

%define CONVERT_INT_OUT(lvar,invar)
  lvar = (t) zval_get_long(&invar);
%enddef

%define CONVERT_FLOAT_IN(lvar,t,invar)
  lvar = (t) zval_get_double(&invar);
%enddef

%define CONVERT_CHAR_IN(lvar,t,invar)
  convert_to_string(&invar);
  lvar = (t) Z_STRVAL(invar)[0];
%enddef

%define CONVERT_STRING_IN(lvar,t,invar)
  if (Z_ISNULL(invar)) {
    lvar = (t) 0;
  } else {
    convert_to_string(&invar);
    lvar = (t) Z_STRVAL(invar);
  }
%enddef

%define %pass_by_val( TYPE, CONVERT_IN )
%typemap(in) TYPE
%{
  CONVERT_IN($1,$1_ltype,$input);
%}
%typemap(in) const TYPE & ($*1_ltype temp)
%{
  CONVERT_IN(temp,$*1_ltype,$input);
  $1 = &temp;
%}
%typemap(directorout) TYPE
%{
  if (!EG(exception)) {
    CONVERT_IN($result, $1_ltype, *$input);
  }
%}
%typemap(directorout) const TYPE & ($*1_ltype temp)
%{
  if (!EG(exception)) {
    CONVERT_IN(temp, $*1_ltype, *$input);
  }
  $result = &temp;
%}
%enddef

%fragment("t_output_helper","header") %{
static void
t_output_helper(zval *target, zval *o) {
  zval tmp;
  if (Z_TYPE_P(target) == IS_ARRAY) {
    /* it's already an array, just append */
    add_next_index_zval(target, o);
    return;
  }
  if (Z_TYPE_P(target) == IS_NULL) {
    /* NULL isn't refcounted */
    ZVAL_COPY_VALUE(target, o);
    return;
  }
  ZVAL_DUP(&tmp, target);
  array_init(target);
  add_next_index_zval(target, &tmp);
  add_next_index_zval(target, o);
}
%}

${this.title}

Code Editor : utils.i