… | |
… | |
1143 | |
1143 | |
1144 | |
1144 | |
1145 | SV * |
1145 | SV * |
1146 | update(ctx,svin) |
1146 | update(ctx,svin) |
1147 | OpenSSL::Cipher ctx |
1147 | OpenSSL::Cipher ctx |
1148 | SV *svin |
1148 | SV *svin |
1149 | PREINIT: |
1149 | PREINIT: |
1150 | unsigned char *in, *out; |
1150 | unsigned char *in, *out; |
1151 | STRLEN il, ol; |
1151 | STRLEN il, ol; |
1152 | CODE: |
1152 | CODE: |
1153 | in = SvPV(svin, il); |
1153 | in = SvPV(svin, il); |
… | |
… | |
1299 | free(ctx); |
1299 | free(ctx); |
1300 | |
1300 | |
1301 | void |
1301 | void |
1302 | update(ctx, ...) |
1302 | update(ctx, ...) |
1303 | OpenSSL::Digest ctx |
1303 | OpenSSL::Digest ctx |
1304 | PREINIT: |
1304 | PREINIT: |
1305 | STRLEN l; |
1305 | STRLEN l; |
1306 | char *p; |
1306 | char *p; |
1307 | int i; |
1307 | int i; |
1308 | CODE: |
1308 | CODE: |
1309 | for (i = 1; i < items; i++) |
1309 | for (i = 1; i < items; i++) |
… | |
… | |
1428 | CODE: |
1428 | CODE: |
1429 | if(ctx) |
1429 | if(ctx) |
1430 | free(ctx); |
1430 | free(ctx); |
1431 | |
1431 | |
1432 | void |
1432 | void |
1433 | update(ctx, sv) |
1433 | update(ctx, ...) |
1434 | OpenSSL::Digest ctx |
1434 | OpenSSL::Digest ctx |
1435 | SV *sv |
|
|
1436 | PREINIT: |
1435 | PREINIT: |
1437 | STRLEN l; |
1436 | STRLEN l; |
1438 | char *p; |
1437 | char *p; |
|
|
1438 | int i; |
1439 | CODE: |
1439 | CODE: |
1440 | p = SvPV(sv, l); |
1440 | for (i = 1; i < items; i++) |
1441 | EVP_DigestUpdate(ctx, p, l); |
|
|
1442 | |
1441 | { |
|
|
1442 | p = SvPV(ST(i), l); |
|
|
1443 | EVP_DigestUpdate(ctx, p, l); |
|
|
1444 | } |
1443 | |
1445 | |
1444 | SV * |
1446 | SV * |
1445 | final(ctx) |
1447 | final(ctx) |
1446 | OpenSSL::Digest ctx |
1448 | OpenSSL::Digest ctx |
1447 | ALIAS: |
1449 | ALIAS: |