1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 #====================================================================== |
2 #====================================================================== |
3 # L I S T H D R |
3 # L I S T H D R |
4 # doc: Sat Jan 18 18:41:49 2003 |
4 # doc: Sat Jan 18 18:41:49 2003 |
5 # dlm: Wed Jul 9 13:30:35 2008 |
5 # dlm: Mon Mar 25 19:20:19 2013 |
6 # (c) 2003 A.M. Thurnherr |
6 # (c) 2003 A.M. Thurnherr |
7 # uE-Info: 66 0 NIL 0 0 72 8 2 4 NIL ofnI |
7 # uE-Info: 79 0 NIL 0 0 72 8 2 4 NIL ofnI |
8 #====================================================================== |
8 #====================================================================== |
9 |
9 |
10 # Print useful info from the RDI BB header |
10 # Print useful info from the RDI BB header |
11 |
11 |
12 # HISTORY: |
12 # HISTORY: |
26 # Oct 30, 2005: - shuffled stuff, added DATA_FORMAT_VARIANT |
26 # Oct 30, 2005: - shuffled stuff, added DATA_FORMAT_VARIANT |
27 # Aug 21, 2006: - added CPU_SERIAL_NUMBER |
27 # Aug 21, 2006: - added CPU_SERIAL_NUMBER |
28 # - added usage error |
28 # - added usage error |
29 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
29 # Sep 19, 2007: - adapted to new [RDI_BB_Read.pl] (not tested) |
30 # Jul 9, 2008: - added output regarding available sensors |
30 # Jul 9, 2008: - added output regarding available sensors |
|
31 # Mar 20, 2013: - removed DATA_FORMAT stuff |
|
32 # Mar 25, 2013: - added INSTRUMENT_TYPE stuff instead |
31 |
33 |
32 $0 =~ m{(.*/)[^/]+}; |
34 $0 =~ m{(.*/)[^/]+}; |
33 require "$1RDI_BB_Read.pl"; |
35 require "$1RDI_BB_Read.pl"; |
34 |
36 |
35 die("Usage: $0 <RDI file[...]>\n") |
37 die("Usage: $0 <RDI file[...]>\n") |
40 readHeader(@ARGV,\%hdr); |
42 readHeader(@ARGV,\%hdr); |
41 shift; |
43 shift; |
42 |
44 |
43 print(" Instrument Characteristics:\n"); |
45 print(" Instrument Characteristics:\n"); |
44 |
46 |
45 printf("\tCPU_SERIAL_NUMBER\t\t= %s\n",$hdr{CPU_SERIAL_NUMBER}); |
47 if (defined($hdr{SERIAL_NUMBER})) { |
|
48 printf("\tINSTRUMENT\t\t\t= %s #%d\n",$hdr{INSTRUMENT_TYPE},$hdr{SERIAL_NUMBER}); |
|
49 } else { |
|
50 printf("\tINSTRUMENT_TYPE\t\t\t= %s\n",$hdr{INSTRUMENT_TYPE}); |
|
51 } |
|
52 printf("\tCPU_SERIAL_NUMBER\t\t= %s\n",$hdr{CPU_SERIAL_NUMBER}) |
|
53 unless ($hdr{INSTRUMENT_TYPE} eq 'Explorer'); |
46 printf("\tFIRMWARE\t\t\t= %d.%d\n",$hdr{CPU_FW_VER},$hdr{CPU_FW_REV}); |
54 printf("\tFIRMWARE\t\t\t= %d.%d\n",$hdr{CPU_FW_VER},$hdr{CPU_FW_REV}); |
47 printf("\tBEAM_FREQUENCY\t\t\t= %d kHz\n",$hdr{BEAM_FREQUENCY}); |
55 printf("\tBEAM_FREQUENCY\t\t\t= %d kHz\n",$hdr{BEAM_FREQUENCY}); |
48 printf("\tBEAM_ANGLE\t\t\t= %d deg\n",$hdr{BEAM_ANGLE}); |
56 printf("\tBEAM_ANGLE\t\t\t= %d deg\n",$hdr{BEAM_ANGLE}); |
49 printf("\tN_BEAMS\t\t\t\t= %d\n",$hdr{N_BEAMS}); |
57 printf("\tN_BEAMS\t\t\t\t= %d\n",$hdr{N_BEAMS}); |
50 printf("\tN_DEMODS\t\t\t= %d\n",$hdr{N_DEMODS}) if defined($hdr{N_DEMODS}); |
58 printf("\tN_DEMODS\t\t\t= %d\n",$hdr{N_DEMODS}) if defined($hdr{N_DEMODS}); |
65 print("\n"); |
73 print("\n"); |
66 |
74 |
67 |
75 |
68 print(" File Format:\n"); |
76 print(" File Format:\n"); |
69 |
77 |
70 printf("\tDATA_FORMAT\t\t\t= %s (variant %d)\n", |
|
71 $hdr{DATA_FORMAT},$hdr{DATA_FORMAT_VARIANT}); |
|
72 printf("\tNUMBER_OF_DATA_TYPES\t\t= %d\n",$hdr{NUMBER_OF_DATA_TYPES}); |
78 printf("\tNUMBER_OF_DATA_TYPES\t\t= %d\n",$hdr{NUMBER_OF_DATA_TYPES}); |
|
79 printf("\tFIXED_LEADER_BYTES\t\t= %3d bytes\n",$hdr{FIXED_LEADER_BYTES}); |
73 printf("\tENSEMBLE_BYTES\t\t\t= %3d bytes\n",$hdr{ENSEMBLE_BYTES}); |
80 printf("\tENSEMBLE_BYTES\t\t\t= %3d bytes\n",$hdr{ENSEMBLE_BYTES}); |
74 printf("\tHEADER_BYTES\t\t\t= %3d bytes\n",$hdr{HEADER_BYTES}); |
81 printf("\tHEADER_BYTES\t\t\t= %3d bytes\n",$hdr{HEADER_BYTES}); |
75 printf("\tFIXED_LEADER_BYTES\t\t= %3d bytes\n",$hdr{FIXED_LEADER_BYTES}); |
|
76 printf("\tVARIABLE_LEADER_BYTES\t\t= %3d bytes\n",$hdr{VARIABLE_LEADER_BYTES}); |
82 printf("\tVARIABLE_LEADER_BYTES\t\t= %3d bytes\n",$hdr{VARIABLE_LEADER_BYTES}); |
77 printf("\tVELOCITY_DATA_BYTES\t\t= %3d bytes\n",$hdr{VELOCITY_DATA_BYTES}); |
83 printf("\tVELOCITY_DATA_BYTES\t\t= %3d bytes\n",$hdr{VELOCITY_DATA_BYTES}); |
78 printf("\tCORRELATION_DATA_BYTES\t\t= %3d bytes\n",$hdr{CORRELATION_DATA_BYTES}); |
84 printf("\tCORRELATION_DATA_BYTES\t\t= %3d bytes\n",$hdr{CORRELATION_DATA_BYTES}); |
79 printf("\tECHO_INTENSITY_DATA_BYTES\t= %3d bytes\n",$hdr{ECHO_INTENSITY_DATA_BYTES}); |
85 printf("\tECHO_INTENSITY_DATA_BYTES\t= %3d bytes\n",$hdr{ECHO_INTENSITY_DATA_BYTES}); |
80 printf("\tPERCENT_GOOD_DATA_BYTES\t\t= %3d bytes\n",$hdr{PERCENT_GOOD_DATA_BYTES}); |
86 printf("\tPERCENT_GOOD_DATA_BYTES\t\t= %3d bytes\n",$hdr{PERCENT_GOOD_DATA_BYTES}); |