/************************************************************************* * Copyright (C) 2006 Steve Karg * * Permission is hereby granted, free of charge, to any person obtaining * a copy of this software and associated documentation files (the * "Software"), to deal in the Software without restriction, including * without limitation the rights to use, copy, modify, merge, publish, * distribute, sublicense, and/or sell copies of the Software, and to * permit persons to whom the Software is furnished to do so, subject to * the following conditions: * * The above copyright notice and this permission notice shall be included * in all copies or substantial portions of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. * *********************************************************************/ #define PRINT_ENABLED 1 /* command line tool that sends a BACnet service, and displays the reply */ #include #include #include #include #include #include /* for time */ #include #include "bacdef.h" #include "config.h" #include "bactext.h" #include "bacerror.h" #include "iam.h" #include "arf.h" #include "tsm.h" #include "address.h" #include "npdu.h" #include "apdu.h" #include "device.h" #include "net.h" #include "datalink.h" #include "whois.h" /* some demo stuff needed */ #include "filename.h" #include "handlers.h" #include "client.h" #include "txbuf.h" #include "dlenv.h" #include "mydata.h" #include "readrange.h" #include "bactext.h" /* include the objects */ #include "device.h" #include "ai.h" #include "ao.h" #include "av.h" #include "bi.h" #include "bo.h" #include "bv.h" #include "lc.h" #include "lsp.h" #include "mso.h" #include "bacfile.h" #if defined(__BORLANDC__) #define _kbhit kbhit #define _stricmp stricmp #endif uint8_t Send_Private_Transfer_Request( uint32_t device_id, uint16_t vendor_id, uint32_t service_number, char block_number, DATABLOCK * block); /* buffer used for receive */ static uint8_t Rx_Buf[MAX_MPDU] = { 0 }; /* global variables used in this file */ static uint32_t Target_Device_Object_Instance = BACNET_MAX_INSTANCE; static int Target_Mode = 0; static BACNET_ADDRESS Target_Address; static bool Error_Detected = false; static void MyErrorHandler( BACNET_ADDRESS * src, uint8_t invoke_id, BACNET_ERROR_CLASS error_class, BACNET_ERROR_CODE error_code) { /* FIXME: verify src and invoke id */ (void) src; (void) invoke_id; printf("BACnet Error: %s: %s\r\n", bactext_error_class_name((int) error_class), bactext_error_code_name((int) error_code)); /* Error_Detected = true; */ } void MyAbortHandler( BACNET_ADDRESS * src, uint8_t invoke_id, uint8_t abort_reason, bool server) { /* FIXME: verify src and invoke id */ (void) src; (void) invoke_id; (void) server; printf("BACnet Abort: %s\r\n", bactext_abort_reason_name((int) abort_reason)); /* Error_Detected = true; */ } void MyRejectHandler( BACNET_ADDRESS * src, uint8_t invoke_id, uint8_t reject_reason) { /* FIXME: verify src and invoke id */ (void) src; (void) invoke_id; printf("BACnet Reject: %s\r\n", bactext_reject_reason_name((int) reject_reason)); /* Error_Detected = true; */ } static void Init_Object( BACNET_OBJECT_TYPE object_type, rpm_property_lists_function rpm_list_function, read_property_function rp_function, object_valid_instance_function object_valid_function, write_property_function wp_function, object_count_function count_function, object_index_to_instance_function index_function, object_name_function name_function) { handler_read_property_object_set(object_type, rp_function, object_valid_function); handler_write_property_object_set(object_type, wp_function); handler_read_property_multiple_list_set(object_type, rpm_list_function); Device_Object_Function_Set(object_type, count_function, index_function, name_function); } static void Init_Objects( void) { Device_Init(); Init_Object(OBJECT_DEVICE, Device_Property_Lists, Device_Encode_Property_APDU, Device_Valid_Object_Instance_Number, Device_Write_Property, NULL, NULL, NULL); Analog_Input_Init(); Init_Object(OBJECT_ANALOG_INPUT, Analog_Input_Property_Lists, Analog_Input_Encode_Property_APDU, Analog_Input_Valid_Instance, NULL, Analog_Input_Count, Analog_Input_Index_To_Instance, Analog_Input_Name); Analog_Output_Init(); Init_Object(OBJECT_ANALOG_OUTPUT, Analog_Output_Property_Lists, Analog_Output_Encode_Property_APDU, Analog_Output_Valid_Instance, Analog_Output_Write_Property, Analog_Output_Count, Analog_Output_Index_To_Instance, Analog_Output_Name); Analog_Value_Init(); Init_Object(OBJECT_ANALOG_VALUE, Analog_Value_Property_Lists, Analog_Value_Encode_Property_APDU, Analog_Value_Valid_Instance, Analog_Value_Write_Property, Analog_Value_Count, Analog_Value_Index_To_Instance, Analog_Value_Name); Binary_Input_Init(); Init_Object(OBJECT_BINARY_INPUT, Binary_Input_Property_Lists, Binary_Input_Encode_Property_APDU, Binary_Input_Valid_Instance, NULL, Binary_Input_Count, Binary_Input_Index_To_Instance, Binary_Input_Name); Binary_Output_Init(); Init_Object(OBJECT_BINARY_OUTPUT, Binary_Output_Property_Lists, Binary_Output_Encode_Property_APDU, Binary_Output_Valid_Instance, Binary_Output_Write_Property, Binary_Output_Count, Binary_Output_Index_To_Instance, Binary_Output_Name); Binary_Value_Init(); Init_Object(OBJECT_BINARY_VALUE, Binary_Value_Property_Lists, Binary_Value_Encode_Property_APDU, Binary_Value_Valid_Instance, Binary_Value_Write_Property, Binary_Value_Count, Binary_Value_Index_To_Instance, Binary_Value_Name); Life_Safety_Point_Init(); Init_Object(OBJECT_LIFE_SAFETY_POINT, Life_Safety_Point_Property_Lists, Life_Safety_Point_Encode_Property_APDU, Life_Safety_Point_Valid_Instance, Life_Safety_Point_Write_Property, Life_Safety_Point_Count, Life_Safety_Point_Index_To_Instance, Life_Safety_Point_Name); Load_Control_Init(); Init_Object(OBJECT_LOAD_CONTROL, Load_Control_Property_Lists, Load_Control_Encode_Property_APDU, Load_Control_Valid_Instance, Load_Control_Write_Property, Load_Control_Count, Load_Control_Index_To_Instance, Load_Control_Name); Multistate_Output_Init(); Init_Object(OBJECT_MULTI_STATE_OUTPUT, Multistate_Output_Property_Lists, Multistate_Output_Encode_Property_APDU, Multistate_Output_Valid_Instance, Multistate_Output_Write_Property, Multistate_Output_Count, Multistate_Output_Index_To_Instance, Multistate_Output_Name); #if defined(BACFILE) bacfile_init(); Init_Object(OBJECT_FILE, BACfile_Property_Lists, bacfile_encode_property_apdu, bacfile_valid_instance, bacfile_write_property, bacfile_count, bacfile_index_to_instance, bacfile_name); #endif } static void Init_Service_Handlers( void) { /* we need to handle who-isx to support dynamic device binding to us */ apdu_set_unconfirmed_handler(SERVICE_UNCONFIRMED_WHO_IS, handler_who_is); /* handle i-am to support binding to other devices */ #if 0 apdu_set_unconfirmed_handler(SERVICE_UNCONFIRMED_I_AM, handler_i_am_bind); #else apdu_set_unconfirmed_handler(SERVICE_UNCONFIRMED_I_AM, handler_i_am_add); #endif /* set the handler for all the services we don't implement It is required to send the proper reject message... */ apdu_set_unrecognized_service_handler_handler (handler_unrecognized_service); /* we must implement read property - it's required! */ apdu_set_confirmed_handler(SERVICE_CONFIRMED_READ_PROPERTY, handler_read_property); apdu_set_confirmed_handler(SERVICE_CONFIRMED_READ_PROP_MULTIPLE, handler_read_property_multiple); apdu_set_confirmed_handler(SERVICE_CONFIRMED_READ_RANGE, handler_read_range); apdu_set_confirmed_handler(SERVICE_CONFIRMED_PRIVATE_TRANSFER, handler_conf_private_trans); /* handle the data coming back from confirmed requests */ apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_READ_PROPERTY, handler_read_property_ack); apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_READ_RANGE, handler_read_range_ack); apdu_set_confirmed_ack_handler(SERVICE_CONFIRMED_PRIVATE_TRANSFER, handler_conf_private_trans_ack); /* handle any errors coming back */ apdu_set_error_handler(SERVICE_CONFIRMED_READ_PROPERTY, MyErrorHandler); apdu_set_error_handler(SERVICE_CONFIRMED_PRIVATE_TRANSFER, MyErrorHandler); apdu_set_abort_handler(MyAbortHandler); apdu_set_reject_handler(MyRejectHandler); } int main( int argc, char *argv[]) { BACNET_ADDRESS src = { 0 }; /* address where message came from */ uint16_t pdu_len = 0; unsigned timeout = 100; /* milliseconds */ unsigned max_apdu = 0; time_t elapsed_seconds = 0; time_t last_seconds = 0; time_t current_seconds = 0; time_t timeout_seconds = 0; uint8_t invoke_id = 0; bool found = false; BACNET_READ_RANGE_DATA Request; int iCount = 0; int iType = 0; int iKey; static int iLimit[3] = { 7, 11, 7 }; if (((argc != 2) && (argc != 3)) || ((argc >= 2) && (strcmp(argv[1], "--help") == 0))) { printf("%s\n", argv[0]); printf("Usage: %s server local-device-instance\r\n or\r\n" " %s remote-device-instance\r\n" "--help gives further information\r\n", filename_remove_path(argv[0]), filename_remove_path(argv[0])); if ((argc > 1) && (strcmp(argv[1], "--help") == 0)) { printf("\r\nServer mode:\r\n\r\n" " determins the device id of the application\r\n" "when running as the server end of a test set up. The Server simply\r\n" "returns dummy data for each ReadRange request\r\n\r\n" "Non server:\r\n\r\n" " indicates the device id of the server\r\n" "instance of the application.\r\n" "The non server application will send a series of ReadRange requests to the\r\n" "server with examples of different range types.\r\n"); } return 0; } /* decode the command line parameters */ if (_stricmp(argv[1], "server") == 0) Target_Mode = 1; else Target_Mode = 0; Target_Device_Object_Instance = strtol(argv[1 + Target_Mode], NULL, 0); if (Target_Device_Object_Instance > BACNET_MAX_INSTANCE) { fprintf(stderr, "device-instance=%u - it must be less than %u\r\n", Target_Device_Object_Instance, BACNET_MAX_INSTANCE); return 1; } /* setup my info */ if (Target_Mode) Device_Set_Object_Instance_Number(Target_Device_Object_Instance); else Device_Set_Object_Instance_Number(BACNET_MAX_INSTANCE); Init_Objects(); address_init(); Init_Service_Handlers(); dlenv_init(); /* configure the timeout values */ last_seconds = time(NULL); timeout_seconds = (apdu_timeout() / 1000) * apdu_retries(); if (Target_Mode) { printf("Entering server mode. press q to quit program\r\n\r\n"); for (;;) { /* increment timer - exit if timed out */ current_seconds = time(NULL); if (current_seconds != last_seconds) { } /* returns 0 bytes on timeout */ pdu_len = datalink_receive(&src, &Rx_Buf[0], MAX_MPDU, timeout); /* process */ if (pdu_len) { npdu_handler(&src, &Rx_Buf[0], pdu_len); } /* at least one second has passed */ if (current_seconds != last_seconds) { putchar('.'); /* Just to show that time is passing... */ last_seconds = current_seconds; tsm_timer_milliseconds(((current_seconds - last_seconds) * 1000)); address_cache_timer(current_seconds - last_seconds); } if (_kbhit()) { iKey = toupper(_getch()); if (iKey == 'Q') { printf("\r\nExiting program now\r\n"); exit(0); } } } } else { /* try to bind with the device */ found = address_bind_request(Target_Device_Object_Instance, &max_apdu, &Target_Address); if (!found) { Send_WhoIs(Target_Device_Object_Instance, Target_Device_Object_Instance); } /* loop forever */ for (;;) { /* increment timer - exit if timed out */ current_seconds = time(NULL); /* returns 0 bytes on timeout */ pdu_len = datalink_receive(&src, &Rx_Buf[0], MAX_MPDU, timeout); /* process */ if (pdu_len) { npdu_handler(&src, &Rx_Buf[0], pdu_len); } /* at least one second has passed */ if (current_seconds != last_seconds) { tsm_timer_milliseconds(((current_seconds - last_seconds) * 1000)); address_cache_timer(current_seconds - last_seconds); } if (Error_Detected) break; /* wait until the device is bound, or timeout and quit */ if (!found) found = address_bind_request(Target_Device_Object_Instance, &max_apdu, &Target_Address); if (found) { if (invoke_id == 0) { /* Safe to send a new request */ switch (iCount) { case 0: Request.RequestType = RR_BY_POSITION; Request.Range.RefIndex = 20; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = 1; break; case 1: Request.RequestType = RR_BY_SEQUENCE; Request.Range.RefSeqNum = 20; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = 2; break; case 2: Request.RequestType = RR_BY_TIME; Request.Range.RefTime.date.year = 2009; Request.Range.RefTime.date.month = 9; Request.Range.RefTime.date.day = 23; Request.Range.RefTime.date.wday = 0xFF; /* Day of week unspecified */ Request.Range.RefTime.time.hour = 22; Request.Range.RefTime.time.min = 23; Request.Range.RefTime.time.sec = 24; Request.Range.RefTime.time.hundredths = 0; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = 3; break; case 3: Request.RequestType = RR_BY_POSITION; Request.Range.RefIndex = 20; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = BACNET_ARRAY_ALL; break; case 4: Request.RequestType = RR_BY_SEQUENCE; Request.Range.RefSeqNum = 20; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = BACNET_ARRAY_ALL; break; case 5: Request.RequestType = RR_BY_TIME; Request.Range.RefTime.date.year = 2009; Request.Range.RefTime.date.month = 9; Request.Range.RefTime.date.day = 23; Request.Range.RefTime.date.wday = 0xFF; /* Day of week unspecified */ Request.Range.RefTime.time.hour = 22; Request.Range.RefTime.time.min = 23; Request.Range.RefTime.time.sec = 24; Request.Range.RefTime.time.hundredths = 0; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = BACNET_ARRAY_ALL; break; case 6: Request.RequestType = RR_READ_ALL; Request.Range.RefTime.date.year = 2009; Request.Range.RefTime.date.month = 9; Request.Range.RefTime.date.day = 23; Request.Range.RefTime.date.wday = 0xFF; /* Day of week unspecified */ Request.Range.RefTime.time.hour = 22; Request.Range.RefTime.time.min = 23; Request.Range.RefTime.time.sec = 24; Request.Range.RefTime.time.hundredths = 0; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = BACNET_ARRAY_ALL; break; case 7: Request.RequestType = RR_READ_ALL; Request.Range.RefTime.date.year = 2009; Request.Range.RefTime.date.month = 9; Request.Range.RefTime.date.day = 23; Request.Range.RefTime.date.wday = 0xFF; /* Day of week unspecified */ Request.Range.RefTime.time.hour = 22; Request.Range.RefTime.time.min = 23; Request.Range.RefTime.time.sec = 24; Request.Range.RefTime.time.hundredths = 0; Request.Count = 30; Request.object_type = OBJECT_ANALOG_INPUT; Request.object_instance = 0; Request.object_property = PROP_PRESENT_VALUE; Request.array_index = 7; break; } invoke_id = Send_ReadRange_Request(Target_Device_Object_Instance, &Request); } else if (tsm_invoke_id_free(invoke_id)) { if (iCount != MY_MAX_BLOCK) { iCount++; invoke_id = 0; } else { break; } } else if (tsm_invoke_id_failed(invoke_id)) { fprintf(stderr, "\rError: TSM Timeout!\r\n"); tsm_free_invoke_id(invoke_id); /* Error_Detected = true; */ /* try again or abort? */ invoke_id = 0; /* Try next operation */ /* break; */ } } else { /* increment timer - exit if timed out */ elapsed_seconds += (current_seconds - last_seconds); if (elapsed_seconds > timeout_seconds) { printf("\rError: APDU Timeout!\r\n"); /* Error_Detected = true; break; */ invoke_id = 0; } } /* keep track of time for next check */ last_seconds = current_seconds; } } if (Error_Detected) return 1; return 0; }