[thirdparty/openssl.git] / crypto / des / typemap

#
# DES SECTION
#
deschar *	T_DESCHARP
des_cblock *	T_CBLOCK
des_cblock	T_CBLOCK
des_key_schedule	T_SCHEDULE
des_key_schedule *	T_SCHEDULE

INPUT
T_CBLOCK
	$var=(des_cblock *)SvPV($arg,len);
	if (len < DES_KEY_SZ)
		{
		croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ);
		}

T_SCHEDULE
	$var=(des_key_schedule *)SvPV($arg,len);
	if (len < DES_SCHEDULE_SZ)
		{
		croak(\"$var needs to be at least %u bytes long\",
			DES_SCHEDULE_SZ);
		}

OUTPUT
T_CBLOCK
	sv_setpvn($arg,(char *)$var,DES_KEY_SZ);

T_SCHEDULE
	sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ);

T_DESCHARP
	sv_setpvn($arg,(char *)$var,len);
Commit	Line	Data
d02b48c6 RE	1	#
	2	# DES SECTION
	3	#
	4	deschar * T_DESCHARP
	5	des_cblock * T_CBLOCK
	6	des_cblock T_CBLOCK
	7	des_key_schedule T_SCHEDULE
	8	des_key_schedule * T_SCHEDULE
	9
	10	INPUT
	11	T_CBLOCK
	12	$var=(des_cblock *)SvPV($arg,len);
	13	if (len < DES_KEY_SZ)
	14	{
	15	croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ);
	16	}
	17
	18	T_SCHEDULE
	19	$var=(des_key_schedule *)SvPV($arg,len);
	20	if (len < DES_SCHEDULE_SZ)
	21	{
	22	croak(\"$var needs to be at least %u bytes long\",
	23	DES_SCHEDULE_SZ);
	24	}
	25
	26	OUTPUT
	27	T_CBLOCK
	28	sv_setpvn($arg,(char *)$var,DES_KEY_SZ);
	29
	30	T_SCHEDULE
	31	sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ);
	32
	33	T_DESCHARP
	34	sv_setpvn($arg,(char *)$var,len);