mac/libdes/src/typemap

   1 #\r# DES SECTION\r#\rdeschar *     T_DESCHARP\rdes_cblock * T_CBLOCK\rdes_cblock     T_CBLOCK\rdes_key_schedule       T_SCHEDULE\rdes_key_schedule *   T_SCHEDULE\r\rINPUT\rT_CBLOCK\r     $var=(des_cblock *)SvPV($arg,len);\r     if (len < DES_KEY_SZ)\r          {\r              croak(\"$var needs to be at least %u bytes long\",DES_KEY_SZ);\r         }\r\rT_SCHEDULE\r  $var=(des_key_schedule *)SvPV($arg,len);\r       if (len < DES_SCHEDULE_SZ)\r             {\r              croak(\"$var needs to be at least %u bytes long\",\r                     DES_SCHEDULE_SZ);\r              }\r\rOUTPUT\rT_CBLOCK\r     sv_setpvn($arg,(char *)$var,DES_KEY_SZ);\r\rT_SCHEDULE\r   sv_setpvn($arg,(char *)$var,DES_SCHEDULE_SZ);\r\rT_DESCHARP\r      sv_setpvn($arg,(char *)$var,len);\r