Reply To: Eclipsys SCM Acknowledgements

Kathy,

Below is the ‘original’ tcp_acknak.pdl code.  We use this between Cloverleaf sites and have nevere lost a message (yet!)

The ‘echo’ commnds have been added as we print the RCS ID for all code at startup.

/* $Id: tcp_acknak.pdl,v 1.3 2001/02/14 00:22:35 he00387 Exp $ */

/*

*

*/

define driver tcp_acknak;

   version: “1.0”;

end driver;

/* This driver manages the transmission of messages using the tcpip

* with a 4-byte length encoded structure.  The length placed in the

* encoding is EXCLUSIVE of the encoding bytes.

*

*   – Upon receiving an IB data message, a one character OB message is

*    sent.  The message is the ASCII value ACK (0x06).

*

*  – Upon sending an OB data message, a one character message is

*    expected in return.  The IB reply message is the ASCII value ACK

*    (0x06).  The current driver does nothing with NAKs other than to

*    print a message saying that a “Negative ack received.”

*

* The phrase basic-msg recognizes this message format.  Once recognized,

* the message data will be available from the ‘data’ field.

*/

define phrase basic-msg;

   field msglen = fixed-array( 4, any );

   length-encoded { encoding:network(bytes:4), store-in: msglen } =

begin

   field data = variable-array( any );

end;

end phrase;

define phrase ack-msg;

   ;

end phrase;

define phrase nak-msg;

   ;

end phrase;

/**********************************************************************

* End of declarative section, TCL management functions start here.   *

**********************************************************************/

#{#

# This is a standard ack/nak protocol; use the acknak style.

hci_pd_msg_style acknak phrase:basic-msg

field:data

ackphrase:ack-msg

nakphrase:nak-msg

timeout:600000

######################################################################

# hci_pd.open – Setup driver config during open phase

# Args:

#       config  = keyed list of config data from netconfig

# Notes:

#       It is our job to create hci_pd.device.  This variable is used

#       by hci_pd_open_device to properly open and connect the underlying

#       communication device.

#

proc hci_pd.open { config } {

   global hci_pd.device

   set hci_pd.device $config           ;# Just use it all

}

######################################################################

# hci_pd.initialize – Initialize the driver for use, open the device

# Args:

#       info    = currently unused

# Notes:

#       This function will cause the communication device to be opened.

#

proc hci_pd.initialize { info } {

global HciConnName

# construct a string that is in the same format as the rest of the

# logging and display this to the log file.

set my_ThreadName “[fmtclock [getclock] %X] $HciConnName tcp_acknak:INFO: RCS Info $Id: tcp_acknak.pdl,v 1.3 2001/02/14 00:22:35 he00387 Exp $”

echo $my_ThreadName

   hci_pd_open_device

}

#}#