2006-12-08 18:04:31 +01:00
/* meta_out.c */
/* Dump MJ2, JP2 metadata (partial so far) to xml file */
/* Callable from mj2_to_metadata */
/* Contributed to Open JPEG by Glenn Pearson, contract software developer, U.S. National Library of Medicine.
The base code in this file was developed by the author as part of a video archiving
2017-05-09 15:44:46 +02:00
project for the U . S . National Library of Medicine , Bethesda , MD .
2006-12-08 18:04:31 +01:00
It is the policy of NLM ( and U . S . government ) to not assert copyright .
A non - exclusive copy of this code has been contributed to the Open JPEG project .
Except for copyright , inclusion of the code within Open JPEG for distribution and use
can be bound by the Open JPEG open - source license and disclaimer , expressed elsewhere .
*/
2007-05-10 16:21:09 +02:00
# include <windows.h> /* for time functions */
2006-12-08 18:04:31 +01:00
2011-04-14 00:38:50 +02:00
# include "opj_includes.h"
2007-05-10 16:21:09 +02:00
# include "mj2.h"
2006-12-08 18:04:31 +01:00
# include <time.h>
# include "meta_out.h"
static BOOL notes = TRUE ;
static BOOL sampletables = FALSE ;
static BOOL raw = TRUE ;
static BOOL derived = TRUE ;
2007-05-10 16:21:09 +02:00
opj_tcp_t * j2k_default_tcp ;
2006-12-08 18:04:31 +01:00
/* Forwards */
2017-05-09 15:44:46 +02:00
int xml_write_overall_header ( FILE * file , FILE * xmlout , opj_mj2_t * movie ,
unsigned int sampleframe , opj_event_mgr_t * event_mgr ) ;
int xml_write_moov ( FILE * file , FILE * xmlout , opj_mj2_t * movie ,
unsigned int sampleframe , opj_event_mgr_t * event_mgr ) ;
2006-12-08 18:04:31 +01:00
void uint_to_chars ( unsigned int value , char * buf ) ;
2017-05-09 15:44:46 +02:00
void xml_write_trak ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum , unsigned int sampleframe , opj_event_mgr_t * event_mgr ) ;
void xml_write_tkhd ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum ) ;
void xml_write_udta ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum ) ;
void xml_write_mdia ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum ) ;
void xml_write_stbl ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum ) ;
2006-12-08 18:04:31 +01:00
void UnixTimeToFileTime ( time_t t , LPFILETIME pft ) ;
void UnixTimeToSystemTime ( time_t t , LPSYSTEMTIME pst ) ;
void xml_time_out ( FILE * xmlout , time_t t ) ;
void int16_to_3packedchars ( short int value , char * buf ) ;
2007-05-10 16:21:09 +02:00
void xml_write_moov_udta ( FILE * xmlout , opj_mj2_t * movie ) ;
void xml_write_free_and_skip ( FILE * xmlout , opj_mj2_t * movie ) ;
void xml_write_uuid ( FILE * xmlout , opj_mj2_t * movie ) ;
2017-05-09 15:44:46 +02:00
int xml_out_frame ( FILE * file , FILE * xmlout , mj2_sample_t * sample ,
unsigned int snum , opj_event_mgr_t * event_mgr ) ;
2007-05-10 16:21:09 +02:00
void xml_out_frame_siz ( FILE * xmlout , opj_image_t * img , opj_cp_t * cp ) ;
void xml_out_frame_cod ( FILE * xmlout , opj_tcp_t * tcp ) ;
2017-05-09 15:44:46 +02:00
void xml_out_frame_coc ( FILE * xmlout , opj_tcp_t * tcp ,
int numcomps ) ; /* opj_image_t *img); */
2007-05-10 16:21:09 +02:00
BOOL same_component_style ( opj_tccp_t * tccp1 , opj_tccp_t * tccp2 ) ;
void xml_out_frame_qcd ( FILE * xmlout , opj_tcp_t * tcp ) ;
2017-05-09 15:44:46 +02:00
void xml_out_frame_qcc ( FILE * xmlout , opj_tcp_t * tcp ,
int numcomps ) ; /* opj_image_t *img); */
2007-05-10 16:21:09 +02:00
BOOL same_component_quantization ( opj_tccp_t * tccp1 , opj_tccp_t * tccp2 ) ;
2017-05-09 15:44:46 +02:00
void xml_out_frame_rgn ( FILE * xmlout , opj_tcp_t * tcp ,
int numcomps ) ; /* opj_image_t *img);*/
2007-05-10 16:21:09 +02:00
void xml_out_frame_poc ( FILE * xmlout , opj_tcp_t * tcp ) ;
void xml_out_frame_ppm ( FILE * xmlout , opj_cp_t * cp ) ;
void xml_out_frame_ppt ( FILE * xmlout , opj_tcp_t * tcp ) ;
2017-05-09 15:44:46 +02:00
void xml_out_frame_tlm ( FILE *
xmlout ) ; /* j2k_default_tcp is passed globally */ /* NO-OP. TLM NOT SAVED IN DATA STRUCTURE */
void xml_out_frame_plm ( FILE *
xmlout ) ; /* j2k_default_tcp is passed globally */ /* NO-OP. PLM NOT SAVED IN DATA STRUCTURE. opt in main; can be used in conjunction with PLT */
void xml_out_frame_plt ( FILE * xmlout ,
opj_tcp_t * tcp ) ; /* NO-OP. PLM NOT SAVED IN DATA STRUCTURE. opt in main; can be used in conjunction with PLT */
void xml_out_frame_crg ( FILE *
xmlout ) ; /* j2k_default_tcp is passed globally */ /* opt in main; */
void xml_out_frame_com ( FILE * xmlout ,
opj_tcp_t * tcp ) ; /* NO-OP. COM NOT SAVED IN DATA STRUCTURE */ /* opt in main; */
2006-12-08 18:04:31 +01:00
void xml_out_dump_hex ( FILE * xmlout , char * data , int data_len , char * s ) ;
2017-05-09 15:44:46 +02:00
void xml_out_dump_hex_and_ascii ( FILE * xmlout , char * data , int data_len ,
char * s ) ;
2007-05-10 16:21:09 +02:00
void xml_out_frame_jp2h ( FILE * xmlout , opj_jp2_t * jp2_struct ) ;
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
/* Shown with cp, extended, as data structure... but it could be a new different one */
2017-05-09 15:44:46 +02:00
void xml_out_frame_jp2i ( FILE * xmlout ,
opj_cp_t * cp ) ; /* IntellectualProperty 'jp2i' (no restrictions on location) */
void xml_out_frame_xml ( FILE * xmlout ,
opj_cp_t * cp ) ; /* XML 'xml\040' (0x786d6c20). Can appear multiply */
void xml_out_frame_uuid ( FILE * xmlout ,
opj_cp_t * cp ) ; /* UUID 'uuid' (top level only) */
void xml_out_frame_uinf ( FILE * xmlout ,
opj_cp_t * cp ) ; /* UUIDInfo 'uinf', includes UUIDList 'ulst' and URL 'url\40' */
2007-05-10 16:21:09 +02:00
void xml_out_frame_unknown_type ( FILE * xmlout , opj_cp_t * cp ) ;
2006-12-08 18:04:31 +01:00
# endif
void xml_write_init ( BOOL n , BOOL t , BOOL r , BOOL d )
{
2017-05-09 15:44:46 +02:00
/* Init file globals */
notes = n ;
sampletables = t ;
raw = r ;
derived = d ;
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
int xml_write_struct ( FILE * file , FILE * xmlout , opj_mj2_t * movie ,
unsigned int sampleframe , char * stringDTD , opj_event_mgr_t * event_mgr )
{
if ( stringDTD ! = NULL ) {
fprintf ( xmlout , " <?xml version= \" 1.0 \" standalone= \" no \" ?> \n " ) ;
/* stringDTD is known to start with "SYSTEM " or "PUBLIC " */
/* typical: SYSTEM mj2_to_metadata.dtd */
stringDTD [ 6 ] =
' \0 ' ; /* Break into two strings at space, so quotes can be inserted. */
fprintf ( xmlout , " <!DOCTYPE MJ2_File %s \" %s \" > \n " , stringDTD , stringDTD + 7 ) ;
stringDTD [ 6 ] = ' ' ; /* restore for sake of debugger or memory allocator */
} else {
fprintf ( xmlout , " <?xml version= \" 1.0 \" standalone= \" yes \" ?> \n " ) ;
}
fprintf ( xmlout , " <MJ2_File> \n " ) ;
xml_write_overall_header ( file , xmlout , movie , sampleframe , event_mgr ) ;
fprintf ( xmlout , " </MJ2_File> " ) ;
return 0 ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
int xml_write_overall_header ( FILE * file , FILE * xmlout , opj_mj2_t * movie ,
unsigned int sampleframe , opj_event_mgr_t * event_mgr )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
int i ;
char buf [ 5 ] ;
buf [ 4 ] = ' \0 ' ;
fprintf ( xmlout ,
" <JP2 BoxType= \" jP[space][space] \" Signature= \" 0x0d0a870a \" /> \n " ) ;
// Called after structure initialized by mj2_read_ftyp
fprintf ( xmlout , " <FileType BoxType= \" ftyp \" > \n " ) ;
uint_to_chars ( movie - > brand , buf ) ;
fprintf ( xmlout , " <Brand>%s</Brand> \n " ,
buf ) ; /* 4 character; BR */
fprintf ( xmlout , " <MinorVersion>%u</MinorVersion> \n " ,
movie - > minversion ) ; /* 4 char; MinV */
fprintf ( xmlout , " <CompatibilityList Count= \" %d \" > \n " , movie - > num_cl ) ;
for ( i = movie - > num_cl - 1 ; i > - 1 ;
i - - ) { /* read routine stored in reverse order, so let's undo damage */
uint_to_chars ( movie - > cl [ i ] , buf ) ;
fprintf ( xmlout , " <CompatibleBrand>%s</CompatibleBrand> \n " ,
buf ) ; /*4 characters, each CLi */
}
fprintf ( xmlout , " </CompatibilityList> \n " ) ;
fprintf ( xmlout , " </FileType> \n " ) ;
xml_write_moov ( file , xmlout , movie , sampleframe , event_mgr ) ;
// To come? <mdat> // This is the container for media data that can also be accessed through track structures,
// so is redundant, and simply not of interest as metadata
// <moof> // Allows incremental build up of movie. Probably not in Simple Profile
xml_write_free_and_skip ( xmlout ,
movie ) ; /* NO OP so far */ /* May be a place where user squirrels metadata */
xml_write_uuid ( xmlout ,
movie ) ; /* NO OP so far */ /* May be a place where user squirrels metadata */
return 0 ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
int xml_write_moov ( FILE * file , FILE * xmlout , opj_mj2_t * movie ,
unsigned int sampleframe , opj_event_mgr_t * event_mgr )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
unsigned int tnum ;
mj2_tk_t * track ;
fprintf ( xmlout , " <MovieBox BoxType= \" moov \" > \n " ) ;
fprintf ( xmlout , " <MovieHeader BoxType= \" mvhd \" > \n " ) ;
fprintf ( xmlout , " <CreationTime> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InSeconds>%u</InSeconds> \n " , movie - > creation_time ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" <!-- Seconds since start of Jan. 1, 1904 UTC (Greenwich) --> \n " ) ;
}
/* 2082844800 = seconds between 1/1/04 and 1/1/70 */
2017-07-26 21:06:38 +02:00
/* There's still a time zone offset problem not solved... but spec is ambiguous as to whether stored time
2017-05-09 15:44:46 +02:00
should be local or UTC */
if ( derived ) {
fprintf ( xmlout , " <AsLocalTime> " ) ;
xml_time_out ( xmlout , movie - > creation_time - 2082844800 ) ;
fprintf ( xmlout , " </AsLocalTime> \n " ) ;
}
fprintf ( xmlout , " </CreationTime> \n " ) ;
fprintf ( xmlout , " <ModificationTime> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InSeconds>%u</InSeconds> \n " ,
movie - > modification_time ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsLocalTime> " ) ;
xml_time_out ( xmlout , movie - > modification_time - 2082844800 ) ;
fprintf ( xmlout , " </AsLocalTime> \n " ) ;
}
fprintf ( xmlout , " </ModificationTime> \n " ) ;
fprintf ( xmlout , " <Timescale>%d</Timescale> \n " , movie - > timescale ) ;
if ( notes ) {
fprintf ( xmlout , " <!-- Timescale defines time units in one second --> \n " ) ;
}
fprintf ( xmlout ,
" <Rate> \n " ) ; /* Rate to play presentation (default = 0x00010000) */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Rate to play presentation is stored as fixed-point binary 16.16 value. Decimal value is approximation. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Rate is expressed relative to normal (default) value of 0x00010000 (1.0) --> \n " ) ;
}
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%08x</AsHex> \n " , movie - > rate ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%12.6f</AsDecimal> \n " ,
( double ) movie - > rate / ( double ) 0x00010000 ) ;
}
fprintf ( xmlout , " </Rate> \n " ) ;
fprintf ( xmlout , " <Duration> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InTimeUnits>%u</InTimeUnits> \n " , movie - > duration ) ;
}
if ( derived ) {
fprintf ( xmlout , " <InSeconds>%12.3f</InSeconds> \n " ,
( double ) movie - > duration / ( double )
movie - > timescale ) ; // Make this double later to get fractional seconds
}
fprintf ( xmlout , " </Duration> \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
movie - > volume = movie - > volume < < 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " <Volume> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Audio volume stored as fixed-point binary 8.8 value. Decimal value is approximation. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Full, normal (default) value is 0x0100 (1.0) --> \n " ) ;
}
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%04x</AsHex> \n " , movie - > volume ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%6.3f</AsDecimal> \n " ,
( double ) movie - > volume / ( double ) 0x0100 ) ;
}
fprintf ( xmlout , " </Volume> \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Current m2j_to_metadata implementation always shows bits to right of decimal as zeroed. --> \n " ) ;
}
movie - > volume = movie - > volume > > 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
/* Transformation matrix for video */
fprintf ( xmlout , " <TransformationMatrix> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- 3 x 3 Video Transformation Matrix {a,b,u,c,d,v,x,y,w}. Required: u=0, v=0, w=1 --> \n " ) ;
fprintf ( xmlout ,
" <!-- Maps decompressed point (p,q) to rendered point (ap + cq + x, bp + dq + y) --> \n " ) ;
fprintf ( xmlout ,
" <!-- Stored as Fixed Point Hex: all are binary 16.16, except u,v,w are 2.30 --> \n " ) ;
fprintf ( xmlout ,
" <!-- Unity = 0x00010000,0,0,0,0x00010000,0,0,0,0x40000000 --> \n " ) ;
}
fprintf ( xmlout , " <TMa>0x%08x</TMa> \n " , movie - > trans_matrix [ 0 ] ) ;
fprintf ( xmlout , " <TMb>0x%08x</TMb> \n " , movie - > trans_matrix [ 1 ] ) ;
fprintf ( xmlout , " <TMu>0x%08x</TMu> \n " , movie - > trans_matrix [ 2 ] ) ;
fprintf ( xmlout , " <TMc>0x%08x</TMc> \n " , movie - > trans_matrix [ 3 ] ) ;
fprintf ( xmlout , " <TMd>0x%08x</TMd> \n " , movie - > trans_matrix [ 4 ] ) ;
fprintf ( xmlout , " <TMv>0x%08x</TMv> \n " , movie - > trans_matrix [ 5 ] ) ;
fprintf ( xmlout , " <TMx>0x%08x</TMx> \n " , movie - > trans_matrix [ 6 ] ) ;
fprintf ( xmlout , " <TMy>0x%08x</TMy> \n " , movie - > trans_matrix [ 7 ] ) ;
fprintf ( xmlout , " <TMw>0x%08x</TMw> \n " , movie - > trans_matrix [ 8 ] ) ;
fprintf ( xmlout , " </TransformationMatrix> \n " ) ;
fprintf ( xmlout , " </MovieHeader> \n " ) ;
fprintf ( xmlout , " <Statistics> \n " ) ;
fprintf ( xmlout , " <TracksFound> \n " ) ;
fprintf ( xmlout , " <Video>%d</Video> \n " , movie - > num_vtk ) ;
fprintf ( xmlout , " <Audio>%d</Audio> \n " , movie - > num_stk ) ;
fprintf ( xmlout , " <Hint>%d</Hint> \n " , movie - > num_htk ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Hint tracks for streaming video are not part of MJ2, but are a defined extension. --> \n " ) ;
}
/* See Part 3 Amend 2 Section 4.2 for relation of MJ2 to Part 12 Sections 7 and 10 hints */
fprintf ( xmlout , " </TracksFound> \n " ) ;
fprintf ( xmlout , " </Statistics> \n " ) ;
/* Idea for the future: It would be possible to add code to verify that the file values:
1 ) are legal and self - consistent
2 ) comply with particular JP2 and / or MJ2 profiles .
This could be reported here as additional XML elements */
// Find first video track
tnum = 0 ;
while ( movie - > tk [ tnum ] . track_type ! = 0 ) {
tnum + + ;
}
track = & ( movie - > tk [ tnum ] ) ;
// For now, output info on first video track
xml_write_trak ( file , xmlout , track , tnum , sampleframe , event_mgr ) ;
// to come: <MovieExtends mvek> // possibly not in Simple Profile
xml_write_moov_udta ( xmlout ,
movie ) ; /* NO OP so far */ /* <UserDataBox udta> contains <CopyrightBox cprt> */
fprintf ( xmlout , " </MovieBox> \n " ) ;
return 0 ;
2006-12-08 18:04:31 +01:00
}
/* --------------- */
void uint_to_chars ( unsigned int value , char * buf )
{
2017-05-09 15:44:46 +02:00
/* buf is at least char[5] */
2006-12-08 18:04:31 +01:00
int i ;
2017-05-09 15:44:46 +02:00
for ( i = 3 ; i > = 0 ; i - - ) {
2006-12-08 18:04:31 +01:00
buf [ i ] = ( value & 0x000000ff ) ;
value = ( value > > 8 ) ;
}
2017-05-09 15:44:46 +02:00
buf [ 4 ] = ' \0 ' ; /* Precautionary */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
/* WINDOWS SPECIFIC */
void UnixTimeToFileTime ( time_t t , LPFILETIME pft )
{
2017-05-09 15:44:46 +02:00
/* Windows specific. From MS Q167296 */
/* 'time_t' represents seconds since midnight January 1, 1970 UTC (coordinated universal time). */
/* 64-bit FILETIME structure represents the number of 100-nanosecond intervals since January 1, 1601 UTC (coordinate universal time). */
LONGLONG ll ; /* LONGLONG is a 64-bit value. */
ll = Int32x32To64 ( t , 10000000 ) + 116444736000000000 ;
pft - > dwLowDateTime = ( DWORD ) ll ;
/* pft->dwLowDateTime = (DWORD)(0x00000000ffffffff & ll); */
pft - > dwHighDateTime = ( DWORD ) ( ll > > 32 ) ;
}
2006-12-08 18:04:31 +01:00
// Once the UNIX time is converted to a FILETIME structure,
// other Win32 time formats can be easily obtained by using Win32 functions such
// as FileTimeToSystemTime() and FileTimeToDosDateTime().
/* ------------- */
void UnixTimeToSystemTime ( time_t t , LPSYSTEMTIME pst )
{
2017-05-09 15:44:46 +02:00
/* Windows specific */
FILETIME ft ;
UnixTimeToFileTime ( t , & ft ) ;
FileTimeToLocalFileTime ( & ft , & ft ) ; /* Adjust from UTC to local time zone */
FileTimeToSystemTime ( & ft , pst ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
void xml_time_out ( FILE * xmlout , time_t t )
{
2017-05-09 15:44:46 +02:00
/* Windows specific */
SYSTEMTIME st ;
char szLocalDate [ 255 ] , szLocalTime [ 255 ] ;
UnixTimeToSystemTime ( t , & st ) ;
GetDateFormat ( LOCALE_USER_DEFAULT , DATE_LONGDATE , & st , NULL , szLocalDate , 255 ) ;
GetTimeFormat ( LOCALE_USER_DEFAULT , 0 , & st , NULL , szLocalTime , 255 ) ;
fprintf ( xmlout , " %s %s " , szLocalDate , szLocalTime ) ;
2006-12-08 18:04:31 +01:00
}
/* END WINDOWS SPECIFIC */
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_moov_udta ( FILE * xmlout , opj_mj2_t * movie )
{
/* Compare with xml_write_udta */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
/* NO-OP so far. Optional UserData 'udta' (zero or one in moov or each trak)
can contain multiple Copyright ' cprt ' with different language codes */
/* There may be nested non-standard boxes within udta */
IMAGINE movie - > udta , movie - > copyright_count ,
movie - > copyright_language [ i ] ( array of 16 bit ints ) ,
movie - > copyright_notice [ i ] ( array of buffers )
PROBABLY ALSO NEED movie - > udta_len or special handler for non - standard boxes
char buf [ 5 ] ;
int i ;
if ( movie - > udta ! = 1 ) {
return ; /* Not present */
}
fprintf ( xmlout , " <UserData BoxType= \" udta \" > \n " ) ;
for ( i = 0 ; i < movie - > copyright_count ; i + + ) {
fprintf ( xmlout , " <Copyright BoxType= \" cprt \" > Instance= \" %d \" > \n " ,
i + 1 ) ;
int16_to_3packedchars ( ( short int ) movie - > copyright_languages [ i ] , buf ) ;
fprintf ( xmlout , " <Language>%s</Language> \n " , buf ) ; /* 3 chars */
fprintf ( xmlout , " <Notice>%s</Notice> \n " , movie - > copyright_notices [ i ] ) ;
fprintf ( xmlout , " </Copyright> \n " , i + 1 ) ;
}
/* TO DO: Non-standard boxes */
fprintf ( xmlout , " </UserData> \n " ) ;
2006-12-08 18:04:31 +01:00
# endif
}
2017-05-09 15:44:46 +02:00
void xml_write_free_and_skip ( FILE * xmlout , opj_mj2_t * movie )
{
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
/* NO-OP so far. There can be zero or more instances of free and/or skip
at the top level of the file . This may be a place where the user squirrel ' s metadata .
Let ' s assume unstructured , and do a dump */
IMAGINE movie - > free_and_skip , movie - > free_and_skip_count ,
movie - > free_and_skip_content [ i ] ( array of buffers ) ,
movie - > free_and_skip_len [ i ] ( array of ints ) , movie - > is_skip [ i ] ( array of BOOL )
int i ;
if ( movie - > free_and_skip ! = 1 ) {
return ; /* Not present */
}
for ( i = 0 ; i < movie - > free_and_skip_count ; i + + ) {
if ( movie - > is_skip [ i ] ) {
fprintf ( xmlout , " <Skip BoxType= \" skip \" > \n " ) ;
} else {
fprintf ( xmlout , " <Free BoxType= \" free \" > \n " ) ;
}
xml_out_dump_hex_and_ascii ( xmlout , movie - > free_and_skip_contents [ i ] ,
movie - > free_and_skip_len [ i ] ) ;
if ( movie - > is_skip [ i ] ) {
fprintf ( xmlout , " </Skip> \n " ) ;
} else {
fprintf ( xmlout , " </Free> \n " ) ;
}
}
2006-12-08 18:04:31 +01:00
# endif
}
2017-05-09 15:44:46 +02:00
void xml_write_uuid ( FILE * xmlout , opj_mj2_t * movie )
{
/* Universal Unique IDs of 16 bytes. */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
/* NO-OP so far. There can be zero or more instances of private uuid boxes in a file.
This function supports the top level of the file , but uuid may be elsewhere [ not yet supported ] .
This may be a place where the user squirrel ' s metadata . Let ' s assume unstructured , and do a dump */
IMAGINE movie - > uuid , movie - > uuid_count ,
movie - > uuid_content [ i ] ( array of buffers ) ,
movie - > uuid_len [ i ] ( array of ints ) ,
movie - > uuid_type [ i ] ( array of 17 - byte ( 16 + null termination ) buffers )
int i ;
if ( movie - > uuid ! = 1 ) {
return ; /* Not present */
}
for ( i = 0 ; i < movie - > uuid_count ; i + + ) {
fprintf ( xmlout , " <PrivateExtension BoxType= \" uuid \" UUID= \" %s \" > \n " ,
movie - > uuid_type [ i ] ) ;
// See Part III section 5.2.1, 6.1, 6.2
xml_out_dump_hex_and_ascii ( xmlout , movie - > uuid_contents [ i ] , movie - > uuid_len [ i ] ) ;
fprintf ( xmlout , " </PrivateExtension> \n " ) ;
}
2006-12-08 18:04:31 +01:00
# endif
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_trak ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum , unsigned int sampleframe , opj_event_mgr_t * event_mgr )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " <Track BoxType= \" trak \" Instance= \" %d \" > \n " , tnum ) ;
xml_write_tkhd ( file , xmlout , track , tnum ) ;
// TO DO: TrackReferenceContainer 'tref' just used in hint track
// TO DO: EditListContainer 'edts', contains EditList 'elst' with media-time, segment-duration, media-rate
xml_write_mdia ( file , xmlout , track , tnum ) ;
xml_write_udta ( file , xmlout , track ,
tnum ) ; // NO-OP so far. Optional UserData 'udta', can contain multiple Copyright 'cprt'
if ( track - > track_type = = 0 ) { /* Only do for visual track */
/* sampleframe is from user option -f. 1 = first frame */
/* sampleframe of 0 is a user requests: no jp2 header */
/* Treat out-of-bounds values in the same way */
if ( sampleframe > 0 & & sampleframe < = track - > num_samples ) {
mj2_sample_t * sample ;
unsigned int snum ;
snum = sampleframe - 1 ;
// Someday maybe do a smart range scan... for (snum=0; snum < track->num_samples; snum++){
// fprintf(stdout,"Frame %d: ",snum+1);
sample = & track - > sample [ snum ] ;
if ( xml_out_frame ( file , xmlout , sample , snum , event_mgr ) ) {
return ; /* Not great error handling here */
}
}
}
fprintf ( xmlout , " </Track> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_tkhd ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " <TrackHeader BoxType= \" tkhd \" > \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Not shown here: CreationTime, ModificationTime, Duration. --> \n " ) ;
fprintf ( xmlout ,
" <!-- These 3 fields are reported under MediaHeader below. When reading these 3, --> \n " ) ;
fprintf ( xmlout ,
" <!-- m2j_to_metadata currently doesn't distinguish between TrackHeader and MediaHeader source. --> \n " ) ;
fprintf ( xmlout ,
" <!-- If both found, value read from MediaHeader is used. --> \n " ) ;
}
fprintf ( xmlout , " <TrackID>%u</TrackID> \n " , track - > track_ID ) ;
if ( track - > track_type = = 0 ) { /* For visual track */
fprintf ( xmlout , " <TrackLayer>%d</TrackLayer> \n " , track - > layer ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- front-to-back ordering of video tracks. 0 = normal, -1 is closer, etc. --> \n " ) ;
}
}
if ( track - > track_type ! = 0 ) { /* volume irrelevant for visual track */
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
track - > volume = track - > volume < < 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " <Volume> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Track audio volume stored as fixed-point binary 8.8 value. Decimal value is approximation. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Full, normal (default) value is 0x0100 (1.0) --> \n " ) ;
}
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%04x</AsHex> \n " , track - > volume ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%6.3f</AsDecimal> \n " ,
( double ) track - > volume / ( double ) 0x0100 ) ;
}
fprintf ( xmlout , " </Volume> \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Current m2j_to_metadata implementation always shows bits to right of decimal as zeroed. --> \n " ) ;
}
track - > volume = track - > volume > > 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
}
if ( track - > track_type = = 0 ) {
/* Transformation matrix for video */
fprintf ( xmlout , " <TransformationMatrix> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Comments about matrix in MovieHeader apply here as well. --> \n " ) ;
fprintf ( xmlout ,
" <!-- This matrix is applied before MovieHeader one. --> \n " ) ;
}
fprintf ( xmlout , " <TMa>0x%08x</TMa> \n " , track - > trans_matrix [ 0 ] ) ;
fprintf ( xmlout , " <TMb>0x%08x</TMb> \n " , track - > trans_matrix [ 1 ] ) ;
fprintf ( xmlout , " <TMu>0x%08x</TMu> \n " , track - > trans_matrix [ 2 ] ) ;
fprintf ( xmlout , " <TMc>0x%08x</TMc> \n " , track - > trans_matrix [ 3 ] ) ;
fprintf ( xmlout , " <TMd>0x%08x</TMd> \n " , track - > trans_matrix [ 4 ] ) ;
fprintf ( xmlout , " <TMv>0x%08x</TMv> \n " , track - > trans_matrix [ 5 ] ) ;
fprintf ( xmlout , " <TMx>0x%08x</TMx> \n " , track - > trans_matrix [ 6 ] ) ;
fprintf ( xmlout , " <TMy>0x%08x</TMy> \n " , track - > trans_matrix [ 7 ] ) ;
fprintf ( xmlout , " <TMw>0x%08x</TMw> \n " , track - > trans_matrix [ 8 ] ) ;
fprintf ( xmlout , " </TransformationMatrix> \n " ) ;
}
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
track - > w = track - > w < < 16 ;
track - > h = track - > h < < 16 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Width and Height in pixels are for the presentation; frames will be scaled to this. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Both stored as fixed-point binary 16.16 values. Decimal values are approximations. --> \n " ) ;
}
fprintf ( xmlout , " <Width> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%08x</AsHex> \n " , track - > w ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%12.6f</AsDecimal> \n " ,
( double ) track - > w / ( double )
0x00010000 ) ; /* Rate to play presentation (default = 0x00010000) */
}
fprintf ( xmlout , " </Width> \n " ) ;
fprintf ( xmlout , " <Height> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%08x</AsHex> \n " , track - > h ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%12.6f</AsDecimal> \n " ,
( double ) track - > h / ( double )
0x00010000 ) ; /* Rate to play presentation (default = 0x00010000) */
}
fprintf ( xmlout , " </Height> \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Current m2j_to_metadata implementation always shows bits to right of decimal as zeroed. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Also, width and height values shown here will actually be those read from track's <VisualSampleEntry> if given. --> \n " ) ;
}
track - > w = track - > w > > 16 ;
track - > h = track - > h > > 16 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " </TrackHeader> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_udta ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum )
{
/* NO-OP so far. Optional UserData 'udta' (zero or one in moov or each trak)
can contain multiple Copyright ' cprt ' with different language codes */
/* There may be nested non-standard boxes within udta */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
IMAGINE track - > udta , track - > copyright_count ,
track - > copyright_language [ i ] ( array of 16 bit ints ) ,
track - > copyright_notice [ i ] ( array of buffers )
PROBABLY ALSO NEED track - > udta_len or special handler for non - standard boxes
char buf [ 5 ] ;
int i ;
if ( track - > udta ! = 1 ) {
return ; /* Not present */
}
fprintf ( xmlout , " <UserData BoxType= \" udta \" > \n " ) ;
for ( i = 0 ; i < track - > copyright_count ; i + + ) {
fprintf ( xmlout , " <Copyright BoxType= \" cprt \" > Instance= \" %d \" > \n " ,
i + 1 ) ;
int16_to_3packedchars ( ( short int ) track - > copyright_languages [ i ] , buf ) ;
fprintf ( xmlout , " <Language>%s</Language> \n " , buf ) ; /* 3 chars */
fprintf ( xmlout , " <Notice>%s</Notice> \n " ,
track - > copyright_notices [ i ] ) ;
fprintf ( xmlout , " </Copyright> \n " , i + 1 ) ;
}
/* TO DO: Non-standard boxes */
fprintf ( xmlout , " </UserData> \n " ) ;
2006-12-08 18:04:31 +01:00
# endif
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_mdia ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
char buf [ 5 ] ;
int i , k ;
buf [ 4 ] = ' \0 ' ;
fprintf ( xmlout , " <Media BoxType= \" mdia \" > \n " ) ;
fprintf ( xmlout , " <MediaHeader BoxType= \" mdhd \" > \n " ) ;
fprintf ( xmlout , " <CreationTime> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InSeconds>%u</InSeconds> \n " ,
track - > creation_time ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" <!-- Seconds since start of Jan. 1, 1904 UTC (Greenwich) --> \n " ) ;
}
/* 2082844800 = seconds between 1/1/04 and 1/1/70 */
2017-07-26 21:06:38 +02:00
/* There's still a time zone offset problem not solved... but spec is ambiguous as to whether stored time
2017-05-09 15:44:46 +02:00
should be local or UTC */
if ( derived ) {
fprintf ( xmlout , " <AsLocalTime> " ) ;
xml_time_out ( xmlout , track - > creation_time - 2082844800 ) ;
fprintf ( xmlout , " </AsLocalTime> \n " ) ;
}
fprintf ( xmlout , " </CreationTime> \n " ) ;
fprintf ( xmlout , " <ModificationTime> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InSeconds>%u</InSeconds> \n " ,
track - > modification_time ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsLocalTime> " ) ;
xml_time_out ( xmlout , track - > modification_time - 2082844800 ) ;
fprintf ( xmlout , " </AsLocalTime> \n " ) ;
}
fprintf ( xmlout , " </ModificationTime> \n " ) ;
fprintf ( xmlout , " <Timescale>%d</Timescale> \n " , track - > timescale ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Timescale defines time units in one second --> \n " ) ;
}
fprintf ( xmlout , " <Duration> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <InTimeUnits>%u</InTimeUnits> \n " ,
track - > duration ) ;
}
if ( derived ) {
fprintf ( xmlout , " <InSeconds>%12.3f</InSeconds> \n " ,
( double ) track - > duration / ( double )
track - > timescale ) ; // Make this double later to get fractional seconds
}
fprintf ( xmlout , " </Duration> \n " ) ;
int16_to_3packedchars ( ( short int ) track - > language , buf ) ;
fprintf ( xmlout , " <Language>%s</Language> \n " , buf ) ; /* 3 chars */
fprintf ( xmlout , " </MediaHeader> \n " ) ;
fprintf ( xmlout , " <HandlerReference BoxType= \" hdlr \" > \n " ) ;
switch ( track - > track_type ) {
case 0 :
fprintf ( xmlout ,
" <HandlerType Code= \" vide \" >video media track</HandlerType> \n " ) ;
break ;
case 1 :
fprintf ( xmlout , " <HandlerType Code= \" soun \" >Sound</HandlerType> \n " ) ;
break ;
case 2 :
fprintf ( xmlout , " <HandlerType Code= \" hint \" >Hint</HandlerType> \n " ) ;
break ;
}
if ( notes ) {
fprintf ( xmlout ,
" <!-- String value shown is not actually read from file. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Shown value is one used for our encode. --> \n " ) ;
}
fprintf ( xmlout , " </HandlerReference> \n " ) ;
fprintf ( xmlout , " <MediaInfoContainer BoxType= \" minf \" > \n " ) ;
switch ( track - > track_type ) {
case 0 :
fprintf ( xmlout , " <VideoMediaHeader BoxType= \" vmhd \" > \n " ) ;
fprintf ( xmlout , " <GraphicsMode>0x%02x</GraphicsMode> \n " ,
track - > graphicsmode ) ;
if ( notes ) {
fprintf ( xmlout , " <!-- Enumerated values of graphics mode: --> \n " ) ;
fprintf ( xmlout , " <!-- 0x00 = copy (over existing image); --> \n " ) ;
fprintf ( xmlout ,
" <!-- 0x24 = transparent; 'blue-screen' this image using opcolor; --> \n " ) ;
fprintf ( xmlout ,
" <!-- 0x100 = alpha; alpha-blend this image --> \n " ) ;
/* fprintf(xmlout," <!-- 0x101 = whitealpha; alpha-blend this image, which has been blended with white; -->\n"); This was evidently dropped upon amendment */
fprintf ( xmlout ,
" <!-- 0x102 = pre-multiplied black alpha; image has been already been alpha-blended with black. --> \n " ) ;
fprintf ( xmlout ,
" <!-- 0x110 = component alpha; blend alpha channel(s) and color channels individually. --> \n " ) ;
}
fprintf ( xmlout , " <Opcolor> \n " ) ;
fprintf ( xmlout , " <Red>0x%02x</Red> \n " , track - > opcolor [ 0 ] ) ;
fprintf ( xmlout , " <Green>0x%02x</Green> \n " , track - > opcolor [ 1 ] ) ;
fprintf ( xmlout , " <Blue>0x%02x</Blue> \n " , track - > opcolor [ 2 ] ) ;
fprintf ( xmlout , " </Opcolor> \n " ) ;
fprintf ( xmlout , " </VideoMediaHeader> \n " ) ;
break ;
case 1 :
fprintf ( xmlout , " <SoundMediaHeader BoxType= \" smhd \" > \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
track - > balance = track - > balance < < 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " <Balance> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Track audio balance fixes mono track in stereo space. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Stored as fixed-point binary 8.8 value. Decimal value is approximation. --> \n " ) ;
fprintf ( xmlout ,
" <!-- 0.0 = center, -1.0 = full left, 1.0 = full right --> \n " ) ;
}
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%04x</AsHex> \n " , track - > balance ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%6.3f</AsDecimal> \n " ,
( double ) track - > balance / ( double ) 0x0100 ) ;
}
fprintf ( xmlout , " </Balance> \n " ) ;
2006-12-08 18:04:31 +01:00
# ifdef CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Current m2j_to_metadata implementation always shows bits to right of decimal as zeroed. --> \n " ) ;
}
track - > balance = track - > balance > > 8 ;
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " </SoundMediaHeader> \n " ) ;
break ;
case 2 :
fprintf ( xmlout , " <HintMediaHeader BoxType= \" hmhd \" > \n " ) ;
fprintf ( xmlout , " <MaxPDU_Size>%d</MaxPDU_Size> \n " ,
track - > maxPDUsize ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Size in bytes of largest PDU in this hint stream. --> \n " ) ;
}
fprintf ( xmlout , " <AvgPDU_Size>%d</AvgPDU_Size> \n " ,
track - > avgPDUsize ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Average size in bytes of a PDU over the entire presentation. --> \n " ) ;
}
fprintf ( xmlout , " <MaxBitRate>%d</MaxBitRate> \n " ,
track - > maxbitrate ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Maximum rate in bits per second over any window of 1 second. --> \n " ) ;
}
fprintf ( xmlout , " <AvgBitRate>%d</AvgBitRate> \n " ,
track - > avgbitrate ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Averate rate in bits per second over the entire presentation. --> \n " ) ;
}
fprintf ( xmlout , " <SlidingAvgBit>%d</SlidingAvgBitRate> \n " ,
track - > slidingavgbitrate ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Maximum rate in bits per second over any window of one minute. --> \n " ) ;
}
fprintf ( xmlout , " </HintMediaHeader> \n " ) ;
break ;
}
fprintf ( xmlout , " <DataInfo BoxType= \" dinf \" > \n " ) ;
fprintf ( xmlout ,
" <DataReference BoxType= \" dref \" URL_Count= \" %d \" URN_Count= \" %d \" > \n " ,
track - > num_url , track - > num_urn ) ; // table w. flags, URLs, URNs
// Data structure does not distinguish between single URL, single URN, or DREF table or URLs & URNs.
// We could infer those, but for now just present everything as a DREF table.
if ( notes ) {
fprintf ( xmlout ,
" <!-- No entries here mean that file is self-contained, as required by Simple Profile. --> \n " ) ;
}
for ( k = 0 ; k < track - > num_url ; k + + ) {
fprintf ( xmlout ,
" <DataEntryUrlBox BoxType= \" url[space] \" > \n " ) ; // table w. flags, URLs, URNs
if ( notes ) {
fprintf ( xmlout ,
" <!-- Only the first 16 bytes of URL location are recorded in mj2_to_metadata data structure. --> \n " ) ;
}
for ( i = 0 ; i < 4 ; i + + ) {
uint_to_chars ( track - > url [ track - > num_url ] . location [ i ] , buf ) ;
fprintf ( xmlout , " <Location>%s</Location> \n " ) ;
}
fprintf ( xmlout ,
" </DataEntryUrlBox> \n " ) ; // table w. flags, URLs, URNs
}
for ( k = 0 ; k < track - > num_urn ; k + + ) {
fprintf ( xmlout ,
" <DataEntryUrnBox BoxType= \" urn[space] \" > \n " ) ; // table w. flags, URLs, URNs
// Only the first 16 bytes are recorded in the data structure currently.
if ( notes ) {
fprintf ( xmlout ,
" <!-- Only the first 16 bytes each of URN name and optional location are recorded in mj2_to_metadata data structure. --> \n " ) ;
}
fprintf ( xmlout , " <Name> " ) ;
for ( i = 0 ; i < 4 ; i + + ) {
uint_to_chars ( track - > urn [ track - > num_urn ] . name [ i ] , buf ) ;
fprintf ( xmlout , " %s " , buf ) ;
}
fprintf ( xmlout , " </Name> \n " ) ;
fprintf ( xmlout , " <Location> " ) ;
for ( i = 0 ; i < 4 ; i + + ) {
uint_to_chars ( track - > urn [ track - > num_urn ] . location [ i ] , buf ) ;
fprintf ( xmlout , " %s " ) ;
}
fprintf ( xmlout , " </Location> \n " ) ;
fprintf ( xmlout , " </DataEntryUrnBox> \n " ) ;
}
fprintf ( xmlout , " </DataReference> \n " ) ;
fprintf ( xmlout , " </DataInfo> \n " ) ;
xml_write_stbl ( file , xmlout , track , tnum ) ; /* SampleTable */
fprintf ( xmlout , " </MediaInfoContainer> \n " ) ;
fprintf ( xmlout , " </Media> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_write_stbl ( FILE * file , FILE * xmlout , mj2_tk_t * track ,
unsigned int tnum )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
char buf [ 5 ] , buf33 [ 33 ] ;
int i , len ;
buf [ 4 ] = ' \0 ' ;
fprintf ( xmlout , " <SampleTable BoxType= \" stbl \" > \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- What follows are specific instances of generic SampleDescription BoxType= \" stsd \" --> \n " ) ;
}
switch ( track - > track_type ) {
case 0 :
// There could be multiple instances of this, but "entry_count" is just a local at read-time.
// And it's used wrong, too, as count of just visual type, when it's really all 3 types.
// This is referred to as "smj2" within mj2.c
fprintf ( xmlout , " <VisualSampleEntry BoxType= \" mjp2 \" > \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- If multiple instances of this box, only first is shown here. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Width and Height are in pixels. Unlike the Track Header, there is no fractional part. --> \n " ) ;
fprintf ( xmlout ,
" <!-- In mj2_to_metadata implementation, the values are not represented separately from Track Header's values. --> \n " ) ;
}
/* No shifting required. If CURRENTSTRUCT gets changed, then may need to revisit treatment of these */
fprintf ( xmlout , " <WidthAsInteger>%d</WidthAsInteger> \n " ,
track - > w ) ;
fprintf ( xmlout , " <HeightAsInteger>%d</HeightAsInteger> \n " ,
track - > h ) ;
2006-12-08 18:04:31 +01:00
// Horizresolution and vertresolution don't require shifting, already stored right in CURRENTSTRUCT
2017-05-09 15:44:46 +02:00
if ( notes ) {
fprintf ( xmlout ,
" <!-- Resolutions are in pixels per inch, for the highest-resolution component (typically luminance). --> \n " ) ;
fprintf ( xmlout ,
" <!-- Both stored as fixed-point binary 16.16 values. Decimal values are approximations. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Typical value for both resolutions is 0x00480000 (72.0) --> \n " ) ;
}
fprintf ( xmlout , " <HorizontalRes> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%08x</AsHex> \n " ,
track - > horizresolution ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%12.6f</AsDecimal> \n " ,
( double ) track - > horizresolution / ( double )
0x00010000 ) ; /* Rate to play presentation (default = 0x00010000) */
}
fprintf ( xmlout , " </HorizontalRes> \n " ) ;
fprintf ( xmlout , " <VerticalRes> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%08x</AsHex> \n " ,
track - > vertresolution ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsDecimal>%12.6f</AsDecimal> \n " ,
( double ) track - > vertresolution / ( double )
0x00010000 ) ; /* Rate to play presentation (default = 0x00010000) */
}
fprintf ( xmlout , " </VerticalRes> \n " ) ;
buf33 [ 0 ] = ' \0 ' ;
for ( i = 0 ; i < 8 ; i + + ) {
uint_to_chars ( ( unsigned int ) track - > compressorname [ i ] , buf ) ;
strcat ( buf33 ,
buf ) ; /* This loads up (4 * 8) + 1 chars, but trailing ones are usually junk */
}
len = ( int )
buf33 [ 0 ] ; /* First byte has string length in bytes. There may be garbage beyond it. */
buf33 [ len + 1 ] = ' \0 ' ; /* Suppress it */
fprintf ( xmlout , " <CompressorName>%s</CompressorName> \n " ,
buf33 + 1 ) ; /* Start beyond first byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Compressor name for debugging. Standard restricts max length to 31 bytes. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Usually blank or \" Motion JPEG2000 \" --> \n " ) ;
}
fprintf ( xmlout , " <Depth>0x%02x</Depth> \n " , track - > depth ) ;
if ( notes ) {
fprintf ( xmlout , " <!-- Depth is: --> \n " ) ;
fprintf ( xmlout ,
" <!-- 0x20: alpha channels present (color or grayscale) --> \n " ) ;
fprintf ( xmlout , " <!-- 0x28: grayscale without alpha --> \n " ) ;
fprintf ( xmlout , " <!-- 0x18: color without alpha --> \n " ) ;
}
xml_out_frame_jp2h ( xmlout , & ( track - > jp2_struct ) ) ; /* JP2 Header */
/* Following subboxes are optional */
fprintf ( xmlout , " <FieldCoding BoxType= \" fiel \" > \n " ) ;
fprintf ( xmlout , " <FieldCount>%d</FieldCount> \n " ,
( unsigned int ) track - > fieldcount ) ; /* uchar as 1 byte uint */
if ( notes ) {
fprintf ( xmlout , " <!-- Must be either 1 or 2 --> \n " ) ;
}
fprintf ( xmlout , " <FieldOrder>%d</FieldOrder> \n " ,
( unsigned int ) track - > fieldorder ) ; /* uchar as 1 byte uint */
if ( notes ) {
fprintf ( xmlout ,
" <!-- When FieldCount=2, FieldOrder means: --> \n " ) ;
fprintf ( xmlout , " <!-- 0: Field coding unknown --> \n " ) ;
fprintf ( xmlout ,
" <!-- 1: Field with topmost line is stored first in sample; fields are in temporal order --> \n " ) ;
fprintf ( xmlout ,
" <!-- 6: Field with topmost line is stored second in sample; fields are in temporal order --> \n " ) ;
fprintf ( xmlout ,
" <!-- Defaults: FieldCount=1, FieldOrder=0 if FieldCoding box not present --> \n " ) ;
fprintf ( xmlout ,
" <!-- Current implementation doesn't retain whether box was actually present. --> \n " ) ;
}
fprintf ( xmlout , " </FieldCoding> \n " ) ;
fprintf ( xmlout ,
" <MJP2_Profile BoxType= \" jp2p \" Count= \" %d \" > \n " , track - > num_br ) ;
for ( i = 0 ; i < track - > num_br ;
i + + ) { /* read routine stored in reverse order, so let's undo damage */
uint_to_chars ( track - > br [ i ] , buf ) ;
fprintf ( xmlout , " <CompatibleBrand>%s</CompatibleBrand> \n " ,
buf ) ; /*4 characters, each CLi */
}
fprintf ( xmlout , " </MJP2_Profile> \n " ) ;
fprintf ( xmlout ,
" <MJP2_Prefix BoxType= \" jp2x \" Count= \" %d \" > \n " , track - > num_jp2x ) ;
for ( i = 0 ; i < track - > num_jp2x ; i + + ) {
// We'll probably need better formatting than this
fprintf ( xmlout , " <Data>0x%02x</Data> \n " ,
track - > jp2xdata [ i ] ) ; /* Each entry is single byte */
}
fprintf ( xmlout , " </MJP2_Prefix> \n " ) ;
fprintf ( xmlout ,
" <MJP2_SubSampling BoxType= \" jsub \" > \n " ) ; /* These values are all 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Typical subsample value is 2 for 4:2:0 --> \n " ) ;
}
fprintf ( xmlout , " <HorizontalSub>%d</HorizontalSub> \n " ,
track - > hsub ) ;
fprintf ( xmlout , " <VerticalSub>%d</VerticalSub> \n " ,
track - > vsub ) ;
fprintf ( xmlout , " <HorizontalOffset>%d</HorizontalOffset> \n " ,
track - > hoff ) ;
fprintf ( xmlout , " <VerticalOffset>%d</VerticalOffset> \n " ,
track - > voff ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Typical {horizontal, vertical} chroma offset values: --> \n " ) ;
fprintf ( xmlout ,
" <!-- 4:2:2 format (CCIR601, H.262, MPEG2, MPEG4, recom. Exif): {0, 0} --> \n " ) ;
fprintf ( xmlout ,
" <!-- 4:2:2 format (JFIF): {1, 0} --> \n " ) ;
fprintf ( xmlout ,
" <!-- 4:2:0 format (H.262, MPEG2, MPEG4): {0, 1} --> \n " ) ;
fprintf ( xmlout ,
" <!-- 4:2:0 format (MPEG1, H.261, JFIF, recom. Exif): {1, 1} --> \n " ) ;
}
fprintf ( xmlout ,
" </MJP2_SubSampling> \n " ) ; /* These values are all 1 byte */
fprintf ( xmlout ,
" <MJP2_OriginalFormat BoxType= \" orfo \" > \n " ) ; /* Part III Appx. 2 */
fprintf ( xmlout ,
" <OriginalFieldCount>%u</OriginalFieldCount> \n " ,
( unsigned int ) track - > or_fieldcount ) ; /* uchar as 1-byte uint */
if ( notes ) {
fprintf ( xmlout ,
" <!-- In original material before encoding. Must be either 1 or 2 --> \n " ) ;
}
fprintf ( xmlout ,
" <OriginalFieldOrder>%u</OriginalFieldOrder> \n " ,
( unsigned int ) track - > or_fieldorder ) ; /* uchar as 1-byte uint */
if ( notes ) {
fprintf ( xmlout ,
" <!-- When FieldCount=2, FieldOrder means: --> \n " ) ;
fprintf ( xmlout , " <!-- 0: Field coding unknown --> \n " ) ;
fprintf ( xmlout ,
" <!-- 11: Topmost line came from the earlier field; --> \n " ) ;
fprintf ( xmlout ,
" <!-- 16: Topmost line came form the later field. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Defaults: FieldCount=1, FieldOrder=0 if FieldCoding box not present --> \n " ) ;
fprintf ( xmlout ,
" <!-- Current implementation doesn't retain whether box was actually present. --> \n " ) ;
}
fprintf ( xmlout , " </MJP2_OriginalFormat> \n " ) ;
fprintf ( xmlout , " </VisualSampleEntry> \n " ) ;
break ;
case 1 :
case 2 :
if ( notes ) {
fprintf ( xmlout ,
" <!-- mj2_to_metadata's data structure doesn't record this currently. --> \n " ) ;
}
break ;
}
fprintf ( xmlout , " <TimeToSample BoxType= \" stts \" > \n " ) ;
fprintf ( xmlout , " <SampleStatistics> \n " ) ;
fprintf ( xmlout , " <TotalSamples>%d</TotalSamples> \n " ,
track - > num_samples ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- For video, gives the total frames in the track, by summing all entries in the Sample Table --> \n " ) ;
}
fprintf ( xmlout , " </SampleStatistics> \n " ) ;
fprintf ( xmlout , " <SampleEntries EntryCount= \" %d \" > \n " ,
track - > num_tts ) ;
for ( i = 0 ; i < track - > num_tts ; i + + ) {
fprintf ( xmlout ,
" <Table Entry= \" %u \" SampleCount= \" %d \" SampleDelta= \" %u \" /> \n " ,
i + 1 , track - > tts [ i ] . sample_count , track - > tts [ i ] . sample_delta ) ;
}
fprintf ( xmlout , " </SampleEntries> \n " ) ;
fprintf ( xmlout , " </TimeToSample> \n " ) ;
fprintf ( xmlout ,
" <SampleToChunk BoxType= \" stsc \" Count= \" %d \" > \n " ,
track - > num_samplestochunk ) ;
for ( i = 0 ; i < track - > num_samplestochunk ; i + + ) {
fprintf ( xmlout , " <FirstChunk>%u</FirstChunk> \n " ,
track - > sampletochunk [ i ] . first_chunk ) ; /* 4 bytes */
fprintf ( xmlout , " <SamplesPerChunk>%u</SamplesPerChunk> \n " ,
track - > sampletochunk [ i ] . samples_per_chunk ) ; /* 4 bytes */
fprintf ( xmlout , " <SampleDescrIndex>%u</SampleDescrIndex> \n " ,
track - > sampletochunk [ i ] . sample_descr_idx ) ; /* 4 bytes */
}
fprintf ( xmlout , " </SampleToChunk> \n " ) ;
// After reading this info in, track->num_chunks is calculated and a decompressed table established internally.
fprintf ( xmlout , " <SampleSize BoxType= \" stsz \" > \n " ) ;
if ( track - > same_sample_size ) {
// all values in track->sample[i].sample_size are equal. Grab the first one.
fprintf ( xmlout , " <Sample_Size>%u</Sample_Size> \n " ,
track - > sample [ 0 ] . sample_size ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Non-zero value means all samples have that size. --> \n " ) ;
fprintf ( xmlout ,
" <!-- So <Sample_Count> (aka Entry_Count in std.) has no meaning, is suppressed from this output, and no table follows. --> \n " ) ;
}
} else {
fprintf ( xmlout , " <Sample_Size>0</Sample_Size> \n " ) ;
if ( notes )
if ( sampletables ) {
fprintf ( xmlout ,
" <!-- Zero value means samples have different sizes, given in table next of length Sample_Count (aka Entry_Count in std). --> \n " ) ;
} else {
fprintf ( xmlout ,
" <!-- Zero value means samples have different sizes, given in table (not shown) of length Sample_Count (aka Entry_Count in std). --> \n " ) ;
}
fprintf ( xmlout , " <Sample_Count>%u</Sample_Count> \n " ,
track - > num_samples ) ;
if ( sampletables )
for ( i = 0 ; i < ( int ) track - > num_samples ; i + + ) {
fprintf ( xmlout , " <EntrySize Num= \" %u \" >%u</EntrySize> \n " , i + 1 ,
track - > sample [ i ] . sample_size ) ;
}
}
fprintf ( xmlout , " </SampleSize> \n " ) ;
fprintf ( xmlout , " <ChunkOffset BoxType= \" stco \" > \n " ) ;
// Structure not yet - Variant ChunkLargeOffset 'co64'
fprintf ( xmlout , " <EntryCount>%u</EntryCount> \n " ,
track - > num_chunks ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- For this implementation, EntryCount shown is one calculated during file read of <SampleToChunk> data. --> \n " ) ;
fprintf ( xmlout ,
" <!-- Implementation will report failure during file read of <ChunkOffset> data if read entry-count disagrees. --> \n " ) ;
}
if ( sampletables )
for ( i = 0 ; i < ( int ) track - > num_chunks ; i + + ) {
fprintf ( xmlout , " <Chunk_Offset Num= \" %d \" >%u</Chunk_Offset> \n " ,
i + 1 , track - > chunk [ i ] . offset ) ;
}
fprintf ( xmlout , " </ChunkOffset> \n " ) ;
fprintf ( xmlout , " </SampleTable> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
int xml_out_frame ( FILE * file , FILE * xmlout , mj2_sample_t * sample ,
unsigned int snum , opj_event_mgr_t * event_mgr )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
opj_dparameters_t parameters ; /* decompression parameters */
opj_image_t * img ;
opj_cp_t * cp ;
int i ;
int numcomps ;
unsigned char * frame_codestream ;
opj_dinfo_t * dinfo = NULL ; /* handle to a decompressor */
opj_cio_t * cio = NULL ;
opj_j2k_t * j2k ;
/* JPEG 2000 compressed image data */
/* get a decoder handle */
dinfo = opj_create_decompress ( CODEC_J2K ) ;
/* catch events using our callbacks and give a local context */
opj_set_event_mgr ( ( opj_common_ptr ) dinfo , event_mgr , stderr ) ;
/* setup the decoder decoding parameters using the current image and user parameters */
parameters . cp_limit_decoding = DECODE_ALL_BUT_PACKETS ;
opj_setup_decoder ( dinfo , & parameters ) ;
frame_codestream = ( unsigned char * ) malloc ( sample - > sample_size -
8 ) ; /* Skipping JP2C marker */
if ( frame_codestream = = NULL ) {
return 1 ;
}
fseek ( file , sample - > offset + 8 , SEEK_SET ) ;
fread ( frame_codestream , sample - > sample_size - 8 , 1 ,
file ) ; /* Assuming that jp and ftyp markers size do */
/* open a byte stream */
cio = opj_cio_open ( ( opj_common_ptr ) dinfo , frame_codestream ,
sample - > sample_size - 8 ) ;
/* Decode J2K to image: */
img = opj_decode ( dinfo , cio ) ;
if ( ! img ) {
fprintf ( stderr , " ERROR -> j2k_to_image: failed to decode image! \n " ) ;
opj_destroy_decompress ( dinfo ) ;
opj_cio_close ( cio ) ;
return 1 ;
}
j2k = ( opj_j2k_t * ) dinfo - > j2k_handle ;
j2k_default_tcp = j2k - > default_tcp ;
cp = j2k - > cp ;
numcomps = img - > numcomps ;
/* Alignments: " < To help maintain xml pretty-printing */
fprintf ( xmlout , " <JP2_Frame Num= \" %d \" > \n " , snum + 1 ) ;
fprintf ( xmlout , " <MainHeader> \n " ) ;
/* There can be multiple codestreams; a particular image is entirely within a single codestream */
/* TO DO: A frame can be represented by two I-guess-contiguous codestreams if its interleaved. */
fprintf ( xmlout , " <StartOfCodestream Marker= \" SOC \" /> \n " ) ;
/* "cp" stands for "coding parameter"; "tcp" is tile coding parameters, "tccp" is tile-component coding parameters */
xml_out_frame_siz ( xmlout , img , cp ) ; /* reqd in main */
xml_out_frame_cod ( xmlout , j2k_default_tcp ) ; /* reqd in main */
xml_out_frame_coc ( xmlout , j2k_default_tcp ,
numcomps ) ; /* opt in main, at most 1 per component */
xml_out_frame_qcd ( xmlout , j2k_default_tcp ) ; /* reqd in main */
xml_out_frame_qcc ( xmlout , j2k_default_tcp ,
numcomps ) ; /* opt in main, at most 1 per component */
xml_out_frame_rgn ( xmlout , j2k_default_tcp ,
numcomps ) ; /* opt, at most 1 per component */
xml_out_frame_poc ( xmlout ,
j2k_default_tcp ) ; /* opt (but reqd in main or tile for any progression order changes) */
/* Next four get j2k_default_tcp passed globally: */
2006-12-08 18:04:31 +01:00
# ifdef SUPPRESS_FOR_NOW
2017-05-09 15:44:46 +02:00
xml_out_frame_ppm ( xmlout ,
cp ) ; /* opt (but either PPM or PPT [distributed in tile headers] or codestream packet header reqd) */
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
xml_out_frame_tlm (
xmlout ) ; /* NO-OP. TLM NOT SAVED IN DATA STRUCTURE */ /* opt */
xml_out_frame_plm (
xmlout ) ; /* NO-OP. PLM NOT SAVED IN DATA STRUCTURE */ /* opt in main; can be used in conjunction with PLT */
xml_out_frame_crg (
xmlout ) ; /* NO-OP. CRG NOT SAVED IN DATA STRUCTURE */ /* opt in main; */
xml_out_frame_com ( xmlout ,
j2k_default_tcp ) ; /* NO-OP. COM NOT SAVED IN DATA STRUCTURE */ /* opt in main; */
fprintf ( xmlout , " </MainHeader> \n " ) ;
/* TO DO: all the tile headers (sigh) */
fprintf ( xmlout , " <TilePartHeaders Count= \" %d \" > \n " ,
cp - > tileno_size ) ; /* size of the vector tileno */
for ( i = 0 ; i < cp - > tileno_size ;
i + + ) { /* I think cp->tileno_size will be same number as (cp->tw * cp->th) or as global j2k_curtileno */
// Standard seems to use zero-based # for tile-part.
fprintf ( xmlout , " <TilePartHeader Num= \" %d \" ID= \" %d \" > \n " , i ,
cp - > tileno [ i ] ) ; /* ID number of the tiles present in the codestream */
fprintf ( xmlout , " <StartOfTilePart Marker= \" SOT \" /> \n " ) ;
/* All markers in tile-part headers (between SOT and SOD) are optional, unless structure requires. */
if ( i = = 0 ) {
xml_out_frame_cod ( xmlout , & ( cp - > tcps [ i ] ) ) ; /* No more than 1 per tile */
xml_out_frame_coc ( xmlout , & ( cp - > tcps [ i ] ) ,
numcomps ) ; /* No more than 1 per component */
xml_out_frame_qcd ( xmlout , & ( cp - > tcps [ i ] ) ) ; /* No more than 1 per tile */
xml_out_frame_qcc ( xmlout , & ( cp - > tcps [ i ] ) ,
numcomps ) ; /* No more than 1 per component */
xml_out_frame_rgn ( xmlout , & ( cp - > tcps [ i ] ) ,
numcomps ) ; /* No more than 1 per component */
}
xml_out_frame_poc ( xmlout ,
& ( cp - > tcps [ i ] ) ) ; /* Reqd only if any progression order changes different from main POC */
2006-12-08 18:04:31 +01:00
# ifdef SUPPRESS_FOR_NOW
2017-05-09 15:44:46 +02:00
xml_out_frame_ppt ( xmlout ,
& ( cp - > tcps [ i ] ) ) ; /* Either PPT [distributed in tile headers] or PPM or codestream packet header reqd. */
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
xml_out_frame_plt ( xmlout ,
& ( cp - > tcps [ i ] ) ) ; /* NO-OP. PLT NOT SAVED IN DATA STRUCTURE */ /* Can be used in conjunction with main's PLM */
xml_out_frame_com ( xmlout ,
& ( cp - > tcps [ i ] ) ) ; /* NO-OP. COM NOT SAVED IN DATA STRUCTURE */
/* opj_tcp_t * cp->tcps; "tile coding parameters" */
/* Maybe not: fprintf(xmlout, " <>%d</>, cp->matrice[i]; */ /* Fixed layer */
fprintf ( xmlout , " <StartOfData Marker= \" SOD \" /> \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Tile-part bitstream, not shown, follows tile-part header and SOD marker. --> \n " ) ;
}
fprintf ( xmlout , " </TilePartHeader> \n " ) ;
}
fprintf ( xmlout ,
" </TilePartHeaders> \n " ) ; /* size of the vector tileno */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
IMAGINE the cp object has data to support the following . . . but we could use an
new different data structure instead
/* I'm unclear if the span of the original fread(frame_codestream...) included the following items if they're trailing. */
/* ALSO TO DO, BUT DATA STRUCTURE DOESN'T HANDLE YET: boxes (anywhere in file except before the Filetype box): */
xml_out_frame_jp2i ( xmlout ,
& cp ) ; /* IntellectualProperty 'jp2i' (no restrictions on location) */
xml_out_frame_xml ( xmlout ,
& cp ) ; /* XML 'xml\040' (0x786d6c20). Can appear multiply */
xml_out_frame_uuid ( xmlout , & cp ) ; /* UUID 'uuid' (top level only) */
xml_out_frame_uinf ( xmlout ,
& cp ) ; /* UUIDInfo 'uinf', includes UUIDList 'ulst' and URL 'url\40' */
2006-12-08 18:04:31 +01:00
# endif
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " </JP2_Frame> \n " ) ;
/* Extra commentary: */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Given the number and size of components, mj2_to_frame would try to convert this --> \n " ) ;
if ( ( ( img - > numcomps = = 3 ) & & ( img - > comps [ 0 ] . dx = = img - > comps [ 1 ] . dx / 2 )
& & ( img - > comps [ 0 ] . dx = = img - > comps [ 2 ] . dx / 2 ) & & ( img - > comps [ 0 ] . dx = = 1 ) )
| | ( img - > numcomps = = 1 ) ) {
fprintf ( xmlout , " <!-- file to a YUV movie in the normal manner. --> \n " ) ;
} else if ( ( img - > numcomps = = 3 ) & &
( img - > comps [ 0 ] . dx = = 1 ) & & ( img - > comps [ 1 ] . dx = = 1 ) & &
( img - > comps [ 2 ] . dx = = 1 ) ) { // If YUV 4:4:4 input --> to bmp
fprintf ( xmlout , " <!-- YUV 4:4:4 file to a series of .bmp files. --> \n " ) ;
} else {
fprintf ( xmlout ,
" <!-- file whose image component dimension are unknown, to a series of .j2k files. --> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
opj_destroy_decompress ( dinfo ) ;
opj_cio_close ( cio ) ;
free ( frame_codestream ) ;
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
return 0 ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
void int16_to_3packedchars ( short int value , char * buf )
{
/* This is to retrieve the 3-letter ASCII language code */
/* Each char is packed into 5 bits, as difference from 0x60 */
int i ;
2017-05-09 15:44:46 +02:00
for ( i = 2 ; i > = 0 ; i - - ) {
2006-12-08 18:04:31 +01:00
buf [ i ] = ( value & 0x001f ) + 0x60 ;
2017-05-09 15:44:46 +02:00
value = ( value > > 5 ) ;
2006-12-08 18:04:31 +01:00
}
buf [ 3 ] = ' \0 ' ;
}
/* ------------- */
2007-05-10 16:21:09 +02:00
void xml_out_frame_siz ( FILE * xmlout , opj_image_t * img , opj_cp_t * cp )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
opj_image_comp_t * comp ;
int i ;
fprintf ( xmlout , " <ImageAndFileSize Marker= \" SIZ \" > \n " ) ;
// This is similar to j2k.c's j2k_dump_image.
// Not of interest: Lsiz, Rsiz
fprintf ( xmlout , " <Xsiz>%d</Xsiz> \n " , img - > x1 ) ;
fprintf ( xmlout , " <Ysiz>%d</Ysiz> \n " , img - > y1 ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Xsiz, Ysiz is the size of the reference grid. --> \n " ) ;
}
fprintf ( xmlout , " <XOsiz>%d</XOsiz> \n " , img - > x0 ) ;
fprintf ( xmlout , " <YOsiz>%d</YOsiz> \n " , img - > y0 ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- XOsiz, YOsiz are offsets from grid origin to image origin. --> \n " ) ;
}
fprintf ( xmlout , " <XTsiz>%d</XTsiz> \n " , cp - > tdx ) ;
fprintf ( xmlout , " <YTsiz>%d</YTsiz> \n " , cp - > tdy ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- XTsiz, YTsiz is the size of one tile with respect to the grid. --> \n " ) ;
}
fprintf ( xmlout , " <XTOsiz>%d</XTOsiz> \n " , cp - > tx0 ) ;
fprintf ( xmlout , " <YTOsiz>%d</YTOsiz> \n " , cp - > ty0 ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- XTOsiz, YTOsiz are offsets from grid origin to first tile origin. --> \n " ) ;
}
fprintf ( xmlout , " <Csiz>%d</Csiz> \n " , img - > numcomps ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Csiz is the number of components in the image. --> \n " ) ;
fprintf ( xmlout , " <!-- For image components next: --> \n " ) ;
fprintf ( xmlout ,
" <!-- XRsiz, YRsiz denote pixel-sample-spacing on the grid, per Part I Annex B. --> \n " ) ;
//fprintf(xmlout," <!-- XO, YO is offset of the component compared to the whole image. -->\n");
fprintf ( xmlout ,
" <!-- Bits per pixel (bpp) is the pixel depth. --> \n " ) ;
fprintf ( xmlout ,
" <!-- WidthOfData and HeightOfData are calculated values, e.g.: w = roundup((Xsiz - XOsiz)/ XRsiz) --> \n " ) ;
}
for ( i = 0 ; i < img - > numcomps ; i + + ) { /* image-components */
comp = & ( img - > comps [ i ] ) ;
fprintf ( xmlout , " <Component Num= \" %d \" > \n " , i + 1 ) ;
fprintf ( xmlout , " <Ssiz> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%02x</AsHex> \n " ,
( comp - > sgnd < < 7 ) & ( comp - > prec - 1 ) ) ;
}
if ( derived ) {
fprintf ( xmlout , " <Signed>%d</Signed> \n " , comp - > sgnd ) ;
fprintf ( xmlout , " <PrecisionInBits>%d</PrecisionInBits> \n " ,
comp - > prec ) ;
}
fprintf ( xmlout , " </Ssiz> \n " ) ;
fprintf ( xmlout , " <XRsiz>%d</XRsiz> \n " , comp - > dx ) ;
fprintf ( xmlout , " <YRsiz>%d</YRsiz> \n " , comp - > dy ) ;
fprintf ( xmlout , " <WidthOfData>%d</WidthOfData> \n " , comp - > w ) ;
fprintf ( xmlout , " <HeightOfData>%d</HeightOfData> \n " , comp - > h ) ;
/* Rest of these aren't calculated when SIZ is read:
fprintf ( xmlout , " <XO>%d</XO> \n " , comp - > x0 ) ;
fprintf ( xmlout , " <YO>%d</YO> \n " , comp - > y0 ) ;
if ( notes )
fprintf ( xmlout , " <!-- XO, YO is offset of the component compared to the whole image. --> \n " ) ;
fprintf ( xmlout , " <BitsPerPixel>%d</BitsPerPixel> \n " , comp - > bpp ) ;
fprintf ( xmlout , " <NumberOfDecodedResolution>%d</NumberOfDecodedResolution> \n " , comp - > resno_decoded ) ; */
// SUPPRESS: n/a to mj2_to_metadata. fprintf(xmlout," <Factor>%d</Factor\n", comp->factor);
/* factor = number of division by 2 of the out image compare to the original size of image */
// TO DO comp->data: int *data; /* image-component data */
fprintf ( xmlout , " </Component> \n " ) ;
}
fprintf ( xmlout , " </ImageAndFileSize> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
void xml_out_frame_cod ( FILE * xmlout , opj_tcp_t * tcp )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
/* Could be called with tcp = &j2k_default_tcp;
/* Or, for tile-part header, with &j2k_cp->tcps[j2k_curtileno]
/* Alignment for main:" < < < < To help maintain xml pretty-printing */
/* Alignment for tile:" < < < To help maintain xml pretty-printing */
opj_tccp_t * tccp ;
int i ;
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
tccp = & ( tcp - > tccps [ 0 ] ) ;
fprintf ( xmlout , " %s<CodingStyleDefault Marker= \" COD \" > \n " ,
s ) ; /* Required in main header */
/* Not retained or of interest: Lcod */
fprintf ( xmlout , " %s <Scod>0x%02x</Scod> \n " , s , tcp - > csty ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For Scod, specific bits mean (where bit 0 is lowest or rightmost): --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 0: Defines entropy coder precincts --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- 0 = (PPx=15, PPy=15); 1 = precincts defined below. --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- bit 1: 1 = SOP marker may be used; 0 = not. --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 2: 1 = EPH marker may be used; 0 = not. --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <SGcod> \n " , s ) ;
fprintf ( xmlout , " %s <ProgressionOrder>%d</ProgressionOrder> \n " , s ,
tcp - > prg ) ; /* 1 byte, SGcod (A) */
if ( notes ) {
fprintf ( xmlout , " %s <!-- Defined Progression Order Values are: --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- 0 = LRCP; 1 = RLCP; 2 = RPCL; 3 = PCRL; 4 = CPRL --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- where L = \" layer \" , R = \" resolution level \" , C = \" component \" , P = \" position \" . --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <NumberOfLayers>%d</NumberOfLayers> \n " , s ,
tcp - > numlayers ) ; /* 2 bytes, SGcod (B) */
fprintf ( xmlout ,
" %s <MultipleComponentTransformation>%d</MultipleComponentTransformation> \n " ,
s , tcp - > mct ) ; /* 1 byte, SGcod (C). More or less boolean */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For MCT, 0 = none, 1 = transform first 3 components for efficiency, per Part I Annex G --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s </SGcod> \n " , s ) ;
/* This code will compile only if declaration of j2k_default_tcp is changed from static (to implicit extern) in j2k.c */
fprintf ( xmlout , " %s <SPcod> \n " , s ) ;
/* Internal data structure tccp defines separate defaults for each component, but they all get the same values */
/* So we only have to report the first component's values here. */
/* Compare j2k_read_cox(...) */
fprintf ( xmlout ,
" %s <NumberOfDecompositionLevels>%d</NumberOfDecompositionLevels> \n " , s ,
tccp - > numresolutions - 1 ) ; /* 1 byte, SPcox (D) */
fprintf ( xmlout , " %s <CodeblockWidth>%d</CodeblockWidth> \n " , s ,
tccp - > cblkw - 2 ) ; /* 1 byte, SPcox (E) */
fprintf ( xmlout , " %s <CodeblockHeight>%d</CodeblockHeight> \n " , s ,
tccp - > cblkh - 2 ) ; /* 1 byte, SPcox (F) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- CBW and CBH are non-negative, and summed cannot exceed 8 --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- Codeblock dimension is 2^(value + 2) --> \n " , s ) ;
}
fprintf ( xmlout , " %s <CodeblockStyle>0x%02x</CodeblockStyle> \n " , s ,
tccp - > cblksty ) ; /* 1 byte, SPcox (G) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For CodeblockStyle, bits mean (with value 1=feature on, 0=off): --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- bit 0: Selective arithmetic coding bypass. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- bit 1: Reset context probabilities on coding pass boundaries. --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 2: Termination on each coding pass. --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 3: Vertically causal context. --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- bit 4: Predictable termination. --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- bit 5: Segmentation symbols are used. --> \n " , s ) ;
}
fprintf ( xmlout , " %s <Transformation>%d</Transformation> \n " , s ,
tccp - > qmfbid ) ; /* 1 byte, SPcox (H) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For Transformation, 0= \" 9-7 irreversible filter \" , 1= \" 5-3 reversible filter \" --> \n " ,
s ) ;
}
if ( tccp - > csty & J2K_CP_CSTY_PRT ) {
fprintf ( xmlout , " %s <PrecinctSize> \n " , s ) ; /* 1 byte, SPcox (I_i) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- These are size exponents PPx and PPy. May be zero only for first level (aka N(L)LL subband)--> \n " ,
s ) ;
}
for ( i = 0 ; i < tccp - > numresolutions ; i + + ) {
fprintf ( xmlout , " %s <PrecinctHeightAndWidth ResolutionLevel= \" %d \" > \n " ,
s , i ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > prch [ i ] < < 4 ) | tccp - > prcw [ i ] ) ; /* packed into 1 byte, SPcox (G) */
}
if ( derived ) {
fprintf ( xmlout , " %s <WidthAsDecimal>%d</WidthAsDecimal> \n " , s ,
tccp - > prcw [ i ] ) ;
fprintf ( xmlout , " %s <HeightAsDecimal>%d</HeightAsDecimal> \n " , s ,
tccp - > prch [ i ] ) ;
}
fprintf ( xmlout , " %s </PrecinctHeightAndWidth> \n " , s , i ) ;
}
fprintf ( xmlout , " %s </PrecinctSize> \n " , s ) ; /* 1 byte, SPcox (I_i) */
}
fprintf ( xmlout , " %s </SPcod> \n " , s ) ;
fprintf ( xmlout , " %s</CodingStyleDefault> \n " , s ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_coc ( FILE * xmlout , opj_tcp_t * tcp ,
int numcomps ) /* Optional in main & tile-part headers */
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
/* Uses global j2k_default_tcp */
opj_tccp_t * tccp , * firstcomp_tccp ;
int i , compno ;
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
firstcomp_tccp = & ( tcp - > tccps [ 0 ] ) ;
2006-12-08 18:04:31 +01:00
/* Internal data structure tccp defines separate defaults for each component, set from main */
2017-05-09 15:44:46 +02:00
/* default, then selectively overwritten. */
2006-12-08 18:04:31 +01:00
/* Compare j2k_read_cox(...) */
2017-05-09 15:44:46 +02:00
/* We don't really know which was the default, and which were not */
/* Let's pretend that [0] is the default and all others are not */
if ( notes ) {
fprintf ( xmlout ,
" %s<!-- mj2_to_metadata implementation always reports component[0] as using default COD, --> \n " ,
s ) ;
if ( tcp = = j2k_default_tcp ) {
fprintf ( xmlout ,
" %s<!-- and any other component, with main-header style values different from [0], as COC. --> \n " ,
s ) ;
} else {
fprintf ( xmlout ,
" %s<!-- and any other component, with tile-part-header style values different from [0], as COC. --> \n " ,
s ) ;
}
}
for ( compno = 1 ; compno < numcomps ;
compno + + ) { /* spec says components are zero-based */
tccp = & tcp - > tccps [ compno ] ;
if ( same_component_style ( firstcomp_tccp , tccp ) ) {
continue ;
}
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
/* Alignments: " < < < < < To help maintain xml pretty-printing */
fprintf ( xmlout , " %s<CodingStyleComponent Marker= \" COC \" > \n " ,
s ) ; /* Optional in main header, at most 1 per component */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- See Ccoc below for zero-based component number. --> \n " , s ) ;
}
/* Overrides the main COD for the specific component */
/* Not retained or of interest: Lcod */
fprintf ( xmlout , " %s <Scoc>0x%02x</Scoc> \n " , s , tccp - > csty ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout , " %s <!-- Scoc defines entropy coder precincts: --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- 0 = maximum, namely (PPx=15, PPy=15); 1 = precincts defined below. --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <Ccoc>%d</Ccoc> \n " , s , compno ) ; /* 1 or 2 bytes */
/* Unfortunately compo isn't retained in j2k_read_coc: compno = cio_read(j2k_img->numcomps <= 256 ? 1 : 2); /* Ccoc */
/*if(j2k_img_numcomps <=256)
component is 1 byte
else
compno is 2 byte */
/* This code will compile only if declaration of j2k_default_tcp is changed from static (to implicit extern) in j2k.c */
fprintf ( xmlout , " %s <SPcoc> \n " , s ) ;
fprintf ( xmlout ,
" %s <NumberOfDecompositionLevels>%d</NumberOfDecompositionLevels> \n " , s ,
tccp - > numresolutions - 1 ) ; /* 1 byte, SPcox (D) */
fprintf ( xmlout , " %s <CodeblockWidth>%d</CodeblockWidth> \n " , s ,
tccp - > cblkw - 2 ) ; /* 1 byte, SPcox (E) */
fprintf ( xmlout , " %s <CodeblockHeight>%d</CodeblockHeight> \n " , s ,
tccp - > cblkh - 2 ) ; /* 1 byte, SPcox (F) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- CBW and CBH are non-negative, and summed cannot exceed 8 --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- Codeblock dimension is 2^(value + 2) --> \n " , s ) ;
}
fprintf ( xmlout , " %s <CodeblockStyle>0x%02x</CodeblockStyle> \n " , s ,
tccp - > cblksty ) ; /* 1 byte, SPcox (G) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For CodeblockStyle, bits mean (with value 1=feature on, 0=off): --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- bit 0: Selective arithmetic coding bypass. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- bit 1: Reset context probabilities on coding pass boundaries. --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 2: Termination on each coding pass. --> \n " ,
s ) ;
fprintf ( xmlout , " %s <!-- bit 3: Vertically causal context. --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- bit 4: Predictable termination. --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- bit 5: Segmentation symbols are used. --> \n " , s ) ;
}
fprintf ( xmlout , " %s <Transformation>%d</Transformation> \n " , s ,
tccp - > qmfbid ) ; /* 1 byte, SPcox (H) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For Transformation, 0= \" 9-7 irreversible filter \" , 1= \" 5-3 reversible filter \" --> \n " ,
s ) ;
}
if ( tccp - > csty & J2K_CP_CSTY_PRT ) {
fprintf ( xmlout , " %s <PrecinctSize> \n " , s ) ; /* 1 byte, SPcox (I_i) */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- These are size exponents PPx and PPy. May be zero only for first level (aka N(L)LL subband)--> \n " ,
s ) ;
}
for ( i = 0 ; i < tccp - > numresolutions - 1 ;
i + + ) { /* subtract 1 to get # of decomposition levels */
fprintf ( xmlout , " %s <PrecinctHeightAndWidth ResolutionLevel= \" %d \" > \n " ,
s , i ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > prch [ i ] < < 4 ) | tccp - > prcw [ i ] ) ; /* packed into 1 byte, SPcox (G) */
}
if ( derived ) {
fprintf ( xmlout , " %s <WidthAsDecimal>%d</WidthAsDecimal> \n " , s ,
tccp - > prcw [ i ] ) ;
fprintf ( xmlout , " %s <HeightAsDecimal>%d</HeightAsDecimal> \n " , s ,
tccp - > prch [ i ] ) ;
}
fprintf ( xmlout , " %s </PrecinctHeightAndWidth> \n " , s , i ) ;
}
fprintf ( xmlout , " %s </PrecinctSize> \n " , s ) ; /* 1 byte, SPcox (I_i) */
}
fprintf ( xmlout , " %s </SPcoc> \n " , s ) ;
fprintf ( xmlout , " %s</CodingStyleComponent> \n " , s ) ;
}
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
BOOL same_component_style ( opj_tccp_t * tccp1 , opj_tccp_t * tccp2 )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
int i ;
if ( tccp1 - > numresolutions ! = tccp2 - > numresolutions ) {
return FALSE ;
}
if ( tccp1 - > cblkw ! = tccp2 - > cblkw ) {
return FALSE ;
}
if ( tccp1 - > cblkh ! = tccp2 - > cblkh ) {
return FALSE ;
}
if ( tccp1 - > cblksty ! = tccp2 - > cblksty ) {
return FALSE ;
}
if ( tccp1 - > csty ! = tccp2 - > csty ) {
return FALSE ;
}
if ( tccp1 - > csty & J2K_CP_CSTY_PRT ) {
for ( i = 0 ; i < tccp1 - > numresolutions ; i + + ) {
if ( tccp1 - > prcw [ i ] ! = tccp2 - > prcw [ i ] | | tccp1 - > prch [ i ] ! = tccp2 - > prch [ i ] ) {
return FALSE ;
}
}
}
return TRUE ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
void xml_out_frame_qcd ( FILE * xmlout , opj_tcp_t * tcp )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
/* This code will compile only if declaration of j2k_default_tcp is changed from static (to implicit extern) in j2k.c */
opj_tccp_t * tccp ;
int bandno , numbands ;
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
/* Compare j2k_read_qcx */
fprintf ( xmlout , " %s<QuantizationDefault Marker= \" QCD \" > \n " ,
s ) ; /* Required in main header, single occurrence */
tccp = & ( tcp - > tccps [ 0 ] ) ;
/* Not retained or of interest: Lqcd */
fprintf ( xmlout , " %s <Sqcd> \n " , s ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Default quantization style for all components. --> \n " , s ) ;
}
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > numgbits ) < < 5 | tccp - > qntsty ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <QuantizationStyle>%d</QuantizationStyle> \n " , s ,
tccp - > qntsty ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Quantization style (in Sqcd's low 5 bits) may be: --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- 0 = No quantization. SPqcd size = 8 bits--> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- 1 = Scalar derived (values signaled for N(L)LL subband only). Use Eq. E.5. SPqcd size = 16. --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- 2 = Scalar expounded (values signaled for each subband). SPqcd size = 16. --> \n " ,
s ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <NumberOfGuardBits>%d</NumberOfGuardBits> \n " , s ,
tccp - > numgbits ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- 0-7 guard bits allowed (stored in Sqcd's high 3 bits) --> \n " , s ) ;
}
fprintf ( xmlout , " %s </Sqcd> \n " , s ) ;
/* Problem: numbands in some cases is calculated from len, which is not retained or available here at this time */
/* So we'll just dump all internal values */
/* We could calculate it, but I'm having trouble believing the length equations in the standard */
fprintf ( xmlout , " %s <SPqcd> \n " , s ) ;
switch ( tccp - > qntsty ) {
case J2K_CCP_QNTSTY_NOQNT : /* no quantization */
/* This is what standard says, but I don't believe it: len = 4 + (3*decomp); */
numbands = J2K_MAXBANDS ; /* should be: numbands = len - 1; */
/* Better: IMAGINE numbands = tccp->stepsize_numbands; */
/* Instead look for first zero exponent, quit there. Adequate? */
fprintf ( xmlout , " %s <ReversibleStepSizeValue> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until an exponent with zero value is reached. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- Exponent epsilon(b) of reversible dynamic range. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- Hex value is as stored, in high-order 5 bits. --> \n " , s ) ;
}
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 ) {
break ; /* Remove when we have real numbands */
}
fprintf ( xmlout , " %s <DynamicRangeExponent Subband= \" %d \" > \n " , s , bandno ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
tccp - > stepsizes [ bandno ] . expn < < 3 ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <AsDecimal>%d</AsDecimal> \n " , s ,
tccp - > stepsizes [ bandno ] . expn ) ;
}
fprintf ( xmlout , " %s </DynamicRangeExponent> \n " , s ) ;
}
fprintf ( xmlout , " %s </ReversibleStepSizeValue> \n " , s ) ;
2006-12-08 18:04:31 +01:00
break ;
2017-05-09 15:44:46 +02:00
case J2K_CCP_QNTSTY_SIQNT : /* scalar quantization derived */
/* This is what standard says. Should I believe it:: len = 5;
/* numbands = 1; */
fprintf ( xmlout , " %s <QuantizationStepSizeValues> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For irreversible transformation only. See Part I Annex E Equation E.3 --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <QuantizationValues Subband= \" 0 \" > \n " , s ) ;
if ( notes ) {
fprintf ( xmlout , " %s <!-- For N(L)LL subband: > \n " , s ) ;
}
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > stepsizes [ 0 ] . expn < < 11 ) | tccp - > stepsizes [ 0 ] . mant ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <Exponent>%d</Exponent> \n " , s ,
tccp - > stepsizes [ 0 ] . expn ) ;
fprintf ( xmlout , " %s <Mantissa>%d</Mantissa> \n " , s ,
tccp - > stepsizes [ 0 ] . mant ) ;
}
fprintf ( xmlout , " %s </QuantizationValues> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Exponents for subbands beyond 0 are not from header, but calculated per Eq. E.5 --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- The mantissa for all subbands is the same, given by the value above. --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until a subband with exponent of zero value is reached. --> \n " ,
s ) ;
}
for ( bandno = 1 ; bandno < J2K_MAXBANDS ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 ) {
break ;
}
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
fprintf ( xmlout ,
" %s <CalculatedExponent Subband= \" %d \" >%d</CalculatedExponent> \n " , s ,
bandno , tccp - > stepsizes [ bandno ] . expn ) ;
}
fprintf ( xmlout , " %s </QuantizationStepSizeValues> \n " , s ) ;
break ;
default : /* J2K_CCP_QNTSTY_SEQNT */ /* scalar quantization expounded */
/* This is what standard says, but should I believe it: len = 5 + 6*decomp; */
numbands = J2K_MAXBANDS ; /* should be: (len - 1) / 2;*/
/* Better: IMAGINE numbands = tccp->stepsize_numbands; */
fprintf ( xmlout , " %s <QuantizationStepSizeValues> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For irreversible transformation only. See Part I Annex E Equation E.3 --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until a subband with mantissa and exponent of zero values is reached. --> \n " ,
s ) ;
}
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 & & tccp - > stepsizes [ bandno ] . mant = = 0 ) {
break ; /* Remove when we have real numbands */
}
fprintf ( xmlout , " %s <QuantizationValues Subband= \" %d \" > \n " , s , bandno ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > stepsizes [ bandno ] . expn < < 11 ) | tccp - > stepsizes [ bandno ] . mant ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <Exponent>%d</Exponent> \n " , s ,
tccp - > stepsizes [ bandno ] . expn ) ;
fprintf ( xmlout , " %s <Mantissa>%d</Mantissa> \n " , s ,
tccp - > stepsizes [ bandno ] . mant ) ;
}
fprintf ( xmlout , " %s </QuantizationValues> \n " , s ) ;
}
fprintf ( xmlout , " %s </QuantizationStepSizeValues> \n " , s ) ;
break ;
} /* switch */
fprintf ( xmlout , " %s </SPqcd> \n " , s ) ;
fprintf ( xmlout , " %s</QuantizationDefault> \n " , s ) ;
/* Alignments: " < < < < < To help maintain xml pretty-printing */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
void xml_out_frame_qcc ( FILE * xmlout , opj_tcp_t * tcp , int numcomps )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
/* Uses global j2k_default_tcp */
/* This code will compile only if declaration of j2k_default_tcp is changed from static (to implicit extern) in j2k.c */
opj_tccp_t * tccp , * firstcomp_tccp ;
int bandno , numbands ;
int compno ;
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
firstcomp_tccp = & ( tcp - > tccps [ 0 ] ) ;
2006-12-08 18:04:31 +01:00
/* Internal data structure tccp defines separate defaults for each component, set from main */
2017-05-09 15:44:46 +02:00
/* default, then selectively overwritten. */
2006-12-08 18:04:31 +01:00
/* Compare j2k_read_qcx(...) */
2017-05-09 15:44:46 +02:00
/* We don't really know which was the default, and which were not */
/* Let's pretend that [0] is the default and all others are not */
if ( notes ) {
fprintf ( xmlout ,
" %s<!-- mj2_to_metadata implementation always reports component[0] as using default QCD, --> \n " ,
s ) ;
if ( tcp = = j2k_default_tcp ) {
fprintf ( xmlout ,
" %s<!-- and any other component, with main-header quantization values different from [0], as QCC. --> \n " ,
s ) ;
} else {
fprintf ( xmlout ,
" %s<!-- and any other component, with tile-part-header quantization values different from [0], as QCC. --> \n " ,
s ) ;
}
}
for ( compno = 1 ; compno < numcomps ;
compno + + ) { /* spec says components are zero-based */
tccp = & ( tcp - > tccps [ compno ] ) ;
if ( same_component_quantization ( firstcomp_tccp , tccp ) ) {
continue ;
}
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
/* Compare j2k_read_qcx */
fprintf ( xmlout ,
" %s<QuantizationComponent Marker= \" QCC \" Component= \" %d \" > \n " , s ,
compno ) ; /* Required in main header, single occurrence */
tccp = & j2k_default_tcp - > tccps [ 0 ] ;
/* Not retained or perhaps of interest: Lqcd It maybe can be calculated. */
fprintf ( xmlout , " %s <Sqcc> \n " , s ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout , " %s <!-- Quantization style for this component. --> \n " , s ) ;
}
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > numgbits ) < < 5 | tccp - > qntsty ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <QuantizationStyle>%d</QuantizationStyle> \n " , s ,
tccp - > qntsty ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Quantization style (in Sqcc's low 5 bits) may be: --> \n " , s ) ;
fprintf ( xmlout , " %s <!-- 0 = No quantization. SPqcc size = 8 bits--> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- 1 = Scalar derived (values signaled for N(L)LL subband only). Use Eq. E.5. SPqcc size = 16. --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- 2 = Scalar expounded (values signaled for each subband). SPqcc size = 16. --> \n " ,
s ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <NumberOfGuardBits>%d</NumberOfGuardBits> \n " , s ,
tccp - > numgbits ) ;
}
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- 0-7 guard bits allowed (stored in Sqcc's high 3 bits) --> \n " , s ) ;
}
fprintf ( xmlout , " %s </Sqcc> \n " , s ) ;
/* Problem: numbands in some cases is calculated from len, which is not retained or available here at this time */
/* So we'll just dump all internal values */
fprintf ( xmlout , " %s <SPqcc> \n " , s ) ;
switch ( tccp - > qntsty ) {
case J2K_CCP_QNTSTY_NOQNT :
numbands = J2K_MAXBANDS ; /* should be: numbands = len - 1; */
/* Better: IMAGINE numbands = tccp->stepsize_numbands; */
/* Instead look for first zero exponent, quit there. Adequate? */
fprintf ( xmlout , " %s <ReversibleStepSizeValue> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until an exponent with zero value is reached. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- Exponent epsilon(b) of reversible dynamic range. --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- Hex value is as stored, in high-order 5 bits. --> \n " , s ) ;
}
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 ) {
break ; /* Remove this once we have real numbands */
}
fprintf ( xmlout , " %s <Exponent Subband= \" %d \" > \n " , s , bandno ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
tccp - > stepsizes [ bandno ] . expn < < 3 ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <AsDecimal>%d</AsDecimal> \n " , s ,
tccp - > stepsizes [ bandno ] . expn ) ;
}
fprintf ( xmlout , " %s </Exponent> \n " , s ) ;
}
fprintf ( xmlout , " %s </ReversibleStepSizeValue> \n " , s ) ;
break ;
case J2K_CCP_QNTSTY_SIQNT :
/* numbands = 1; */
fprintf ( xmlout , " %s <QuantizationStepSizeValues> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For irreversible transformation only. See Part I Annex E Equation E.3 --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <QuantizationValuesForSubband0> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout , " %s <!-- For N(L)LL subband: > \n " , s ) ;
}
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > stepsizes [ 0 ] . expn < < 11 ) | tccp - > stepsizes [ 0 ] . mant ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <Exponent>%d</Exponent> \n " , s ,
tccp - > stepsizes [ 0 ] . expn ) ;
fprintf ( xmlout , " %s <Mantissa>%d</Mantissa> \n " , s ,
tccp - > stepsizes [ 0 ] . mant ) ;
}
fprintf ( xmlout , " %s </QuantizationValuesForSubband0> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Exponents for subbands beyond 0 are not from header, but calculated per Eq. E.5 --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- The mantissa for all subbands is the same, given by the value above. --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until a subband with exponent of zero value is reached. --> \n " ,
s ) ;
}
for ( bandno = 1 ; bandno < J2K_MAXBANDS ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 ) {
break ;
}
fprintf ( xmlout ,
" %s <CalculatedExponent Subband= \" %d \" >%d</CalculatedExponent> \n " , s ,
bandno , tccp - > stepsizes [ bandno ] . expn ) ;
}
fprintf ( xmlout , " %s </QuantizationStepSizeValues> \n " , s ) ;
break ;
default : /* J2K_CCP_QNTSTY_SEQNT */
numbands = J2K_MAXBANDS ; /* should be: (len - 1) / 2;*/
/* Better: IMAGINE numbands = tccp->stepsize_numbands; */
fprintf ( xmlout , " %s <QuantizationStepSizeValues> \n " , s ) ;
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- For irreversible transformation only. See Part I Annex E Equation E.3 --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- Current mj2_to_metadata implementation dumps entire internal table, --> \n " ,
s ) ;
fprintf ( xmlout ,
" %s <!-- until a subband with mantissa and exponent of zero values is reached. --> \n " ,
s ) ;
}
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp - > stepsizes [ bandno ] . expn = = 0 & & tccp - > stepsizes [ bandno ] . mant = = 0 ) {
break ; /* Remove this once we have real numbands count */
}
fprintf ( xmlout , " %s <QuantizationValues Subband= \" %d \" > \n " , s , bandno ) ;
if ( raw ) {
fprintf ( xmlout , " %s <AsHex>0x%02x</AsHex> \n " , s ,
( tccp - > stepsizes [ bandno ] . expn < < 11 ) | tccp - > stepsizes [ bandno ] . mant ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s <Exponent>%d</Exponent> \n " , s ,
tccp - > stepsizes [ bandno ] . expn ) ;
fprintf ( xmlout , " %s <Mantissa>%d</Mantissa> \n " , s ,
tccp - > stepsizes [ bandno ] . mant ) ;
}
fprintf ( xmlout , " %s </QuantizationValues> \n " , s ) ;
}
fprintf ( xmlout , " %s </QuantizationStepSizeValues> \n " , s ) ;
break ;
} /* switch */
fprintf ( xmlout , " %s </SPqcc> \n " , s ) ;
fprintf ( xmlout , " %s</QuantizationComponent> \n " , s ) ;
}
/* Alignments: " < < < < < To help maintain xml pretty-printing */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
BOOL same_component_quantization ( opj_tccp_t * tccp1 , opj_tccp_t * tccp2 )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
int bandno , numbands ;
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
if ( tccp1 - > qntsty ! = tccp2 - > qntsty ) {
return FALSE ;
}
if ( tccp1 - > numgbits ! = tccp2 - > numgbits ) {
return FALSE ;
}
2006-12-08 18:04:31 +01:00
2017-05-09 15:44:46 +02:00
switch ( tccp1 - > qntsty ) {
2006-12-08 18:04:31 +01:00
case J2K_CCP_QNTSTY_NOQNT :
2017-05-09 15:44:46 +02:00
numbands = J2K_MAXBANDS ; /* should be: numbands = len - 1; */
/* Instead look for first zero exponent, quit there. Adequate? */
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp1 - > stepsizes [ bandno ] . expn = = 0 ) {
break ;
}
if ( tccp1 - > stepsizes [ bandno ] . expn ! = tccp2 - > stepsizes [ bandno ] . expn ) {
return FALSE ;
}
}
break ;
2006-12-08 18:04:31 +01:00
case J2K_CCP_QNTSTY_SIQNT :
2017-05-09 15:44:46 +02:00
/* numbands = 1; */
if ( tccp1 - > stepsizes [ 0 ] . expn ! = tccp2 - > stepsizes [ 0 ] . expn | |
tccp1 - > stepsizes [ 0 ] . mant ! = tccp2 - > stepsizes [ 0 ] . mant ) {
return FALSE ;
}
/* Don't need to check remainder, since they are calculated from [0] */
break ;
2006-12-08 18:04:31 +01:00
default : /* J2K_CCP_QNTSTY_SEQNT */
2017-05-09 15:44:46 +02:00
numbands = J2K_MAXBANDS ; /* should be: (len - 1) / 2;*/
/* This comparison may cause us problems with trailing junk values. */
for ( bandno = 0 ; bandno < numbands ; bandno + + ) {
if ( tccp1 - > stepsizes [ bandno ] . expn ! = tccp2 - > stepsizes [ bandno ] . expn | |
tccp1 - > stepsizes [ bandno ] . mant ! = tccp2 - > stepsizes [ bandno ] . mant ) ;
return FALSE ;
}
break ;
2006-12-08 18:04:31 +01:00
} /* switch */
2017-05-09 15:44:46 +02:00
return TRUE ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2007-05-10 16:21:09 +02:00
void xml_out_frame_rgn ( FILE * xmlout , opj_tcp_t * tcp , int numcomps )
2006-12-08 18:04:31 +01:00
{
2017-05-09 15:44:46 +02:00
int compno , SPrgn ;
/* MJ2 files can have regions of interest if hybridized with JPX Part II */
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
for ( compno = 0 ; compno < numcomps ; compno + + ) {
SPrgn = tcp - > tccps [ compno ] . roishift ; /* 1 byte; SPrgn */
if ( SPrgn = = 0 ) {
continue ; /* Yet another kludge */
}
fprintf ( xmlout , " %s<RegionOfInterest Marker= \" RGN \" > \n " ,
s ) ; /* Optional in main header, at most 1 per component */
if ( notes ) {
fprintf ( xmlout , " %s<!-- See Crgn below for zero-based component number. --> \n " ,
s ) ;
}
/* Not retained or of interest: Lrgd */
fprintf ( xmlout , " %s <Srgn>0</Srgn> \n " , s ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Srgn is ROI style. Only style=0 defined: Implicit ROI (max. shift) --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <Crgn>%d</Crgn> \n " , s , compno ) ; /* 1 or 2 bytes */
fprintf ( xmlout , " %s <SPrgn>%d</SPrgn> \n " , s , SPrgn ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- SPrgn is implicit ROI shift, i.e., binary shifting of ROI coefficients above background. --> \n " ,
s ) ;
}
fprintf ( xmlout , " </RegionOfInterest \n " ,
s ) ; /* Optional in main header, at most 1 per component */
}
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_poc ( FILE * xmlout ,
opj_tcp_t * tcp ) /* Progression Order Change */
{
/* Compare j2k_read_poc() */
int i ;
opj_poc_t * poc ;
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
if ( tcp - > POC ! = 1 ) {
return ; /* Not present */
}
fprintf ( xmlout , " %s<ProgressionOrderChange Marker= \" POC \" > \n " ,
s ) ; /* Optional in main header, at most 1 per component */
/* j2k_read_poc seems to allow accumulation of default pocs from multiple POC segments, but does
the spec really allow that ? */
/* 2 bytes, not retained; Lpoc */
/* I probably didn't get this dump precisely right. */
for ( i = 0 ; i < tcp - > numpocs ; i + + ) {
poc = & tcp - > pocs [ i ] ;
fprintf ( xmlout , " %s <Progression Num= \" %d \" > \n " , s , i + 1 ) ;
fprintf ( xmlout , " %S <RSpoc>%d</RSpoc> \n " , s ,
poc - > resno0 ) ; /* 1 byte, RSpoc_i */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Resolution level index (inclusive) for progression start. Range: 0 to 33 --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <CSpoc>%d</CSpoc> \n " , s ,
poc - > compno0 ) ; /* j2k_img->numcomps <= 256 ? 1 byte : 2 bytes; CSpoc_i */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Component index (inclusive) for progression start. --> \n " , s ) ;
}
fprintf ( xmlout , " %s <LYEpoc>%d</LYEpoc> \n " , s ,
poc - > layno1 ) ; /* int_min(cio_read(2), tcp->numlayers); /* 2 bytes; LYEpoc_i */
if ( notes ) {
fprintf ( xmlout , " %s <!-- Layer index (exclusive) for progression end. --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <REpoc>%d</REpoc> \n " , s ,
poc - > resno1 ) ; /*int_min(cio_read(1), tccp->numresolutions); /* REpoc_i */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Resolution level index (exclusive) for progression end. Range: RSpoc to 33 --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <CEpoc>%d</CEpoc> \n " , s ,
poc - > compno1 ) ; /* int_min(cio_read(j2k_img->numcomps <= 256 ? 1 : 2), j2k_img->numcomps); /* CEpoc_i */
if ( notes ) {
fprintf ( xmlout ,
" %s <!-- Component index (exclusive) for progression end. Minimum: CSpoc --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s <Ppoc>%d</Ppoc> \n " , s , poc - > prg ) ; /* 1 byte Ppoc_i */
if ( notes ) {
fprintf ( xmlout , " %s <!-- Defined Progression Order Values are: --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- 0 = LRCP; 1 = RLCP; 2 = RPCL; 3 = PCRL; 4 = CPRL --> \n " , s ) ;
fprintf ( xmlout ,
" %s <!-- where L = \" layer \" , R = \" resolution level \" , C = \" component \" , P = \" position \" . --> \n " ,
s ) ;
}
fprintf ( xmlout , " %s </Progression> \n " , s ) ;
}
fprintf ( xmlout , " %s</ProgressionOrderChange \n " , s ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
# ifdef SUPPRESS_FOR_NOW
/* Suppress PPM and PPT since we're not showing data from the third option, namely within the codestream, and
that ' s evidently what frames_to_mj2 uses . And a hex dump isn ' t so useful anyway */
2017-05-09 15:44:46 +02:00
void xml_out_frame_ppm ( FILE * xmlout ,
opj_cp_t * cp ) /* For main header, not tile-part (which uses PPT instead). */
{
/* Either the PPM or PPT is required if the packet headers are not distributed in the bit stream */
/* Use of PPM and PPT are mutually exclusive. */
/* Compare j2k_read_ppm() */
int j ;
if ( cp - > ppm ! = 1 ) {
return ; /* Not present */
}
/* Main header uses indent of 10 spaces */
fprintf ( xmlout ,
" <PackedPacketHeadersMainHeader Marker= \" PPM \" > \n " ) ; /* Optional in main header, but if not, must be in PPT or codestream */
/* 2 bytes Lppm not saved */
if ( notes ) {
fprintf ( xmlout ,
" <!-- If there are multiple PPM marker segments in the main header, --> \n " ) ;
fprintf ( xmlout ,
" <!-- this mj2_to_metadata implementation will report them as a single consolidated PPM header. --> \n " ) ;
fprintf ( xmlout ,
" <!-- The implementation can't currently segregate by tile-part. --> \n " ) ;
fprintf ( xmlout ,
" <!-- TO DO? further map the packet headers to xml. --> \n " ) ;
}
/* 1 byte, not retained ; Zppm is sequence # of this PPM header */
/* 4 bytes, possibly overwritten multiple times in j2k_cp->ppm_previous: Nppm */
/* Use j symbol for index instead of i, to make comparable with j2k_read_ppm */
/* Not real clear whether to use ppm->store or ppm_len as upper bound */
fprintf ( xmlout , " <PackedData> \n " ) ;
xml_out_dump_hex ( xmlout , cp - > ppm_data , cp - > ppm_len ) ;
/* Dump packet headers 1 byte at a time: lppm[i][j] */
fprintf ( xmlout , " </PackedData> \n " ) ;
fprintf ( xmlout ,
" </PackedPacketHeadersMainHeader> \n " ) ; /* Optional in main header, but if not, must be in PPT or codestream */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_ppt ( FILE * xmlout ,
opj_tcp_t * tcp ) /* For tile-part header, not main (which uses PPM instead). */
{
/* Either the PPM or PPT is required if the packet headers are not distributed in the bit stream */
/* Use of PPM and PPT are mutually exclusive. */
/* Compare j2k_read_ppt() */
int j ;
if ( tcp - > ppt ! = 1 ) {
return ; /* Not present */
}
/* Tile-part indents are 12 spaces */
fprintf ( xmlout ,
" <PackedPacketHeadersTilePartHeader Marker= \" PPT \" > \n " ) ; /* Optional in main header, but if not, must be in PPT or codestream */
/* 2 bytes Lppm not saved */
if ( notes ) {
fprintf ( xmlout ,
" <!-- If there are multiple PPT marker segments in the tile-part header, --> \n " ) ;
fprintf ( xmlout ,
" <!-- this mj2_to_metadata implementation will report them as a single consolidated PPT header. --> \n " ) ;
fprintf ( xmlout ,
" <!-- The implementation can't currently segregate by tile-part. --> \n " ) ;
fprintf ( xmlout ,
" <!-- TO DO? further map the packet headers to xml. --> \n " ) ;
}
/* 1 byte, not retained ; Zppt is sequence # of this PPT header */
/* 4 bytes, possibly overwritten multiple times in j2k_cp->ppt_previous: Nppt */
/* Use j symbol for index instead of i, to make comparable with j2k_read_ppt */
/* Not real clear whether to use ppt->store or ppt_len as upper bound */
fprintf ( xmlout , " <PackedData> \n " ) ;
xml_out_dump_hex ( xmlout , tcp - > ppt_data , tcp - > ppt_len ) ;
/* Dump packet headers 1 byte at a time: lppt[i][j] */
fprintf ( xmlout , " </PackedData> \n " ) ;
fprintf ( xmlout ,
" </PackedPacketHeadersTileHeader> \n " ) ; /* Optional in tile-part header, but if not, must be in PPM or codestream */
2006-12-08 18:04:31 +01:00
}
# endif SUPPRESS_FOR_NOW
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_tlm ( FILE *
xmlout ) /* opt, main header only. May be multiple. */
{
/* Compare j2k_read_tlm()... which doesn't retain anything! */
/* Plan: Since this is only called from main header, not tilepart, use global j2k_default_tcp rather than parameter */
/* Main header indents are 10 spaces */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_plm ( FILE *
xmlout ) /* opt, main header only; can be used in conjunction with tile-part's PLT */
{
/* NO-OP. PLM NOT SAVED IN DATA STRUCTURE */
/* Compare j2k_read_plm()... which doesn't retain anything! */
/* Plan: Since this is only called from main header, not tilepart, use global j2k_default_tcp rather than parameter */
/* Main header indents are 10 spaces */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_plt ( FILE * xmlout ,
opj_tcp_t * tcp ) /* opt, tile-part headers only; can be used in conjunction with main header's PLM */
{
/* NO-OP. PLT NOT SAVED IN DATA STRUCTURE */
/* Compare j2k_read_plt()... which doesn't retain anything! */
/* Tile-part header indents are 12 spaces */
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_crg ( FILE * xmlout )
{
/* NO-OP. CRG NOT SAVED IN DATA STRUCTURE */ /* opt, main header only; */
/* Compare j2k_read_crg()... which doesn't retain anything! */
/* Plan: Since this is only called from main header, not tilepart, use global j2k_default_tcp rather than parameter */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
THIS PSEUDOCODE IMAGINES THESE EXIST :
j2k_default_tcp - > crg , j2k_default_tcp - > crg_i , j2k_default_tcp - > crg_xcrg * ,
j2k_default_tcp - > crg_ycrg *
( POSSIBLY DON ' T NEED crg_i , CAN GET NUMBER OR COMPONENTS FROM ELSEWHERE )
if ( j2k_default_tcp - > crg ! = 1 | | j2k_default_tcp - > crg_i = = 0 )
return ; /* Not present */
/* Main header indents are 10 spaces */
fprintf ( xmlout ,
" <ComponentRegistration Marker= \" RG \" Count= \" %d \" > \n " ,
j2k_default_tcp - > crg_i ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Fine tuning of registration of components with respect to each other, --> \n " ) ;
fprintf ( xmlout ,
" <!-- not required but potentially helpful for decoder. --> \n " ) ;
fprintf ( xmlout ,
" <!-- These supplementary fractional offsets are in units of 1/65536 of the horizontal --> \n " ) ;
fprintf ( xmlout ,
" <!-- or vertical separation (e.g., XRsiz[i] or YRsiz[i] for component i). --> \n " ) ;
}
/* This isn't the most compact form of table, but is OK when number of components is small, as is likely. */
for ( i = 0 ; i < j2k_default_tcp - > crg_i ; i + + ) {
fprintf ( xmlout , " <Component Num= \" %d \" > \n " , i + 1 ) ;
fprintf ( xmlout , " <Xcrg> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsNumerator>%d</AsNumerator> \n " ,
j2k_default_tcp - > crg_xcrg [ i ] ) ;
}
if ( derived ) {
/* Calculate n * 100%/65536; 4 digits after decimal point is sufficiently accurate */
fprintf ( xmlout , " <AsPercentage>%.4f</AsPercentage> \n " ,
( ( double ) j2k_default_tcp - > crg_xcrg [ i ] ) / 655.36 ) ;
/* We could do another calculation that include XRsiz[i]; maybe later. */
}
fprintf ( xmlout , " </Xcrg> \n " ) ;
fprintf ( xmlout , " <Ycrg> \n " ) ;
if ( raw ) {
fprintf ( xmlout , " <AsNumerator>%d</AsNumerator> \n " ,
j2k_default_tcp - > crg_ycrg [ i ] ) ;
}
if ( derived ) {
fprintf ( xmlout , " <AsPercentage>%f</AsPercentage> \n " ,
( ( double ) j2k_default_tcp - > crg_ycrg [ i ] ) / 655.36 ) ;
}
fprintf ( xmlout , " </Ycrg> \n " ) ;
fprintf ( xmlout , " </Component> \n " ) ;
}
fprintf ( xmlout , " </ComponentRegistration> \n " ) ;
2006-12-08 18:04:31 +01:00
# endif
}
/* ------------- */
/* Regrettably from a metadata point of view, j2k_read_com() skips over any comments in main header or tile-part-header */
2017-05-09 15:44:46 +02:00
void xml_out_frame_com ( FILE * xmlout , opj_tcp_t * tcp )
{
/* NO-OP. COM NOT SAVED IN DATA STRUCTURE */ /* opt in main or tile-part headers; */
/* Compare j2k_read_com()... which doesn't retain anything! */
2006-12-08 18:04:31 +01:00
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
char spaces [ 13 ] = " " ; /* 12 spaces if tilepart*/
char * s = spaces ;
if ( tcp = = & j2k_default_tcp ) {
s + + ;
s + + ; /* shorten s to 10 spaces if main */
}
THIS PSEUDOCODE IMAGINES THESE EXIST :
tcp - > com , tcp - > com_len , tcp - > com_data array
if ( tcp - > com ! = 1 ) {
return ; /* Not present */
}
fprintf ( xmlout , " %s<Comment Marker= \" COM \" > \n " ,
s ) ; /* Optional in main or tile-part header */
xml_out_dump_hex_and_ascii ( tcp - > com_data , tcp - > com_len , s ) ;
fprintf ( xmlout , " %s</Comment> \n " , s ) ;
2006-12-08 18:04:31 +01:00
# endif
}
2017-05-09 15:44:46 +02:00
void xml_out_dump_hex ( FILE * xmlout , char * data , int data_len , char * s )
{
/* s is a string of spaces for indent */
int i ;
/* This is called when raw is true, or there is no appropriate derived form */
fprintf ( xmlout , " %s<AsHex> \n " , s ) ;
fprintf ( xmlout , " %s " , s ) ; /* Inadequate for pretty printing */
for ( i = 0 ; i < data_len ; i + + ) { /* Dump packet headers */
fprintf ( xmlout , " %02x " , data [ i ] ) ;
}
fprintf ( xmlout , " %s</AsHex> \n " , s ) ;
2006-12-08 18:04:31 +01:00
}
/* Define this as an even number: */
# define BYTES_PER_DUMP_LINE 40
/* Current total width for Hex and ASCII is : 11 spaces lead + (3 * BPDL) + 2 spaces + BPDL */
2017-05-09 15:44:46 +02:00
void xml_out_dump_hex_and_ascii ( FILE * xmlout , char * data , int data_len ,
char * s )
{
/* s is a string of spaces for indent */
int i , j ;
if ( raw ) {
xml_out_dump_hex ( xmlout , data , data_len , s ) ;
}
if ( derived ) {
fprintf ( xmlout , " %s<AsHexAndASCII> \n " , s ) ;
for ( i = 0 ; i < data_len ; ) {
fprintf ( xmlout , " %s " , s ) ; /* Additional leading space added in loop */
/* First column: hex */
for ( j = 0 ; j < BYTES_PER_DUMP_LINE ; j + + ) { /* Dump bytes */
fprintf ( xmlout , " %02x " , data [ i + j ] ) ;
}
/* Space between columns... */ fprintf ( xmlout , " " ) ;
/* Second column: ASCII */
for ( j = 0 ; j < BYTES_PER_DUMP_LINE ; j + + , i + + ) {
if ( isprint ( ( int ) data [ i ] ) & & i < data_len ) {
fprintf ( xmlout , " %c " , data [ i ] ) ;
} else {
fprintf ( xmlout , " " ) ;
}
}
/* If we also wanted to output UCS-2 Unicode as a third column, then entire document
must use fwprintf . Forget about it for now . As it stands , if data is UCS - 2 format but still
the ASCII set , then we ' ll be able to read every other byte as ASCII in column 2. If
data is UTF - 8 format but still ASCII , then we ' ll be able to read every byte as ASCII
in column 2. */
}
fprintf ( xmlout , " %s</AsHexAndASCII> \n " , s ) ;
}
2006-12-08 18:04:31 +01:00
}
/* ------------- */
2017-05-09 15:44:46 +02:00
void xml_out_frame_jp2h ( FILE * xmlout , opj_jp2_t * jp2_struct ) /* JP2 Header */
{
/* Compare jp2_read_jp2h(opj_jp2_t * jp2_struct) */
int i ;
fprintf ( xmlout , " <JP2Header BoxType= \" jp2h \" > \n " ) ;
/* Compare jp2_read_ihdr(jp2_struct)) */
fprintf ( xmlout , " <ImageHeader BoxType= \" ihdr \" > \n " ) ;
fprintf ( xmlout , " <HEIGHT>%d</HEIGHT> \n " ,
jp2_struct - > h ) ; /* 4 bytes */
fprintf ( xmlout , " <WIDTH>%d</WIDTH> \n " ,
jp2_struct - > w ) ; /* 4 bytes */
if ( notes ) {
fprintf ( xmlout ,
" <!-- HEIGHT here, if 2 fields per image, is of total deinterlaced height. --> \n " ) ;
}
fprintf ( xmlout , " <NC>%d</NC> \n " ,
jp2_struct - > numcomps ) ; /* 2 bytes */
if ( notes ) {
fprintf ( xmlout ,
" <!-- NC is number of components --> \n " ) ; /* 2 bytes */
}
fprintf ( xmlout , " <BPC> \n " ) ; /* 1 byte */
if ( jp2_struct - > bpc = = 255 ) {
fprintf ( xmlout , " <AsHex>0x%02x</AsHex> \n " ,
jp2_struct - > bpc ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- BPC = 0xff means bits per pixel varies with component; see table below. --> \n " ) ;
}
} else { /* Not 0xff */
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%02x</AsHex> \n " ,
jp2_struct - > bpc ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- BPC = 0xff means bits per pixel varies with component; see table below. --> \n " ) ;
}
}
if ( derived ) {
fprintf ( xmlout , " <BitsPerPixel>%d</BitsPerPixel> \n " ,
jp2_struct - > bpc & 0x7f ) ;
fprintf ( xmlout , " <Signed>%d</Signed> \n " ,
jp2_struct - > bpc > > 7 ) ;
}
}
fprintf ( xmlout , " </BPC> \n " ) ;
fprintf ( xmlout , " <C>%d</C> \n " ,
jp2_struct - > C ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- C is compression type. Only \" 7 \" is allowed to date. --> \n " ) ; /* 2 bytes */
}
fprintf ( xmlout , " <UnkC>%d</UnkC> \n " ,
jp2_struct - > UnkC ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Colourspace Unknown. 1 = unknown, 0 = known (e.g., colourspace spec is accurate) --> \n " ) ; /* 1 byte */
}
fprintf ( xmlout , " <IPR>%d</IPR> \n " ,
jp2_struct - > IPR ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- IPR is 1 if frame contains an Intellectual Property box; 0 otherwise. --> \n " ) ; /* 2 bytes */
}
fprintf ( xmlout , " </ImageHeader> \n " ) ;
if ( jp2_struct - > bpc = = 255 ) {
fprintf ( xmlout , " <BitsPerComponent BoxType= \" bpcc \" > \n " ) ;
if ( notes ) {
fprintf ( xmlout ,
" <!-- Pixel depth (range 1 to 38) is low 7 bits of hex value + 1 --> \n " ) ;
}
/* Bits per pixel varies with components */
/* Compare jp2_read_bpcc(jp2_struct) */
for ( i = 0 ; i < ( int ) jp2_struct - > numcomps ; i + + ) {
if ( raw ) {
fprintf ( xmlout , " <AsHex>0x%02x</AsHex> \n " ,
jp2_struct - > comps [ i ] . bpcc ) ; /* 1 byte */
}
if ( derived ) {
fprintf ( xmlout , " <BitsPerPixel>%d</BitsPerPixel> \n " ,
( jp2_struct - > comps [ i ] . bpcc & 0x7f ) + 1 ) ;
fprintf ( xmlout , " <Signed>%d</Signed> \n " ,
jp2_struct - > comps [ i ] . bpcc > > 7 ) ;
}
}
fprintf ( xmlout , " </BitsPerComponent> \n " ) ;
}
/* Compare jp2_read_colr(jp2_struct) */
fprintf ( xmlout ,
" <ColourSpecification BoxType= \" colr \" > \n " ) ;
fprintf ( xmlout , " <METH>%d</METH> \n " ,
jp2_struct - > meth ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Valid values of specification method so far: --> \n " ) ;
fprintf ( xmlout ,
" <!-- 1 = Enumerated colourspace, in EnumCS field --> \n " ) ;
fprintf ( xmlout ,
" <!-- 2 = Restricted ICC Profile, in PROFILE field --> \n " ) ;
}
fprintf ( xmlout , " <PREC>%d</PREC> \n " ,
jp2_struct - > precedence ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- 0 is only valid value of precedence so far. --> \n " ) ;
}
fprintf ( xmlout , " <APPROX>%d</APPROX> \n " ,
jp2_struct - > approx ) ; /* 1 byte */
if ( notes ) {
fprintf ( xmlout ,
" <!-- 0 is only valid value of colourspace approximation so far. --> \n " ) ;
}
if ( jp2_struct - > meth = = 1 ) {
fprintf ( xmlout , " <EnumCS>%d</EnumCS> \n " ,
jp2_struct - > enumcs ) ; /* 4 bytes */
if ( notes ) {
fprintf ( xmlout ,
" <!-- Valid values of enumerated MJ2 colourspace so far: --> \n " ) ;
fprintf ( xmlout ,
" <!-- 16: sRGB as defined by IEC 61966-2-1. --> \n " ) ;
fprintf ( xmlout ,
" <!-- 17: greyscale (related to sRGB). --> \n " ) ;
fprintf ( xmlout ,
" <!-- 18: sRGB YCC (from JPEG 2000 Part II). --> \n " ) ;
fprintf ( xmlout ,
" <!-- (Additional JPX values are defined in Part II). --> \n " ) ;
}
} else if ( notes ) {
fprintf ( xmlout ,
" <!-- PROFILE is not handled by current OpenJPEG implementation. --> \n " ) ;
}
2006-12-08 18:04:31 +01:00
/* only 1 byte is read and nothing stored */
2017-05-09 15:44:46 +02:00
fprintf ( xmlout , " </ColourSpecification> \n " ) ;
/* TO DO? No OpenJPEG support.
Palette ' pclr '
ComponentMapping ' cmap '
ChannelDefinition ' cdef '
Resolution ' res '
*/
fprintf ( xmlout , " </JP2Header> \n " ) ;
2006-12-08 18:04:31 +01:00
}
/* ------------- */
# ifdef NOTYET
2017-05-09 15:44:46 +02:00
IMAGE these use cp structure ,
extended . . . but we could use a new data structure instead
void xml_out_frame_jp2i ( FILE * xmlout , opj_cp_t * cp )
{
/* IntellectualProperty 'jp2i' (no restrictions on location) */
int i ;
IMAGE cp - > jp2i , cp - > jp2i_count , cp - > jp2i_data ( array of chars ) ,
cp - > cp2i_len ( array of ints )
if ( cp - > jp2i ! = 1 ) {
return ; /* Not present */
}
for ( i = 0 ; i < cp - > jp2i_count ; i + + ) {
fprintf ( xmlout , " <IntellectualProperty BoxType= \" jp2i \" > \n " ) ;
/* I think this can be anything, including binary, so do a dump */
/* Is it better to indent or not indent this content? Indent is better for reading, but
worse for cut / paste . */
xml_out_dump_hex_and_ascii ( xmlout , cp - > jp2i_data [ i ] , cp - > jp2i_len [ i ] ) ;
fprintf ( xmlout , " </IntellectualProperty> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
void xml_out_frame_xml ( FILE * xmlout , opj_cp_t * cp )
{
/* XML 'xml\040' (0x786d6c20). Can appear multiply, before or after jp2c codestreams */
IMAGE cp - > xml , cp - > xml_count , cp - > xml_data ( array of chars )
MAYBE WE DON ' T NEED cp - > xml_len ( array of ints ) IF WE ASSUME xml_data IS NULL - TERMINATED .
ASSUME ASSUME EACH LINE IS ENDED BY \ n .
int i ;
if ( cp - > xml ! = 1 ) {
return ; /* Not present */
}
for ( i = 0 ; i < cp - > xml_count ; i + + ) {
fprintf ( xmlout , " <TextFormXML BoxType= \" xml[space] " Instance =
\ " %d \" > \n " , i + 1 ) ;
/* Is it better to indent or not indent this content? Indent is better for reading, but
worse for cut / paste . Being lazy , didn ' t indent here . */
fprintf ( xmlout ,
cp - > xml_data [ i ] ) ; /* May be multiple lines */ /* Could check if this is well-formed */
fprintf ( xmlout , " </TextFormXML> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
void xml_out_frame_uuid ( FILE * xmlout , opj_cp_t * cp )
{
/* UUID 'uuid' (top level only) */
/* Part I 1.7.2 says: may appear multiply in JP2 file, anywhere except before File Type box */
/* Part III 5.2.1 says: Private extensions shall be achieved through the 'uuid' type. */
/* A UUID is a 16-byte value. There is a conventional string representation for it:
" 0x12345678-9ABC-DEF0-1234-567890ABCDEF " . Let ' s assume that is what is stored in uuid_value */
/* Part III 6.1 Any other MJ2 box type could be alternatively written as a 'uuid' box, with value given
as : 0 xXXXXXXXX - 0011 - 0010 - 8000 - 00 AA00389B71 , where the Xs are the boxtype in hex . However ,
such a file is " not compliant; systems may choose to read [such] objects ... as equivalent to the box of
the same type , or not . " Here, we choose not to. */
int i ;
IMAGE cp - > uuid , cp - > uuid_count ,
cp - > uuid_value ( array of uuids . . .
let ' s say fixed - length strings ) cp - > uuid_data ( array of char buffers ) , cp - > uuid_len ( array of ints )
if ( cp - > juuid ! = 1 )
return ; /* Not present */
for ( i = 0 ; i < cp - > uuid_count ; i + + ) {
fprintf ( xmlout , " <UniversalUniqueID BoxType= \" uuid \" >
fprintf ( xmlout , " <UUID>%s</UUDI> \n " , cp - > uuid_value [ i ] ) ;
fprintf ( xmlout , " <Data> \n " ) ;
/* I think this can be anything, including binary, so do a dump */
/* Is it better to indent or not indent this content? Indent is better for reading, but
worse for cut / paste . */
xml_out_dump_hex_and_ascii ( xmlout , cp - > uuid_data [ i ] , cp - > uuid_len [ i ] ) ;
fprintf ( xmlout , " </Data> \n " ) ;
fprintf ( xmlout , " </UniversalUniqueID> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
void xml_out_frame_uinf ( FILE * xmlout , opj_cp_t * cp )
{
/* UUIDInfo 'uinf', includes UUIDList 'ulst' and URL 'url\40' */
/* Part I 1.7.3 says: may appear multiply in JP2 file, anywhere at the top level except before File Type box */
/* So there may be multiple ulst's, and each can have multiple UUIDs listed (with a single URL) */
/* This is not quite as vendor-specific as UUIDs, or at least is meant to be generally readable */
/* Assume UUIDs stored in canonical string format */
int i , j ;
IMAGE cp - > uinf , cp - > uinf_count , cp - > uinf_ulst_nu ( array of ints )
cp - > uinf_uuid ( 2 dimensional array of uuids . . . let ' s say fixed - length strings ) ,
cp - > uinf_url ( array of char buffers )
if ( cp - > uinf ! = 1 )
return ; /* Not present */
for ( i = 0 ; i < cp - > uuid_count ; i + + ) {
fprintf ( xmlout , " <UUIDInfo BoxType= \" uinf \" > \n " ) ;
fprintf ( xmlout , " <UUIDList BoxType= \" ulst \" Count= \" %d \" > \n " ,
cp - > cp - > uinf_ulst_nu [ i ] ) ;
for ( j = 0 ; j < cp - > uinf_ulst_nu [ i ] ; j + + ) {
fprintf ( xmlout , " <ID Instance= \" %s \" >%s</ID> \n " ,
cp - > uuif_uuid [ i ] [ j ] , j + 1 ) ;
}
fprintf ( xmlout , " </UUIDList> \n " ) ;
fprintf ( xmlout , " <DataEntryURL> \n " ) ;
/* Could add VERS and FLAG here */
fprintf ( xmlout , " <LOC> \n " ) ;
fprintf ( xmlout , " %s " ,
cp - > uinf_url [ i ] ) ; /* Probably single line, so indent works */ /* In theory, could check if this is well-formed, or good live link */
fprintf ( xmlout , " </LOC> \n " ) ;
fprintf ( xmlout , " </DataEntryURL> \n " ) ;
fprintf ( xmlout , " </UUIDInfo> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2017-05-09 15:44:46 +02:00
IMAGE these use cp structure ,
extended . . . but we could use a new data structure instead
void xml_out_frame_unknown_type ( FILE * xmlout , opj_cp_t * cp )
{
/* Part III 5.2.1 says "Type fields not defined here are reserved. Private extensions
shall be acieved through the ' uuid ' type . " [This implies an unknown
type would be an error , but then . . . ] " Boxes not explicitly defined in this standard,
or otherwise unrecognized by a reader , may be ignored . "
Also , it says " the following types are not and will not be used, or used only in
their existing sense , in future versions of this specification , to avoid conflict
with existing content using earlier pre - standard versions of this format :
clip , crgn , matt , kmat , pnot , ctab , load , imap ;
track reference types tmcd , chap , sync , scpt , ssrc "
[ But good luck figuring out the mapping . ]
Part III Amend . 2 4.1 is stronger : " All these specifications [of this family, e.g.,
JP2 Part I , ISO Base format ( Part 12 ) leading to MP4 , Quicktime , and possibly including
MJ2 ] require that readers ignore objects that are unrecognizable to them " .
*/
int i ;
IMAGE cp - > unknown_type , cp - > unknown_type_count ,
cp - > unknown_type_boxtype ( array of buf [ 5 ] s ) ,
cp - > unknown_type_data ( array of chars ) , cp - > unknown_type_len ( array of ints )
if ( cp - > unknown_type ! = 1 ) {
return ; /* Not present */
}
for ( i = 0 ; i < cp - > unknown_type_count ; i + + ) {
fprintf ( xmlout , " <UnknownType BoxType= \" %s \" > \n " ,
cp - > unknown_type_boxtype [ i ] ) ;
/* Can be anything, including binary, so do a dump */
/* Is it better to indent or not indent this content? Indent is better for reading, but
worse for cut / paste . */
xml_out_dump_hex_and_ascii ( xmlout , cp - > unknown_type_data [ i ] ,
cp - > unknown_type_len [ i ] ) ;
fprintf ( xmlout , " </UnknownType> \n " ) ;
}
2006-12-08 18:04:31 +01:00
}
2010-10-05 12:33:15 +02:00
# endif