typemap revision 225736
150624Speter# 250624Speter# DES SECTION 350624Speter# 450624Speterdeschar * T_DESCHARP 550624Speterdes_cblock * T_CBLOCK 650624Speterdes_cblock T_CBLOCK 750624Speterdes_key_schedule T_SCHEDULE 850624Speterdes_key_schedule * T_SCHEDULE 950624Speter 1050624SpeterINPUT 1150624SpeterT_CBLOCK 1250624Speter $var=(des_cblock *)SvPV($arg,len); 1350624Speter if (len < DES_KEY_SZ) 1450624Speter { 1550624Speter croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ); 1650624Speter } 1750624Speter 1850624SpeterT_SCHEDULE 1950624Speter $var=(des_key_schedule *)SvPV($arg,len); 2050624Speter if (len < DES_SCHEDULE_SZ) 2150624Speter { 2250624Speter croak(\"$var needs to be at least %u bytes long\", 2350624Speter DES_SCHEDULE_SZ); 2450624Speter } 2550624Speter 2650624SpeterOUTPUT 2750624SpeterT_CBLOCK 2850624Speter sv_setpvn($arg,(char *)$var,DES_KEY_SZ); 2950624Speter 3050624SpeterT_SCHEDULE 3150624Speter sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ); 3250624Speter 3350624SpeterT_DESCHARP 3462456Speter sv_setpvn($arg,(char *)$var,len); 3550624Speter