Initial Version

MATLAB/+XPlaneConnect/sendSTRU.m

@@ -0,0 +1,63 @@
+function [ status ] = sendSTRU( STRU, varargin )
+%sendSTRU Send a MATLAB structure over UDP
+% Version 0.25
+%
+%Inputs
+%     stru: A MATLAB structure
+%     IP Address (optional): IP Address of the machine that will receive the data as a character array. Default is '127.0.0.1' (local machine)
+%     port (optional): Port on the receiving machine where the data will be sent. Default is 49009 (XPlaneConnect). In general use 49009 to send to the plugin
+%
+%Outputs
+%	status: If there was an error. Status<0 means there was an error.
+%
+%Use
+%	1. import XPlaneConnect.*;
+%	2. data = struct('a',[1:20],'b',1.853,'name','Example Structure');
+%	3. #Send the data structure to port 49005 on the computer at IP address 172.0.100.54
+%	4. status = sendUDP( data, '172.0.100.54', 49005 );
+%
+%Change Log
+%  10/02/14: [CT] V0.25: Updated to work with updated xpcPlugin
+%  04/18/14: [CT] V0.2: Added Versioning
+%  08/01/13: [CT] Code created
+%
+% Contributors
+%   [CT] Christopher Teubert (SGT, Inc.)
+%       christopher.a.teubert@nasa.gov
+%
+% To Do
+%
+%BEGIN CODE
+
+    import XPlaneConnect.*
+    
+    %% Handle Input
+    p = inputParser;
+    addRequired(p,'STRU');
+    addOptional(p,'IP','127.0.0.1',@ischar);
+    addOptional(p,'port',49009,@isnumeric);
+    parse(p,STRU,varargin{:});
+    
+    %% Form Data Array representing the structure
+    DATA = ['STRU'-0,0]; %array header
+    fieldName = fieldnames(p.Results.STRU); %all Struct fields
+    for i=1:length(fieldName) %for each field
+        field = getfield(p.Results.STRU,fieldName{i}); %get field
+        if ischar(field) %String
+            dim1 = 0; %Indicates string
+            dim2 = length(field); %length
+            data = field-0; %data
+        else %Numeric
+            dim1 = size(field,1); %Array Dim1
+            dim2 = size(field,2); %Array Dim2
+            data = typecast(single(reshape(field',1,dim1*dim2)),'uint8'); %Data
+        end
+
+        DATA = [DATA,length(fieldName{i}),fieldName{i}-0,dim1,dim2,data]; %add to array
+    end
+    
+    %% Send Array
+    status = sendUDP(DATA, p.Results.IP, p.Results.port);
+    
+end
+