Vbrick codecs
setholle
Junior Member
I have been working with the vbrick 5200 and 6200 codecs. They seem to be a little difficult to program, very picky on the login and logout of the vbrick.
I was wondering if anyone had any code or had found a very successful way to monitor these codecs, and if so was it done over IP or serial?
Let me know.
Seth C. olle
I was wondering if anyone had any code or had found a very successful way to monitor these codecs, and if so was it done over IP or serial?
Let me know.
Seth C. olle
Comments
I do not know how different the 5200 and 6200 are to the 3000. But here is a module that controls the 3000, maybe it can give you some incite.
MODULE_NAME='VBrick 3000,Rev 0' (Dev dvCodec, Dev vdvCodec, Char cIPAddress[] , Char cLoginName[] , Char cLoginPass[]) (*{{PS_SOURCE_INFO(PROGRAM STATS) *) (***********************************************************) (* FILE CREATED ON: 10/18/2002 AT: 15:11:12 *) (***********************************************************) (* FILE_LAST_MODIFIED_ON: 04/30/2003 AT: 23:11:47 *) (***********************************************************) (* ORPHAN_FILE_PLATFORM: 1 *) (***********************************************************) (*!!FILE REVISION: Rev 0 *) (* REVISION DATE: 04/29/2003 *) (* *) (* COMMENTS: *) (* *) (***********************************************************) (*!!FILE REVISION: Rev 0 *) (* REVISION DATE: 10/21/2002 *) (* *) (* COMMENTS: *) (* *) (***********************************************************) (*!!FILE REVISION: *) (* REVISION DATE: 10/18/2002 *) (* *) (* COMMENTS: *) (* *) (***********************************************************) (*}}PS_SOURCE_INFO *) (***********************************************************) (***********************************************************) (* System Type : Netlinx *) (***********************************************************) (* REV HISTORY: *) (***********************************************************) (***********************************************************) (* DEVICE NUMBER DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_DEVICE dvdCodec = Dynamic_Virtual_Device (***********************************************************) (* CONSTANT DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_CONSTANT // TimeLines TL_AUDIO_RAISE_RT = 1; TL_AUDIO_LOWER_RT = 2; TL_AUDIO_RAISE_LT = 3; TL_AUDIO_LOWER_LT = 4; TL_VIDEO_CONTRAST_RAISE = 5; TL_VIDEO_CONTRAST_LOWER = 6; TL_VIDEO_HUE_RAISE = 7; TL_VIDEO_HUE_LOWER = 8; TL_VIDEO_SAT_RAISE = 9; TL_VIDEO_SAT_LOWER = 10; TL_VIDEO_BRIT_RAISE = 11; TL_VIDEO_BRIT_LOWER = 12; TL_MAINLINE = 13; // Decoder Audio DECODE_AUD_MUTE = 1; DECODE_AUD_MONO = 2; DECODE_AUD_STEREO = 3; // Decoder Video DECODE_VID_START = 4; DECODE_VID_STOP = 5; DECODE_VID_OUT_NTSC = 6; DECODE_VID_OUT_PAL = 7; DECODE_VID_IN_MPEG1 = 8; DECODE_VID_IN_MPEG2 = 9; // Encoder Audio ENCODE_AUD_START = 10; ENCODE_AUD_STOP = 11; ENCODE_AUD_MODE_MONO = 12; ENCODE_AUD_MODE_STEREO = 13; ENCODE_AUD_MODE_DUAL = 14; ENCODE_AUD_MODE_JOINT_0 = 15; ENCODE_AUD_MODE_JOINT_1 = 16; ENCODE_AUD_MODE_JOINT_2 = 17; ENCODE_AUD_MODE_JOINT_3 = 18; ENCODE_AUD_BIT_RATE_65K = 19; ENCODE_AUD_BIT_RATE_80K = 20; ENCODE_AUD_BIT_RATE_96K = 21; ENCODE_AUD_BIT_RATE_112K = 22; ENCODE_AUD_BIT_RATE_128K = 23; ENCODE_AUD_BIT_RATE_160K = 24; ENCODE_AUD_BIT_RATE_192K = 25; ENCODE_AUD_VOL_RAISE_LT = 26; ENCODE_AUD_VOL_LOWER_LT = 27; ENCODE_AUD_VOL_STOP_LT = 28; ENCODE_AUD_VOL_RAISE_RT = 29; ENCODE_AUD_VOL_LOWER_RT = 30; ENCODE_AUD_VOL_STOP_RT = 31; ENCODE_AUD_VOL_LEVEL_LT = 32; ENCODE_AUD_VOL_LEVEL_RT = 33; // Encoder Video ENCODE_VID_START = 34; ENCODE_VID_STOP = 35; ENCODE_VID_NTSC_SIF = 36; ENCODE_VID_PAL_SIF = 37; ENCODE_VID_NTSC_QSIF = 38; ENCODE_VID_PAL_QSIF = 39; ENCODE_VID_BIT_RATE_1M = 40; ENCODE_VID_BIT_RATE_1_5M = 41; ENCODE_VID_BIT_RATE_2M = 42; ENCODE_VID_BIT_RATE_2_5M = 43; ENCODE_VID_BIT_RATE_3M = 44; ENCODE_VID_CONT_RAISE = 45; ENCODE_VID_CONT_LOWER = 46; ENCODE_VID_CONT_STOP = 47; ENCODE_VID_HUE_RAISE = 48; ENCODE_VID_HUE_LOWER = 49; ENCODE_VID_HUE_STOP = 50; ENCODE_VID_SATR_RAISE = 51; ENCODE_VID_SATR_LOWER = 52; ENCODE_VID_SATR_STOP = 53; ENCODE_VID_BRIT_RAISE = 54; ENCODE_VID_BRIT_LOWER = 55; ENCODE_VID_BRIT_STOP = 56; ENCODE_VID_IN_COMPOSITE = 57; ENCODE_VID_IN_SVHS = 58; ENCODE_VID_CONT_LEVEL = 59; ENCODE_VID_HUE_LEVEL = 60; ENCODE_VID_SATR_LEVEL = 61; ENCODE_VID_BRIT_LEVEL = 62; // IP Config IP_XMIT_ENABLE = 63; IP_XMIT_DISABLE = 64; IP_XMIT_MODE_UNICAST = 65; IP_XMIT_MODE_MULTICAST = 66; IP_RCVE_MODE_UNICAST = 67; IP_RCVE_MODE_MULTICAST = 68; IP_SET_IP = 78; IP_SET_NET_MASK = 79; IP_SET_GATEWAY = 80; IP_SET_DST_IP = 81; IP_SET_DST_PORT = 82; IP_SET_RCV_IP = 83; IP_SET_RCV_PORT = 84; // Save Configuration SAVE_CONFIG = 69; IP_APPLY_CHANGES = 70; // Status STAT_DECODE_AUD = 71; STAT_DECODE_VID = 72; STAT_ENCODE_AUD = 73; STAT_ENCODE_VID = 74; STAT_IP_PROC = 75; // Passwords LOGIN_NAME = 76; LOGIN_PASS = 77; SET_LOGIN_NAME = 85; SET_LOGIN_PASS = 86; // Typical BUSY = 251; DEBUG = 252; // IP Socket SOCKET_OPEN = 255; LOGGED_IN = 254; IP_PORT = 4429; TCP = 1; UDP = 2; // Status Flags COMMAND_COMPLETE = 0; DECODER_AUDIO_OPT = 1; DECODER_VIDEO_OPT = 2; ENCODER_AUDIO_OPT = 3; ENCODER_VIDEO_OPT = 4; IP_OPTIONS = 5; (***********************************************************) (* DATA TYPE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_TYPE Structure _IPInfo { Char cDHCP[25]; Char cCodecIP[25]; Char cCodecSubMask[25]; Char cCodecGateway[25]; Char cCodecHWInterface[25]; Char cXmitMode[25]; Char cDestIP[25]; Char cDestPort[25]; Char cJoinOwnMulti[25]; Char cRcveMode[25]; Char cRcveIP[25]; Char cRcvePort[25]; } Structure _GainLevel { SInteger snLow; SInteger snMax; SInteger snInc; Integer nLowerTL; Integer nRaiseTL; SInteger snLevel; } (***********************************************************) (* VARIABLE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_VARIABLE Volatile _GainLevel uAudioVolumeLeft Volatile _GainLevel uAudioVolumeRight Volatile _GainLevel uVideoContrast Volatile _GainLevel uVideoHue Volatile _GainLevel uVideoSaturation Volatile _GainLevel uVideoBrightness Volatile _IPInfo uIPInfo Volatile Char cCodecQueue[2000]; Volatile Char cCodecBuffer[2000]; Volatile Integer nCodecStatFlags; Volatile Long lTLTimes[] = {500}; Volatile Long lTLMainTimes[] = {100}; (***********************************************************) (* LATCHING DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_LATCHING (***********************************************************) (* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) (***********************************************************) DEFINE_MUTUALLY_EXCLUSIVE (***********************************************************) (* SUBROUTINE/FUNCTION DEFINITIONS GO BELOW *) (***********************************************************) (* EXAMPLE: DEFINE_FUNCTION <RETURN_TYPE> <NAME> (<PARAMETERS>) *) (* EXAMPLE: DEFINE_CALL '<NAME>' (<PARAMETERS>) *) Define_Function InitGainLevel(_GainLevel uLevel,SInteger snLow ,SInteger snMax ,SInteger snInc ,Integer nLowerTL ,Integer nRaiseTL ,SInteger snLevel) { uLevel.snLow = snLow; uLevel.snMax = snMax; uLevel.snInc = snInc; uLevel.nLowerTL = nLowerTL; uLevel.nRaiseTL = nRaiseTL; uLevel.snLevel = snLevel; } Define_Function TimelineCreate(Long lTimelineID,Long TimelineTimes[],Long TimeLineQty,Integer nRelative,Integer nOnce) { If (!TIMELINE_ACTIVE(lTimelineID)) { Timeline_Create(lTimelineID,TimelineTimes,TimeLineQty,nRelative,nOnce); } } Define_Function TimelineKill(Long lTimelineID) { If (TIMELINE_ACTIVE(lTimelineID)) { Timeline_Kill(lTimelineID); } } Define_Function Integer ConvertLevels(_GainLevel uLevel) { Return Type_Cast(((uLevel.snLevel-uLevel.snLow) * 255) / (uLevel.snMax-uLevel.snLow)) } Define_Function RaiseLevels(_GainLevel uLevel) { Select { // Will Not Wrap Around Active ((uLevel.snLevel + uLevel.snInc) < uLevel.snMax): uLevel.snLevel = uLevel.snLevel + uLevel.snInc; // Will Wrap Around Active (uLevel.snLevel <> uLevel.snMax): uLevel.snLevel = uLevel.snMax Active (1): Timeline_Kill(uLevel.nRaiseTL); } } Define_Function LowerLevels(_GainLevel uLevel) { Select { // Will Not Wrap Around Active ((uLevel.snLevel - uLevel.snInc) > uLevel.snLow): uLevel.snLevel = uLevel.snLevel - uLevel.snInc; // Will Wrap Around Active (uLevel.snLevel <> uLevel.snLow): uLevel.snLevel = uLevel.snLow; Active (1): Timeline_Kill(uLevel.nLowerTL); } } Define_Function CommServer() { IF ((![vdvCodec,SOCKET_OPEN]) and Length_String(cIPAddress) and dvCodec.Number == 0 and Length_String(cCodecQueue)) { IP_CLIENT_OPEN(dvCodec.Port,cIPAddress,IP_PORT,TCP); } If ([vdvCodec,LOGGED_IN]) PopOffQueue() } Define_Function PopOffQueue() { If (![vdvCodec,BUSY] and Length_String(cCodecQueue)) { Send_String dvCodec,"Remove_String(cCodecQueue,"13",1)"; Set_Pulse_Time(40); Pulse[dvdCodec,BUSY] Set_Pulse_Time(5); Cancel_Wait 'Close Ip Socket' Wait 100 'Close Ip Socket' { IP_CLIENT_CLOSE(dvCodec.Port); } } } Define_Function PushBackQueue(Char cMsg[]) { cCodecQueue = "cCodecQueue,cMsg,13" } Define_Function PushBackStack(Char cMsg[]) { cCodecQueue = "cMsg,cCodecQueue,13" } Define_Function CodecFunc(Dev dvCodec,Integer nFunc,Char cData[]) { Stack_Var Char cMsg[100]; Switch (nFunc) { Case DECODE_AUD_MUTE: { cMsg = 'CDA:3:1'; On[dvdCodec,DECODE_AUD_MUTE]; Off[dvdCodec,DECODE_AUD_MONO]; Off[dvdCodec,DECODE_AUD_STEREO]; } Case DECODE_AUD_MONO: { cMsg = 'CDA:3:2'; Off[dvdCodec,DECODE_AUD_MUTE]; On[dvdCodec,DECODE_AUD_MONO]; Off[dvdCodec,DECODE_AUD_STEREO]; } Case DECODE_AUD_STEREO: { cMsg = 'CDA:3:3'; Off[dvdCodec,DECODE_AUD_MUTE]; Off[dvdCodec,DECODE_AUD_MONO]; On[dvdCodec,DECODE_AUD_STEREO]; } Case DECODE_VID_START: { cMsg = 'CDV:2'; On[dvdCodec,DECODE_VID_START]; Off[dvdCodec,DECODE_VID_STOP]; } Case DECODE_VID_STOP: { cMsg = 'CDV:3'; Off[dvdCodec,DECODE_VID_START]; On[dvdCodec,DECODE_VID_STOP]; } Case DECODE_VID_OUT_NTSC: { cMsg = 'CDV:5:1'; On[dvdCodec,DECODE_VID_OUT_NTSC]; Off[dvdCodec,DECODE_VID_OUT_PAL]; } Case DECODE_VID_OUT_PAL: { cMsg = 'CDV:5:2'; Off[dvdCodec,DECODE_VID_OUT_NTSC]; On[dvdCodec,DECODE_VID_OUT_PAL]; } Case DECODE_VID_IN_MPEG1: { cMsg = 'CDV:6:1'; On[dvdCodec,DECODE_VID_IN_MPEG1]; Off[dvdCodec,DECODE_VID_IN_MPEG2]; } Case DECODE_VID_IN_MPEG2: { cMsg = 'CDV:6:2'; Off[dvdCodec,DECODE_VID_IN_MPEG1]; On[dvdCodec,DECODE_VID_IN_MPEG2]; } Case ENCODE_AUD_START: { cMsg = 'CEA:2'; On[dvdCodec,ENCODE_AUD_START]; Off[dvdCodec,ENCODE_AUD_STOP]; } Case ENCODE_AUD_STOP: { cMsg = 'CEA:3'; Off[dvdCodec,ENCODE_AUD_START]; On[dvdCodec,ENCODE_AUD_STOP]; } Case ENCODE_AUD_MODE_MONO: { cMsg = 'CEA:5:1'; On[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_STEREO: { cMsg = 'CEA:5:2'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; On[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_DUAL: { cMsg = 'CEA:5:3'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; On[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_JOINT_0: { cMsg = 'CEA:5:4'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; On[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_JOINT_1: { cMsg = 'CEA:5:5'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; On[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_JOINT_2: { cMsg = 'CEA:5:6'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; On[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_MODE_JOINT_3: { cMsg = 'CEA:5:7'; Off[dvdCodec,ENCODE_AUD_MODE_MONO]; Off[dvdCodec,ENCODE_AUD_MODE_STEREO]; Off[dvdCodec,ENCODE_AUD_MODE_DUAL]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_0]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_1]; Off[dvdCodec,ENCODE_AUD_MODE_JOINT_2]; On[dvdCodec,ENCODE_AUD_MODE_JOINT_3]; } Case ENCODE_AUD_BIT_RATE_65K: { cMsg = 'CEA:6:4'; On[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_80K: { cMsg = 'CEA:6:5'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_96K: { cMsg = 'CEA:6:6'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_112K: { cMsg = 'CEA:6:7'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_128K: { cMsg = 'CEA:6:8'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_160K: { cMsg = 'CEA:6:9'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_BIT_RATE_192K: { cMsg = 'CEA:6:10'; Off[dvdCodec,ENCODE_AUD_BIT_RATE_65K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_80K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_96K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_112K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_128K]; Off[dvdCodec,ENCODE_AUD_BIT_RATE_160K]; On[dvdCodec,ENCODE_AUD_BIT_RATE_192K]; } Case ENCODE_AUD_VOL_LEVEL_LT: { PushBackStack("'CEA:7:',cData") } Case ENCODE_AUD_VOL_LEVEL_RT: { PushBackStack("'CEA:8:',cData") } Case ENCODE_AUD_VOL_RAISE_LT: { RaiseLevels(uAudioVolumeLeft); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_LT,Itoa(uAudioVolumeRight.snLevel)); TimelineKill(TL_AUDIO_LOWER_LT); TimelineCreate(TL_AUDIO_RAISE_LT,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_AUD_VOL_RAISE_LT]; Off[dvdCodec,ENCODE_AUD_VOL_LOWER_LT]; Off[dvdCodec,ENCODE_AUD_VOL_STOP_LT]; } Case ENCODE_AUD_VOL_LOWER_LT: { RaiseLevels(uAudioVolumeLeft); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_LT,Itoa(uAudioVolumeRight.snLevel)); TimelineKill(TL_AUDIO_RAISE_LT); TimelineCreate(TL_AUDIO_LOWER_LT,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_AUD_VOL_RAISE_LT]; On[dvdCodec,ENCODE_AUD_VOL_LOWER_LT]; Off[dvdCodec,ENCODE_AUD_VOL_STOP_LT]; } Case ENCODE_AUD_VOL_STOP_LT: { TimelineKill(TL_AUDIO_RAISE_LT); TimelineKill(TL_AUDIO_LOWER_LT); Off[dvdCodec,ENCODE_AUD_VOL_RAISE_LT]; Off[dvdCodec,ENCODE_AUD_VOL_LOWER_LT]; On[dvdCodec,ENCODE_AUD_VOL_STOP_LT]; } Case ENCODE_AUD_VOL_RAISE_RT: { RaiseLevels(uAudioVolumeRight); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_RT,Itoa(uAudioVolumeRight.snLevel)); TimelineKill(TL_AUDIO_LOWER_RT); TimelineCreate(TL_AUDIO_RAISE_RT,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_AUD_VOL_RAISE_RT]; Off[dvdCodec,ENCODE_AUD_VOL_LOWER_RT]; Off[dvdCodec,ENCODE_AUD_VOL_STOP_RT]; } Case ENCODE_AUD_VOL_LOWER_RT: { RaiseLevels(uAudioVolumeRight); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_RT,Itoa(uAudioVolumeRight.snLevel)); TimelineKill(TL_AUDIO_RAISE_RT); TimelineCreate(TL_AUDIO_LOWER_RT,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_AUD_VOL_RAISE_RT]; On[dvdCodec,ENCODE_AUD_VOL_LOWER_RT]; Off[dvdCodec,ENCODE_AUD_VOL_STOP_RT]; } Case ENCODE_AUD_VOL_STOP_RT: { TimelineKill(TL_AUDIO_RAISE_RT); TimelineKill(TL_AUDIO_LOWER_RT); Off[dvdCodec,ENCODE_AUD_VOL_RAISE_RT]; Off[dvdCodec,ENCODE_AUD_VOL_LOWER_RT]; On[dvdCodec,ENCODE_AUD_VOL_STOP_RT]; } Case ENCODE_VID_START: { cMsg = 'CEV:2'; On[dvdCodec,ENCODE_VID_START]; Off[dvdCodec,ENCODE_VID_STOP]; } Case ENCODE_VID_STOP: { cMsg = 'CEV:3'; Off[dvdCodec,ENCODE_VID_START]; On[dvdCodec,ENCODE_VID_STOP]; } Case ENCODE_VID_NTSC_SIF: { cMsg = 'CEV:4:1'; On[dvdCodec,ENCODE_VID_NTSC_SIF]; Off[dvdCodec,ENCODE_VID_PAL_SIF]; Off[dvdCodec,ENCODE_VID_NTSC_QSIF]; Off[dvdCodec,ENCODE_VID_PAL_QSIF]; } Case ENCODE_VID_PAL_SIF: { cMsg = 'CEV:4:2'; Off[dvdCodec,ENCODE_VID_NTSC_SIF]; On[dvdCodec,ENCODE_VID_PAL_SIF]; Off[dvdCodec,ENCODE_VID_NTSC_QSIF]; Off[dvdCodec,ENCODE_VID_PAL_QSIF]; } Case ENCODE_VID_NTSC_QSIF: { cMsg = 'CEV:4:3'; Off[dvdCodec,ENCODE_VID_NTSC_SIF]; Off[dvdCodec,ENCODE_VID_PAL_SIF]; On[dvdCodec,ENCODE_VID_NTSC_QSIF]; Off[dvdCodec,ENCODE_VID_PAL_QSIF]; } Case ENCODE_VID_PAL_QSIF: { cMsg = 'CEV:4:4'; Off[dvdCodec,ENCODE_VID_NTSC_SIF]; Off[dvdCodec,ENCODE_VID_PAL_SIF]; Off[dvdCodec,ENCODE_VID_NTSC_QSIF]; On[dvdCodec,ENCODE_VID_PAL_QSIF]; } Case ENCODE_VID_BIT_RATE_1M: { cMsg = 'CEV:5:1000'; On[dvdCodec,ENCODE_VID_BIT_RATE_1M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_1_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_3M]; } Case ENCODE_VID_BIT_RATE_1_5M: { cMsg = 'CEV:5:1500'; Off[dvdCodec,ENCODE_VID_BIT_RATE_1M]; On[dvdCodec,ENCODE_VID_BIT_RATE_1_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_3M]; } Case ENCODE_VID_BIT_RATE_2M: { cMsg = 'CEV:5:2000'; Off[dvdCodec,ENCODE_VID_BIT_RATE_1M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_1_5M]; On[dvdCodec,ENCODE_VID_BIT_RATE_2M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_3M]; } Case ENCODE_VID_BIT_RATE_2_5M: { cMsg = 'CEV:5:2500'; Off[dvdCodec,ENCODE_VID_BIT_RATE_1M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_1_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2M]; On[dvdCodec,ENCODE_VID_BIT_RATE_2_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_3M]; } Case ENCODE_VID_BIT_RATE_3M: { cMsg = 'CEV:5:3000'; Off[dvdCodec,ENCODE_VID_BIT_RATE_1M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_1_5M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2M]; Off[dvdCodec,ENCODE_VID_BIT_RATE_2_5M]; On[dvdCodec,ENCODE_VID_BIT_RATE_3M]; } Case ENCODE_VID_IN_COMPOSITE: { cMsg = 'CEV:9:1'; On[dvdCodec,ENCODE_VID_IN_COMPOSITE]; Off[dvdCodec,ENCODE_VID_IN_SVHS]; } Case ENCODE_VID_IN_SVHS: { cMsg = 'CEV:9:2'; Off[dvdCodec,ENCODE_VID_IN_COMPOSITE]; On[dvdCodec,ENCODE_VID_IN_SVHS]; } Case ENCODE_VID_BRIT_LEVEL: { PushBackStack("'CEV:10:',cData") } Case ENCODE_VID_CONT_LEVEL: { PushBackStack("'CEV:11:',cData") } Case ENCODE_VID_HUE_LEVEL: { PushBackStack("'CEV:12:',cData") } Case ENCODE_VID_SATR_LEVEL: { PushBackStack("'CEV:13:',cData") } Case ENCODE_VID_CONT_RAISE: { RaiseLevels(uVideoContrast); CodecFunc(dvCodec,ENCODE_VID_CONT_LEVEL,Itoa(uVideoContrast.snLevel)); TimelineKill(TL_VIDEO_CONTRAST_LOWER); TimelineCreate(TL_VIDEO_CONTRAST_RAISE,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_VID_CONT_RAISE]; Off[dvdCodec,ENCODE_VID_CONT_LOWER]; Off[dvdCodec,ENCODE_VID_CONT_STOP]; } Case ENCODE_VID_CONT_LOWER: { LowerLevels(uVideoContrast); CodecFunc(dvCodec,ENCODE_VID_CONT_LEVEL,Itoa(uVideoContrast.snLevel)); TimelineKill(TL_VIDEO_CONTRAST_RAISE); TimelineCreate(TL_VIDEO_CONTRAST_LOWER,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_VID_CONT_RAISE]; On[dvdCodec,ENCODE_VID_CONT_LOWER]; Off[dvdCodec,ENCODE_VID_CONT_STOP]; } Case ENCODE_VID_CONT_STOP: { TimelineKill(TL_VIDEO_CONTRAST_RAISE); TimelineKill(TL_VIDEO_CONTRAST_LOWER) Off[dvdCodec,ENCODE_VID_CONT_RAISE]; Off[dvdCodec,ENCODE_VID_CONT_LOWER]; On[dvdCodec,ENCODE_VID_CONT_STOP]; } Case ENCODE_VID_HUE_RAISE: { RaiseLevels(uVideoHue); CodecFunc(dvCodec,ENCODE_VID_HUE_LEVEL,Itoa(uVideoHue.snLevel)); TimelineKill(TL_VIDEO_HUE_LOWER); TimelineCreate(TL_VIDEO_HUE_RAISE,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_VID_HUE_RAISE]; Off[dvdCodec,ENCODE_VID_HUE_LOWER]; Off[dvdCodec,ENCODE_VID_HUE_STOP]; } Case ENCODE_VID_HUE_LOWER: { RaiseLevels(uVideoHue); CodecFunc(dvCodec,ENCODE_VID_HUE_LEVEL,Itoa(uVideoHue.snLevel)); TimelineKill(TL_VIDEO_HUE_RAISE); TimelineCreate(TL_VIDEO_HUE_LOWER,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_VID_HUE_RAISE]; On[dvdCodec,ENCODE_VID_HUE_LOWER]; Off[dvdCodec,ENCODE_VID_HUE_STOP]; } Case ENCODE_VID_HUE_STOP: { TimelineKill(TL_VIDEO_HUE_RAISE); TimelineKill(TL_VIDEO_HUE_LOWER); Off[dvdCodec,ENCODE_VID_HUE_RAISE]; Off[dvdCodec,ENCODE_VID_HUE_LOWER]; On[dvdCodec,ENCODE_VID_HUE_STOP]; } Case ENCODE_VID_SATR_RAISE: { RaiseLevels(uVideoSaturation); CodecFunc(dvCodec,ENCODE_VID_SATR_LEVEL,Itoa(uVideoSaturation.snLevel)); TimelineKill(TL_VIDEO_SAT_LOWER); TimelineCreate(TL_VIDEO_SAT_RAISE,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_VID_SATR_RAISE]; Off[dvdCodec,ENCODE_VID_SATR_LOWER]; Off[dvdCodec,ENCODE_VID_SATR_STOP]; } Case ENCODE_VID_SATR_LOWER: { LowerLevels(uVideoSaturation); CodecFunc(dvCodec,ENCODE_VID_SATR_LEVEL,Itoa(uVideoSaturation.snLevel)); TimelineKill(TL_VIDEO_SAT_RAISE); TimelineCreate(TL_VIDEO_SAT_LOWER,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_VID_SATR_RAISE]; On[dvdCodec,ENCODE_VID_SATR_LOWER]; Off[dvdCodec,ENCODE_VID_SATR_STOP]; } Case ENCODE_VID_SATR_STOP: { TimelineKill(TL_VIDEO_SAT_RAISE); TimelineKill(TL_VIDEO_SAT_LOWER); Off[dvdCodec,ENCODE_VID_SATR_RAISE]; Off[dvdCodec,ENCODE_VID_SATR_LOWER]; On[dvdCodec,ENCODE_VID_SATR_STOP]; } Case ENCODE_VID_BRIT_RAISE: { RaiseLevels(uVideoBrightness); CodecFunc(dvCodec,ENCODE_VID_BRIT_LEVEL,Itoa(uVideoBrightness.snLevel)); TimelineKill(TL_VIDEO_BRIT_LOWER); TimelineCreate(TL_VIDEO_BRIT_RAISE,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); On[dvdCodec,ENCODE_VID_BRIT_RAISE]; Off[dvdCodec,ENCODE_VID_BRIT_LOWER]; Off[dvdCodec,ENCODE_VID_BRIT_STOP]; } Case ENCODE_VID_BRIT_LOWER: { LowerLevels(uVideoBrightness); CodecFunc(dvCodec,ENCODE_VID_BRIT_LEVEL,Itoa(uVideoBrightness.snLevel)); TimelineKill(TL_VIDEO_BRIT_RAISE); TimelineCreate(TL_VIDEO_BRIT_LOWER,lTLTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT); Off[dvdCodec,ENCODE_VID_BRIT_RAISE]; On[dvdCodec,ENCODE_VID_BRIT_LOWER]; Off[dvdCodec,ENCODE_VID_BRIT_STOP]; } Case ENCODE_VID_BRIT_STOP: { TimelineKill(TL_VIDEO_BRIT_RAISE); TimelineKill(TL_VIDEO_BRIT_LOWER); Off[dvdCodec,ENCODE_VID_BRIT_RAISE]; Off[dvdCodec,ENCODE_VID_BRIT_LOWER]; On[dvdCodec,ENCODE_VID_BRIT_STOP]; } Case IP_XMIT_ENABLE: { cMsg = 'CIP:19:2'; On[dvdCodec,IP_XMIT_ENABLE]; Off[dvdCodec,IP_XMIT_DISABLE]; } Case IP_XMIT_DISABLE: { cMsg = 'CIP:19:1'; Off[dvdCodec,IP_XMIT_ENABLE]; On[dvdCodec,IP_XMIT_DISABLE]; } Case IP_XMIT_MODE_UNICAST: { cMsg = 'CIP:7:1'; On[dvdCodec,IP_XMIT_MODE_UNICAST]; Off[dvdCodec,IP_XMIT_MODE_MULTICAST]; } Case IP_XMIT_MODE_MULTICAST: { cMsg = 'CIP:7:2'; Off[dvdCodec,IP_XMIT_MODE_UNICAST]; On[dvdCodec,IP_XMIT_MODE_MULTICAST]; } Case IP_RCVE_MODE_UNICAST: { cMsg = 'CIP:10:1'; On[dvdCodec,IP_RCVE_MODE_UNICAST]; Off[dvdCodec,IP_RCVE_MODE_MULTICAST]; } Case IP_RCVE_MODE_MULTICAST: { cMsg = 'CIP:10:2'; Off[dvdCodec,IP_RCVE_MODE_UNICAST]; On[dvdCodec,IP_RCVE_MODE_MULTICAST]; } Case STAT_DECODE_AUD: { cMsg = 'CDA:1'; Pulse[dvdCodec,STAT_DECODE_AUD]; } Case STAT_DECODE_VID: { cMsg = 'CDV:1'; Pulse[dvdCodec,STAT_DECODE_VID]; } Case STAT_ENCODE_AUD: { cMsg = 'CEA:1'; Pulse[dvdCodec,STAT_ENCODE_AUD]; } Case STAT_ENCODE_VID: { cMsg = 'CEV:1'; Pulse[dvdCodec,STAT_ENCODE_VID]; } Case STAT_IP_PROC: { cMsg = 'CIP:1'; Pulse[dvdCodec,STAT_IP_PROC]; } Case LOGIN_NAME: { Send_String dvCodec,"cData,13" } Case LOGIN_PASS: { Send_String dvCodec,"cData,13" } Case IP_SET_IP: { cMsg = "'CIP:3:',cData"; Pulse[dvdCodec,IP_SET_IP]; } Case IP_SET_NET_MASK: { cMsg = "'CIP:4:',cData"; Pulse[dvdCodec,IP_SET_NET_MASK]; } Case IP_SET_GATEWAY: { cMsg = "'CIP:5:',cData"; Pulse[dvdCodec,IP_SET_GATEWAY]; } Case IP_SET_DST_IP: { cMsg = "'CIP:8:',cData"; Pulse[dvdCodec,IP_SET_DST_IP]; } Case IP_SET_DST_PORT: { cMsg = "'CIP:9:',cData"; Pulse[dvdCodec,IP_SET_DST_PORT]; } Case IP_SET_RCV_IP: { cMsg = "'CIP:11:',cData"; Pulse[dvdCodec,IP_SET_RCV_IP]; } Case IP_SET_RCV_PORT: { cMsg = "'CIP:12:',cData"; Pulse[dvdCodec,IP_SET_RCV_PORT]; } Case IP_APPLY_CHANGES: { cMsg = "'CIP:22'"; Pulse[dvdCodec,IP_APPLY_CHANGES]; } Case SET_LOGIN_NAME: { cMsg = "'CPW:2:',cData"; Pulse[dvdCodec,SET_LOGIN_NAME]; } Case SET_LOGIN_PASS: { cMsg = "'CPW:3:',cData"; Pulse[dvdCodec,SET_LOGIN_PASS]; } } If (Length_String(cMsg)) { PushBackQueue(cMsg); } } (* Send Command Parse **************************************) Define_Function ParseCommands(Char cCmd[]) { Stack_Var Char cTrash[100]; cCmd = Upper_String(cCmd); Select { Active (Find_String(cCmd,"'CODEC IP-'",1)): { cTrash = Remove_String(cCmd,"'CODEC IP-'",1); CodecFunc(dvCodec,IP_SET_IP,cCmd); } Active (Find_String(cCmd,"'CODEC NETMASK-'",1)): { cTrash = Remove_String(cCmd,"'CODEC NETMASK-'",1); CodecFunc(dvCodec,IP_SET_NET_MASK,cCmd); } Active (Find_String(cCmd,"'CODEC GATEWAY-'",1)): { cTrash = Remove_String(cCmd,"'CODEC GATEWAY-'",1); CodecFunc(dvCodec,IP_SET_GATEWAY,cCmd); } Active (Find_String(cCmd,"'CODEC DEST IP-'",1)): { cTrash = Remove_String(cCmd,"'CODEC DEST IP-'",1); CodecFunc(dvCodec,IP_SET_DST_IP,cCmd); } Active (Find_String(cCmd,"'CODEC RCVE IP-'",1)): { cTrash = Remove_String(cCmd,"'CODEC RCVE IP-'",1); CodecFunc(dvCodec,IP_SET_RCV_IP,cCmd); } Active (Find_String(cCmd,"'CODEC DEST IP PORT-'",1)): { cTrash = Remove_String(cCmd,"'CODEC DEST IP PORT-'",1); CodecFunc(dvCodec,IP_SET_DST_PORT,cCmd); } Active (Find_String(cCmd,"'CODEC RCVE IP PORT-'",1)): { cTrash = Remove_String(cCmd,"'CODEC RCVE IP PORT-'",1); CodecFunc(dvCodec,IP_SET_RCV_PORT,cCmd); } Active (Find_String(cCmd,"'CODEC DECODE TYPE-UNICAST'",1)): { CodecFunc(dvCodec,IP_RCVE_MODE_UNICAST,cCmd); } Active (Find_String(cCmd,"'CODEC DECODE TYPE-MULTICAST'",1)): { CodecFunc(dvCodec,IP_RCVE_MODE_MULTICAST,cCmd); } Active (Find_String(cCmd,"'CODEC ENCODE TYPE-UNICAST'",1)): { CodecFunc(dvCodec,IP_XMIT_MODE_UNICAST,cCmd); } Active (Find_String(cCmd,"'CODEC ENCODE TYPE-MULTICAST'",1)): { CodecFunc(dvCodec,IP_XMIT_MODE_MULTICAST,cCmd); } Active (Find_String(cCmd,"'CODEC ENCODER STATE-RUN'",1)): { CodecFunc(dvCodec,IP_XMIT_ENABLE,cCmd); } Active (Find_String(cCmd,"'CODEC ENCODER STATE-STOP'",1)): { CodecFunc(dvCodec,IP_XMIT_DISABLE,cCmd); } Active (Find_String(cCmd,"'CODEC LOGIN NAME-'",1)): { cTrash = Remove_String(cCmd,"'CODEC LOGIN NAME-'",1); CodecFunc(dvCodec,SET_LOGIN_NAME,cCmd); } Active (Find_String(cCmd,"'CODEC LOGIN PASS-'",1)): { cTrash = Remove_String(cCmd,"'CODEC LOGIN PASS-'",1); CodecFunc(dvCodec,SET_LOGIN_PASS,cCmd); } } } (* Incoming Buffer Parsing *********************************) Define_Function Char[1000] PickOutWord(Char cMsg[]) { Stack_Var Char cTrash[100],cChar; Stack_Var Integer nIndex; Set_Length_String(cMsg,Length_String(cMsg)-1) cTrash = Remove_String(cMsg,':',1); For (nIndex = 1;Left_String(cMsg,1) == ' ';nIndex++) cChar = Get_Buffer_Char(cMsg); Return cMsg; } Define_Function ParseDecoderAudioOpt(Char cMsg[]) { Select { Active (Find_String(cMsg,"'Mode:'",1)): { [dvdCodec,DECODE_AUD_MUTE] = Find_String(cMsg,"'Mute'",1); [dvdCodec,DECODE_AUD_MONO] = Find_String(cMsg,"'Monoaural'",1); [dvdCodec,DECODE_AUD_STEREO] = Find_String(cMsg,"'Stereo'",1); } Active (Find_String(cMsg,"'Sampling Frequency:'",1)): { // Do not Care!!! } } } Define_Function ParseDecoderVideoOpt(Char cMsg[]) { Select { Active (Find_String(cMsg,"'Output:'",1)): { [dvdCodec,DECODE_VID_OUT_NTSC] = Find_String(cMsg,"'NTSC'",1); [dvdCodec,DECODE_VID_OUT_PAL] = Find_String(cMsg,"'PAL'",1); } Active (Find_String(cMsg,"'Bitstream Type:'",1)): { [dvdCodec,DECODE_VID_IN_MPEG1] = Find_String(cMsg,"'MPEG-1'",1); [dvdCodec,DECODE_VID_IN_MPEG2] = Find_String(cMsg,"'MPEG-2'",1); } Active (Find_String(cMsg,"'Overlay:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'No Data Mode:'",1)): { // Do not Care!!! } } } Define_Function ParseEncoderAudioOpt(Char cMsg[]) { Select { Active (Find_String(cMsg,"'Mode:'",1)): { [dvdCodec,ENCODE_AUD_MODE_MONO] = Find_String(cMsg,"'Mono'",1); [dvdCodec,ENCODE_AUD_MODE_STEREO] = Find_String(cMsg,"'Stereo'",1); [dvdCodec,ENCODE_AUD_MODE_DUAL] = Find_String(cMsg,"'Dual Channel'",1); [dvdCodec,ENCODE_AUD_MODE_JOINT_0] = Find_String(cMsg,"'Joint Stereo Mode 0'",1); [dvdCodec,ENCODE_AUD_MODE_JOINT_1] = Find_String(cMsg,"'Joint Stereo Mode 1'",1); [dvdCodec,ENCODE_AUD_MODE_JOINT_2] = Find_String(cMsg,"'Joint Stereo Mode 2'",1); [dvdCodec,ENCODE_AUD_MODE_JOINT_3] = Find_String(cMsg,"'Joint Stereo Mode 3'",1); } Active (Find_String(cMsg,"'Sampling Frequency:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'Bit Rate:'",1)): { [dvdCodec,ENCODE_AUD_BIT_RATE_65K] = Find_String(cMsg,"'65K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_80K] = Find_String(cMsg,"'80K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_96K] = Find_String(cMsg,"'96K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_112K] = Find_String(cMsg,"'112K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_128K] = Find_String(cMsg,"'128K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_160K] = Find_String(cMsg,"'160K'",1); [dvdCodec,ENCODE_AUD_BIT_RATE_192K] = Find_String(cMsg,"'192K'",1); } Active (Find_String(cMsg,"'Left Channel Gain:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uAudioVolumeLeft.snLevel = Atoi(Right_String(cMsg,4)); } Active (Find_String(cMsg,"'Right Channel Gain:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uAudioVolumeRight.snLevel = Atoi(Right_String(cMsg,4)); } } } Define_Function ParseEncoderVideoOpt(Char cMsg[]) { Select { Active (Find_String(cMsg,"'Video Format:'",1)): { [dvdCodec,ENCODE_VID_NTSC_SIF] = Find_String(cMsg,'NTSC/SIF',1); [dvdCodec,ENCODE_VID_PAL_SIF] = Find_String(cMsg,'PAL/SIF',1); [dvdCodec,ENCODE_VID_NTSC_QSIF] = Find_String(cMsg,'NTSC-QSIF',1); [dvdCodec,ENCODE_VID_PAL_QSIF] = Find_String(cMsg,'PAL/QSIF',1); } Active (Find_String(cMsg,"'Input Type:'",1)): { [dvdCodec,ENCODE_VID_IN_COMPOSITE] = Find_String(cMsg,'Composite',1); [dvdCodec,ENCODE_VID_IN_SVHS] = Find_String(cMsg,'S-VHS',1); } Active (Find_String(cMsg,"'Bit Rate:'",1)): { [dvdCodec,ENCODE_VID_BIT_RATE_1M] = Find_String(cMsg,'1000000',1); [dvdCodec,ENCODE_VID_BIT_RATE_1_5M] = Find_String(cMsg,'1500000',1); [dvdCodec,ENCODE_VID_BIT_RATE_2M] = Find_String(cMsg,'2000000',1); [dvdCodec,ENCODE_VID_BIT_RATE_2_5M] = Find_String(cMsg,'2500000',1); [dvdCodec,ENCODE_VID_BIT_RATE_3M] = Find_String(cMsg,'3000000',1); } Active (Find_String(cMsg,"'Window Vertical Offset:'",1)): { // Do Not Care!! } Active (Find_String(cMsg,"'Reference Distance (M):'",1)): { // Do Not Care!! } Active (Find_String(cMsg,"'Intra-Picture Distance (N):'",1)): { // Do Not Care!! } Active (Find_String(cMsg,"'Brightness:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uVideoBrightness.snLevel = Atoi(Right_String(cMsg,4)); } Active (Find_String(cMsg,"'Contrast:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uVideoContrast.snLevel = Atoi(Right_String(cMsg,4)); } Active (Find_String(cMsg,"'Hue:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uVideoHue.snLevel = Atoi(Right_String(cMsg,4)); } Active (Find_String(cMsg,"'Saturation:'",1)): { Set_Length_String(cMsg,Length_String(cMsg)-1); uVideoSaturation.snLevel = Atoi(Right_String(cMsg,4)); } Active (Find_String(cMsg,"'Assured Sync:'",1)): { // Do Not Care!! } } } Define_Function ParseIPOptions(Char cMsg[]) { Select { Active (Find_String(cMsg,"'DHCP:'",1)): { uIPInfo.cDHCP = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Codec IP Address:'",1)): { uIPInfo.cCodecIP = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Subnet Mask:'",1)): { uIPInfo.cCodecSubMask = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Gateway IP Address:'",1)): { uIPInfo.cCodecGateway = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Ethernet HW Interface:'",1)): { uIPInfo.cCodecHWInterface = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Transmit Mode:'",1)): { uIPInfo.cXmitMode = PickOutWord(cMsg); [dvdCodec,IP_XMIT_MODE_UNICAST] = (Upper_String(uIPInfo.cXmitMode) = 'UNICAST') [dvdCodec,IP_XMIT_MODE_MULTICAST] = (Upper_String(uIPInfo.cXmitMode) = 'MULTICAST') } Active (Find_String(cMsg,"'Destination IP Address:'",1)): { uIPInfo.cDestIP = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Destination Port:'",1)): { uIPInfo.cDestPort = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Join Own Multicast Group:'",1)): { uIPInfo.cJoinOwnMulti = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Receive Mode:'",1)): { uIPInfo.cRcveMode = PickOutWord(cMsg); [dvdCodec,IP_RCVE_MODE_UNICAST] = (Upper_String(uIPInfo.cRcveMode) = 'UNICAST') [dvdCodec,IP_RCVE_MODE_MULTICAST] = (Upper_String(uIPInfo.cRcveMode) = 'MULTICAST') } Active (Find_String(cMsg,"'Receive IP Address:'",1)): { uIPInfo.cRcveIP = PickOutWord(cMsg); } Active (Find_String(cMsg,"'Receive Port:'",1)): { uIPInfo.cRcvePort = PickOutWord(cMsg); } Active (Find_String(cMsg,"'PassThrough Dest:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'PassThrough IP Address:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'PassThrough Port:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'Video Time-To-Live:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'Type of Service:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'Poll Unicast Destination:'",1)): { // Do not Care!!! } Active (Find_String(cMsg,"'VBrick Transmit:'",1)): { // Do not Care!!! } } } Define_Function ParseChooser(Char cMsg[], Integer nCodecStatFlags) { Switch (nCodecStatFlags) { Case COMMAND_COMPLETE: Break; Case DECODER_AUDIO_OPT: ParseDecoderAudioOpt(cMsg); Case DECODER_VIDEO_OPT: ParseDecoderVideoOpt(cMsg); Case ENCODER_AUDIO_OPT: ParseEncoderAudioOpt(cMsg); Case ENCODER_VIDEO_OPT: ParseEncoderVideoOpt(cMsg); Case IP_OPTIONS: ParseIPOptions(cMsg); } } Define_Function ParseCodecResponse(Char cCodecBuffer[]) { Local_Var Char cMsg[255],cTrash[100]; Select { Active (Find_String(cCodecBuffer,"'Login:'",1)): { CodecFunc(dvCodec,LOGIN_NAME,cLoginName); cTrash = Remove_String(cCodecBuffer,"'Login:'",1) } Active (Find_String(cCodecBuffer,"'Password:'",1)): { CodecFunc(dvCodec,LOGIN_PASS,cLoginPass); cTrash = Remove_String(cCodecBuffer,"'Password:'",1) } Active (Find_String(cCodecBuffer,"'Connected'",1)): { On[dvdCodec,LOGGED_IN] cTrash = Remove_String(cCodecBuffer,"'Connected'",1) } Active (1): { cMsg = Remove_String(cCodecBuffer,"13",1) If (Length_String(cMsg)) { Select { Active (Find_String(cMsg,"'Decoder Audio Options'",1)): { nCodecStatFlags = DECODER_AUDIO_OPT; } Active (Find_String(cMsg,"'Decoder Video Options'",1)): { nCodecStatFlags = DECODER_VIDEO_OPT; } Active (Find_String(cMsg,"'Encoder Audio Options'",1)): { nCodecStatFlags = ENCODER_AUDIO_OPT; } Active (Find_String(cMsg,"'Encoder Video Options'",1)): { nCodecStatFlags = ENCODER_VIDEO_OPT; } Active (Find_String(cMsg,"'CIP:1'",1)): { nCodecStatFlags = IP_OPTIONS; } Active (Find_String(cMsg,"'Command Complete'",1)): { nCodecStatFlags = COMMAND_COMPLETE; off[dvdCodec,BUSY] } } ParseChooser(cMsg,nCodecStatFlags); } If (Find_String(cCodecBuffer,"13",1)) ParseCodecResponse(cCodecBuffer); } } }(***********************************************************) (* STARTUP CODE GOES BELOW *) (***********************************************************) DEFINE_START Translate_Device(vdvCodec,dvdCodec); (* Buffers *************************************************) Create_Buffer dvCodec,cCodecBuffer; (* Gain Level Init *****************************************) InitGainLevel(uAudioVolumeLeft ,0 ,15 ,1 ,TL_AUDIO_RAISE_LT ,TL_AUDIO_LOWER_LT ,0); InitGainLevel(uAudioVolumeRight ,0 ,15 ,1 ,TL_AUDIO_RAISE_RT ,TL_AUDIO_LOWER_RT ,0); InitGainLevel(uVideoContrast ,0 ,127 ,1 ,TL_VIDEO_CONTRAST_RAISE ,TL_VIDEO_CONTRAST_LOWER ,0); InitGainLevel(uVideoHue ,-128 ,127 ,1 ,TL_VIDEO_HUE_RAISE ,TL_VIDEO_HUE_LOWER ,0); InitGainLevel(uVideoSaturation ,0 ,127 ,1 ,TL_VIDEO_SAT_RAISE ,TL_VIDEO_SAT_LOWER ,0); InitGainLevel(uVideoBrightness ,0 ,255 ,1 ,TL_VIDEO_BRIT_RAISE ,TL_VIDEO_BRIT_LOWER ,0); Timeline_Create(TL_MAINLINE,lTLMainTimes,1,TIMELINE_ABSOLUTE,TIMELINE_REPEAT) (***********************************************************) (* System Information Strings ******************************) (* Use this section if there is a TP in the System! *) (* SEND_COMMAND TP,"'!F',250,'1'" SEND_COMMAND TP,"'TEXT250-',__NAME__" SEND_COMMAND TP,"'!F',251,'1'" SEND_COMMAND TP,"'TEXT251-',__FILE__,', ',S_DATE,', ',S_TIME" SEND_COMMAND TP,"'!F',252,'1'" SEND_COMMAND TP,"'TEXT252-',__VERSION__" SEND_COMMAND TP,"'!F',253,'1'" (* Must fill this (Master Ver) *) SEND_COMMAND TP,'TEXT253-' SEND_COMMAND TP,"'!F',254,'1'" (* Must fill this (Panel File) *) SEND_COMMAND TP,'TEXT254-' SEND_COMMAND TP,"'!F',255,'1'" (* Must fill this (Dealer Info) *) SEND_COMMAND TP,'TEXT255-' *) (***********************************************************) (* THE EVENTS GOES BELOW *) (***********************************************************) DEFINE_EVENT Channel_Event[dvdCodec,DECODE_AUD_MUTE] Channel_Event[dvdCodec,DECODE_AUD_MONO] Channel_Event[dvdCodec,DECODE_AUD_STEREO] Channel_Event[dvdCodec,DECODE_VID_START] Channel_Event[dvdCodec,DECODE_VID_STOP] Channel_Event[dvdCodec,DECODE_VID_OUT_NTSC] Channel_Event[dvdCodec,DECODE_VID_OUT_PAL] Channel_Event[dvdCodec,DECODE_VID_IN_MPEG1] Channel_Event[dvdCodec,DECODE_VID_IN_MPEG2] Channel_Event[dvdCodec,ENCODE_AUD_START] Channel_Event[dvdCodec,ENCODE_AUD_STOP] Channel_Event[dvdCodec,ENCODE_AUD_MODE_MONO] Channel_Event[dvdCodec,ENCODE_AUD_MODE_STEREO] Channel_Event[dvdCodec,ENCODE_AUD_MODE_DUAL] Channel_Event[dvdCodec,ENCODE_AUD_MODE_JOINT_0] Channel_Event[dvdCodec,ENCODE_AUD_MODE_JOINT_1] Channel_Event[dvdCodec,ENCODE_AUD_MODE_JOINT_2] Channel_Event[dvdCodec,ENCODE_AUD_MODE_JOINT_3] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_65K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_80K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_96K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_112K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_128K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_160K] Channel_Event[dvdCodec,ENCODE_AUD_BIT_RATE_192K] Channel_Event[dvdCodec,ENCODE_AUD_VOL_RAISE_LT] Channel_Event[dvdCodec,ENCODE_AUD_VOL_LOWER_LT] Channel_Event[dvdCodec,ENCODE_AUD_VOL_RAISE_RT] Channel_Event[dvdCodec,ENCODE_AUD_VOL_LOWER_RT] Channel_Event[dvdCodec,ENCODE_VID_START] Channel_Event[dvdCodec,ENCODE_VID_STOP] Channel_Event[dvdCodec,ENCODE_VID_NTSC_SIF] Channel_Event[dvdCodec,ENCODE_VID_PAL_SIF] Channel_Event[dvdCodec,ENCODE_VID_NTSC_QSIF] Channel_Event[dvdCodec,ENCODE_VID_PAL_QSIF] Channel_Event[dvdCodec,ENCODE_VID_IN_COMPOSITE] Channel_Event[dvdCodec,ENCODE_VID_IN_SVHS] Channel_Event[dvdCodec,ENCODE_VID_BIT_RATE_1M] Channel_Event[dvdCodec,ENCODE_VID_BIT_RATE_1_5M] Channel_Event[dvdCodec,ENCODE_VID_BIT_RATE_2M] Channel_Event[dvdCodec,ENCODE_VID_BIT_RATE_2_5M] Channel_Event[dvdCodec,ENCODE_VID_BIT_RATE_3M] Channel_Event[dvdCodec,ENCODE_VID_CONT_RAISE] Channel_Event[dvdCodec,ENCODE_VID_CONT_LOWER] Channel_Event[dvdCodec,ENCODE_VID_HUE_RAISE] Channel_Event[dvdCodec,ENCODE_VID_HUE_LOWER] Channel_Event[dvdCodec,ENCODE_VID_SATR_RAISE] Channel_Event[dvdCodec,ENCODE_VID_SATR_LOWER] Channel_Event[dvdCodec,ENCODE_VID_BRIT_RAISE] Channel_Event[dvdCodec,ENCODE_VID_BRIT_LOWER] Channel_Event[dvdCodec,IP_XMIT_ENABLE] Channel_Event[dvdCodec,IP_XMIT_DISABLE] Channel_Event[dvdCodec,IP_XMIT_MODE_UNICAST] Channel_Event[dvdCodec,IP_XMIT_MODE_MULTICAST] Channel_Event[dvdCodec,IP_RCVE_MODE_UNICAST] Channel_Event[dvdCodec,IP_RCVE_MODE_MULTICAST] Channel_Event[dvdCodec,IP_APPLY_CHANGES] { On: { CodecFunc(dvCodec,Channel.Channel,""); } } Channel_Event[dvdCodec,ENCODE_AUD_VOL_RAISE_LT] Channel_Event[dvdCodec,ENCODE_AUD_VOL_LOWER_LT] { Off: { CodecFunc(dvCodec,ENCODE_AUD_VOL_STOP_LT,""); } } Channel_Event[dvdCodec,ENCODE_AUD_VOL_RAISE_RT] Channel_Event[dvdCodec,ENCODE_AUD_VOL_LOWER_RT] { Off: { CodecFunc(dvCodec,ENCODE_AUD_VOL_STOP_RT,""); } } Channel_Event[dvdCodec,ENCODE_VID_CONT_RAISE] Channel_Event[dvdCodec,ENCODE_VID_CONT_LOWER] { Off: { CodecFunc(dvCodec,ENCODE_VID_CONT_STOP,""); } } Channel_Event[dvdCodec,ENCODE_VID_HUE_RAISE] Channel_Event[dvdCodec,ENCODE_VID_HUE_LOWER] { Off: { CodecFunc(dvCodec,ENCODE_VID_HUE_STOP,""); } } Channel_Event[dvdCodec,ENCODE_VID_SATR_RAISE] Channel_Event[dvdCodec,ENCODE_VID_SATR_LOWER] { Off: { CodecFunc(dvCodec,ENCODE_VID_SATR_STOP,""); } } Channel_Event[dvdCodec,ENCODE_VID_BRIT_RAISE] Channel_Event[dvdCodec,ENCODE_VID_BRIT_LOWER] { Off: { CodecFunc(dvCodec,ENCODE_VID_BRIT_STOP,""); } } Data_Event[dvdCodec] { Command: { ParseCommands(Data.Text) } Online: { Wait 100 'Codec Online' { CodecFunc(dvCodec,STAT_DECODE_AUD,""); CodecFunc(dvCodec,STAT_DECODE_VID,""); CodecFunc(dvCodec,STAT_ENCODE_AUD,""); CodecFunc(dvCodec,STAT_ENCODE_VID,""); CodecFunc(dvCodec,STAT_IP_PROC,""); } } } Data_Event[dvCodec] { Online: { On[dvdCodec,SOCKET_OPEN] } Offline: { Off[dvdCodec,SOCKET_OPEN] Off[dvdCodec,LOGGED_IN] } String: { ParseCodecResponse(cCodecBuffer); } } (* Timeline Events *****************************************) Timeline_Event[TL_AUDIO_RAISE_RT] { RaiseLevels(uAudioVolumeRight); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_RT,Itoa(uAudioVolumeRight.snLevel)); } Timeline_Event[TL_AUDIO_LOWER_RT] { LowerLevels(uAudioVolumeRight); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_RT,Itoa(uAudioVolumeRight.snLevel)); } Timeline_Event[TL_AUDIO_RAISE_LT] { RaiseLevels(uAudioVolumeLeft); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_LT,Itoa(uAudioVolumeLeft.snLevel)); } Timeline_Event[TL_AUDIO_LOWER_LT] { LowerLevels(uAudioVolumeLeft); CodecFunc(dvCodec,ENCODE_AUD_VOL_LEVEL_LT,Itoa(uAudioVolumeLeft.snLevel)); } Timeline_Event[TL_VIDEO_CONTRAST_RAISE] { RaiseLevels(uVideoContrast); CodecFunc(dvCodec,ENCODE_VID_CONT_LEVEL,Itoa(uVideoContrast.snLevel)); } Timeline_Event[TL_VIDEO_CONTRAST_LOWER] { LowerLevels(uVideoContrast); CodecFunc(dvCodec,ENCODE_VID_CONT_LEVEL,Itoa(uVideoContrast.snLevel)); } Timeline_Event[TL_VIDEO_HUE_RAISE] { RaiseLevels(uVideoHue); CodecFunc(dvCodec,ENCODE_VID_HUE_LEVEL,Itoa(uVideoHue.snLevel)); } Timeline_Event[TL_VIDEO_HUE_LOWER] { LowerLevels(uVideoHue); CodecFunc(dvCodec,ENCODE_VID_HUE_LEVEL,Itoa(uVideoHue.snLevel)); } Timeline_Event[TL_VIDEO_SAT_RAISE] { RaiseLevels(uVideoSaturation); CodecFunc(dvCodec,ENCODE_VID_SATR_LEVEL,Itoa(uVideoSaturation.snLevel)); } Timeline_Event[TL_VIDEO_SAT_LOWER] { LowerLevels(uVideoSaturation); CodecFunc(dvCodec,ENCODE_VID_SATR_LEVEL,Itoa(uVideoSaturation.snLevel)); } Timeline_Event[TL_VIDEO_BRIT_RAISE] { RaiseLevels(uVideoBrightness); CodecFunc(dvCodec,ENCODE_VID_BRIT_LEVEL,Itoa(uVideoBrightness.snLevel)); } Timeline_Event[TL_VIDEO_BRIT_LOWER] { LowerLevels(uVideoBrightness); CodecFunc(dvCodec,ENCODE_VID_BRIT_LEVEL,Itoa(uVideoBrightness.snLevel)); } Timeline_Event[TL_MAINLINE] { CommServer(); //If (Length_String(cCodecBuffer)) // ParseCodecResponse(cCodecBuffer); } (***********************************************************) (* THE ACTUAL PROGRAM GOES BELOW *) (***********************************************************) DEFINE_PROGRAM (***********************************************************) (* END OF PROGRAM *) (* DO NOT PUT ANY CODE BELOW THIS COMMENT *) (***********************************************************)