зеркало из https://github.com/mozilla/gecko-dev.git
71 строка
2.0 KiB
Plaintext
71 строка
2.0 KiB
Plaintext
#############################################################################
|
|
# $Id: typemap,v 1.4 1998/08/13 09:15:00 leif Exp $
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public License
|
|
# Version 1.0 (the "License"); you may not use this file except in
|
|
# compliance with the License. You may obtain a copy of the License at
|
|
# http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS IS"
|
|
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
|
|
# License for the specific language governing rights and limitations
|
|
# under the License.
|
|
#
|
|
# The Original Code is PerLDAP. The Initial Developer of the Original
|
|
# Code is Netscape Communications Corp. and Clayton Donley. Portions
|
|
# created by Netscape are Copyright (C) Netscape Communications
|
|
# Corp., portions created by Clayton Donley are Copyright (C) Clayton
|
|
# Donley. All Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
#
|
|
# DESCRIPTION
|
|
# Typemap to declare XSUB data types.
|
|
#
|
|
#############################################################################
|
|
|
|
const int T_IV
|
|
char * T_PV
|
|
const char * T_PV
|
|
char ** T_charptrptr
|
|
LDAP * T_PTR
|
|
LDAPMessage * T_PTR
|
|
LDAPMessage ** T_PTR
|
|
BerElement * T_PTR
|
|
LDAPControl * T_PTR
|
|
LDAPVersion * T_PTR
|
|
struct berval T_berval
|
|
struct berval ** T_bervalptrptr
|
|
FriendlyMap * T_PTR
|
|
LDAPsortkey ** T_PTR
|
|
LDAPVirtualList * T_PTR
|
|
LDAPURLDesc * T_PTR
|
|
LDAPControl ** T_PTR
|
|
LDAPFiltDesc * T_PTR
|
|
LDAPFiltInfo * T_PTR
|
|
LDAPMemCache * T_PTR
|
|
LDAPMemCache ** T_PTR
|
|
struct ldap_thread_fns * T_PTR
|
|
LDAPMod ** T_PTR
|
|
LDAP_CMP_CALLBACK * T_PTR
|
|
LDAP_REBINDPROC_CALLBACK * T_PTR
|
|
struct timeval T_timeval
|
|
|
|
#########
|
|
INPUT
|
|
T_timeval
|
|
$var.tv_sec = atof((char *)SvPV($arg,na));
|
|
$var.tv_usec = 0
|
|
T_berval
|
|
$var.bv_val = (char *)SvPV($arg,na);
|
|
$var.bv_len = na
|
|
T_charptrptr
|
|
$var = (char **)avref2charptrptr($arg)
|
|
T_bervalptrptr
|
|
$var = (struct berval **)avref2berptrptr($arg)
|
|
OUTPUT
|
|
T_charptrptr
|
|
$arg = charptrptr2avref($var);
|
|
T_bervalptrptr
|
|
$arg = berptrptr2avref((struct berval **)$var);
|