[59] | 1 | #include "nmea0183.h"
|
---|
| 2 | #pragma hdrstop
|
---|
| 3 |
|
---|
| 4 | /*
|
---|
| 5 | ** Author: Samuel R. Blackburn
|
---|
| 6 | ** Internet: sam_blackburn@pobox.com
|
---|
| 7 | **
|
---|
| 8 | ** You can use it any way you like as long as you don't try to sell it.
|
---|
| 9 | **
|
---|
| 10 | ** Copyright, 1996, Samuel R. Blackburn
|
---|
| 11 | **
|
---|
| 12 | ** $Workfile: dcn.cpp $
|
---|
| 13 | ** $Revision: 5 $
|
---|
| 14 | ** $Modtime: 10/10/98 2:46p $
|
---|
| 15 | */
|
---|
| 16 |
|
---|
| 17 |
|
---|
| 18 | DCN::DCN()
|
---|
| 19 | {
|
---|
| 20 | Mnemonic = "DCN";
|
---|
| 21 | Empty();
|
---|
| 22 | }
|
---|
| 23 |
|
---|
| 24 | DCN::~DCN()
|
---|
| 25 | {
|
---|
| 26 | //Mnemonic.Empty();
|
---|
| 27 | Empty();
|
---|
| 28 | }
|
---|
| 29 |
|
---|
| 30 | void DCN::Empty( void )
|
---|
| 31 | {
|
---|
| 32 | DeccaChainID = 0;
|
---|
| 33 | Red.Empty();
|
---|
| 34 | Green.Empty();
|
---|
| 35 | Purple.Empty();
|
---|
| 36 | RedLineNavigationUse = NMEA_Unknown;
|
---|
| 37 | GreenLineNavigationUse = NMEA_Unknown;
|
---|
| 38 | PurpleLineNavigationUse = NMEA_Unknown;
|
---|
| 39 | PositionUncertaintyNauticalMiles = 0.0;
|
---|
| 40 | Basis = BasisUnknown;
|
---|
| 41 | }
|
---|
| 42 |
|
---|
| 43 | BOOL DCN::Parse( const SENTENCE& sentence )
|
---|
| 44 | {
|
---|
| 45 | /*
|
---|
| 46 | ** DCN - Decca Position
|
---|
| 47 | ** 11 13 16
|
---|
| 48 | ** 1 2 3 4 5 6 7 8 9 10| 12| 14 15| 17
|
---|
| 49 | ** | | | | | | | | | | | | | | | | |
|
---|
| 50 | ** $--DCN,xx,cc,x.x,A,cc,x.x,A,cc,x.x,A,A,A,A,x.x,N,x*hh<CR><LF>
|
---|
| 51 | **
|
---|
| 52 | ** 1) Decca chain identifier
|
---|
| 53 | ** 2) Red Zone Identifier
|
---|
| 54 | ** 3) Red Line Of Position
|
---|
| 55 | ** 4) Red Master Line Status
|
---|
| 56 | ** 5) Green Zone Identifier
|
---|
| 57 | ** 6) Green Line Of Position
|
---|
| 58 | ** 7) Green Master Line Status
|
---|
| 59 | ** 8) Purple Zone Identifier
|
---|
| 60 | ** 9) Purple Line Of Position
|
---|
| 61 | ** 10) Purple Master Line Status
|
---|
| 62 | ** 11) Red Line Navigation Use
|
---|
| 63 | ** 12) Green Line Navigation Use
|
---|
| 64 | ** 13) Purple Line Navigation Use
|
---|
| 65 | ** 14) Position Uncertainity
|
---|
| 66 | ** 15) N = Nautical Miles
|
---|
| 67 | ** 16) Fix Data Basis
|
---|
| 68 | ** 1 = Normal Pattern
|
---|
| 69 | ** 2 = Lane Identification Pattern
|
---|
| 70 | ** 3 = Lane Identification Transmissions
|
---|
| 71 | ** 17) Checksum
|
---|
| 72 | */
|
---|
| 73 |
|
---|
| 74 | /*
|
---|
| 75 | ** First we check the checksum...
|
---|
| 76 | */
|
---|
| 77 |
|
---|
| 78 | if ( sentence.IsChecksumBad( 17 ) == True )
|
---|
| 79 | {
|
---|
| 80 | SetErrorMessage( "Invalid Checksum" );
|
---|
| 81 | return( FALSE );
|
---|
| 82 | }
|
---|
| 83 |
|
---|
| 84 | DeccaChainID = sentence.Integer( 1 );
|
---|
| 85 | Red.Parse( 2, sentence );
|
---|
| 86 | Green.Parse( 5, sentence );
|
---|
| 87 | Purple.Parse( 8, sentence );
|
---|
| 88 | RedLineNavigationUse = sentence.Boolean( 11 );
|
---|
| 89 | GreenLineNavigationUse = sentence.Boolean( 12 );
|
---|
| 90 | PurpleLineNavigationUse = sentence.Boolean( 13 );
|
---|
| 91 | PositionUncertaintyNauticalMiles = sentence.Double( 14 );
|
---|
| 92 |
|
---|
| 93 | int temp_integer = sentence.Integer( 16 );
|
---|
| 94 |
|
---|
| 95 | switch( temp_integer )
|
---|
| 96 | {
|
---|
| 97 | case 1:
|
---|
| 98 |
|
---|
| 99 | Basis = NormalPatternBasis;
|
---|
| 100 | break;
|
---|
| 101 |
|
---|
| 102 | case 2:
|
---|
| 103 |
|
---|
| 104 | Basis = LaneIdentificationPatternBasis;
|
---|
| 105 | break;
|
---|
| 106 |
|
---|
| 107 | case 3:
|
---|
| 108 |
|
---|
| 109 | Basis = LaneIdentificationTransmissionsBasis;
|
---|
| 110 | break;
|
---|
| 111 |
|
---|
| 112 | default:
|
---|
| 113 |
|
---|
| 114 | Basis = BasisUnknown;
|
---|
| 115 | break;
|
---|
| 116 | }
|
---|
| 117 |
|
---|
| 118 | return( TRUE );
|
---|
| 119 | }
|
---|
| 120 |
|
---|
| 121 | BOOL DCN::Write( SENTENCE& sentence )
|
---|
| 122 | {
|
---|
| 123 | /*
|
---|
| 124 | ** Let the parent do its thing
|
---|
| 125 | */
|
---|
| 126 |
|
---|
| 127 | RESPONSE::Write( sentence );
|
---|
| 128 |
|
---|
| 129 | sentence += DeccaChainID;
|
---|
| 130 | Red.Write( sentence );
|
---|
| 131 | Green.Write( sentence );
|
---|
| 132 | Purple.Write( sentence );
|
---|
| 133 | sentence += RedLineNavigationUse;
|
---|
| 134 | sentence += GreenLineNavigationUse;
|
---|
| 135 | sentence += PurpleLineNavigationUse;
|
---|
| 136 | sentence += PositionUncertaintyNauticalMiles;
|
---|
| 137 | sentence += "N";
|
---|
| 138 |
|
---|
| 139 | switch( Basis )
|
---|
| 140 | {
|
---|
| 141 | case NormalPatternBasis:
|
---|
| 142 |
|
---|
| 143 | sentence += 1;
|
---|
| 144 | break;
|
---|
| 145 |
|
---|
| 146 | case LaneIdentificationPatternBasis:
|
---|
| 147 |
|
---|
| 148 | sentence += 2;
|
---|
| 149 | break;
|
---|
| 150 |
|
---|
| 151 | case LaneIdentificationTransmissionsBasis:
|
---|
| 152 |
|
---|
| 153 | sentence += 3;
|
---|
| 154 | break;
|
---|
| 155 |
|
---|
| 156 | default:
|
---|
| 157 |
|
---|
| 158 | sentence += "";
|
---|
| 159 | break;
|
---|
| 160 | }
|
---|
| 161 |
|
---|
| 162 | sentence.Finish();
|
---|
| 163 |
|
---|
| 164 | return( TRUE );
|
---|
| 165 | }
|
---|
| 166 |
|
---|
| 167 | const DCN& DCN::operator = ( const DCN& source )
|
---|
| 168 | {
|
---|
| 169 | DeccaChainID = source.DeccaChainID;
|
---|
| 170 | Red = source.Red;
|
---|
| 171 | Green = source.Green;
|
---|
| 172 | Purple = source.Purple;
|
---|
| 173 | RedLineNavigationUse = source.RedLineNavigationUse;
|
---|
| 174 | GreenLineNavigationUse = source.GreenLineNavigationUse;
|
---|
| 175 | PurpleLineNavigationUse = source.PurpleLineNavigationUse;
|
---|
| 176 | PositionUncertaintyNauticalMiles = source.PositionUncertaintyNauticalMiles;
|
---|
| 177 | Basis = source.Basis;
|
---|
| 178 |
|
---|
| 179 | return( *this );
|
---|
| 180 | }
|
---|