From 2cffc26403311df3b2801f489828bcdfb791dc57 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 27 Oct 2015 17:18:56 +0100 Subject: Split files --- Makefile | 7 ++++++- csta.erl | 10 ++++++++++ kme.erl | 6 ++---- 3 files changed, 18 insertions(+), 5 deletions(-) create mode 100644 csta.erl diff --git a/Makefile b/Makefile index dcdf711..81562fa 100644 --- a/Makefile +++ b/Makefile @@ -1,7 +1,12 @@ SRCS = ACSE-1.erl \ CSTA-application-context-information-csta3.erl \ Remote-Operations-Generic-ROS-PDUs.erl \ - KME-specific-types.erl + KME-specific-types.erl \ + CSTA-device-identifiers.erl \ + CSTA-call-connection-identifiers.erl \ + CSTA-extension-types.erl \ + CSTA-security.erl \ + CSTA-escape-service.erl all: $(SRCS) diff --git a/csta.erl b/csta.erl new file mode 100644 index 0000000..57f622a --- /dev/null +++ b/csta.erl @@ -0,0 +1,10 @@ +-module(csta). + +-export([co_lines/0]). + +-include("CSTA-escape-service.hrl"). + +co_lines() -> + {ok, CO} = kme:co_lines(), + 'CSTA-escape-service':encode('EscapeArgument', + #'EscapeArgument'{privateData = CO}). diff --git a/kme.erl b/kme.erl index b227f75..489e207 100644 --- a/kme.erl +++ b/kme.erl @@ -5,8 +5,6 @@ -include("KME-specific-types.hrl"). co_lines() -> - {ok, CO} = 'KME-specific-types':encode('KMESpecificPrivateData', {kmeSystemData, + 'KME-specific-types':encode('KMESpecificPrivateData', {kmeSystemData, {getSystemData, {request, {deviceList, {category, - {standardDevice, networkInterface}}}}}}), - CO. - %'KME-specific-types':encode('EscapeArgument', #'EscapeArgument'{privateData = CO}). + {standardDevice, networkInterface}}}}}}). -- cgit v1.2.3