… | |
… | |
302 | ///////////////////////////////////////////////////////////////////////////// |
302 | ///////////////////////////////////////////////////////////////////////////// |
303 | |
303 | |
304 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
304 | MODULE = Gtk2::CV PACKAGE = Gtk2::CV |
305 | |
305 | |
306 | PROTOTYPES: ENABLE |
306 | PROTOTYPES: ENABLE |
|
|
307 | |
|
|
308 | void |
|
|
309 | _exit (int code) |
307 | |
310 | |
308 | # calculate the common prefix length of two strings |
311 | # calculate the common prefix length of two strings |
309 | # missing function in perl. really :) |
312 | # missing function in perl. really :) |
310 | int |
313 | int |
311 | common_prefix_length (a, b) |
314 | common_prefix_length (a, b) |
… | |
… | |
482 | if (data_len >= ofs + 2 + 1 + 11) |
485 | if (data_len >= ofs + 2 + 1 + 11) |
483 | if (!memcmp (data + ofs, "\x21\xff\x0bNETSCAPE2.0", sizeof ("\x21\xff\x0bNETSCAPE2.0") - 1)) |
486 | if (!memcmp (data + ofs, "\x21\xff\x0bNETSCAPE2.0", sizeof ("\x21\xff\x0bNETSCAPE2.0") - 1)) |
484 | RETVAL = "video/gif"; |
487 | RETVAL = "video/gif"; |
485 | } |
488 | } |
486 | } |
489 | } |
|
|
490 | else if (data_len >= 0x8000 + 6 |
|
|
491 | && data[0x8000+0] == 0 |
|
|
492 | && data[0x8000+1] == (U8)'B' |
|
|
493 | && data[0x8000+2] == (U8)'E' |
|
|
494 | && data[0x8000+3] == (U8)'A' |
|
|
495 | && data[0x8000+4] == (U8)'0' |
|
|
496 | && data[0x8000+5] == (U8)'1') |
|
|
497 | RETVAL = "video/iso-bluray"; |
487 | |
498 | |
488 | else |
499 | else |
489 | XSRETURN_UNDEF; |
500 | XSRETURN_UNDEF; |
490 | } |
501 | } |
491 | OUTPUT: |
502 | OUTPUT: |