#!/usr/local/bin/perl -pi.bak
#  To attempt to convert a Datahub program to DataExchange, do:
#	perl hub_convert *.c *.h
#  Old files will be renamed to *.bak.  
#  Note:  This is not a complete automated conversion.  It exists to save a 
#  bit of work.  Check forwarding control carefully as the semantics have 
#  changed.
#
s/datahub.h/DE.h/;
s/forward_style/DEForwardStyle/g;
s/datahub_debug_flag/de_debug_flag/g;
s/netserv_client_hub_name/DEport_name/g;
s/netserv_from_client/DEport_from_port/g;
s/netserv_write_data\([^,]*,[ 	]*/DEport_write_data(/g;
s/netserv_write_data_by_name\([^,]*,[ 	]*/DEport_write_data_by_name(/g;
s/netserv_read_data\([^,]*,[ 	]*/DEport_read_data(/g;
s/netserv_to_client/DEport_to_port/g;
s/netserv_client_port_number/DEport_port_number/g;
s/netserv_client_host_name/DEport_host_name/g;
s/netserv_close_conn\([^,]*,[ 	]*/DEport_close(/g;
s/netserv_hub_name/DExchange_name/g;
s/netserv_signoff_format\([^,]*,[ 	]*([^)]*)/DEport_set_format_block($1, TRUE/g;
s/netserv_signon_format\([^,]*,[ 	]*([^)]*)/DEport_set_format_block($1, FALSE/g;
s/netserv_set_format_forwarding/DE_set_format_forward/g;
s/hub_rewrite_queued_data/DErewrite_queued_data/g;
s/HubQueueData/DEqueue_data/g;
s/HubReleaseData/DErelease_data/g;
s/HubSavedRec/DESavedRec/g;
s/SavedRec_format_id/DESavedRec_format_id/g;
s/SavedRec_data/DESavedRec_get_data_ptr/g;
s/HubMakeFieldPtr/DEmake_field_ptr/g;
s/HubGetFieldInfo/DEget_field_info/g;
s/HubFreeFieldInfo/DEfree_field_info/g;
s/HubRecField/DERecField/g;
s/HubGetData/DEget_data/g;
s/get_data_result/DEDataResult/g;
s/GetData/DEData/g;
s/DEDataOK/DEData_OK/g;
s/DEDataTruncate/DEData_Truncate/g;
s/DEDataTooSmall/DEData_Too_Small/g;
s/hub_init_block_check/DEinit_block_check/g;
s/hub_get_format_id/DEget_format_id/g;
s/hub_get_format_name/DEget_format_name/g;
s/netserv_register_openRecordHandler/DExchange_register_open_handler/g;
s/netserv_register_closeRecordHandler/DExchange_register_close_handler/g;
s/netserv_register_commentRecordHandler/DExchange_register_comment_handler/g;
s/netserv_register_formatRecordHandler/DExchange_register_format_handler/g;
s/netserv_client/DEPort/g;
s/netserv/DExchange/g;
s/\bns\b/de/g;
s/_ns\b/_de/g;
s/_nsc\b/_dep/g;
if (/.*initiate_conn.*/) {print STDERR "Check DExchange_initiate_conn() call at line $., file $ARGV\n";}
if(/.*initiate_conn.*/) {print STDERR "	DataHub and DataExchange require different third arguments\n";}
