make files didn't work on case insensitive filesystems
[openssl.git] / crypto / des / typemap
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);