ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-BER-XS/XS.xs
(Generate patch)

Comparing Convert-BER-XS/XS.xs (file contents):
Revision 1.29 by root, Tue Apr 23 19:44:12 2019 UTC vs.
Revision 1.31 by root, Tue Apr 23 21:03:12 2019 UTC

… …
65 SNMP_TIMETICKS = 0x03, 65 SNMP_TIMETICKS = 0x03,
66 SNMP_OPAQUE = 0x04, 66 SNMP_OPAQUE = 0x04,
67 SNMP_COUNTER64 = 0x06, 67 SNMP_COUNTER64 = 0x06,
68}; 68};
69 69
70// tlow-level types this module can ecode the above (and more) into
70enum { 71enum {
71 BER_TYPE_BYTES, 72 BER_TYPE_BYTES,
72 BER_TYPE_UTF8, 73 BER_TYPE_UTF8,
73 BER_TYPE_UCS2, 74 BER_TYPE_UCS2,
74 BER_TYPE_UCS4, 75 BER_TYPE_UCS4,
… …
80 BER_TYPE_REAL, 81 BER_TYPE_REAL,
81 BER_TYPE_IPADDRESS, 82 BER_TYPE_IPADDRESS,
82 BER_TYPE_CROAK, 83 BER_TYPE_CROAK,
83}; 84};
84 85
86// tuple array indices
85enum { 87enum {
86 BER_CLASS = 0, 88 BER_CLASS = 0,
87 BER_TAG = 1, 89 BER_TAG = 1,
88 BER_FLAGS = 2, 90 BER_FLAGS = 2,
89 BER_DATA = 3, 91 BER_DATA = 3,
… …
303 305
304 return res; 306 return res;
305} 307}
306 308
307static SV * 309static SV *
308decode_int (void) 310decode_int (UV len)
309{ 311{
310 UV len = get_length ();
311
312 if (!len) 312 if (!len)
313 error ("invalid BER_TYPE_INT length zero (X.690 8.3.1)"); 313 error ("invalid BER_TYPE_INT length zero (X.690 8.3.1)");
314 314
315 U8 *data = get_n (len); 315 U8 *data = get_n (len);
316 316
… …
337 // but that's ok, as perl relies on it as well. 337 // but that's ok, as perl relies on it as well.
338 return negative ? newSViv ((IV)val) : newSVuv (val); 338 return negative ? newSViv ((IV)val) : newSVuv (val);
339} 339}
340 340
341static SV * 341static SV *
342decode_data (void) 342decode_data (UV len)
343{ 343{
344 UV len = get_length ();
345 return newSVpvn ((char *)get_n (len), len); 344 return newSVpvn ((char *)get_n (len), len);
346} 345}
347 346
348// helper for decode_object_identifier 347// helper for decode_object_identifier
349static char * 348static char *
… …
377 376
378 return buf; 377 return buf;
379} 378}
380 379
381static SV * 380static SV *
382decode_oid (int relative) 381decode_oid (UV len, int relative)
383{ 382{
384 UV len = get_length ();
385
386 if (len <= 0) 383 if (len <= 0)
387 { 384 {
388 error ("BER_TYPE_OID length must not be zero"); 385 error ("BER_TYPE_OID length must not be zero");
389 return &PL_sv_undef; 386 return &PL_sv_undef;
390 } 387 }
… …
425 return newSVpvn (oid, app - oid); 422 return newSVpvn (oid, app - oid);
426} 423}
427 424
428// TODO: this is unacceptably slow 425// TODO: this is unacceptably slow
429static SV * 426static SV *
430decode_ucs (int chrsize) 427decode_ucs (UV len, int chrsize)
431{ 428{
432 SV *res = NEWSV (0, 0);
433
434 UV len = get_length ();
435
436 if (len & (chrsize - 1)) 429 if (len & (chrsize - 1))
437 croak ("BER_TYPE_UCS has an invalid number of octets (%d)", len); 430 croak ("BER_TYPE_UCS has an invalid number of octets (%d)", len);
431
432 SV *res = NEWSV (0, 0);
438 433
439 while (len) 434 while (len)
440 { 435 {
441 U8 b1 = get_u8 (); 436 U8 b1 = get_u8 ();
442 U8 b2 = get_u8 (); 437 U8 b2 = get_u8 ();
… …
475 if (tag == ASN_TAG_BER) 470 if (tag == ASN_TAG_BER)
476 tag = get_w (); 471 tag = get_w ();
477 472
478 if (constructed) 473 if (constructed)
479 { 474 {
475 want (1);
476 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
477
478 if (expect_false (*cur == 0x80))
479 {
480 // indefinite length
481 ++cur;
482
483 for (;;)
484 {
485 want (2);
486 if (!cur [0] && !cur [1])
487 {
488 cur += 2;
489 break;
490 }
491
492 av_push (av, decode_ber ());
493 }
494 }
495 else
496 {
497 UV len = get_length ();
498 UV seqend = (cur - buf) + len;
499
500 while (cur < buf + seqend)
501 av_push (av, decode_ber ());
502
503 if (expect_false (cur > buf + seqend))
504 croak ("CONSTRUCTED type %02x length overflow (0x%x 0x%x)\n", identifier, (int)(cur - buf), (int)seqend);
505 }
506
507 res = newRV_inc ((SV *)av);
508 }
509 else
510 {
480 UV len = get_length (); 511 UV len = get_length ();
481 UV seqend = (cur - buf) + len;
482 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
483 512
484 while (cur < buf + seqend)
485 av_push (av, decode_ber ());
486
487 if (cur > buf + seqend)
488 croak ("CONSTRUCTED type %02x length overflow (0x%x 0x%x)\n", identifier, (int)(cur - buf), (int)seqend);
489
490 res = newRV_inc ((SV *)av);
491 }
492 else
493 switch (profile_lookup (cur_profile, klass, tag)) 513 switch (profile_lookup (cur_profile, klass, tag))
494 { 514 {
495 case BER_TYPE_NULL: 515 case BER_TYPE_NULL:
496 { 516 if (expect_false (len))
497 UV len = get_length ();
498
499 if (len)
500 croak ("BER_TYPE_NULL value with non-zero length %d encountered (X.690 8.8.2)", len); 517 croak ("BER_TYPE_NULL value with non-zero length %d encountered (X.690 8.8.2)", len);
501 518
502 res = &PL_sv_undef; 519 res = &PL_sv_undef;
503 }
504 break; 520 break;
505 521
506 case BER_TYPE_BOOL: 522 case BER_TYPE_BOOL:
507 {
508 UV len = get_length ();
509
510 if (len != 1) 523 if (expect_false (len != 1))
511 croak ("BER_TYPE_BOOLEAN value with invalid length %d encountered (X.690 8.2.1)", len); 524 croak ("BER_TYPE_BOOLEAN value with invalid length %d encountered (X.690 8.2.1)", len);
512 525
513 res = newSVcacheint (!!get_u8 ()); 526 res = newSVcacheint (!!get_u8 ());
514 }
515 break; 527 break;
516 528
517 case BER_TYPE_OID: 529 case BER_TYPE_OID:
518 res = decode_oid (0); 530 res = decode_oid (len, 0);
519 break; 531 break;
520 532
521 case BER_TYPE_RELOID: 533 case BER_TYPE_RELOID:
522 res = decode_oid (1); 534 res = decode_oid (len, 1);
523 break; 535 break;
524 536
525 case BER_TYPE_INT: 537 case BER_TYPE_INT:
526 res = decode_int (); 538 res = decode_int (len);
527 break; 539 break;
528 540
529 case BER_TYPE_UTF8: 541 case BER_TYPE_UTF8:
530 res = decode_data (); 542 res = decode_data (len);
531 SvUTF8_on (res); 543 SvUTF8_on (res);
532 break; 544 break;
533 545
534 case BER_TYPE_BYTES: 546 case BER_TYPE_BYTES:
535 res = decode_data (); 547 res = decode_data (len);
536 break; 548 break;
537 549
538 case BER_TYPE_IPADDRESS: 550 case BER_TYPE_IPADDRESS:
539 { 551 {
540 UV len = get_length ();
541
542 if (len != 4) 552 if (len != 4)
543 croak ("BER_TYPE_IPADDRESS type with invalid length %d encountered (RFC 2578 7.1.5)", len); 553 croak ("BER_TYPE_IPADDRESS type with invalid length %d encountered (RFC 2578 7.1.5)", len);
544 554
545 U8 *data = get_n (4); 555 U8 *data = get_n (4);
546 res = newSVpvf ("%d.%d.%d.%d", data [0], data [1], data [2], data [3]); 556 res = newSVpvf ("%d.%d.%d.%d", data [0], data [1], data [2], data [3]);
547 } 557 }
548 break; 558 break;
549 559
550 case BER_TYPE_UCS2: 560 case BER_TYPE_UCS2:
551 res = decode_ucs (2); 561 res = decode_ucs (len, 2);
552 break; 562 break;
553 563
554 case BER_TYPE_UCS4: 564 case BER_TYPE_UCS4:
555 res = decode_ucs (4); 565 res = decode_ucs (len, 4);
556 break; 566 break;
557 567
558 case BER_TYPE_REAL: 568 case BER_TYPE_REAL:
559 error ("BER_TYPE_REAL not implemented"); 569 error ("BER_TYPE_REAL not implemented");
560 570
561 case BER_TYPE_CROAK: 571 case BER_TYPE_CROAK:
562 croak ("class/tag %d/%d mapped to BER_TYPE_CROAK", klass, tag); 572 croak ("class/tag %d/%d mapped to BER_TYPE_CROAK", klass, tag);
563 573
564 default: 574 default:
565 croak ("unconfigured/unsupported class/tag %d/%d", klass, tag); 575 croak ("unconfigured/unsupported class/tag %d/%d", klass, tag);
566 } 576 }
577 }
567 578
568 AV *av = newAV (); 579 AV *av = newAV ();
569 av_fill (av, BER_ARRAYSIZE - 1); 580 av_fill (av, BER_ARRAYSIZE - 1);
570 AvARRAY (av)[BER_CLASS] = newSVcacheint (klass); 581 AvARRAY (av)[BER_CLASS] = newSVcacheint (klass);
571 AvARRAY (av)[BER_TAG ] = newSVcacheint (tag); 582 AvARRAY (av)[BER_TAG ] = newSVcacheint (tag);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines